roomquery.pas

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

unit roomQuery;

interface

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

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

var
  RoomQueryForm: TRoomQueryForm;

implementation

{$R *.dfm}

uses roomChart;

procedure TRoomQueryForm.Button1Click(Sender: TObject);
begin
    roomChartForm := TRoomChartForm.create(self);
    roomChartForm.show;
end;

procedure TRoomQueryForm.QueryBtnClick(Sender: TObject);
var
    S :string;
    Item :string;
begin
    if QueryField.Text = '显示日期' then
        Item := 'Date';
    if QueryField.Text = '房台号' then
        Item := 'Room_NO';
    if QueryField.Text = '人数' then
        Item := 'People';
    if QueryField.Text = '酒菜' then
        Item := 'Dinner_price';
    if QueryField.Text = '房间费' then
        Item := 'Romm_price';
    if QueryField.Text = '服务费' then
        Item := 'Service_price';
    if QueryField.Text = '折扣' then
        Item := 'Discount';
    if QueryField.Text = '税金' then
        Item := 'Tax';
    if QueryField.Text = '应收' then
        Item := 'Budget';
    if QueryField.Text = '实收' then
        Item := 'Income';
    if QueryField.Text = '付款方式' then
        Item := 'Pay_type';
    if QueryField.Text = '成本' then
        Item := 'cost';
    if QueryField.Text = '毛利' then
        Item := 'Profit';
    roomQuery.Close;
    roomQuery.SQL.Clear;
    S := 'select * from room where '+
        Item +
        QuerySign.Text +
        QueryValue.Text ;
    roomQuery.SQL.Add(S);
    roomQuery.Open;
end;

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

end.