delphi学习笔记

登录代码：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 LoginUserID='''+self.user.Text+''' and 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 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.Edit2.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.typequery.Post; self.editbtn.Enabled:=true; self.savebtn.Enabled:=false; self.suiDBGrid1.Color:=clwhite; self.suiDBGrid1.ReadOnly:=true; showmessage('提交成功'); end; 提取系部：//值得注意的是datam窗体必须放在最上面，否则会出错。 procedure TemployeesForm.FormCreate(Sender: TObject); begin with datam.partquery do begin close; sql.Clear; sql.Add('select * from TDepts '); open; self.ComboBoxdept.Clear; self.ComboBoxdept.Items.Add('==请选择系部=='); while not eof do begin self.ComboBoxdept.Items.Add(fieldvalues['deptname']); next; end; self.ComboBoxdept.ItemIndex:=0; end; end;