unit Unit6;

interface

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

type
  Tfrmedusers = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    Panel1: TPanel;
    Edit4: TEdit;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    tys:integer;
    { Private declarations }
  public
   property ty:integer read tys write tys;//新增還是修改口令
    { Public declarations }
  end;

var
  frmedusers: Tfrmedusers;

implementation

uses Unit3, Unit4;

{$R *.dfm}

procedure Tfrmedusers.BitBtn1Click(Sender: TObject);
var oldpswd:string;//舊口令
begin
 if ty=1 then //新增
 begin
  if trim(edit1.Text)='' then
  begin
   application.MessageBox('請輸入姓名','',64);
   modalresult:=mrnone;
   edit1.SetFocus;
   exit;
  end;
 end
 else
 begin
  if trim(edit1.Text)='admin' then //管理員
  begin
   if dm1.ADOCon1.Execute('select passwd from admin').EOF then
    oldpswd:=''
   else
    oldpswd:=trim(vartostr(dm1.ADOCon1.Execute('select passwd from admin').Fields[0].Value))
  end  
  else                                   //普通用戶
   oldpswd:=trim(vartostr(dm1.ADOCon1.Execute('select passwd from users where name='''
   +trim(edit1.Text)+'''').Fields[0].Value));
  if trim(edit4.Text)<>oldpswd then
  begin
   application.MessageBox('原來口令不正確','',64);
   modalresult:=mrnone;
   edit2.SetFocus;
   exit;
  end;
 end;
 if trim(edit2.Text)<>trim(edit3.Text) then
 begin
  application.MessageBox('口令不相符','',64);
  modalresult:=mrnone;
  edit2.SetFocus;
  exit;
 end;
 if ty=1 then //新增
 begin
  if not dm1.ADOCon1.Execute('select name from users where name='''
  +trim(edit1.Text)+'''').EOF then
  begin
   application.MessageBox('此姓名已存在','',64);
   modalresult:=mrnone;
   edit1.SetFocus;
   exit;
  end;
  dm1.ADOCon1.Execute('insert into users (name,create_date,passwd) values '
  +'('''+trim(edit1.Text)+''',#'+datetostr(date)+'#,'''+trim(edit2.Text)+''')');
 end
 else
 begin
  if trim(edit1.Text)='admin' then //管理員
  begin
   if dm1.ADOCon1.Execute('select passwd from admin').EOF then //原來沒有口令
    dm1.ADOCon1.Execute('insert into admin (passwd) values ('''
    +trim(edit2.Text)+''')')
   else
   try
    dm1.ADOCon1.Execute('update admin set passwd='''+trim(edit2.Text)+'''')
   except
    werror('update admin set passwd='''+trim(edit2.Text)+'''');
   end;
  end
  else
   dm1.ADOCon1.Execute('update users set passwd='''+trim(edit2.Text)
    +''' where name='''+trim(edit1.Text)+'''');
 end;
end;

procedure Tfrmedusers.FormShow(Sender: TObject);
begin
 panel1.Visible:=ty<>1;
 case ty  of
 2:
 begin
  edit1.Text:=trim(dm1.ADOQuery1.fieldbyname('name').AsString);
  edit1.Enabled:=false;
 end;
 3:
 begin
  edit1.Text:='admin';
  edit1.Enabled:=false;
 end;
 end;
end;

end.