第13章SQL Server综合应用.pptVIP

（1）窗体和各组件属性 创建新窗体，窗体名为checkuserform，Caption为“用户登录”，窗体设计如图13.37所示，窗体中各组件及属性见13.8。 对象 属性 取值 说明 TDatabase Name Database1 连接的数据库 TImage Name Image1 Align alClient Picture Check.jpg Stretch true TEdit Name Edit1 TEdit Name Edit2 （2）事件分析和处理 “登陆”事件处理代码如下： procedureTcheckuserform.Speed Button1Click(Sender: TObject); begin m := m + 1; //记录输入字数，如果大于3次。则失败 if Edit1.Text = then Application.MessageBox (请输入用户名, 提示, 64) else if Edit2.Text = then Application.MessageBox (请输入密码, 提示, 64) else plogin; end; ?procedure Tcheckuserform.plogin; //登陆函数 begin with DataModule1.ADOlogin do begin close; sql.Clear; sql.Add(select * from operator where 用户名 = :a and 密码 = :b); parameters.ParamByName(a). Value := Trim(Edit1.Text); parameters.ParamByName(b). Value := Trim(Edit2.Text); open; end; If DataModule1.ADOlogin. RecordCount 0 then begin yonghu := DataModule1.ADOlogin. fieldByName(用户名).Value; s := true; mainform.StatusBar1.Panels[1]. Text := yonghu; //MAIN窗口中状态条设置显示用户名 mainform.StatusBar1.Panels[3]. Text := DateToStr(Date()); //日期 right[1] := DataModule1.ADOlogin. fieldByName(管理权).AsBoolean; right[2] := DataModule1.ADOlogin. fieldByName(‘操作权’).AsBoolean; right[3] := DataModule1.ADOlogin. fieldByName(查询权).AsBoolean; close; end else if m 3 then //输入错误次数小于3 begin 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 TData