zhangdianquery.pas

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

unit zhangdianquery;

interface

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

type
  TFrmzhangdianquery = class(TForm)
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    GroupBox4: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    QueryMaster: TADOQuery;
    QueryMastDataSource: TDataSource;
    QueryDetail: TADOQuery;
    QueryDetailDataSource: TDataSource;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    Label5: TLabel;
    DBText4: TDBText;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ADOQuery1AfterOpen(DataSet: TDataSet);
    procedure QueryDetailAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmzhangdianquery: TFrmzhangdianquery;

implementation
   uses dbmodule;
{$R *.dfm}

procedure TFrmzhangdianquery.FormShow(Sender: TObject);
begin
  edit1.Text:='';
end;

procedure TFrmzhangdianquery.SpeedButton1Click(Sender: TObject);
begin
  if QueryMaster.Active then
     QueryMaster.Close ;
  QueryMaster.SQL.Clear ;
  QueryMaster.SQL.Add('select distinct zhanghao,chuanbiaohao from Q_customertemp where zhanghao='+''''+edit1.Text+'''');
  QueryMaster.Open;
  if not QueryMaster.Eof then
    begin
      if QueryDetail.Active then
        QueryDetail.Close;
      QueryDetail.SQL.Clear;
      QueryDetail.SQL.Add('select id,Caipinid,caipinname,caipincount,caipinunit,caipinprice,dianliexing,caipinprice*caipincount as heji from Q_customertemp');
      QueryDetail.SQL.Add(' where  chuanbiaohao='+''''+QueryMaster.FieldValues['chuanbiaohao']+'''');
      QueryDetail.Open;
    end;
  if adoquery1.Active then
    adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select yingshou,shishou,fangshi,zhekou from Q_custpay where zhanghao='+''''+edit1.Text+'''');
  adoquery1.Open; 
end;

procedure TFrmzhangdianquery.DBGrid1CellClick(Column: TColumn);
begin
if QueryMaster.Active then
    begin
      if QueryDetail.Active then
        QueryDetail.Close;
      QueryDetail.SQL.Clear;
      QueryDetail.SQL.Add('select id,Caipinid,caipinname,caipincount,caipinunit,caipinprice,dianliexing,caipinprice*caipincount as heji from Q_customertemp');
      QueryDetail.SQL.Add(' where  chuanbiaohao='+''''+QueryMaster.FieldValues['chuanbiaohao']+'''');
      QueryDetail.Open;
    end;
end;

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

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

procedure TFrmzhangdianquery.QueryDetailAfterOpen(DataSet: TDataSet);
begin
  dm.UpdateFieldFormats(dataset);
end;

end.