、SaveDialog1。 子窗体上建立的对象有 Label1、BitBtm1(Yes) 、BitBtm2(No) 。 单击“打开文件”按钮(Button1) ,会弹出打开文件对话框。用户指定一个文本文件后, 文件内容加载到编辑区中(Memo1) 。 单击“保存文件”按钮(Button1) ,会弹出保存文件对话框。用户输入文件名后,缓冲 区内容保存到指定文件中。 单击“退出”按钮,会弹出确认对话框(Form2) 。如果用户按“Yes”键,程序结束; 如果按“No”键,返回主窗体。 下面是 Unit1 的代码部分,请在下划线处完成程序填空。 --------------------------------------------------------------------------------------------------------------------implementation {$R *.dfm} uses ① ; procedure TForm1.Button1Click(Sender: TObject); //打开文件 begin if ② then ); memo1.Lines.LoadFromFile( ③ end; procedure TForm1.Button2Click(Sender: TObject); //保存文件 begin if savedialog1.Execute then ④ (savedialog1.FileName); end; procedure TForm1.Button3Click(Sender: TObject); //退出 begin if ⑤ = mrYes then close ; end; end.
4
① unit2 ③ opendialog1.FileName ⑤ form2.ShowModal
② opendialog1.Execute ④ memo1.Lines.SaveToFile
数据库操作(重点! 各个组件用法要熟练掌握, 数据库操作(重点! 各个组件用法要熟练掌握,表操作要 牢记) 牢记)
5、
数据库 mydb 中有关系表 student,其结构如下: student(sno ,sname ,sex 性别,birthday 生日) 现编写一个学生信息浏览程序,设计界面和运行界面如下图所示。
在下划线处填写相应数据库组件的属性值: Database1. DatabaseName : mydb Table1. DatabaseName : mydb Table1. TableName : student Table1. Active : ① Datasource1.DataSet : ② DBNavigator1. DataSource : ③ DBEdit2. DataSource : ④ DBEdit2. DataField : ⑤
① True ③ DataSource1 ⑤ sname
② Table1 ④ DataSource1
6、
本程序的功能是实现对 dep 表(系)-student 表(学生)的主从查询。用
户可以依次
查询系的记录, 也可以通过指定系号, 查找并定位到指定的记录。 每当显示一个系的记录后,
5
系统自动显示该系的学生记录。设计界面和运行界面如下:
在 Form1 上建立的主要对象及连接如下: Database1-Table1(与 dep 表相连)-DataSource1-DBEdit1~DBEdit3 Database1-Query1-DataSource2-DBGrid1(显示学生信息) Edit1、Button1(查找) 、Button2(下一记录) 、Button3(上一记录)等。 Query1 的 SQL 语句是: select * from student where dno = :dno 下面是 Unit1 单元的代码实现部分,请完成程序填空。 --------------------------------------------------------------------------------------------------------------------implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); //下一记录 begin table1. ① ; end; procedure TForm1.Button3Click(Sender: TObject); //上一记录 begin table1. ② ; end; procedure TForm1.Button1Click(Sender: TObject); //查找 begin table1. ③ ('dno',edit1.Text,[]) ; end; procedure TForm1.Table1AfterScroll(DataSet: TDataSet); begin query1.Close ; query1.ParamByName('dno').Value := ④ ; query1. ⑤ ; end; end. --------------------------------------------------------------------------------------------------------------------① Next ② Prior
6
③ Locate ⑤ Open
④ table1['dno']
7、
本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示:
该程序涉及到数据库中的两张表:books(图书信息)和 borrow(借书记录) 。表的结构 为: books(bno,书号,bname 书名,num 现有册数) borrow(rn