论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP Java Web .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > DELPHI >

A450水电管理系统

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

------分隔线----------------------------
联系方式