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

delphi+access设备保养管理系统[开题报告＋论文＋源(8)

2013-06-07 01:23 sp;   width := longint(width) * longint(screen.width) div ScreenWidth;
    scaleBy(screen.width, ScreenWidth);
end;

frmmain.statusbar1.Panels[1].Text:='欢迎使用！请选择你要进行的操作！' ;
frmmain.StatusBar1.Panels[2].Text:='当前用户：';

end;

procedure Tfrmmain.mnumainClick(Sender: TObject);
begin

if frmmain.ActiveMDIChild.Caption<>'主数据表' then
//if frmmain.MDIChildCount <2 then
begin
application.CreateForm(Tfrmmaintable, frmmaintable);
//frmmaintable:=tfrmmaintable.Create(nil);
frmmaintable.Show;
frmmain.mnuprint.Enabled:=true;
end
else
begin
messagedlg('SORRY!,主数据表窗口已打开，不能重复打开同一个窗口',mterror,[mbok],0);
end
end;

procedure Tfrmmain.mnuexitClick(Sender: TObject);
begin
close;
end;

procedure Tfrmmain.mnuuserlonginClick(Sender: TObject);
begin
application.CreateForm(TPasswordDlg, PasswordDlg);
PasswordDlg.show;
end;

procedure Tfrmmain.mnuaboutClick(Sender: TObject);
begin
application.CreateForm(Tfrmabout, frmabout);
frmabout.show;
end;

procedure Tfrmmain.mnudatasetClick(Sender: TObject);
begin
EditConnectionString(frmmain.ADOCon);
sl.Text:=frmmain.adocon.ConnectionString;
IntINI;
end;

procedure TfrmMain.IntINI;
begin
  SL.SaveToFile(Filename);
  //RunTimeInfo;
end;

procedure Tfrmmain.mnuusermangClick(Sender: TObject);
begin
if frmmain.StatusBar1.Panels[3].Text<>'' then
begin
frmusermang:=tfrmusermang.Create(nil);
frmusermang.Show;
end
else
messagedlg('当前用户尚未登录，请先进行登录后再试！',mtwarning,[mbok],0);
end;
procedure Tfrmmain.mnuprintClick(Sender: TObject);   //判断当前激活的子窗口

（科教范文网 lw.nSeAc.com编辑发布）

begin
if frmmain.ActiveMDIChild.Caption='主数据表'  then
frmmaintable.tblprint.Click;

if frmmain.ActiveMDIChild.Caption='资料管理' then
form2.btnprint.Click;
end;

procedure Tfrmmain.mnuusernologinClick(Sender: TObject);
begin
frmmain.mnuusernologin.Enabled:=false;
frmmain.StatusBar1.Panels[2].Text:='当前用户：';
frmmain.StatusBar1.Panels[3].Text:='';
end;

end.

 

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

 1 张春林.Delphi 6程序设计导学.北京：清华大学出版社，2002.5 （科教作文网http://zw.ΝsΕac.cOM编辑）
 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