DELPHI 程序填空题2题

1．该程序是一个VCL Forms多窗体应用程序，由Form1和Form2两窗体组成，其中Form1和Form2两窗体对应的单元文件分别为unit1和unit2，其设计界面如下图所示：

窗体Form1上建立的对象有Memo1、OpenDialog1(打开对话框)、SaveDialog1(保存对话框)、Button1(打开文件)、Button2(保存文件)、Button3(退出)。当用户单击“打开文件”按钮（Button1），会弹出打开文件对话框，用户指定一个文本文件后，文件内容加载到编辑区中（Memo1）。单击“保存文件”按钮（Button2），会弹出保存文件对话框，用户输入文件名后，保存Memo1中内容到指定文件中。单击“退出”按钮（Button3），以模态窗体打开Form2窗体，让用户确认退出程序，其中Form2窗体中的“是（Yes）”按钮和“否（No）”按钮的ModalResult属性分别设置为“mrYes”和“mrN0”，当单击“是（Yes）”按钮时，退出整个程序。请根据程序功能要求完成程序填空。

2.在Access数据库student.mdb中创建了一Access数据库表stu，用于保存学生的有关信息。表的结构是(Stuid学号，Name姓名，Sex性别，Major专业)，现编写一个程序能够查询某学生的有关信息，其设计界面如下图所示。

窗体实现的如下功能：在编辑框Edit1中输入某学生学号后，单击“查找记录”按钮，如果有该学生，则显示出该学生的相应信息，否则弹出对话框说明没有此学生信息。

其中建立的数据库组件对象有：(1)Database1：与student数据库连接；(2)Table1：对应stu数据库中的stu表；(3)Datasource1：与Table1相连；(4)DBGrid1：连接Datasource1数据源

请根据上述功能和要求填写有关内容。

(1)指明下面各个数据库组件的主要属性的设置

第一题：

implementation
uses Unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
memo1.Lines.LoadFromFile(opendialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if savedialog1.Execute then
memo1.Lines.SaveToFile(savedialog1.fileName)
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if form2.ShowModal = mrYes then
close;
end;


第二题：

Table1.DatabaseName:='student';
Table1.TableName:='stu.db';
Table1.Active:=true;
Datasource1.DataSet:=Table1;
DBGrid1.DataSource:=DataSource1;

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息