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.