unit AddUser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, jpeg,db;

type
  TAddUserForm = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Panel1: TPanel;
    UserName: TComboBox;
    PassWord: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    procedure UserNameDropDown(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
   UserPass:string;
   submit:boolean;
    { Public declarations }
  end;

var
  AddUserForm: TAddUserForm;

implementation
uses MD,PassWord;

{$R *.dfm}

procedure TAddUserForm.UserNameDropDown(Sender: TObject);
var
i:integer;
begin
//在用戶名稱框中輸入已經存在的用戶名
UserName.Clear;
With DataMD.ADOManage do
Begin
 Close;
 Sql.clear;
 Sql.Add('select * from manage');
 open;
 if RecordCount>0 then
    begin
     first;
     for i:=0 to RecordCount-1 do
      begin
      UserName.Items.Add(fieldbyname('用戶名').AsString);
      Next;
      end;
     end
end;
end;

procedure TAddUserForm.BitBtn1Click(Sender: TObject);
begin
//添加新的用戶名到數據庫中
 With DataMd.ADOManage Do
 begin
  Close;
  Sql.Clear;
  Sql.Add('select * from manage');
  OPen;
  if trim(username.Text)='' then
    begin
    showmessage('用戶名不能為空！');
    UserName.SetFocus;
    end
    else
     begin
      Application.CreateForm(TPassWordForm,PassWordForm);
      PassWordForm.ShowModal;
      if Not Locate('用戶名',Trim(username.text),[lopartialkey]) And submit then
         begin
          Append;
          FieldByName('用戶名').AsString:=UserName.Text;
          FieldbyName('密碼').AsString:=PassWord.Text;
          FieldByName('權限').AsString:=combobox1.Text;
          If MessageDlg('是否要把用戶寫入庫中',MtConfirmation,[mbYes,mbNo],0)=mrYes then
          begin
          post;
          showmessage('用戶以成功的寫入數據庫中');
          end
          else
          cancel;
         end
      else
      showmessage('用戶已經存在');
      end;
   end;
end;

procedure TAddUserForm.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.