person.pas

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

unit person;

interface

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

type
  TFoperson = class(TForm)
    pnl1: TPanel;
    spl1: TSplitter;
    wwDBGrid1: TwwDBGrid;
    btn1: TSpeedButton;
    btn2: TSpeedButton;
    btn3: TSpeedButton;
    btn4: TSpeedButton;
    ds1: TDataSource;
    procedure btn4Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    punum:string;
    { Public declarations }
  end;

var
  Foperson: TFoperson;

implementation
uses UDM,takepageman;

{$R *.dfm}

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

procedure TFoperson.btn1Click(Sender: TObject); 
begin
   if dm.tblperson.Active=false then
    dm.tblperson.Active:=true;
  frmtakepageman:=Tfrmtakepageman.Create(self);
    dm.tblperson.Append;
  frmtakepageman.ShowModal;
  freeandnil(frmtakepageman);
end;

procedure TFoperson.btn2Click(Sender: TObject);
begin
   with dm.qrytemp do
   begin
     close;
     sql.Clear;
     sql.Add('delete from person');
     sql.Add('where person=:person');
     parameters.ParamByName('person').Value:=dm.tblperson.fieldbyname('person').AsInteger;
     try
      dm.tblperson.Delete;
      execsql;
      except
      messagebox(handle,'删除数据失败!','系统提示',mb_iconinformation+mb_ok);
      exit;
     end;
   end;
end;

procedure TFoperson.FormShow(Sender: TObject);
begin
  dm.tblperson.Open;
end;

procedure TFoperson.btn3Click(Sender: TObject);
begin
 dm.tblperson.Post;
end;

end.