2863.考勤管理系统源程序与论文源程序与论文2c答辩ppt 设计代码 17页

详细源代码及数据库请联系本人unitmain;interfaceusesWindows,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;typeTmainForm=class(TForm)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: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:TStringField;Table1XingMing:TStringField;Table1Sex:TStringField;Table1BuMen:TStringField;Table1ZhuZhi:TStringField;Table1GongZi:TFloatField;Table1ZhiCheng:TStringField;DataSource2:TDataSource;Table2:TTable;DBChart1:TDBChart;Series1:TPieSeries;DBGrid2:TDBGrid;Bevel4:TBevel;Table2BianHao:TStringField;Table2YueFen:TStringField;Table2YchuQin:TFloatField;Table2ChiDao:TFloatField;Table2ZaoTui:TFloatField;Table2QingJia:TFloatField;Table2KuangGong:TFloatField;BitBtn2:TBitBtn;BitBtn3:TBitBtn;BitBtn4:TBitBtn;DataSource3:TDataSource;Table3:TTable;Table3BianHao: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:TLabel;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:TEdit;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:TLabel;Edit15:TEdit;DBGrid6:TDBGrid;BitBtn9:TBitBtn;Query1BianHao:TStringField;Query1XingMing:TStringField; Query1Sex:TStringField;Query1BuMen:TStringField;Query1ZhiCheng:TStringField;Query1ZhuZhi:TStringField;Query1GongZi:TFloatField;Query1Bianma:TStringField;Query2:TQuery;DataSource5:TDataSource;Query2BianHao:TStringField;Query2YueFen:TStringField;Query2Gongzi:TFloatField;Query2Jiangjin:TFloatField;Query2Sgongzi:TFloatField;DataSource6:TDataSource;Table2Schuqin:TFloatField;BitBtn12:TBitBtn;BitBtn13:TBitBtn;Table1Bianma:TStringField;Query3:TQuery;Query3BianHao:TStringField;Query3YueFen:TStringField;Query3YchuQin:TFloatField;Query3ChiDao:TFloatField;Query3ZaoTui:TFloatField;Query3QingJia:TFloatField;Query3KuangGong:TFloatField;Query3schuqin:TIntegerField;Timer1:TTimer;GroupBox4:TGroupBox;Label23:TLabel;Label22:TLabel;Label13: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:TButton;Button3:TButton;Label27:TLabel;Image2:TImage;procedureFormActivate(Sender:TObject);procedureBitBtn1Click(Sender:TObject);procedureEdit1KeyPress(Sender:TObject;varKey:Char);procedureTable2CalcFields(DataSet:TDataSet);procedureBitBtn3Click(Sender:TObject);procedureBitBtn2Click(Sender:TObject);procedureDBGrid2ColExit(Sender:TObject);procedureBitBtn4Click(Sender:TObject);procedureBitBtn5Click(Sender:TObject);procedureBitBtn6Click(Sender:TObject);procedureBitBtn8Click(Sender:TObject);procedureBitBtn9Click(Sender:TObject);procedureBitBtn11Click(Sender:TObject);procedureBitBtn10Click(Sender:TObject);procedureQuery3CalcFields(DataSet:TDataSet);procedureBitBtn12Click(Sender:TObject);procedureBitBtn13Click(Sender:TObject);procedureBitBtn7Click(Sender:TObject);procedureFormPaint(Sender:TObject);procedureTimer1Timer(Sender:TObject);procedureTabSheet5Show(Sender:TObject);procedureBitBtn14Click(Sender:TObject);procedureEdit18Exit(Sender:TObject);procedureTreeView1Change(Sender:TObject;Node:TTreeNode);procedureBitBtn15Click(Sender:TObject);procedureButton1Click(Sender:TObject);procedureButton3Click(Sender:TObject);procedureButton2Click(Sender:TObject);procedureEdit10Exit(Sender:TObject);privatepasswordin:boolean;truesalary:real;functioncmppassword(s1:string;s2:string):boolean;{Privatedeclarations}public{Publicdeclarations}superpower,userpower1,userpower2,userpower3:boolean;end; varmainForm:TmainForm;x,w,h:integer;pic:trect;ss,a1,a2,a3,username,userpass:string[60];implementationusespassdlg,chuqin,zuozhe;{$R*.dfm}functiontmainform.cmppassword(s1:string;s2:string):boolean;vardatafile:file;rt:boolean;numread:integer;buf1,buf2:string[30];beginrt:=false;assignfile(datafile,"system.ini");reset(datafile,1);repeatblockread(datafile,buf1,12,numread);blockread(datafile,buf2,12,numread);if(s1=buf1)and(s2=buf2)thenbeginusername:=s1;userpass:=s2;result:=true;exit;end;until(numread=0);closefile(datafile);cmppassword:=rt;end;procedureTmainForm.FormActivate(Sender:TObject);varcmptimes,bn:integer;ss1,ss2:string[200];begincmptimes:=1;ifpasswordin=falsethenbeginpasswordin:=true; repeatbn:=passworddlg.showmodal;ifbn=mrokthenbeginss1:=passworddlg.combobox1.text;ss2:=passworddlg.password.text;ifcmppassword(ss1,ss2)thencmptimes:=100elsebegincmptimes:=cmptimes+1;ifcmptimes>3thencloseelsemessagedlg("密码错误，请重新输入，一共三次机会！",mtwarning,[mbok],0);end;endelse{bn=mrcancel}begincmptimes:=100;close;end;until(cmptimes>3);ifpassworddlg.ComboBox1.Text="system"thenbeginmainform.UpdateActions;PageControl1.ActivePage:=tabsheet1;DBNavigator1.Visible:=true;endelseifpassworddlg.ComboBox1.text="renshi"thenbeginmainform.UpdateActions;PageControl1.ActivePage:=tabsheet1;DBNavigator1.Visible:=true;tabsheet3.TabVisible:=false;endelseifpassworddlg.ComboBox1.text="caiwu"thenbeginmainform.UpdateActions;PageControl1.ActivePage:=tabsheet3;tabsheet1.TabVisible:=false;tabsheet2.TabVisible:=false;endelseifpassworddlg.ComboBox1.text="guest"then beginmainform.UpdateActions;PageControl1.ActivePage:=tabsheet1;DBGrid1.Align:=alclient;DBGrid1.ShowHint:=True;DBGrid1.Hint:="您只有浏览的权利！";DBGrid1.ReadOnly:=True;dbgrid2.ReadOnly:=true;bitbtn1.Visible:=false;bitbtn4.Enabled:=false;bitbtn2.Enabled:=false;tabsheet3.TabVisible:=false;tabsheet5.TabVisible:=false;end;end;end;procedureTmainForm.BitBtn1Click(Sender:TObject);beginif(combobox1.text="")or(edit1.text="")or(edit2.text="")or(edit3.text="")or(edit4.text="")or(edit5.text="")or(combobox2.text="")thenbeginMessageDlg("资料输入不全!",mtWarning,[mbOk],0);exit;end;table1.active:=true;withtable1dobeginappend;FieldValues["bianhao"]:=trim(edit1.text);FieldValues["xingming"]:=trim(edit2.text);FieldValues["sex"]:=trim(combobox1.text);fieldvalues["bianma"]:=trim(edit16.Text);FieldValues["zhicheng"]:=trim(edit3.text);FieldValues["bumen"]:=trim(combobox2.text);FieldValues["zhuzhi"]:=trim(edit4.text);FieldValues["gongzi"]:=strtofloat(trim(edit5.text));Post;end;combobox1.text:="男";combobox2.text:="车间办公室";edit1.Text:=""; edit2.Text:="";edit3.Text:="";edit4.Text:="";edit5.Text:="";edit16.Text:="";end;procedureTmainForm.Edit1KeyPress(Sender:TObject;varKey:Char);beginifnot(keyin["0".."9",#8,#13])thenkey:=#0;end;procedureTmainForm.Table2CalcFields(DataSet:TDataSet);vara1,a2,a3,a4,a5:real;beginwithtable2dobegina1:=fieldbyname("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;procedureTmainForm.BitBtn3Click(Sender:TObject);begintable1.Open;table1.MasterSource:=datasource2;table1.MasterFields:="bianhao";pagecontrol1.ActivePage:=tabsheet1;bitbtn12.Visible:=true;bitbtn12.BringToFront;bitbtn12.SetFocus;dbgrid1.Align:=alclient;dbgrid1.ReadOnly:=true;end;procedureTmainForm.BitBtn2Click(Sender:TObject);varbn:integer;beginbn:=messagedlg("真的要删除吗？",mtconfirmation,[mbOK,mbcancel],0); ifbn=mrokthentable2.Delete;end;procedureTmainForm.DBGrid2ColExit(Sender:TObject);begindbchart1.show;end;procedureTmainForm.BitBtn4Click(Sender:TObject);varrn:integer;beginformchuqin.showmodal;ifrn=mrokthendbgrid2.SetFocus;table2.close;table2.Open;end;procedureTmainForm.BitBtn5Click(Sender:TObject);beginif(combobox3.text="")or(edit6.text="")or(edit7.text="")or(edit8.text="")thenbeginMessageDlg("资料输入不全!",mtWarning,[mbOk],0);exit;end;bitbtn6.Enabled:=true;ifradiogroup1.ItemIndex=0thentruesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*0.3;ifradiogroup1.itemindex=1thentruesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*0.8;ifradiogroup1.itemindex=2thentruesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*1.0;ifradiogroup1.itemindex=3thentruesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*1.2;edit9.text:="";edit9.text:=floattostr(truesalary);showmessage("该员工本月的实际工资为"+floattostr(truesalary));end;procedureTmainForm.BitBtn6Click(Sender:TObject);beginif(combobox3.text="")or(edit6.text="")or(edit7.text="")or(edit8.text="")then beginMessageDlg("资料输入不全!",mtWarning,[mbOk],0);exit;end;table3.active:=true;withtable3dobeginappend;FieldValues["bianhao"]:=trim(edit6.text);FieldValues["yuefen"]:=trim("2001"+combobox3.text);FieldValues["jiangjin"]:=strtofloat(trim(edit8.text));FieldValues["gongzi"]:=strtofloat(trim(edit7.text));FieldValues["sgongzi"]:=strtofloat(trim(edit9.Text));Post;end;combobox3.text:="";edit6.Text:="";edit7.Text:="";edit8.Text:="";edit9.Text:="";bitbtn6.Enabled:=false;end;procedureTmainForm.BitBtn8Click(Sender:TObject);begintable1.Open;table1.MasterSource:=datasource3;table1.MasterFields:="bianhao";pagecontrol1.ActivePage:=tabsheet1;bitbtn13.Visible:=true;bitbtn13.BringToFront;bitbtn13.SetFocus;dbgrid1.Align:=alclient;dbgrid1.ReadOnly:=true;end;procedureTmainForm.BitBtn9Click(Sender:TObject);beginwithquery1dobeginclose;sql.Clear;sql.Add("select*frominformation.db");sql.Add("whereBianma=:p1"); parambyname("p1").asstring:=trim(edit15.Text);prepare;open;end;edit15.Text:="";end;procedureTmainForm.BitBtn11Click(Sender:TObject);beginwithquery2dobeginclose;SQL.clear;sql.Add("select*fromsalarywheresgongzibetween:p1and:p2");params[0].AsInteger:=strtoint(trim(edit13.Text));params[1].Asinteger:=strtoint(trim(edit14.Text));prepare;open;end;edit13.Text:="";edit14.Text:="";end;procedureTmainForm.BitBtn10Click(Sender:TObject);beginwithquery3dobeginclose;sql.Clear;sql.Add("select*fromondutywhere(ychuqin-chidao*0.5-zaotui*0.5-qingjia*0.3-kuanggong)between:p1and:p2");query3.params[0].AsInteger:=strtoint(trim(edit11.Text));query3.params[1].Asinteger:=strtoint(trim(edit12.Text));query3.Active:=true;end;end;procedureTmainForm.Query3CalcFields(DataSet:TDataSet);vara1,a2,a3,a4,a5:real;beginwithquery3dobegina1:=fieldbyname("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;procedureTmainForm.BitBtn12Click(Sender:TObject);beginpagecontrol1.ActivePage:=tabsheet2;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;procedureTmainForm.BitBtn13Click(Sender:TObject);beginpagecontrol1.ActivePage:=tabsheet3;table1.MasterFields:="";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;procedureTmainForm.BitBtn7Click(Sender:TObject);varbn:integer;beginbn:=messagedlg("真的要删除吗？",mtconfirmation,[mbOK,mbcancel],0);ifbn=mrokthentable3.Delete;end;procedureTmainForm.FormPaint(Sender:TObject);begin //ifpagecontrol1.ActivePage:=tabsheet5;end;procedureTmainForm.Timer1Timer(Sender:TObject);beginx:=x-1;ifx<-160thenx:=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.canvas.TextOut(10,x+30,"设置密码时，请遵循以下策略：");image1.canvas.TextOut(10,x+45,"1.用户首次登录，立即修改密码；");image1.canvas.TextOut(10,x+60,"2.最好不要使用生日、电话等");image1.canvas.TextOut(10,x+75,"别人熟悉的名称或数字；");image1.canvas.TextOut(10,x+90,"3.密码不要与用户名相同；");image1.canvas.TextOut(10,x+105,"4.最好使用字母和数字的混合；");image1.canvas.TextOut(10,x+120,"5.隔一段时间要修改密码；");w:=image1.Canvas.TextWidth("5.隔一段时间要修改密码；");h:=image1.Canvas.TextHeight("5.隔一段时间要修改密码；");image1.Canvas.Pen.Color:=clbtnface;image1.Canvas.MoveTo(10,h+x+15-2);image1.Canvas.LineTo(10+w,h+x+15-2);end;procedureTmainForm.TabSheet5Show(Sender:TObject);begintimer1.Enabled:=true;timer1.Interval:=50;image1.BringToFront;x:=image1.Height+20;ifusername="system"thenlabel25.Caption:="系统管理员";ifusername="renshi"thenlabel25.Caption:="人事部门员工";ifusername="caiwu"thenlabel25.Caption:="财务部门员工";tabsheet5.Repaint;image1.Canvas.Brush.Color:=clbtnface;pic:=rect(0,0,image1.Width,image1.Height); image1.Canvas.FillRect(pic);end;procedureTmainForm.BitBtn14Click(Sender:TObject);vardf:file;numread:integer;beginassignfile(df,"system.ini");reset(df,1);whilenoteof(df)dobeginblockread(df,ss,12,numread);ifss=usernamethenbeginblockwrite(df,a2,12,numread);messagedlg("您的密码已经修改！",mtconfirmation,[mbok],0);exit;end;blockread(df,ss,12,numread);end;closefile(df);end;procedureTmainForm.Edit18Exit(Sender:TObject);begina2:=trim(edit17.Text);a3:=trim(edit18.Text);ifa2<>a3thenbeginmessagedlg("验证密码不正确，请重新输入！",mtwarning,[mbok],0);exit;edit18.SetFocus;end;end;procedureTmainForm.TreeView1Change(Sender:TObject;Node:TTreeNode);varii:integer;beginii:=treeview1.Selected.AbsoluteIndex;ifii=0thenrichedit1.Lines.LoadFromFile("welcome.txt");ifii=1then richedit1.Lines.LoadFromFile("1.txt");ifii=2thenrichedit1.Lines.loadfromfile("welcome.txt");ifii=3thenrichedit1.Lines.LoadFromFile("1.txt");ifii=4thenrichedit1.Lines.loadfromfile("welcome.txt");ifii=5thenrichedit1.Lines.loadfromfile("welcome.txt");ifii=6thenrichedit1.Lines.loadfromfile("welcome.txt");ifii=7thenrichedit1.Lines.loadfromfile("welcome.txt");ifii=8thenrichedit1.Lines.loadfromfile("welcome.txt");ifii=9thenrichedit1.Lines.loadfromfile("welcome.txt");ifii=10thenrichedit1.Lines.loadfromfile("welcome.txt");ifii=11thenrichedit1.Lines.LoadFromFile("1.txt");ifii=12thenrichedit1.Lines.loadfromfile("welcome.txt");end;procedureTmainForm.BitBtn15Click(Sender:TObject);beginrichedit1.Print("考勤信息管理系统-用户帮助");end;procedureTmainForm.Button1Click(Sender:TObject);varx:cardinal;beginx:=winexec("rundll32.exeshell32.dll,Control_RunDLLSysdm.cpl,,0",9);end;procedureTmainForm.Button3Click(Sender:TObject);varr:integer;beginr:=messagedlg("真要退出系统吗？",mtconfirmation,[mbOK,mbCancel],0);ifr=mrokthenapplication.Terminateelseexit; end;procedureTmainForm.Button2Click(Sender:TObject);beginzuozheform.showmodal;end;procedureTmainForm.Edit10Exit(Sender:TObject);begina1:=trim(edit10.Text);ifuserpass<>a1thenbeginMessagedlg("旧密码不正确,请重新输入！",mtwarning,[mbok],0);edit10.Text:="";edit10.SetFocus;end;end;end.