fadminloginadd.pas

财务报表系统,包括系统登陆

unit FAdminLoginAdd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DB, ADODB;

type
  TfrmAdminLoginAdd = class(TForm)
    lbledt1: TLabeledEdit;
    lbledt2: TLabeledEdit;
    lbledt3: TLabeledEdit;
    btn1: TBitBtn;
    btn2: TBitBtn;
    qry1: TADOQuery;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAdminLoginAdd: TfrmAdminLoginAdd;

implementation

uses FAdminLogin, DataModule;

{$R *.dfm}

procedure TfrmAdminLoginAdd.btn1Click(Sender: TObject);
var
  uid, pwd, pwd1: string;
  i: Integer;
begin
  uid  := lbledt1.Text;
  pwd  := lbledt2.Text;
  pwd1 := lbledt3.Text;

  // 查询用户时候重复
  qry1.SQL.Text := 'select * from users where uid='''+uid+'''';
  qry1.Open;
  i := qry1.RecordCount;
  qry1.Close;
  if i>0 then begin
    Application.MessageBox('已经存在此帐号，请重新录入。', 
      PChar(Application.Title), MB_OK + MB_ICONWARNING);
    exit;
  end;
  // 验证密码
  if pwd <> pwd1 then begin
    Application.MessageBox('重复密码输入不正确，请重新录入。',
      PChar(Application.Title), MB_OK + MB_ICONWARNING);
    exit;
  end;
  // 添加数据
  with frmAdminLogin.qry1 do begin
    Append;
    FieldValues['uid'] := uid;
    FieldValues['pwd'] := pwd;
    FieldValues['apwd'] := '*****';
    Post;
  end;
  Close;
end;

procedure TfrmAdminLoginAdd.btn2Click(Sender: TObject);
begin
  Close;
end;

end.