《2863.考勤管理系统源程序与论文源程序与论文2C答辩PPT 设计代码.doc》由会员分享，可在线阅读，更多相关《2863.考勤管理系统源程序与论文源程序与论文2C答辩PPT 设计代码.doc（17页珍藏版）》请在三一文库上搜索。
1、详细源代码及数据库请联系本人unit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, ComCtrls, DB, DBTables, DBCtrls, TeEngine, Series, TeeProcs, Chart, DbChart, Menus, Mask, ImgList,shellapi;type TmainForm = class(TFo
2、rm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; Panel1: TPanel; TabSheet4: TTabSheet; TabSheet5: TTabSheet; TabSheet6: TTabSheet; Bevel1: TBevel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7:
3、TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; BitBtn1: TBitBtn; DBGrid1: TDBGrid; Bevel2: TBevel; ComboBox1: TComboBox; ComboBox2: TComboBox; DataSource1: TDataSource; Table1: TTable; TabSheet7: TTabSheet; Bevel3: TBevel; DBNavigator1: TDBNavigator; Table1BianHao: TSt
4、ringField; Table1XingMing: TStringField; Table1Sex: TStringField; Table1BuMen: TStringField; Table1ZhuZhi: TStringField; Table1GongZi: TFloatField; Table1ZhiCheng: TStringField; DataSource2: TDataSource; Table2: TTable; DBChart1: TDBChart; Series1: TPieSeries; DBGrid2: TDBGrid; Bevel4: TBevel; Table
5、2BianHao: TStringField; Table2YueFen: TStringField; Table2YchuQin: TFloatField; Table2ChiDao: TFloatField; Table2ZaoTui: TFloatField; Table2QingJia: TFloatField; Table2KuangGong: TFloatField; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; DataSource3: TDataSource; Table3: TTable; Table3BianHa
6、o: TStringField; Table3YueFen: TStringField; Table3Gongzi: TFloatField; Table3Jiangjin: TFloatField; Table3Sgongzi: TFloatField; DBGrid3: TDBGrid; Bevel5: TBevel; Panel2: TPanel; Label8: TLabel; Label9: TLabel; Edit6: TEdit; ComboBox3: TComboBox; RadioGroup1: TRadioGroup; Label10: TLabel; Label11: T
7、Label; Edit7: TEdit; Edit8: TEdit; BitBtn5: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; DataSource4: TDataSource; Query1: TQuery; Label12: TLabel; Edit9: TEdit; GroupBox1: TGroupBox; GroupBox2: TGroupBox; Label14: TLabel; Edit11: TEdit; UpDown1: TUpDown; Label16: TLabel; Edit12: T
8、Edit; UpDown2: TUpDown; Label17: TLabel; DBGrid4: TDBGrid; GroupBox3: TGroupBox; DBGrid5: TDBGrid; Label15: TLabel; Edit13: TEdit; UpDown3: TUpDown; Label18: TLabel; Edit14: TEdit; UpDown4: TUpDown; Label19: TLabel; BitBtn10: TBitBtn; BitBtn11: TBitBtn; Label21: TLabel; Edit16: TEdit; Label20: TLabe
9、l; Edit15: TEdit; DBGrid6: TDBGrid; BitBtn9: TBitBtn; Query1BianHao: TStringField; Query1XingMing: TStringField; Query1Sex: TStringField; Query1BuMen: TStringField; Query1ZhiCheng: TStringField; Query1ZhuZhi: TStringField; Query1GongZi: TFloatField; Query1Bianma: TStringField; Query2: TQuery; DataSo
10、urce5: TDataSource; Query2BianHao: TStringField; Query2YueFen: TStringField; Query2Gongzi: TFloatField; Query2Jiangjin: TFloatField; Query2Sgongzi: TFloatField; DataSource6: TDataSource; Table2Schuqin: TFloatField; BitBtn12: TBitBtn; BitBtn13: TBitBtn; Table1Bianma: TStringField; Query3: TQuery; Que
11、ry3BianHao: TStringField; Query3YueFen: TStringField; Query3YchuQin: TFloatField; Query3ChiDao: TFloatField; Query3ZaoTui: TFloatField; Query3QingJia: TFloatField; Query3KuangGong: TFloatField; Query3schuqin: TIntegerField; Timer1: TTimer; GroupBox4: TGroupBox; Label23: TLabel; Label22: TLabel; Labe
12、l13: TLabel; Edit10: TEdit; Edit17: TEdit; Edit18: TEdit; BitBtn14: TBitBtn; GroupBox5: TGroupBox; Image1: TImage; Label24: TLabel; Label25: TLabel; TreeView1: TTreeView; ImageList1: TImageList; Label26: TLabel; Bevel6: TBevel; BitBtn15: TBitBtn; RichEdit1: TRichEdit; Button1: TButton; Button2: TBut
13、ton; Button3: TButton; Label27: TLabel; Image2: TImage; procedure FormActivate(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Table2CalcFields(DataSet: TDataSet); procedure BitBtn3Click(Sender: TObject); procedure BitBtn2
14、Click(Sender: TObject); procedure DBGrid2ColExit(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject); procedure BitBtn11Click(Send
15、er: TObject); procedure BitBtn10Click(Sender: TObject); procedure Query3CalcFields(DataSet: TDataSet); procedure BitBtn12Click(Sender: TObject); procedure BitBtn13Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure FormPaint(Sender: TObject); procedure Timer1Timer(Sender: TObj
16、ect); procedure TabSheet5Show(Sender: TObject); procedure BitBtn14Click(Sender: TObject); procedure Edit18Exit(Sender: TObject); procedure TreeView1Change(Sender: TObject; Node: TTreeNode); procedure BitBtn15Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button3Click(Send
17、er: TObject); procedure Button2Click(Sender: TObject); procedure Edit10Exit(Sender: TObject); private passwordin:boolean; truesalary:real; function cmppassword(s1:string; s2:string):boolean; Private declarations public Public declarations superpower,userpower1,userpower2,userpower3:boolean; end;var
18、mainForm: TmainForm; x,w,h:integer; pic:trect; ss,a1,a2,a3,username,userpass:string60;implementationuses passdlg, chuqin, zuozhe;$R *.dfmfunction tmainform.cmppassword(s1:string;s2:string):boolean;var datafile:file; rt:boolean; numread:integer; buf1,buf2:string30;begin rt:=false; assignfile(datafile
19、,system.ini); reset(datafile,1); repeat blockread(datafile,buf1,12,numread); blockread(datafile,buf2,12,numread); if (s1=buf1) and (s2=buf2) then begin username:=s1; userpass:=s2; result:=true; exit; end; until(numread=0); closefile(datafile); cmppassword:=rt; end;procedure TmainForm.FormActivate(Se
20、nder: TObject);varcmptimes,bn:integer;ss1,ss2:string200;begincmptimes:=1;if passwordin=false thenbeginpasswordin:=true;repeat bn:=passworddlg.showmodal; if bn=mrok then begin ss1:=bobox1.text; ss2:=passworddlg.password.text; if cmppassword(ss1,ss2) then cmptimes:=100 else begin cmptimes:=cmptimes+1;
21、 if cmptimes3 then close else messagedlg(密码错误，请重新输入，一共三次机会！,mtwarning,mbok,0); end; end else bn=mrcancel begin cmptimes:=100; close; end; until(cmptimes3);if passworddlg.ComboBox1.Text=system then begin mainform.UpdateActions; PageControl1.ActivePage:=tabsheet1; DBNavigator1.Visible:=true; endelse i
22、f passworddlg.ComboBox1.text=renshi then begin mainform.UpdateActions; PageControl1.ActivePage:=tabsheet1; DBNavigator1.Visible:=true; tabsheet3.TabVisible:=false; endelse if passworddlg.ComboBox1.text=caiwu then begin mainform.UpdateActions; PageControl1.ActivePage:=tabsheet3; tabsheet1.TabVisible:
23、=false; tabsheet2.TabVisible:=false; endelse if passworddlg.ComboBox1.text=guest then begin mainform.UpdateActions; PageControl1.ActivePage:=tabsheet1; DBGrid1.Align:=alclient; DBGrid1.ShowHint:=True; DBGrid1.Hint:=您只有浏览的权利！; DBGrid1.ReadOnly:=True; dbgrid2.ReadOnly:=true; bitbtn1.Visible:=false; bi
24、tbtn4.Enabled:=false; bitbtn2.Enabled:=false; tabsheet3.TabVisible:=false; tabsheet5.TabVisible:=false; end; end; end;procedure TmainForm.BitBtn1Click(Sender: TObject);beginif (combobox1.text=) or (edit1.text=) or (edit2.text=) or (edit3.text=) or(edit4.text=) or (edit5.text=)or (combobox2.text=) th
25、en begin MessageDlg(资料输入不全!, mtWarning, mbOk, 0); exit; end;table1.active:=true;with table1 dobegin append; FieldValuesbianhao := trim(edit1.text); FieldValuesxingming := trim(edit2.text); FieldValuessex := trim(combobox1.text); fieldvaluesbianma:=trim(edit16.Text); FieldValueszhicheng := trim(edit3
26、.text); FieldValuesbumen :=trim(combobox2.text); FieldValueszhuzhi :=trim(edit4.text); FieldValuesgongzi :=strtofloat(trim(edit5.text); Post; end; combobox1.text:=男; combobox2.text:=车间办公室; edit1.Text:=; edit2.Text:=; edit3.Text:=; edit4.Text:=; edit5.Text:=; edit16.Text:=; end;procedure TmainForm.Ed
27、it1KeyPress(Sender: TObject; var Key: Char);beginif not (key in 0.9,#8,#13) then key:=#0 ;end;procedure TmainForm.Table2CalcFields(DataSet: TDataSet);var a1,a2,a3,a4,a5:real;beginwith table2 dobegina1:=fieldbyname(ychuqin).Value;a2:=fieldbyname(chidao).Value*0.5;a3:=fieldbyname(zaotui).value*0.5;a4:
28、=fieldbyname(qingjia).Value*0.3;a5:=fieldbyname(kuanggong).Value;fieldbyname(schuqin).Value:=a1-a2-a3-a4-a5;end;end;procedure TmainForm.BitBtn3Click(Sender: TObject);begintable1.Open;table1.MasterSource:=datasource2;table1.MasterFields:=bianhao;pagecontrol1.ActivePage:=tabsheet1;bitbtn12.Visible:=tr
29、ue;bitbtn12.BringToFront;bitbtn12.SetFocus;dbgrid1.Align:=alclient;dbgrid1.ReadOnly:=true;end;procedure TmainForm.BitBtn2Click(Sender: TObject);var bn:integer;beginbn:=messagedlg(真的要删除吗？,mtconfirmation,mbOK,mbcancel,0);if bn=mrok thentable2.Delete;end;procedure TmainForm.DBGrid2ColExit(Sender: TObje
30、ct);begindbchart1.show;end;procedure TmainForm.BitBtn4Click(Sender: TObject);var rn:integer;beginformchuqin.showmodal;if rn=mrok thendbgrid2.SetFocus;table2.close;table2.Open;end;procedure TmainForm.BitBtn5Click(Sender: TObject);beginif (combobox3.text=) or (edit6.text=) or (edit7.text=) or (edit8.t
31、ext=) then begin MessageDlg(资料输入不全!, mtWarning, mbOk, 0); exit; end;bitbtn6.Enabled:=true;if radiogroup1.ItemIndex=0 thentruesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*0.3;if radiogroup1.itemindex=1 thentruesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*0.8;if radiogroup1.itemindex
32、=2 thentruesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*1.0;if radiogroup1.itemindex=3 thentruesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*1.2;edit9.text:=;edit9.text:=floattostr(truesalary);showmessage(该员工本月的实际工资为+floattostr(truesalary);end;procedure TmainForm.BitBtn6Click(Sender
33、: TObject);beginif (combobox3.text=) or (edit6.text=) or (edit7.text=) or (edit8.text=) then begin MessageDlg(资料输入不全!, mtWarning, mbOk, 0); exit; end;table3.active:=true;with table3 dobegin append; FieldValuesbianhao := trim(edit6.text); FieldValuesyuefen := trim(2001+combobox3.text); FieldValuesjia
34、ngjin :=strtofloat(trim(edit8.text); FieldValuesgongzi :=strtofloat(trim(edit7.text); FieldValuessgongzi:=strtofloat(trim(edit9.Text); Post; end; combobox3.text:=; edit6.Text:=; edit7.Text:=; edit8.Text:=; edit9.Text:=; bitbtn6.Enabled:=false; end;procedure TmainForm.BitBtn8Click(Sender: TObject);be
35、gintable1.Open;table1.MasterSource:=datasource3;table1.MasterFields:=bianhao;pagecontrol1.ActivePage:=tabsheet1;bitbtn13.Visible:=true;bitbtn13.BringToFront;bitbtn13.SetFocus;dbgrid1.Align:=alclient;dbgrid1.ReadOnly:=true;end;procedure TmainForm.BitBtn9Click(Sender: TObject);beginwith query1 dobegin
36、close;sql.Clear;sql.Add(select * from information.db);sql.Add( where Bianma=:p1);parambyname(p1).asstring:=trim(edit15.Text);prepare;open;end;edit15.Text:=;end;procedure TmainForm.BitBtn11Click(Sender: TObject);beginwith query2 dobeginclose;SQL.clear;sql.Add(select * from salary where sgongzi betwee
37、n :p1 and :p2);params0.AsInteger:=strtoint(trim(edit13.Text);params1.Asinteger:=strtoint(trim(edit14.Text);prepare;open;end;edit13.Text:=;edit14.Text:=;end;procedure TmainForm.BitBtn10Click(Sender: TObject);beginwith query3 dobeginclose;sql.Clear;sql.Add(select * from onduty where (ychuqin-chidao*0.
38、5-zaotui*0.5-qingjia*0.3-kuanggong) between :p1 and :p2);query3.params0.AsInteger:=strtoint(trim(edit11.Text);query3.params1.Asinteger:=strtoint(trim(edit12.Text);query3.Active:=true;end;end;procedure TmainForm.Query3CalcFields(DataSet: TDataSet);var a1,a2,a3,a4,a5:real;beginwith query3 dobegina1:=f
39、ieldbyname(ychuqin).Value;a2:=fieldbyname(chidao).Value*0.5;a3:=fieldbyname(zaotui).value*0.5;a4:=fieldbyname(qingjia).Value*0.3;a5:=fieldbyname(kuanggong).Value;fieldbyname(schuqin).Value:=a1-a2-a3-a4-a5;end;end;procedure TmainForm.BitBtn12Click(Sender: TObject);beginpagecontrol1.ActivePage:=tabshe
40、et2;table1.MasterFields:=;table1.Active:=false;table1.active:=true;dbgrid1.Align:=alnone;dbgrid1.Left:=280;dbgrid1.Top:=0;dbgrid1.Height:=217;dbgrid1.width:=255;bitbtn12.Visible:=false;end;procedure TmainForm.BitBtn13Click(Sender: TObject);beginpagecontrol1.ActivePage:=tabsheet3;table1.MasterFields:
41、=;table1.Active:=false;table1.active:=true;dbgrid1.Align:=alnone;dbgrid1.Left:=280;dbgrid1.Top:=0;dbgrid1.Height:=217;dbgrid1.width:=255;bitbtn13.Visible:=false;end;procedure TmainForm.BitBtn7Click(Sender: TObject);var bn:integer;beginbn:=messagedlg(真的要删除吗？,mtconfirmation,mbOK,mbcancel,0);if bn=mrok
42、 thentable3.Delete;end;procedure TmainForm.FormPaint(Sender: TObject);begin/if pagecontrol1.ActivePage:=tabsheet5;end;procedure TmainForm.Timer1Timer(Sender: TObject);beginx:=x-1;if x-160 thenx:=image1.Height+20;image1.Canvas.Font.Size:=11;image1.canvas.Font.color:=clblue;image1.Canvas.TextOut(10,x, 有关本系统密码设置说明 );image1.Canvas.Font.color:=clblack;image1.canvas.TextOut(10,x+15,系统默认创建四个账户);image1.can