delphi+access水电管理系统(三)

var
  frmLogin: TfrmLogin;

implementation

uses UCommon, uConst;

{$R *.DFM}

procedure TfrmLogin.FormCreate(Sender: TObject);
begin
  ADOQuery1.ConnectionString := Format(strConnectString, [ExtractFilePath(Application.ExeName)]);

  if not FileExists(ExtractFilePath(Application.ExeName) + '\MDB\SDManager.mdb') then
  Begin
    MessageBox(Handle, '数据库文件不存在！', '错误', MB_OK or MB_ICONERROR);
    Application.Terminate;
  end
  else begin
    Try
      ADOQuery1.Connection;
    except
      MessageBox(Handle, 'ErrorConnectDataBase', '错误', MB_OK or MB_ICONERROR);
      Application.Terminate;
    end;
  end;
end;

procedure TfrmLogin.BitBtn2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmLogin.FormDestroy(Sender: TObject);
begin
  frmLogin := nil;
end;

procedure TfrmLogin.BitBtn1Click(Sender: TObject);
var
  PS: String;
begin
  IsOk := False;

  PS := Trim(Edit1.Text);

  if PS <> GetPassWd then
  begin
    if iTime >= 2 then begin
      MessageBox(Handle, '你无权使用本系统！', '提示', MB_OK or MB_ICONINFORMATION);
      Application.Terminate;
    end;

    MessageBox(Handle, '输入的密码不正确，请确认！', '登录提示', MB_OK or MB_ICONINFORMATION);
    Edit1.SetFocus;
    IsOk := False;
    Inc(iTime);
  end
  else begin
    IsOk := True;
    frmLogin.Close;
  end;

end;

function TfrmLogin.GetPassWd: String;
begin
  //todo
  if not ADOQuery1.Active then ADOQuery1.Open;
  Result := ADOQuery1.Fields[0].AsString;
end;

end.

系统参数配置界面与代码设计实现

代码设计:
unit ufrmCnfgPara;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, Buttons, Db, ADODB, ExtCtrls;

type
  TfrmCnfgPara = class(TForm)
    Label1: TLabel;
    edtUnitName: TEdit;
    Label2: TLabel;
    m

首页 上一页 1 2 3 4 5 6 7 下一页 尾页 3/12/12