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

A450水电管理系统

2.3 系统的总体设计

这个管理系统从4月1日开始着手设计开发,经过一段时间的分析,并根据对水电管理的具体要求及需要本软件实现的功能,将本软件分为5个大的模块,分别是:第一部分:系统管理;第二部分:字典维护;第三部分:抄表; 第四部分:报表管理。

内容来自论文无忧网 snowings.com

程序流程图如下:

内容来自论文无忧网 snowings.com

内容来自snowings.com

2.4           系统的详细设计 paper51.com

进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象,根据本课题的需要,在这里选择一个空的数据库,命名建立了一个数据库名称为“SDManager”,水电管理系统。并在此数据库下创建了六个表,用于存放原始数据。它只是存放数据,对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下:

http://snowings.com

1.cnfgpara信息表 http://snowings.com

copyright paper51.com

2.meter信息表

内容来自论文无忧网 snowings.com

内容来自论文无忧网 snowings.com

3.metersort信息表

http://snowings.com

paper51.com

4.price信息表 http://snowings.com

内容来自论文无忧网 snowings.com

5.takemeter信息表 copyright paper51.com

copyright paper51.com

6.车间信息表

内容来自论文无忧网 snowings.com

paper51.com

3   本程序的技术实现及具体功能 内容来自snowings.com

3.1           登录的界面与程序设计实现 内容来自snowings.com

内容来自snowings.com

代码设计: paper51.com

unit uLogin; 内容来自snowings.com

interface http://snowings.com

uses 内容来自论文无忧网 snowings.com

  Windows, Messages, SysUtils,Classes, Graphics, Controls, Forms, Dialogs,

http://snowings.com

  StdCtrls,Buttons, Db, ADODB; 内容来自论文无忧网 snowings.com

type copyright paper51.com

  TfrmLogin = class(TForm) 内容来自论文无忧网 snowings.com

    Label1: TLabel; paper51.com

    Edit1: TEdit; http://snowings.com

    BitBtn1: TBitBtn;

http://snowings.com

    BitBtn2: TBitBtn;

paper51.com

    ADOQuery1: TADOQuery;

http://snowings.com

    DataSource1: TDataSource;

内容来自snowings.com

    procedureFormCreate(Sender: TObject); copyright paper51.com

    procedureBitBtn2Click(Sender: TObject);

http://snowings.com

    procedureFormClose(Sender: TObject; var Action: TCloseAction); paper51.com

    procedureFormDestroy(Sender: TObject); http://snowings.com

    procedureBitBtn1Click(Sender: TObject); 内容来自snowings.com

  private 内容来自论文无忧网 snowings.com

    { Privatedeclarations }

http://snowings.com

    Function GetPassWd:String; http://snowings.com

  public

http://snowings.com

    { Publicdeclarations } paper51.com

    IsOk:Boolean;

copyright paper51.com

    iTime:Integer;  //计算登录次数

copyright paper51.com

  end;

paper51.com

var

copyright paper51.com

  frmLogin:TfrmLogin; 内容来自snowings.com

implementation

http://snowings.com

uses UCommon, uConst; 内容来自snowings.com

{$R *.DFM}

内容来自论文无忧网 snowings.com

procedure TfrmLogin.FormCreate(Sender:TObject); 内容来自论文无忧网 snowings.com

begin

copyright paper51.com

  ADOQuery1.ConnectionString:= Format(strConnectString, [ExtractFilePath(Application.ExeName)]); 内容来自snowings.com

  if not FileExists(ExtractFilePath(Application.ExeName) + '\MDB\SDManager.mdb') then 内容来自论文无忧网 snowings.com

  Begin 内容来自论文无忧网 snowings.com

    MessageBox(Handle,'数据库文件不存在!', '错误', MB_OKor MB_ICONERROR); copyright paper51.com

    Application.Terminate;

内容来自论文无忧网 snowings.com

  end

内容来自论文无忧网 snowings.com

  else begin

http://snowings.com

    Try

内容来自论文无忧网 snowings.com

     ADOQuery1.Connection;

内容来自论文无忧网 snowings.com

    except

paper51.com

      MessageBox(Handle,'ErrorConnectDataBase', '错误', MB_OK or MB_ICONERROR); http://snowings.com

      Application.Terminate; http://snowings.com

    end; http://snowings.com

  end; http://snowings.com

end;

内容来自snowings.com

procedure TfrmLogin.BitBtn2Click(Sender: TObject);

http://snowings.com

begin

copyright paper51.com

  Application.Terminate;

http://snowings.com

end;

paper51.com

procedure TfrmLogin.FormClose(Sender:TObject; var Action: TCloseAction);

paper51.com

begin paper51.com

  Action := caFree;

http://snowings.com

end;

内容来自论文无忧网 snowings.com

procedure TfrmLogin.FormDestroy(Sender:TObject); 内容来自论文无忧网 snowings.com

begin 内容来自论文无忧网 snowings.com

  frmLogin:= nil;

内容来自snowings.com

end; paper51.com

procedure TfrmLogin.BitBtn1Click(Sender: TObject);

paper51.com

var

http://snowings.com

  PS: String; http://snowings.com

begin 内容来自论文无忧网 snowings.com

  IsOk := False;

内容来自snowings.com

  PS := Trim(Edit1.Text);

copyright paper51.com

  if PS <> GetPassWd then

copyright paper51.com

  begin

paper51.com

    if iTime >= 2 then begin

copyright paper51.com

      MessageBox(Handle, '你无权使用本系统!','提示', MB_OK or MB_ICONINFORMATION); 内容来自snowings.com

      Application.Terminate;

copyright paper51.com

    end;

copyright paper51.com

    MessageBox(Handle,'输入的密码不正确,请确认!', '登录提示',MB_OK or MB_ICONINFORMATION); paper51.com

    Edit1.SetFocus; paper51.com

    IsOk := False; 内容来自论文无忧网 snowings.com

    Inc(iTime); http://snowings.com

  end 内容来自snowings.com

  else begin

paper51.com

    IsOk := True; copyright paper51.com

    frmLogin.Close; copyright paper51.com

  end;

copyright paper51.com

end;

copyright paper51.com

function TfrmLogin.GetPassWd:String;

http://snowings.com

begin

copyright paper51.com

  //todo paper51.com

  if notADOQuery1.Active then ADOQuery1.Open;

内容来自论文无忧网 snowings.com

  Result :=ADOQuery1.Fields[0].AsString; http://snowings.com

end;

copyright paper51.com

end. 内容来自snowings.com

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