sdbzfrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 96 行

unit sdbzfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids,ExtCtrls, Buttons,db, DBGridEh;

type
  Tsdbz = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DBGridEh1: TDBGridEh;
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure showform;
  end;

var
  sdbz: Tsdbz;

implementation

uses datafrm,tjsdbzfrm,xgsdbzfrm;
{$R *.dfm}

procedure Tsdbz.SpeedButton4Click(Sender: TObject);
begin
close;
end;

procedure Tsdbz.SpeedButton1Click(Sender: TObject);
begin
application.CreateForm(ttjsdbz,tjsdbz);
try
  tjsdbz.ShowModal;
finally
  tjsdbz.Free;
end;
end;

procedure Tsdbz.SpeedButton2Click(Sender: TObject);
var
num,rec:integer;
begin
rec:=yfgldata.sdbz.RecNo;
if messagebox(sdbz.Handle,'确认要删除本记录吗？','营房工作管理系统',33)=1 then
  begin
  yfgldata.sdbz.Delete;
  yfgldata.sdbz.First;
  for num:=1 to yfgldata.sdbz.RecordCount do
    begin
      yfgldata.sdbz.Edit;
      yfgldata.sdbz.Fields[0].AsInteger:=num;
      yfgldata.sdbz.Post;
      yfgldata.sdbz.Next;
    end;
  end;
  yfgldata.sdbz.Locate('序号',rec,[loCaseInsensitive]);
  sdbz.showform;
end;

procedure Tsdbz.SpeedButton3Click(Sender: TObject);
begin
application.CreateForm(txgsdbz,xgsdbz);
try
  xgsdbz.ShowModal;
finally
  xgsdbz.Free;
end;
end;

procedure Tsdbz.FormShow(Sender: TObject);
begin
sdbz.showform;
end;

procedure tsdbz.showform;
begin
sdbz.SpeedButton2.Enabled:=(yfgldata.sdbz.RecordCount>0);
sdbz.SpeedButton3.Enabled:=(yfgldata.sdbz.RecordCount>0);
end;

end.