dinnerinput.pas

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

unit DinnerInput;

interface

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

type
  TDinnerInputForm = class(TForm)
    DinnerDBGrid: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label9: TLabel;
    Label12: TLabel;
    Numm: TEdit;
    Income: TEdit;
    Summ: TEdit;
    btnOk: TButton;
    btnClear: TButton;
    RadioGroup1: TRadioGroup;
    DataSource1: TDataSource;
    DinnerTable: TTable;
    DinnerQuery: TQuery;
    IncomeRadio: TRadioButton;
    NummRadio: TRadioButton;
    SummRadio: TRadioButton;
    procedure btnClearClick(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
    procedure IncomeRadioClick(Sender: TObject);
    procedure NummRadioClick(Sender: TObject);
    procedure SummRadioClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function IsEmpty:boolean;
  end;

var
  DinnerInputForm: TDinnerInputForm;

implementation

{$R *.dfm}

function TDinnerInputForm.IsEmpty:boolean;
begin
    if (Numm.text = '') or (Summ.Text = '') or (Income.Text = '') then result := true
    else result := false;
end;

procedure TDinnerInputForm.btnClearClick(Sender: TObject);
begin
    Numm.Text := '';
    Summ.Text := '';
    Income.Text := '';

end;

procedure TDinnerInputForm.btnOkClick(Sender: TObject);
var
    A,B,C:Integer;
begin
    //判断输入数据不能为空
    if IsEmpty then begin
        showmessage('数据不能为空');
        Numm.SetFocus;
    end
    else begin
        //设置数据源为table
        DataSource1.DataSet := DinnerTable;
        //读入酒菜点单
        A := StrToInt(Numm.Text);
        //读入总金额
        B := StrToInt(Summ.Text);
        //读入实收金额
        C := StrToInt(Income.Text);
        //对输入金额进行判断
        if B<C then begin
            messageDlg('请确定实收金额应该比应收金额小！',mtWarning,[mbOk],0);
            Exit;
        end;
        //增加新记录
        DinnerTable.Append;
        DinnerTable.FieldValues['Numm'] := A;
        DinnerTable.FieldValues['Summ'] := B;
        DinnerTable.FieldValues['Income'] := C;
        //提交操作
        DinnerTable.Post;
    end;
end;

procedure TDinnerInputForm.IncomeRadioClick(Sender: TObject);
begin
    //设置数据源为query
    DataSource1.DataSet := DinnerQuery;
    DinnerQuery.Close;
    DinnerQuery.SQL.Clear;
    DinnerQuery.SQL.Add('select * from dinner order by Income');
    try
       DinnerQuery.Open;
    except
       DinnerQuery.ExecSQL;
    end;
end;

procedure TDinnerInputForm.NummRadioClick(Sender: TObject);
begin
    //设置数据源为query
    DataSource1.DataSet := DinnerQuery;
    DinnerQuery.Close;
    DinnerQuery.SQL.Clear;
    DinnerQuery.SQL.Add('select * from dinner order by Numm');
    try
       DinnerQuery.Open;
    except
       DinnerQuery.ExecSQL;
    end;
end;

procedure TDinnerInputForm.SummRadioClick(Sender: TObject);
begin
    //设置数据源为query
    DataSource1.DataSet := DinnerQuery;
    DinnerQuery.Close;
    DinnerQuery.SQL.Clear;
    DinnerQuery.SQL.Add('select * from dinner order by Summ');
    try
       DinnerQuery.Open;
    except
       DinnerQuery.ExecSQL;
    end;
end;

end.