mc_gzrlist.pas

来自「一个通用的餐饮管理软件」· PAS 代码 · 共 54 行

unit MC_GZRList;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, StdCtrls, Buttons;

type
  TGZRList = class(TForm)
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1BDEDesigner: TStringField;
    BitBtn1: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GZRList: TGZRList;

implementation

uses MC_GZFrom;

{$R *.DFM}

procedure TGZRList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     GZRList.Release;
     GZRList:=Nil;
end;

procedure TGZRList.BitBtn1Click(Sender: TObject);
begin
     if Query1.RecordCount=0 then
        begin
             ShowMessage('对不起，没有发现挂帐人员。');
             Close;
        end
     else
        begin
             GZFrom.Edit1.Text:=Query1.Fields[0].AsString;
             Close;
        end;
end;

end.