procedure Tf_GL.m_HFExecute(Sender: TObject); // i:integer; begin if application.MessageBox('确实要恢复数据吗?可能会造成最近数据的丢失!','恢复数据',mb_yesno+mb_iconquestion)=idno then exit; f_bak:=tf_bak.Create(application); f_bak.Show; f_bak.Update; f_bak.Label1.Visible:=false; f_bak.Label2.Visible:=true; //for i:=1 to 99999999 do; dm.ADO.Connected:=false; copyfile('databak\yzwgj.exe','data\yzw.exe',false); f_bak.Free; dm.T_USER.Open; dm.T_MENU.Open; dm.T_QX.Open; dm.T_JRRZ.Open; dm.T_dl.Open; end;
procedure Tf_GL.m_gzlrExecute(Sender: TObject); begin s:=m_gzlr.Caption; f_gl.JR_rz(s); application.CreateForm(tf_gzlr,f_gzlr); end;
procedure Tf_GL.m_rylrExecute(Sender: TObject); begin s:=m_rylr.Caption; f_gl.JR_rz(s); application.CreateForm(tf_rylr,f_rylr); end;
procedure Tf_GL.m_gdlrExecute(Sender: TObject); begin s:=m_gdlr.Caption; f_gl.JR_rz(s); application.CreateForm(tf_gdlr,f_gdlr); end;
procedure Tf_GL.m_gzbglrExecute(Sender: TObject); begin s:=m_gzbglr.Caption; f_gl.JR_rz(s); application.CreateForm(tf_gzbglr,f_gzbglr); end;
procedure Tf_GL.m_jklrExecute(Sender: TObject); begin s:=m_jklr.Caption; f_gl.JR_rz(s); application.CreateForm(tf_jklr,f_jklr); end;
procedure Tf_GL.m_myueExecute(Sender: TObject); begin s:=m_jklr.Caption; f_gl.JR_rz(s); application.CreateForm(tf_myue,f_myue); end;
procedure Tf_GL.m_sjjzExecute(Sender: TObject); begin s:=m_sjjz.Caption; f_gl.JR_rz(s); application.CreateForm(tf_sjjz,f_sjjz); end;
procedure Tf_GL.m_gdcxExecute(Sender: TObject); begin s:=m_gdcx.Caption; f_gl.JR_rz(s); application.CreateForm(tf_gdcx,f_gdcx); end;
procedure Tf_GL.m_allcxExecute(Sender: TObject); begin s:=m_allcx.Caption; f_gl.JR_rz(s); application.CreateForm(tf_allcx,f_allcx); end;
procedure Tf_GL.N6Click(Sender: TObject); begin application.CreateForm(tf_zc,f_zc); end;
end.
总 结 工资管理系统是一个典型的信息管理系统,其主要通过软件工程方面的选择课题、需求分析、总体设计、选用工具、程序模块、系统测试等几个步骤来实现。开发本系统的过程中,首先要对企事业单位工资管理进行系统调研,熟悉其中的工种分类、员工工资计算,查询的流程、步骤;其次在系统需求分析过程中,要透过现象看本质,敏锐观察到工资管理中存在的各种问题,并在总体设计把握好对问题的分析、理解,进而解决问题;选用开发工具要选用自己最熟悉、应用较多的开发工具,本系统开发选用DELPHI 6.0,其具有语言简单、功能强大、组件众多的优点。程序模块的编制中,重点把握系统内部完整性、功能性、实用性、便捷性,使其能够协调统一、运行无误。 致 谢 我首先感谢我的指导老师吕老师,在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做,这样会有好的创意,才能更有作为。 在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年,在生活和学习上给了我很大的帮助。 参 考 文 献
1 张春林.Delphi 6程序设计导学.北京:清华大学出版社,2002.5 2 飞思科技. Delphi6开发者手册. 北京:电子工业出版社,2
首页 上一页 1 2 3 4 5 6 下一页 尾页 4/6/6