unit MaintainUnit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls, DB, DBTables, DBCtrls, Grids,
  DBGrids, Mask;

type
  TForm3 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Edit1: TEdit;
    Memo1: TMemo;
    Edit2: TEdit;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.RadioButton1Click(Sender: TObject);
begin
RadioButton2.Checked:=false;
RadioButton3.Checked:=false;
DBEdit2.Enabled:=false;
DBEdit1.Enabled:=true;
DBEdit3.Enabled:=true;
Edit1.Enabled:=true;
Edit2.Visible:=false;
Label2.Enabled:=false;
Label1.Enabled:=true;
Label3.Enabled:=true;
Label4.Enabled:=true;
Label1.Caption:='新用戶名';
Label3.Caption:='新用戶密碼';
Label4.Caption:='確認新密碼';
table1.Insert;
SpeedButton1.Enabled:=true;
SpeedButton2.Enabled:=false;
SpeedButton3.Enabled:=false;
end;

procedure TForm3.RadioButton2Click(Sender: TObject);
begin
RadioButton1.Checked:=false;
RadioButton3.Checked:=false;
DBEdit1.Enabled:=false;
DBEdit2.Enabled:=false;
DBEdit3.Enabled:=false;
Edit1.Enabled:=true;
Label1.Enabled:=false;
Label2.Enabled:=false;
Label3.Enabled:=false;
Label4.Enabled:=true;
Label4.Caption:='刪除者密碼';
Label3.Caption:='新用戶密碼';
Label3.Caption:='確認新密碼';
SpeedButton2.Enabled:=true;
SpeedButton1.Enabled:=false;
SpeedButton3.Enabled:=false;
Edit2.Visible:=false;
end;

procedure TForm3.RadioButton3Click(Sender: TObject);
begin
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
DBEdit2.Enabled:=false;
DBEdit1.Enabled:=true;
DBEdit3.Enabled:=true;
Edit1.Enabled:=true;
Edit2.Visible:=true;
Label2.Enabled:=false;
Label1.Enabled:=true;
Label3.Enabled:=true;
Label4.Enabled:=true;
Label1.Caption:='新用戶名';
Label3.Caption:='新用戶密碼';
Label4.Caption:='確認新密碼';
SpeedButton3.Enabled:=true;
SpeedButton1.Enabled:=false;
SpeedButton2.Enabled:=false;
table1.Edit;
end;

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
if RadioButton1.Checked=true then begin
  if DBEdit3.text=Edit1.text then
  table1.Refresh
  else begin
  showmessage('請確認新密碼！');
  table1.Cancel;
  end;
  end;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
DBEdit1.Enabled:=false;
DBEdit2.Enabled:=false;
DBEdit3.Enabled:=false;
Edit1.Enabled:=false;
Edit2.Visible:=false;
end;

procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
table1.refresh;
with table1 do
try
  disablecontrols;
  filtered:=false;
  memo1.Text:='用戶密碼='+''''+edit1.Text+'''';
  filter:=memo1.text;
  filtered:=true;
finally
  enablecontrols;
if table1.recordcount=0 then begin
messagebeep(1);
showmessage('對不起,你不是合法用戶，不能刪除，請確認你的密碼然后重新操作!');
filtered:=false;
 table1.close;
 table1.open;
end else begin
table1.Delete;
table1.Refresh;
showmessage('該用戶已經被刪除，不能再使用本系統！');
 filtered:=false;
 table1.close;
 table1.open;
end;
end;
end;

procedure TForm3.SpeedButton3Click(Sender: TObject);
begin
table1.refresh;
with table1 do
try
  disablecontrols;
  filtered:=false;
  memo1.Text:='用戶密碼='+''''+edit2.Text+'''';
  filter:=memo1.text;
  filtered:=true;
finally
  enablecontrols;
if table1.recordcount=0 then begin
messagebeep(1);
showmessage('對不起,你不是合法用戶，不能修改，請確認你的密碼然后重新操作!');
filtered:=false;
table1.Cancel;
 table1.close;
 table1.open;
end else begin
if Edit1.text=DBEdit3.Text then begin
table1.Refresh;
showmessage('該用戶已經被修改，請記住密碼！');
 filtered:=false;
 table1.close;
 table1.open;
 end else
 showmessage('對不起，確認碼不對，請確認密碼！');
end;
end;
end;
end.