SQL_server基础教程(第二版) 董翔英 第13章新.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 N