frmbkyd.pas

一个小型餐饮管理系统,可支持小票打印.还存在一些小问题,希望朋友们帮助完成. QQ:15372627 E-mail:hdw802.163.com

unit FrmBKYD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, RzEdit, ComCtrls, StdCtrls, Mask, RzTabs,
  RzButton, ExtCtrls,DATEUTILS,
  Unit_CT,
  Unit_YD,
  Unit_Share, DB, DBClient, ADODB;

type
  Tfrm_BKYD = class(TForm)
    Panel2: TPanel;
    Panel1: TPanel;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    yd_memo: TMemo;
    yd_AutoStop: TCheckBox;
    Label10: TLabel;
    Label11: TLabel;
    yd_money: TRzNumericEdit;
    yd_name: TEdit;
    yd_tel: TEdit;
    yd_phone: TEdit;
    yd_Time: TComboBox;
    yd_BeginDate: TDateTimePicker;
    yd_EndDate: TDateTimePicker;
    yd_gg: TComboBox;
    yd_CTCode: TComboBox;
    Panel3: TPanel;
    Panel4: TPanel;
    Label12: TLabel;
    Label13: TLabel;
    Label15: TLabel;
    Label17: TLabel;
    lab_name: TLabel;
    lab_tel: TLabel;
    lab_ydtime: TLabel;
    lab_phone: TLabel;
    YdGrid: TDBGrid;
    yd_endTime: TDateTimePicker;
    yd_begintime: TDateTimePicker;
    DataSource1: TDataSource;
    yd_cds: TClientDataSet;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    ADOTable1: TADOTable;
    Label14: TLabel;
    lab_qxTime: TLabel;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure yd_ggChange(Sender: TObject);
    procedure yd_begintimeChange(Sender: TObject);
    procedure YdGridCellClick(Column: TColumn);
  private
    { Private declarations }
    MyCT:TCT_info;
    MYYD:TYD_info;
    MyShare:TShare;
    YdRec:TYdRec;
    Procedure SetYdRec;
  public
    { Public declarations }
  end;

var
  frm_BKYD: Tfrm_BKYD;

implementation

uses FrmMain;

{$R *.dfm}

procedure Tfrm_BKYD.RzBitBtn1Click(Sender: TObject);
Var
 CTID:Integer;
begin
 CTID:=MyCT.CT_ID(Yd_GG.Text,Yd_CTCode.Text);
 if Trim(yd_name.Text)='' Then
  Begin
   Showmessage('请输入宾客姓名~~');
   yd_name.SelectAll;
   yd_name.SetFocus;
   Exit;
  End;
 if Trim(yd_tel.Text)='' Then
  Begin
   Showmessage('请输入宾客联系电话~~');
   yd_Tel.SelectAll;
   yd_Tel.SetFocus;
   Exit;
  End;

 if Trim(yd_phone.Text)='' Then
  Begin
   Showmessage('请输入宾客手机~~');
   yd_phone.SelectAll;
   yd_phone.SetFocus;
   Exit;
  End;

  if Trim(yd_CTCode.Text)='' Then
  Begin
   Showmessage('请选择要预订的餐台或包间~~');
   yd_CTCode.SelectAll;
   yd_CTCode.SetFocus;
   Exit;
  End;

 If MyCT.Get_CTStatus(CTID)=0 Then
 Begin
  MyCT.UpDateCTStatus(CTID,2);
  SetYdRec;
  MyYD.Add_Yd_Rec(YdRec);
  Myyd.UpdateYdCode;
  Frm_main.CTDisp;
 End;
 SetYdRec;
 yd_cds.Data:= MyYd.AllYDinfo;
 //Close;
end;

procedure Tfrm_BKYD.FormCreate(Sender: TObject);
begin
 MyCT:=TCT_Info.create;
 MyYD:=TYD_Info.create;
 MyShare:=TShare.create;
end;

procedure Tfrm_BKYD.RzBitBtn2Click(Sender: TObject);
begin
 Close;
end;

procedure Tfrm_BKYD.SetYdRec;
begin
 YdRec.Yd_Code:=MyYd.YdCurr_Code;       //预订编号
 YdRec.Dc_Name:=Trim(Yd_Name.Text);     //订餐客人姓名
 YdRec.Tel:=Trim(Yd_Tel.text);          //订餐客人电话号码
 YdRec.Phone:=Trim(yd_Phone.Text);      //订餐客人手机号码
 YdRec.Time_ID:=yd_time.ItemIndex+1;                      //预订时间段
 YdRec.YD_Time:=StrToDateTime(DateToStr(yd_BeginTime.Date)+' '+TimeToStr(yd_BeginTime.Time));
 YdRec.Stop_Time:=StrToDateTime(DateToStr(yd_EndTime.Date)+' '+TimeToStr(yd_EndTime.Time));
 YdRec.Yd_Room_ID:=MyCT.Get_RoomID(Trim(Yd_GG.Text));  //预定房间规格ID号
 YdRec.Ct_Name_ID:=MyCT.CT_ID(Yd_GG.Text,Yd_CTCode.Text);  //预定餐台ID号
 YdRec.Memo:=yd_memo.Text;             //客人留言
 IF Yd_AutoStop.Checked=True Then YdRec.AutoStop:=1 Else YdRec.AutoStop:=0;
 YdRec.Admin_ID:=frm_main.AdminID;
 YdRec.OperTime:=Now;
end;

procedure Tfrm_BKYD.FormActivate(Sender: TObject);
Var
 TmpYdSet:TYDSet;
 tmpHH,TmpEnd:String;
begin
 Yd_gg.Items.Clear;
 yd_gg.Items.AddStrings(MyCT.Get_RoomList);
 yd_gg.ItemIndex:=0;
 yd_CTcode.Items.Clear;
 yd_CTcode.Items.AddStrings(MyCT.Get_CTNameList(Yd_gg.Text));
 Yd_Ctcode.ItemIndex:=0;
 yd_beginDate.DateTime:=now;
 yd_beginTime.DateTime:=now;
 yd_endDate.DateTime:=now;
 TmpYdSet:=Myshare.Get_YdSet;
 yd_Endtime.DateTime:=IncMinute(Now,TmpYdset.TimeJG);
 yd_name.Text:='';
 yd_tel.Text:='';
 yd_phone.Text:='';
 yd_time.Items.AddStrings(MyYd.TimeField);
 Yd_Time.ItemIndex:=0;
 yd_cds.Data:= MyYd.AllYDinfo;

end;

procedure Tfrm_BKYD.yd_ggChange(Sender: TObject);
begin
 yd_CTcode.Items.Clear;
 yd_CTcode.Items.AddStrings(MyCT.Get_CTNameList(Yd_gg.Text));
 Yd_Ctcode.ItemIndex:=0;
end;

procedure Tfrm_BKYD.yd_begintimeChange(Sender: TObject);
Var
 tmpYdSet:TYDset;
begin
 TmpYdSet:=Myshare.Get_YdSet;
 yd_Endtime.Time:=IncMinute(yd_beginTime.DateTime,TmpYdset.TimeJG);
end;

procedure Tfrm_BKYD.YdGridCellClick(Column: TColumn);
begin
 lab_name.Caption:=yd_cds.FieldByName('宾客姓名').AsString;
 lab_tel.Caption:=yd_cds.fieldByName('联系电话').AsString;
 Lab_phone.Caption:=yd_cds.FieldByName('手机号码').AsString;
 Lab_ydTime.Caption:=yd_cds.FieldByName('预抵时间').AsString;
 lab_qxtime.Caption:=yd_cds.FieldByName('取消时间').AsString;
end;

end.