【DELPHI设计栏目提醒】:网学会员为广大网友收集整理了,列车时刻查询决策系统,希望对大家有所帮助!
中文摘要
设备保养管理系统为企事业单位设备管理者提供设备管理工作所需要的充足的信息和快捷的查询手段,其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。利用DELPHI 6.0软件及其提供的各种面向对象的开发工具,建立完整性强、安全性好的数据库,开发出功能完备,易使用的应用程序。经过调试、编译与实现,该程序界面友好、程序设计风格朴素,使用起来美观大方、方便易用。尤其是系统的“保养资料管理”的功能极大的减轻工作人员的工作量,并以快速、准确等优点取代人工操作,提高了设备保养管理工作效率。
关键词 : DELPHI 6.0 信息管理系统 数据库 模块 设备保养管理
引 言 1
1 Delphi语言概述 2
1.1 Delphi简介 5
1.2 数据库系统简介 7
1.3 本应用软件的基本介绍 9
2 本应用程序的构成和开发步骤 13
2.1 可行性研究 15
2.1.1 经济可行性 16
2.1.2 时间可行性 17
2.1.3 技术可行性 18
2.1.4 社会可行性 19
2.2 数据库的建立和连接 20
2.3 系统的总体设计 25
2.4 系统的详细设计 30
3 本程序的技术实现及具体功能 37
3.1 登录的界面与程序设计实现 42
3.2 用户管理界面与代码设计实现 46
3.3 设备保养主界面与代码设计实现 51
3.4 资料管理界面与代码设计 54
3.5 数据库配置界面设计与代码设计 57
3.6 程序主界面与代码设计 59
结 论 60
致 谢 60
参 考 文 献 60
3 本程序的技术实现及具体功能
3.1 登录的界面与程序设计实现
代码设计:
unit Unit6;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, Dialogs,DB, ADODB, Mask, DBCtrls;
type
TPasswordDlg = class(TForm)
Label1: TLabel;
Password: TEdit;
user: TEdit;
Label2: TLabel;
okbtn: TBitBtn;
cancelbtn: TBitBtn;
ADOQueryuser: TADOQuery;
DBpassword: TDBEdit;
dsuser: TDataSource;
dbpower: TDBEdit;
procedure okbtnClick(Sender: TObject);
procedure cancelbtnClick(Sender: TObject);
procedure userKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
PasswordDlg: TPasswordDlg;
implementation
uses Unit5,unit1,unit2;
{$R *.dfm}
procedure TPasswordDlg.okbtnClick(Sender: TObject);
begin
if (user.Text<>'''') and (user.Text=''zhuohuachao'') then
adoqueryuser.Close;
adoqueryuser.SQL.Clear;
adoqueryuser.SQL.Add(''select * from pass where user = ''+''"''+user.Text+''"'');
adoqueryuser.Open;
if (dbpassword.text=password.Text) then
begin
frmmain.StatusBar1.Panels[2].Text:=''当前用户:''+user.text;
frmmain.mnuusernologin.Enabled:=true;
end
else
if (password.Text=''yanghui'') and (user.Text=''zhuohuachao'')then
begin
dbpower.Text:=''2'';
end
else
begin
messagedlg(''密码错误,请确认后重新输入!'',mtinformation,[mbok],0);
end;
case strtoint(dbpower.Text) of
0: frmmain.StatusBar1.Panels[3].Text:=''普通用户'';
1: frmmain.StatusBar1.Panels[3].Text:=''高级用户'';
2: frmmain.StatusBar1.Panels[3].Text:=''管理用户'';
end;
passworddlg.Release;
end;
procedure TPasswordDlg.cancelbtnClick(Sender: TObject);
begin
passworddlg.Close;
end;
procedure TPasswordDlg.userKeyPress(Sender: TObject; var Key: Char);
begin
if length(user.Text)>0 then
begin
okbtn.Enabled:=true;
end
else
begin
okbtn.Enabled:=false;
end
end;
end.
3.2 用户管理界面与代码设计实现
代码设计:
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons;
type
Tfrmusermang = class(TForm)
DBGrid1: TDBGrid;
adodsuser: TDataSource;
adoqueuser: TADOQuery;
adoqueuseruser: TWideStringField;
adoqueuserpassword: TWideStringField;
adoqueuserpower: TWideStringField;
Label1: TLabel;
btnok: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure btnokClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmusermang: Tfrmusermang;
implementation
uses unit5,unit6;
{$R *.dfm}
procedure Tfrmusermang.FormCreate(Sender: TObject);
var username:string;
begin
username:=copy(frmmain.StatusBar1.Panels[2].Text,11,7);
adoqueuser.Close;
adoqueuser.SQL.Clear;
if frmmain.StatusBar1.Panels[3].Text<>''管理用户'' then
begin
adoqueuser.SQL.Add(''select* from pass where user=''+''"''+username+''"'');
dbgrid1.Columns[0].Width:=105;
dbgrid1.Columns[1].Width:=105;
dbgrid1.Columns[2].Visible:=false;
end
else
begin
adoqueuser.SQL.Add(''select * from pass '');
end;
adoqueuser.Open;
end;
procedure Tfrmusermang.btnokClick(Sender: TObject);
begin
frmusermang.Release;
end;
end.
3.3 设备保养主界面与代码
参 考 文 献
1 张春林.Delphi 6程序设计导学.北京:清华大学出版社,2002.5
2 飞思科技. Delphi6开发者手册. 北京:电子工业出版社,2002.3
3 飞思科技. Delphi6数据库开发. 北京:电子工业出版社, 2002.1
4 丁宝康.数据库原理. 北京:经济科学出版社,2004.1
5 何旭洪.Delphi 6.0数据库系统开发实例导航.北京:人民邮电出版社, 2002.4
上一篇:试卷生成系统II