登录代码:var loginform: Tloginform; times:integer; implementation uses mainUnit; {$R *.dfm}
procedure Tloginform.Button1Click(Sender: TObject); var asql,limication:string; begin if times>2 then begin showmessage('错误次数太多,退出登录'); close; end; if trim(self.user.Text)='' then begin showmessage('请输入用户名'); self.user.SetFocus; exit; end; if trim(self.pass.Text)='' then begin showmessage('请输入密码'); self.user.SetFocus; exit; end; asql:='select * from tusers where LoginPassWord='''+self.pass.Text+''''; with loginadoquery do begin close; sql.Clear; sql.add(asql); open; if loginadoquery.recordcount>0 then begin limication:=fieldvalues['limication']; if limication='0' then
LoginUserID='''+self.user.Text+'''
and
begin showmessage('欢迎管理员成功登录'); mainform.Show; loginform.Hide; end; if limication='1' then begin showmessage('欢迎操作员成功登录'); mainform.Show; loginform.Hide; mainform.ToolButton2.Enabled:=false; mainform.ToolButton3.Enabled:=false; mainform.ToolButton4.Enabled:=false; mainform.N11.Enabled:=false; mainform.N12.Enabled:=false; mainform.N13.Enabled:=false; end; end else begin showmessage('用户名或密码错误'); times:=times+1; //times 是全局变量,要在上面就定义的 self.user.SetFocus; end; end; end; procedure Tloginform.FormCreate(Sender: TObject); begin times:=0;//在窗体创建时赋予 times 初始值为 0 end; procedure Tloginform.Button2Click(Sender: TObject); begin close; end; procedure Tloginform.FormClose(Sender: TObject; var Action: TCloseAction); begin action:=cafree; end; 添加代码:procedure Taddform.Button1Click(Sender: TObject); var
asql:string; begin asql:='insert into temployees(employeeid,deptid,EmployeeName,BirthDay,Tel,HomeAddr) values('''+self.Edit1.Text+''','''+self.DBLookupComboBox1.KeyValue+''',' +''''+self.Edit5.Text+''','''+datetostr(self.DateTimePicker1.Date)+''','''+self.Edit3.Text+''','''+self.Edit 2.Text+''')'; with adoquery do begin close; sql.Clear; sql.Add(asql); execsql; close;
sql.Clear; sql.Add('select * from temployees'); open; showmessage('添加成功'); addform.Close; end; end; 修改代码:procedure Tupdateform.Button1Click(Sender: TObject); var asql:string; begin asql:='update temployees set Tel='''+self.Edit1.Text+''',HomeAddr='''+self.Edit2.Text+''',EmployeeName='''+self.Edit3.Text+''' where Employeeid='''+self.Edit4.Text+''''; with mainform.ADOQuery1 do begin close; sql.Clear; sql.Add(asql); execsql; close; sql.Clear; sql.Add('select * from temployees'); open; showmessage('修改成功'); updateform.Close; end; end; 删除代码:begin
if MessageDlg('确定要删除吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin adoquery1.Delete; showmessage('删除成功'); end; end; 打印:reportform.QuickRep1.Preview; 生日添加:'''+datetostr(self.DateTimePicker1.Date)+''' 时间:self.StatusBar1.Panels [2].Text:='登录时间: '+datetimetostr(now()); 修改背景:procedure TForm1.editbtnClick(
Sender: TObject); begin self.editbtn.Enabled:=false; self.savebtn.Enabled:=true; self.suiDBGrid1.Color:=clcream; self.typequery.Edit; self.suiDBGrid1.ReadOnly:=false; end; 保存: procedure TForm1.savebtnClick(Sender: TObject); begin self.ty