sysuseraddform.pas

来自「本程序是一个餐饮业的管理软件」· PAS 代码 · 共 68 行

unit SysUserAddForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrmSysUserAdd = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSysUserAdd: TFrmSysUserAdd;

implementation

uses DataM;

{$R *.dfm}

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

procedure TFrmSysUserAdd.Button1Click(Sender: TObject);
begin
  if (Edit1.Text<>'') then
  begin
    Data.ADOQLogin.Close;
    Data.ADOQLogin.SQL.Clear;
    Data.ADOQLogin.SQL.Add('select * from Users where User="'+Edit1.Text+'"');
    Data.ADOQLogin.Open;
    if Data.ADOQLogin.RecordCount=0 then
      if Edit2.Text=Edit2.Text then
      begin
        Data.ADOQLogin.Append;
        Data.ADOQLogin['User']:=Edit1.Text;
        Data.ADOQLogin['PWD']:=Edit2.Text;
        Data.ADOQLogin.FieldByName('AUT').AsString:=ComboBox1.Text;
        Data.ADOQLogin.FieldByName('LLON').AsDateTime:=Now;
        Data.ADOQLogin.Post;
      end
      else MessageDlg('两次输入的密码不同，请重试',mtError,[mbOK],0)
    else MessageDlg('这个用户名已存在，请换一个！',mtError,[mbOK],0);
  end
  else MessageDlg('用户名不能为空',mtError,[mbOK],0);
end;

end.