ushe.pas

来自「一个地方税务征收管理系统」· PAS 代码 · 共 71 行

unit ushe;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, dialogs, Grids, DBGridEh, Menus;

type
  Tshe = class(TForm)
    CancelBtn: TButton;
    DBGridEh1: TDBGridEh;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure CancelBtnClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  she: Tshe;

implementation

uses DB, u_dm;

{$R *.dfm}

procedure Tshe.CancelBtnClick(Sender: TObject);
begin
  close;
end;

procedure Tshe.BitBtn2Click(Sender: TObject);
begin
  dm1.a_she.append;
end;

procedure Tshe.BitBtn3Click(Sender: TObject);
begin
  dm1.a_she.Delete;
end;

procedure Tshe.BitBtn1Click(Sender: TObject);
begin
  if dm1.A_she.State in [dsedit, dsinsert] then
    dm1.A_she.Post;
end;

procedure Tshe.FormCreate(Sender: TObject);
begin
  dm1.A_she.Open;
end;

end.