设计代码-无忧无虑毕设网

无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 本文配套程序下载地址 ： 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务！ unit main； interface uses 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(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； procedure FormActivate(Sender: TObject)； procedure BitBtn1Click(Sender: TObject)； procedure Edit1KeyPress(Sender: TObject； var Key: Char)； procedure Table2CalcFields(DataSet: TDataSet)； procedure BitBtn3Click(Sender: TObject)； procedure BitBtn2Click(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(Sender: 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: TObject)； 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(Sender: 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 mainForm: TmainForm； x,w,h:integer； pic:trect； ss,a1,a2,a3,username,userpass:string60； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： implementation uses passdlg, chuqin, zuozhe； $R *.dfm function tmainform.cmppassword(s1:string；s2:string):boolean； var datafile:file； rt:boolean； numread:integer； buf1,buf2:string30； begin rt:=false； assignfile(datafile,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(Sender: TObject)； var cmptimes,bn:integer； ss1,ss2:string200； begin cmptimes:=1； if passwordin=false then begin passwordin:=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； 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； end else if passworddlg.ComboBox1.text=renshi then begin mainform.UpdateActions； PageControl1.ActivePage:=tabsheet1； DBNavigator1.Visible:=true； tabsheet3.TabVisible:=false； end else if passworddlg.ComboBox1.text=caiwu then begin mainform.UpdateActions； PageControl1.ActivePage:=tabsheet3； tabsheet1.TabVisible:=false； tabsheet2.TabVisible:=false； end else 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； bitbtn4.Enabled:=false； bitbtn2.Enabled:=false； tabsheet3.TabVisible:=false； tabsheet5.TabVisible:=false； end； end； end； procedure TmainForm.BitBtn1Click(Sender: TObject)； begin if (combobox1.text=) or (edit1.text=) or (edit2.text=) or (edit3.text=) or(edit4.text=) or (edit5.text=) or (combobox2.text=) then begin MessageDlg(资料输入不全 !, mtWarning, mbOk, 0)； exit； end； table1.active:=true； with table1 do begin append； FieldValuesbianhao := trim(edit1.text)； FieldValuesxingming := trim(edit2.text)； FieldValuessex := trim(combobox1.text)； fieldvaluesbianma:=trim(edit16.Text)； FieldValueszhicheng := trim(edit3.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.Edit1KeyPress(Sender: TObject； var Key: Char)； begin if not (key in 0.9,#8,#13) then key:=#0 ； end； procedure TmainForm.Table2CalcFields(DataSet: TDataSet)； var a1,a2,a3,a4,a5:real； begin with table2 do begin a1:=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； procedure TmainForm.BitBtn3Click(Sender: TObject)； begin table1.Open； table1.MasterSource:=datasource2； table1.MasterFields:=bianhao； pagecontrol1.ActivePage:=tabsheet1； bitbtn12.Visible:=true； bitbtn12.BringToFront； bitbtn12.SetFocus； dbgrid1.Align:=alclient； dbgrid1.ReadOnly:=true； end； procedure TmainForm.BitBtn2Click(Sender: TObject)； var bn:integer； begin bn:=messagedlg(真的要删除吗？ ,mtconfirmation,mbOK,mbcancel,0)； if bn=mrok then table2.Delete； end； procedure TmainForm.DBGrid2ColExit(Sender: TObject)； begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： dbchart1.show； end； procedure TmainForm.BitBtn4Click(Sender: TObject)； var rn:integer； begin formchuqin.showmodal； if rn=mrok then dbgrid2.SetFocus； table2.close； table2.Open； end； procedure TmainForm.BitBtn5Click(Sender: TObject)； begin if (combobox3.text=) or (edit6.text=) or (edit7.text=) or (edit8.text=) then begin MessageDlg(资料输入不全 !, mtWarning, mbOk, 0)； exit； end； bitbtn6.Enabled:=true； if radiogroup1.ItemIndex=0 then truesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*0.3； if radiogroup1.itemindex=1 then truesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*0.8； if radiogroup1.itemindex=2 then truesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*1.0； if radiogroup1.itemindex=3 then truesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*1.2； edit9.text:=； edit9.text:=floattostr(truesalary)； showmessage(该员工本月的实际工资为 +floattostr(truesalary)； end； procedure TmainForm.BitBtn6Click(Sender: TObject)； begin if (combobox3.text=) or (edit6.text=) or (edit7.text=) or (edit8.text=) then begin MessageDlg(资料输入不全 !, mtWarning, mbOk, 0)； exit； end； table3.active:=true； with table3 do 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： begin append； FieldValuesbianhao := trim(edit6.text)； FieldValuesyuefen := trim(2001+combobox3.text)； FieldValuesjiangjin :=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)； begin table1.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)； begin with query1 do begin 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)； begin with query2 do begin close； SQL.clear； sql.Add(select * from salary where sgongzi between :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)； begin with query3 do begin close； sql.Clear； sql.Add(select * from onduty where (ychuqin-chidao*0.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； begin with query3 do begin a1:=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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure TmainForm.BitBtn12Click(Sender: TObject)； begin pagecontrol1.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； procedure TmainForm.BitBtn13Click(Sender: TObject)； begin pagecontrol1.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； procedure TmainForm.BitBtn7Click(Sender: TObject)； var bn:integer； begin bn:=messagedlg(真的要删除吗？ ,mtconfirmation,mbOK,mbcancel,0)； if bn=mrok then table3.Delete； end； procedure TmainForm.FormPaint(Sender: TObject)； begin /if pagecontrol1.ActivePage:=tabsheet5； end； procedure TmainForm.Timer1Timer(Sender: TObject)； begin x:=x-1； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： if x-160 then x:=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； procedure TmainForm.TabSheet5Show(Sender: TObject)； begin timer1.Enabled:=true； timer1.Interval:=50； image1.BringToFront； x:=image1.Height+20； if username=system then label25.Caption:=系统管理员 ； if username=renshi then label25.Caption:=人事部门员工 ； if username=caiwu then label25.Caption:=财务部门员工 ； tabsheet5.Repaint； image1.Canvas.Brush.Color:=clbtnface； pic:=rect(0,0,image1.Width,image1.Height)； image1.Canvas.FillRect(pic)； end； procedure TmainForm.BitBtn14Click(Sender: TObject)； var df:file； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： numread:integer； begin assignfile(df,system.ini)； reset(df,1)； while not eof(df) do begin blockread(df,ss,12,numread)； if ss=username then begin blockwrite(df,a2,12,numread)； messagedlg(您的密码已经修改！ ,mtconfirmation,mbok,0)； exit； end； blockread(df,ss,12,numread)； end； closefile(df)； end； procedure TmainForm.Edit18Exit(Sender: TObject)； begin a2:=trim(edit17.Text)； a3:=trim(edit18.Text)； if a2a3 then begin messagedlg(验证密码不正确，请重新输入！ ,mtwarning,m