maintainunit3.~pas

基于DELPHI+SQL的商品交易系统

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;
    DBNavigator1: TDBNavigator;
    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.