jinru2.~pas

商品批发管理系统 本作品采用C/S模式

unit jinru2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, StdCtrls, Mask, DBCtrls, DB, Grids, DBGrids,
  ADODB, ExtCtrls, XPMenu;

type
  Tdenglu2 = class(TForm)
    ADOTable1: TADOTable;
    DBGrid1: TDBGrid;
    ADOTable1name: TStringField;
    ADOTable1password: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    RGQX: TRadioGroup;
    DBEdit3: TDBEdit;
    ADOTable1jb: TStringField;
    Button6: TButton;
    SB: TStatusBar;
    XPMenu1: TXPMenu;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure RGQXClick(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  denglu2: Tdenglu2;
  a1,b1,c1,a2,b2,c2:string;

implementation

uses jinru, main;

{$R *.dfm}

procedure Tdenglu2.Button2Click(Sender: TObject);
begin
adotable1.Cancel;
adotable1.First;
button1.Enabled:=false;
button2.Enabled:=false;
RGQX.Enabled:=false;
DBedit1.ReadOnly:=true;
DBedit2.ReadOnly:=true;
DBedit3.ReadOnly:=true;
button3.Enabled:=true;
button4.Enabled:=true;
button6.Enabled:=true;
DBEdit3.Color:=clWindow;
DBEdit2.Color:=clWindow;
DBEdit1.Color:=clWindow;
sb.Panels[0].Text:='';
end;

procedure Tdenglu2.Button1Click(Sender: TObject);
begin
if dbedit1.Text='' then
    begin
    dbedit1.SetFocus;
    showmessage('姓名不能为空');
    end
    else
       if dbedit2.Text='' then
          begin
          dbedit2.SetFocus;
          showmessage('密码不能为空');
          end
          else
             begin
  a2:=DBedit1.text;
  b2:=DBedit2.Text;
  c2:=DBedit3.Text;
  if (a1=a2)and(b1=b2)and(c1=c2) or (a2='') then
    begin
     if messagedlg('您还没有修改数据或填写姓名，你要退出修改或添加吗？',mtConfirmation,[mbNo,mbYes],2)=mrYes then
       button2.Click;
    end
  else
    begin
     adotable1.Post;
     button1.Enabled:=false;
     button2.Enabled:=false;
     DBEdit1.ReadOnly:=true;
     DBedit2.ReadOnly:=true;
     DBedit3.ReadOnly:=true;
     RGQX.Enabled:=false;
     button3.Enabled:=true;
     button4.Enabled:=true;
     button6.Enabled:=true;
     DBEdit3.Color:=clWindow;
     DBEdit2.Color:=clWindow;
     DBEdit1.Color:=clWindow;
     sb.Panels[0].Text:='';
    end;
                  end;
end;

procedure Tdenglu2.Button3Click(Sender: TObject);
begin
adotable1.Append;
button1.Enabled:=true;
button2.Enabled:=true;
button6.Enabled:=false;
button4.Enabled:=false;
RGQX.Enabled:=true;
RGQX.ItemIndex:=1;
DBedit1.ReadOnly:=false;
DBedit2.ReadOnly:=false;
Dbedit1.SetFocus;
DBedit3.Text:='guest';
button3.Enabled:=false;
sb.Panels[0].Text:='请添加用户';


end;

procedure Tdenglu2.Button4Click(Sender: TObject);
var
  pos,count,i:integer;
begin
if messagedlg('您真的要删除吗？',mtConfirmation,[mbNo,mbYes],2)=mrYes then
   adotable1.Delete;
end;

procedure Tdenglu2.FormActivate(Sender: TObject);
begin
button1.Enabled:=false;
button2.Enabled:=false;
RGQX.Enabled:=false;

end;

procedure Tdenglu2.Button5Click(Sender: TObject);
begin
close;
end;

procedure Tdenglu2.FormCreate(Sender: TObject);
begin
adotable1.Active:=true;
end;

procedure Tdenglu2.FormDestroy(Sender: TObject);
begin
adotable1.Active:=false;
end;

procedure Tdenglu2.RGQXClick(Sender: TObject);
begin
case RGQX.ItemIndex of
  0: DBedit3.Text:='admin';
  1: DBedit3.Text:='guest';
  end;
end;

procedure Tdenglu2.Button6Click(Sender: TObject);
begin
DBEdit1.ReadOnly:=false;
DBEdit2.ReadOnly:=false;
DBEdit3.ReadOnly:=false;
button3.Enabled:=false;
button1.Enabled:=true;
button2.Enabled:=true;
button6.Enabled:=false;
sb.Panels[0].Text:='请修改数据';
DBEdit3.Color:=clMoneyGreen;
DBEdit2.Color:=clMoneyGreen;
DBEdit1.Color:=clMoneyGreen;
a1:=DBedit1.text;
b1:=DBedit2.Text;
c1:=DBedit3.Text;
end;

end.