SQL_server基础教程(第二版)董翔英第13章.pptVIP

PPT研究院 POWERPOINT ACADEMY * * Application.MessageBox(用户名或密码错误，请重新输入, 提示, 64); Edit1.Clear; Edit2.Clear; Edit1.SetFocus; //设焦点 end else begin Application.MessageBox (您无权使用本系统, 提示, 64); Application.Terminate; end; end; “取消”事件处理代码如下： procedure Tcheckuserform.SpeedButton2Click(Sender: TObject); begin application.Terminate; end; 3．驾驶员信息查询窗体设计 该窗体用于查询驾驶员信息，可分别按驾驶号、籍贯和姓名来查询。 （1）窗体和各组件属性 创建新窗体，窗体名为jsyform，Caption为“人员管理”，窗体设计如图13.38，窗体中各组件及属性见表13.9。 对象 属性 取值 说明 TGroupBox Name GroupBox1 Caption 查询类别 TGroupBox Name GroupBox2 Caption 查询类别 TRadioButton Name RadioButton1 Caption 按驾照号查询 TRadioButton Name RadioButton2 Caption 按籍贯查询 TRadioButton Name RadioButton3 Caption 按姓名查询 TComboBox Name ComboBox1 TEdit Name Edit1 TDBGrid Name DBGrid1 TDataBase Name DataBase1 DataBase Traffic 数据库名 AliseName Traffic 数据库别名 Connectced True 连接状态 TDataSource Name DataSource1 TQuery Name Query1 DataBaseName Traffic SQL select * from jsy 查询字符串 TBitBtn Name BitBtn1 Caption 查询 TBitBtn Name BitBtn1 Caption 退出 4．行车记录查询窗体设计 该窗体用于查询出车记录，可分别按驾照号、车牌号和出车单号查询。该窗体设计与驾驶员查询窗体相似。 （1）窗体和各组件属性 创建新窗体，名为xc1seekform，Caption为“行车查询”，窗体设计如图13.38，窗体中各组件及属性见表13.10. 对象 属性 取值 说明 TGroupBox Name GroupBox1 Caption 查询类别 TGroupBox Name GroupBox2 Caption 查询类别 TRadioButton Name RadioButton1 Caption 按驾照号查询 TRadioButton Name RadioButton2 Caption 按车牌号查询 TRadioButton Name RadioButton3 Caption 按出车单号查询 TComboBox Name ComboBox1 TEdit Name Edit1 TDBGrid Name DBGrid1 TDataBase Name DataBase1 DataBase Traffic 数据库名 AliseName Traffic 数据库别名 Connectced True 连接状态 TDataSource Name DataSource1 TQuery Name Query1 DataBaseName Traffic SQL select * from xc1 查询字符串 TBitBtn Name BitBtn1 Caption 查询 TBitBtn Name BitBtn1 Caption 退出 5．车辆管理窗体设计 该窗口用于车辆信息的维护，可以新增、修改或删除车辆信息。 （1）窗体和各组件属性 窗体设计如图13.40，窗体中组件属性见表13.11。 对象 属性 取值 说明 TGroupBox Name GroupBox1 Caption 车辆信息 TLabel Name Label1 Caption 车牌号 TLabel Name Label2 Caption 类别 TLabel Name Label3 Caption 发动机号 TLabel Name Label4 Caption 启用年代 TLabel Name Label5 Caption 累计里程 TLabel N