insertperson.pas

西京票据管理系统刚刚获得

unit insertperson;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, Wwdbigrd, Wwdbgrid, ExtCtrls, Buttons;

type
  Tfrminsertperson = class(TForm)
    pnl1: TPanel;
    wwDBGrid1: TwwDBGrid;
    ds1: TDataSource;
    btn1: TSpeedButton;
    btn2: TSpeedButton;
    btn3: TSpeedButton;
    btn4: TSpeedButton;
    SpeedButton1: TSpeedButton;
    procedure btn4Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frminsertperson: Tfrminsertperson;

implementation
uses UDM,ADDPERSON,changeperson,QX;

{$R *.dfm}

procedure Tfrminsertperson.btn4Click(Sender: TObject);
begin
   close;
end;

procedure Tfrminsertperson.btn1Click(Sender: TObject);
begin
  FRMaddperson:=Tfrmaddperson.Create(self); 
  DM.qryLOGIN.Append;
  frmaddperson.ShowModal;
  freeandnil(frmaddperson);

end;

procedure Tfrminsertperson.FormShow(Sender: TObject);
begin
   dm.qryLOGIN2.Open;
   dm.qryLOGIN.Open;
end;

procedure Tfrminsertperson.btn2Click(Sender: TObject);
begin
 if dm.qryLOGIN.Locate('userid',dm.qrylogin2.fieldbyname('userid').AsString,[]) then
 if DM.qrylogin2.FieldByName('userid').AsString<>'0001' then
  begin
    try
      dm.qryLOGIN.Delete;
      except
       DM.qryLOGIN.CancelUpdates;
    end;
  end
  else
  begin
   ShowMessage('管理员用户，不能删除！');
   Exit;
  end;
   dm.qryLOGIN2.Close;
   dm.qryLOGIN2.Open;
  end;

procedure Tfrminsertperson.btn3Click(Sender: TObject);
begin
   frmchangeperson:=TFRMchangeperson.Create(SELF);
     frmchangeperson.edt1.Text:=DM.qryLOGIN2.fieldbyname('userid').AsString;
     frmchangeperson.edt2.Text:=DM.qryLOGIN2.fieldbyname('username').AsString;
     frmchangeperson.edt3.Text:=DM.qryLOGIN2.fieldbyname('userpsd').AsString;
     frmchangeperson.ShowModal;
     freeandnil(frmchangeperson);

end;

procedure Tfrminsertperson.btn5Click(Sender: TObject);
begin
  dm.qryLOGIN2.Close;
  dm.qrylogin2.Open;

end;

procedure Tfrminsertperson.SpeedButton1Click(Sender: TObject);
begin
  FRMQX:=TFRMQX.Create(Self);
  FRMQX.ShowModal;
  FreeAndNil(FRMQX);
end;

procedure Tfrminsertperson.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dm.qryLOGIN.Close;
  dm.qrylogin2.Close;
  
end;

end.