dinnerquery.pas

一个餐饮行业的销售管理类的源码

unit DinnerQuery;

interface

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

type
  TDinnerQueryForm = class(TForm)
    GroupBox1: TGroupBox;
    QueryField: TComboBox;
    QueryValue: TEdit;
    QuerySign: TComboBox;
    QueryBtn: TButton;
    ClearBtn: TButton;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Button1: TButton;
    DinnerQuery: TQuery;
    DataSource1: TDataSource;
    procedure ClearBtnClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure QueryBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DinnerQueryForm: TDinnerQueryForm;

implementation

uses DinnerChar;

{$R *.dfm}

procedure TDinnerQueryForm.ClearBtnClick(Sender: TObject);
begin
    QueryField.Text := '';
    QueryValue.Text := '';
    QuerySign.Text := '';
end;

procedure TDinnerQueryForm.Button1Click(Sender: TObject);
begin
    DinnerCharForm := TDinnerCharForm.create(self);
    DinnerCharForm.show;
end;

procedure TDinnerQueryForm.QueryBtnClick(Sender: TObject);
var
    S :string;
    Item :string;
begin
    //选择酒菜定单
    if QueryField.Text = '酒菜定单' then
        Item := 'Numm';
    //选择总金额
    if QueryField.Text = '总金额' then
        Item := 'Summ';
    //选择实收金额
    if QueryField.Text = '实收金额' then
        Item := 'Income';
    DinnerQuery.Close;
    DinnerQuery.SQL.Clear;
    //进行查询
    S := 'select * from dinner where '+
        Item +
        QuerySign.Text +
        QueryValue.Text ;
    DinnerQuery.SQL.Add(S);
    DinnerQuery.Open;
end;

end.