caipuquery.pas

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

unit caipuquery;

interface

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

type
  TFrmCaiPuQuery = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    BtnQuery: TSpeedButton;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnQueryClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure ADOQuery1AfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCaiPuQuery: TFrmCaiPuQuery;

implementation
   uses dbmodule;
{$R *.dfm}

procedure TFrmCaiPuQuery.FormActivate(Sender: TObject);
begin
  if not dm.Qchildclass.Active then
     dm.Qchildclass.Open;
end;

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

procedure TFrmCaiPuQuery.BtnQueryClick(Sender: TObject);
begin
  if edit1.Text<>'' then
     begin
       if adoquery1.Active then
       adoquery1.Close;
     adoquery1.SQL.Clear ;
     adoquery1.SQL.Add('select *  from Q_caipin where isdel=0 and  caipinma like'+chr(39)+'%'+edit1.Text+'%'+chr(39));
     adoquery1.Open ;
     end;
end;

procedure TFrmCaiPuQuery.DBGrid1CellClick(Column: TColumn);
begin
 if dm.Qchildclass.Active then
   begin
     if adoquery1.Active then
       adoquery1.Close;
     adoquery1.SQL.Clear ;
     adoquery1.SQL.Add('select *  from Q_caipin where isdel=0 and  chclassid='+inttostr(dm.Qchildclass.FieldValues['chclassid']));
     adoquery1.Open ;
   end;
end;

procedure TFrmCaiPuQuery.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
  dm.UpdateFieldFormats(adoquery1);
end;

end.