08数据库应用开发(2012-DB2)-精.pptVIP

1.系统主界面的设计与实现 默认的新表单Form1 ?拖放组件?设置组件属性?编写事件代码 第八章 数据库应用开发 8.3 C/S结构的DBS开发示例 主 窗 口 对象 树浏 览器 对象 查看 器 代码编辑器 表单设计器 1.系统主界面的设计与实现 默认的新表单Form1 ?拖放组件?设置组件属性?编写事件代码 第八章 数据库应用开发 8.3 C/S结构的DBS开发示例 主界面 单击Form1空白处， 在implementation处加入代码： implementation uses Unit2,Unit3; 双击Form2的“票务管理”按钮，在uses处添加下面红色代码。 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls; procedure TForm1.Button1Click(Sender: TObject); Begin Unit3.Form3.DBNavigator1.VisibleButtons:=[nbFirst,nbPrior,nbNext, nbLas t,nbInsert,nbDelete,nbEdit,nbPost,nbCancel,nbRefresh]; Unit2.Form2.Show; end; Procedure TForm1.Button2Click(Sender: TObject); begin Unit3.Form3.DBNavigator1.VisibleButtons:=[]; Unit3.Form3.FormCreate(Sender); Unit3.Form3.Show; end; 第八章 数据库应用开发 8.3 C/S结构的DBS开发示例 导航板不出现 主界面 2.登录界面的设计与实现 File ?New ? Form ? Form2中拖放组件?设置组件属性 ?编写事件代码 第八章 数据库应用开发 8.3 C/S结构的DBS开发示例 登录界面 “确定”按钮代码如下： procedure TForm2.Button1Click(Sender: TObject); begin if ((Edit1.Text=sxn)and (Edit2.Text=sxn)) then begin Unit3.Form3.FormCreate(Sender); Unit3.Form3.Show; end else showmessage(‘请输入正确的用户名或密码！’); Edit1.Text:=; Edit2.Text:=; end; 单击表单空白处，在Form中加入代码： implementation uses Unit3; “取消”按钮代码如下： procedure TForm2.Button2Click(Sender: TObject); begin close; end; 登录界面 第八章 数据库应用开发 8.3 C/S结构的DBS开发示例 3.操作界面的设计和实现 (1)数据展示与编辑组件 DBNavigator DBGrid ①File ?New ? Form ?在新表单Form3中拖放DBGrid组 件?将DataSource属性值设置为DataSource1。 ②在新表单Form3中拖放DBNavigator组件?将DataSource 属性值设置为DataSource1。 ③将ADOQuery组件的Active属性值置为TRUE。 操作界面 3.操作界面的设计和实现 (2)与用户进行信息交互的组件 第八章 数据库应用开发 8.3 C/S结构的DBS开发示例 Lable组件 Edit组件 Button组件 ComboBox组件 注：日期也可用Win32