delphi+access通用财务管理系统(八)

procedure TForm1.BitBtn17Click(Sender: TObject);
begin
   dispall;
end;

procedure TForm1.BitBtn21Click(Sender: TObject);
begin
    with tqr1.Create(self) do
     Preview;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   statusbar1.Panels[3].Text :=timetostr(now);
   statusbar1.Panels[4].Text :=formatdatetime('yyyy年MM月dd日',now);
end;

procedure TForm1.BitBtn11MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    dbedit12.SetFocus;
end;

procedure TForm1.BitBtn18Click(Sender: TObject);
begin
    search(combobox3,edit3);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   with dm2.ADOQuery1 do
     begin
       close;
       sql.Clear;
       sql.Add('delete * from xmb');
       ExecSQL;
       close;
       sql.Clear;
       sql.Add('select * from xmb');
       open;

     end;

end;

end.

 总   结
 通用财务管理系统是一个典型的信息管理系统，其主要通过软件工程方面的选择课题、需求分析、总体设计、选用工具、程序模块、系统测试等几个步骤来实现。开发本系统的过程中，首先要对企事业单位财务管理进行系统调研，熟悉其中的财务登记,收支管理,报表生成的流程、步骤；其次在系统需求分析过程中，要透过现象看本质，敏锐观察到财务管理中存在的各种问题，并在总体设计把握好对问题的分析、理解，进而解决问题；选用开发工具要选用自己最熟悉、应用较多的开发工具，本系统开发选用DELPHI 6.0，其具有语言简单、功能强大、组件众多的优点。程序模块的编制中，重点把握系统内部完整性、功能性、实用性、便捷性，使其能够协调统一、运行无误。
 
 致  谢
 
 我首先感谢我的指导老师吕老师，在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做，这样会有好的创意，才能更有作为。
在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年，在生活和学习上给了我很大的帮助。
 
 
 参 考 文 献

 1 张春林.Delphi 6程序设计导学.北京：清华大学出版社，2002.5
 2 飞思科技. Delphi6开发者手册. 北京：电子工业出版社,2002.3
 3 飞思科技. Delphi6数据库开发. 北京：电子工业出版社, 2002.1
 4 丁宝康.数据库原理. 北京：经济科学出版社，2004.1
 5 何旭洪.Delphi 6.0数据库系统开发实例导航.北京：人民邮电出版社, 2002.4
 6周璋鹏. 基于B/S结构的学生信息管理系统垢研究与开发.西北电力技术.2003，31(4):15~17,26
 7 李全彬, 顾明亮. 基于ASP技术的学生信息管理系统的研究与开发. 徐州师范大学学报(自然科学版).2001,19(2):25~28
 8 谷军.用Authorware开发学生信息管理系统.计算机与与现代化.2003(7):40~41,44
 9李丹荣,杜维.基于Delphi6．0的实时数据采集与分析系统 机电工程.2003,20(5): 64~67

首页 上一页 5 6 7 8 下一页 尾页 8/8/8