【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供DishBooking_Unit.pas参考,解决您在DishBooking_Unit.pas学习中工作中的难题,参考学习。
unit DishBooking_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ComCtrls, StdCtrls, ExtCtrls, Buttons, Mask,
DBCtrls, Spin;
type
TfrmDishBooking = class(TForm)
Panel2: TPanel;
GroupBox1: TGroupBox;
grdDishDetails: TDBGrid;
Panel1: TPanel;
TabControl1: TTabControl;
grdDishInfo: TDBGrid;
Splitter1: TSplitter;
btnAdd: TBitBtn;
btnDelete: TBitBtn;
Label1: TLabel;
edtNumber: TSpinEdit;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
DBText5: TDBText;
Label7: TLabel;
DBText6: TDBText;
Splitter2: TSplitter;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure TabControl1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnAddClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmDishBooking: TfrmDishBooking;
implementation
uses DM_Unit, DiningTableGrid_Unit;
{$R *.dfm}
procedure TfrmDishBooking.FormShow(Sender: TObject);
begin
if DM.qryDishInfo.Active = False then
DM.qryDishInfo.Open;
with DM.qryOrderDishesHeader do
begin
Close;
SQL.Clear;
SQL.Add('SELECT TOP 1 * FROM OrderDishesHeader');
SQL.Add('WHERE IsBalance=0');
SQL.Add('AND DiningTableID=' + QuotedStr(frmDiningTableFlow.edtTableID.Text));
SQL.Add('ORDER BY BeginDateTime DESC');
Open; First;
DM.qryOrderDishesBody.Open;
end;
end;
procedure TfrmDishBooking.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
DM.qryOrderDishesHeader.Close;
DM.qryOrderDishesBody.Close;
Action :=caFree;
end;
procedure TfrmDishBooking.FormDestroy(Sender: TObject);
begin
frmDishBooking := nil;
end;
procedure TfrmDishBooking.TabControl1Change(Sender: TObject);
begin
with DM.qryDishInfo do
begin
case TabControl1.TabIndex of
0: begin
Filtered := False;
end;
1: begin
Filtered := False;
Filter := 'DishType=' + QuotedStr('凉菜');
Filtered := True;
end;
2: begin
Filtered := False;
Filter := 'DishType=' + QuotedStr('热菜');
Filtered := True;
end;
3: begin
Filtered := False;
Filter := 'DishType=' + QuotedStr('烟酒');
Filtered := True;
end;
4: begin
Filtered := False;
Filter := 'DishType=' + QuotedStr('甜点');
Filtered := True;
end;
5: begin
Filtered := False;
Filter := 'DishType=' + QuotedStr('其他');
Filtered := True;
end;
end;
end;
end;
procedure TfrmDishBooking.btnAddClick(Sender: TObject);
begin
with DM, DM.qryOrderDishesBody do
begin
if Active = False then Active := True;
Append;
FieldByName('DishQuantity').AsString := edtNumber.Text;
FieldByName('DishID').AsString := qryDishInfo.FieldByName('DishID').AsString;
FieldByName('DishType').AsString := qryDishInfo.FieldByName('DishType').AsString;
FieldByName('DishDescn').AsString := qryDishInfo.FieldByName('DishDescn').AsString;
FieldByName('DishPrice').AsString := qryDishInfo.FieldByName('DishPrice').AsString;
FieldByName('DishUnit').AsString := qryDishInfo.FieldByName('DishUnit').AsString;
FieldByName('Status').AsString := '点菜';
Post;
end;
end;
procedure TfrmDishBooking.btnDeleteClick(Sender: TObject);
begin
if not DM.qryOrderDishesBody.IsEmpty then
if MessageDlg('确定删除此项菜肴吗?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
DM.qryOrderDishesBody.Delete;
end;
end.
上一篇:
frmHDDHistory.frm
下一篇:
首鼠两端