|
2.3 系统的总体设计 这个管理系统从4月1日开始着手设计开发,经过一段时间的分析，并根据对水电管理的具体要求及需要本软件实现的功能，将本软件分为5个大的模块，分别是：第一部分：系统管理；第二部分：字典维护；第三部分：抄表； 第四部分：报表管理。 copyright paper51.com 程序流程图如下： copyright paper51.com copyright paper51.com 2.4 系统的详细设计 paper51.com
进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象，根据本课题的需要，在这里选择一个空的数据库，命名建立了一个数据库名称为“SDManager”，水电管理系统。并在此数据库下创建了六个表，用于存放原始数据。它只是存放数据，对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下： 内容来自www.paper51.com 1.cnfgpara信息表 paper51.com paper51.com 2.meter信息表 paper51.com
paper51.com 3.metersort信息表 http://www.paper51.com
copyright paper51.com 4.price信息表 http://www.paper51.com
内容来自论文无忧网 www.paper51.com
5.takemeter信息表 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com 6.车间信息表 http://www.paper51.com
http://www.paper51.com
3 本程序的技术实现及具体功能 内容来自www.paper51.com 3.1 登录的界面与程序设计实现 http://www.paper51.com
http://www.paper51.com
代码设计: http://www.paper51.com
unit uLogin; 内容来自论文无忧网 www.paper51.com
interface http://www.paper51.com
uses 内容来自www.paper51.com Windows, Messages, SysUtils,Classes, Graphics, Controls, Forms, Dialogs, paper51.com StdCtrls,Buttons, Db, ADODB; paper51.com type 内容来自论文无忧网 www.paper51.com
TfrmLogin = class(TForm) 内容来自论文无忧网 www.paper51.com
Label1: TLabel; 内容来自论文无忧网 www.paper51.com Edit1: TEdit; paper51.com BitBtn1: TBitBtn; 内容来自www.paper51.com BitBtn2: TBitBtn; 内容来自论文无忧网 www.paper51.com ADOQuery1: TADOQuery; 内容来自论文无忧网 www.paper51.com DataSource1: TDataSource; 内容来自论文无忧网 www.paper51.com procedureFormCreate(Sender: TObject); paper51.com procedureBitBtn2Click(Sender: TObject); 内容来自论文无忧网 www.paper51.com
procedureFormClose(Sender: TObject; var Action: TCloseAction); http://www.paper51.com procedureFormDestroy(Sender: TObject); 内容来自www.paper51.com
procedureBitBtn1Click(Sender: TObject); paper51.com private 内容来自论文无忧网 www.paper51.com { Privatedeclarations } 内容来自www.paper51.com Function GetPassWd:String; 内容来自论文无忧网 www.paper51.com public copyright paper51.com { Publicdeclarations } 内容来自www.paper51.com IsOk:Boolean; 内容来自论文无忧网 www.paper51.com iTime:Integer; //计算登录次数 copyright paper51.com
end; 内容来自论文无忧网 www.paper51.com var paper51.com
frmLogin:TfrmLogin; paper51.com implementation copyright paper51.com
uses UCommon, uConst; paper51.com {$R *.DFM} 内容来自www.paper51.com procedure TfrmLogin.FormCreate(Sender:TObject); http://www.paper51.com
begin paper51.com ADOQuery1.ConnectionString:= Format(strConnectString, [ExtractFilePath(Application.ExeName)]); copyright paper51.com if not FileExists(ExtractFilePath(Application.ExeName) + '\MDB\SDManager.mdb') then paper51.com Begin http://www.paper51.com MessageBox(Handle,'数据库文件不存在！', '错误', MB_OKor MB_ICONERROR); paper51.com Application.Terminate; 内容来自www.paper51.com
end http://www.paper51.com
else begin http://www.paper51.com
Try copyright paper51.com
ADOQuery1.Connection; 内容来自www.paper51.com except copyright paper51.com
MessageBox(Handle,'ErrorConnectDataBase', '错误', MB_OK or MB_ICONERROR); copyright paper51.com Application.Terminate; 内容来自论文无忧网 www.paper51.com end; 内容来自论文无忧网 www.paper51.com end; paper51.com end; paper51.com procedure TfrmLogin.BitBtn2Click(Sender: TObject); paper51.com
begin copyright paper51.com
Application.Terminate; copyright paper51.com end; http://www.paper51.com procedure TfrmLogin.FormClose(Sender:TObject; var Action: TCloseAction); paper51.com begin http://www.paper51.com Action := caFree; copyright paper51.com
end; http://www.paper51.com procedure TfrmLogin.FormDestroy(Sender:TObject); http://www.paper51.com begin http://www.paper51.com frmLogin:= nil; paper51.com
end; 内容来自论文无忧网 www.paper51.com procedure TfrmLogin.BitBtn1Click(Sender: TObject); 内容来自www.paper51.com var paper51.com
PS: String; http://www.paper51.com begin http://www.paper51.com
IsOk := False; 内容来自www.paper51.com PS := Trim(Edit1.Text); 内容来自www.paper51.com if PS <> GetPassWd then http://www.paper51.com
begin 内容来自论文无忧网 www.paper51.com if iTime >= 2 then begin http://www.paper51.com
MessageBox(Handle, '你无权使用本系统！','提示', MB_OK or MB_ICONINFORMATION); http://www.paper51.com Application.Terminate; copyright paper51.com end; http://www.paper51.com MessageBox(Handle,'输入的密码不正确，请确认！', '登录提示',MB_OK or MB_ICONINFORMATION); 内容来自论文无忧网 www.paper51.com Edit1.SetFocus; paper51.com IsOk := False; 内容来自论文无忧网 www.paper51.com Inc(iTime); copyright paper51.com end paper51.com else begin 内容来自www.paper51.com IsOk := True; paper51.com frmLogin.Close; http://www.paper51.com end; 内容来自www.paper51.com end; http://www.paper51.com function TfrmLogin.GetPassWd:String; http://www.paper51.com
begin copyright paper51.com //todo http://www.paper51.com if notADOQuery1.Active then ADOQuery1.Open; 内容来自论文无忧网 www.paper51.com Result :=ADOQuery1.Fields[0].AsString; 内容来自论文无忧网 www.paper51.com end; 内容来自www.paper51.com end. 内容来自www.paper51.com |