caipingrouplist.pas

小管理程序主要管理的小咖啡厅我是从网上下的经测试可用

unit caipingrouplist;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB;

type
  TFrmcaipingrouplist = class(TForm)
    GroupBox2: TGroupBox;
    DBGridTemp: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ADOQuery1AfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
    caipingroupid:integer;
  end;

var
  Frmcaipingrouplist: TFrmcaipingrouplist;

implementation
    uses dbmodule;
{$R *.dfm}

procedure TFrmcaipingrouplist.FormShow(Sender: TObject);
begin
 if adoquery1.Active then
   adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Add('select * from Q_caipingroup where caipingroup='+inttostr(caipingroupid));
 adoquery1.Open;
end;

procedure TFrmcaipingrouplist.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 if adoquery1.Active then
   adoquery1.Close;
end;

procedure TFrmcaipingrouplist.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
  dm.UpdateFieldFormats(dataset);
end;

end.