论文首页哲学论文经济论文法学论文教育论文文学论文历史论文理学论文工学论文医学论文管理论文艺术论文 |
procedure TMainForm.FlatButton11Click(Sender: TObject);
var
i,j:integer;
FindOne:Boolean;
begin
FindOne:=false;
For i:=0 to MDIChildCount-1 do
For j:=0 to ChildFormNum-1 do
If MDIChildRen[i] is TYEARForm then
begin
FindOne:=True;
YEARForm.Show;
Break;
end;
If not FindOne then
YEARForm:=TYEARForm.Create(self);
end;
procedure TMainForm.FlatButton12Click(Sender: TObject);
begin
ShellExecute(handle,nil,'RR.hlp',nil,nil,sw_ShowNormal);
end;
procedure TMainForm.N8Click(Sender: TObject);
var
i,j:integer;
FindOne:Boolean;
begin
FindOne:=false;
For i:=0 to MDIChildCount-1 do
For j:=0 to ChildFormNum-1 do
If MDIChildRen[i] is TMonthForm then
begin
FindOne:=True;
MonthForm.Show;
Break;
end;
If not FindOne then
MonthForm:=TMonthForm.Create(self);
end;
procedure TMainForm.N9Click(Sender: TObject);
var
i,j:integer;
FindOne:Boolean;
begin
FindOne:=false;
For i:=0 to MDIChildCount-1 do
For j:=0 to ChildFormNum-1 do
If MDIChildRen[i] is TYEARForm then
begin
FindOne:=True;
YEARForm.Show;
Break;
end;
If not FindOne then
(科教范文网 fw.nseac.com编辑发布)
end;
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('是否退出畅海货运管理系统?','系统提示',MB_YesNO)=mrNO then
Abort;
end;
end.
总 结
本系统是一个典型的信息管理系统,其主要通过软件工程方面的选择课题、需求分析、总体设计、选用工具、程序模块、系统测试等几个步骤来实现。开发本系统的过程中,首先要对水电管理进行系统调研,熟悉其中的系统设置、水电费用计算的流程、步骤;其次在系统需求分析过程中,要透过现象看本质,敏锐观察到水电管理中存在的各种问题,并在总体设计把握好对问题的分析、理解,进而解决问题;选用开发工具要选用自己最熟悉、应用较多的开发工具,本系统开发选用DELPHI 6.0,其具有语言简单、功能强大、组件众多的优点。程序模块的编制中,重点把握系统内部完整性、功能性、实用性、便捷性,使其能够协调统一、运行无误。
致 谢
我首先感谢我的指导老师吕老师,在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做,这样会有好的创意,才能更有作为。
在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年,在生活和学习上给了我很大的帮助。
参 考 文 献
1 张春林.Delphi 6程序设计导学.北京:清华大学出版社,2002.5
2 飞思科技. Delphi6开发者手册. 北京:电子工业出版社,2002.3
3 飞思科技. Delphi6数据库开发. 北京:电子工业出版社, 2002.1
内容来自www.nseac.com