lbxx.pas

有需要的同仁载回去慢慢研究

unit LBXX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, Buttons, ComCtrls,
  ActnList, Spin;

type
  TFrmLbxx = class(TForm)
    DBGrid2: TDBGrid;
    DBNavigator1: TDBNavigator;
    BtnExit: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnExitClick(Sender: TObject);
  private
  public
  end;

var
  FrmLbxx: TFrmLbxx;

implementation

uses DGSDM;



{$R *.DFM}



procedure TFrmLbxx.FormShow(Sender: TObject);
begin
  DM_GSGL.QryLbxx.Open;
end;

procedure TFrmLbxx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM_GSGL.QryLbxx.Close;
end;

procedure TFrmLbxx.BtnExitClick(Sender: TObject);
begin
  Close;
end;

end.