评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+工资管理系统+access[开题报告＋论文＋源代(4)

2013-06-07 01:23 bsp;   begin
             t_user.Filtered:=false;
             f_password.e_password.Text:='';
          

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);

（科教范文网http://fw.nseac.com）

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