salequery.pas

来自「一个餐饮行业的销售管理类的源码」· PAS 代码 · 共 81 行

unit saleQuery;

interface

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

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

var
  SaleQueryForm: TSaleQueryForm;

implementation

{$R *.dfm}

uses SaleChar;

procedure TSaleQueryForm.QueryBtnClick(Sender: TObject);
var
    S :string;
    Item :string;
begin
    if QueryField.Text = '应收金额' then
        Item := 'budget';
    if QueryField.Text = '收税金额' then
        Item := 'Tax';
    if QueryField.Text = '实收金额' then
        Item := 'Income';
    if QueryField.Text = '提成金额' then
        Item := 'Deduct';
    if QueryField.Text = '酒菜成本' then
        Item := 'Cost';
    if QueryField.Text = '毛利' then
        Item := 'Profit';
    SaleQuery.Close;
    SaleQuery.SQL.Clear;
    S := 'select * from sales where '+
        Item +
        QuerySign.Text +
        QueryValue.Text ;
    SaleQuery.SQL.Add(S);
    SaleQuery.Open;
end;

procedure TSaleQueryForm.Button1Click(Sender: TObject);
begin
    SaleCharForm := TSaleCharForm.create(self);
    SaleCharForm.show;
end;

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

end.