【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了MC_KRMD_JZ.pas提供大家参考,希望对大家有所帮助!
unit MC_KRMD_JZ;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, StdCtrls, Db, DBTables, ExtCtrls, DBCtrls, Buttons,
QuickRpt, Qrctrls;
type
TKRMD_JZ = class(TForm)
GroupBox1: TGroupBox;
Query1: TQuery;
DataSource1: TDataSource;
DBGrid2: TDBGrid;
Panel1: TPanel;
GroupBox2: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Query2: TQuery;
Bevel1: TBevel;
Label13: TLabel;
Label14: TLabel;
GroupBox3: TGroupBox;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
DBText5: TDBText;
DBText6: TDBText;
DBText7: TDBText;
DBText8: TDBText;
Bevel2: TBevel;
Panel2: TPanel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label26: TLabel;
Label32: TLabel;
BitBtn1: TBitBtn;
Bevel3: TBevel;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
GroupBox4: TGroupBox;
BitBtn4: TBitBtn;
GroupBox5: TGroupBox;
ListBox1: TListBox;
BitBtn5: TBitBtn;
Query3: TQuery;
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
QRLabel15: TQRLabel;
QRShape2: TQRShape;
QRLabel1: TQRLabel;
QRShape1: TQRShape;
QRDBText1: TQRDBText;
QRLabel2: TQRLabel;
QRLabel5: TQRLabel;
QRDBText4: TQRDBText;
DetailBand1: TQRBand;
QRDBText8: TQRDBText;
QRDBText10: TQRDBText;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
QRDBText14: TQRDBText;
SummaryBand1: TQRBand;
QRShape3: TQRShape;
QRDBText5: TQRDBText;
QRLabel7: TQRLabel;
QRExpr1: TQRExpr;
QRLabel17: TQRLabel;
QRLabel9: TQRLabel;
QRLabel16: TQRLabel;
QRLabel18: TQRLabel;
QRLabel3: TQRLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure QuickRep1Preview(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure ListBox1KeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
KRMD_JZ: TKRMD_JZ;
implementation
uses MC_DYYLBrose, MC_TLCYGLXT, MC_KRMD;
{$R *.DFM}
procedure TKRMD_JZ.FormShow(Sender: TObject); //启动时将焦点跳转到不打折结账按钮
begin
BitBtn1.SetFocus;
end;
procedure TKRMD_JZ.QuickRep1Preview(Sender: TObject);
begin
DYYLBrose.QrPreview1.QRPrinter:=QuickRep1.QRPrinter;
end;
procedure TKRMD_JZ.BitBtn4Click(Sender: TObject); //打印点菜信息
begin
QRLabel18.Caption:=Label12.Caption;
QRLabel16.Caption:=Label14.Caption;
DYYLBrose.Show;
QuickRep1.Preview;
end;
procedure TKRMD_JZ.BitBtn1Click(Sender: TObject); //不打折结账
var zJJE:Real;
begin
if MessageDlg('确认不打折结帐吗?',mtCustom,[mbYes,mbNo],0)=mrYes then
begin
QRLabel18.Caption:=Label12.Caption;
QRLabel16.Caption:=Label14.Caption;
DYYLBrose.Show; //调入餐饮打印欲览器
QuickRep1.Preview;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('update 点菜临时表 Set 是否结单=:A,结单日期=:B Where 房间台号=:C');
Query2.Params[0].AsString:='是'; //确认结账
Query2.Params[1].AsDateTime:=StrToDateTime(DateTimeToStr(now));
Query2.Params[2].AsInteger:=TLCYGLXT.FJTHXXB.FieldByName('编号').AsInteger;
Query2.ExecSQL;
ZJJE:=StrToFloat(Label6.Caption)+TLCYGLXT.FJTHXXB.FieldByName('服务费').AsFloat; //总计消费金额
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('insert 日点菜信息表(房间台号,类别,编号,名称,类型,单位,数量,价格,合计,服务员编号,服务员,状态,点单日期,结单日期,结帐编号,是否结单)');
Query2.SQL.Add('Select 房间台号,类别,编号,名称,类型,单位,数量,价格,合计,服务员编号,服务员,状态,点单日期,结单日期,结帐编号,是否结单');
Query2.SQl.Add('From 点菜临时表');
Query2.SQL.Add('Where 房间台号=:A');
Query2.Params[0].AsInteger:=TLCYGLXT.FJTHXXB.FieldByName('编号').AsInteger;
Query2.ExecSQL;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('select 点菜临时表.编号,点菜