yddjunit.pas

东华休闲山庄洗浴、餐饮、客房管理系统

unit YDDJUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Mask, SUIEdit, ComCtrls, StdCtrls, SUIComboBox, Grids, DBGrids,
  SUIImagePanel, SUIGroupBox, DB, DBClient, SUIListBox, SUIButton, ExtCtrls;

type
  TYDDJForm = class(TForm)
    suiPanel1: TsuiPanel;
    Label1: TLabel;
    Label7: TLabel;
    Label3: TLabel;
    Label17: TLabel;
    ClientDataSet2: TClientDataSet;
    DataSource1: TDataSource;
    suiGroupBox1: TsuiGroupBox;
    dbgrd1: TDBGrid;
    suiEdit1: TsuiEdit;
    suiEdit2: TsuiEdit;
    dtp1: TDateTimePicker;
    suiMaskEdit1: TsuiMaskEdit;
    DateTimePicker2: TDateTimePicker;
    suiMaskEdit3: TsuiMaskEdit;
    suiGroupBox2: TsuiGroupBox;
    suiListBox2: TsuiListBox;
    btn3: TsuiButton;
    btn4: TsuiButton;
    suiListBox1: TsuiListBox;
    Label16: TLabel;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    procedure suiButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure suiEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure suiEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure dtp1KeyPress(Sender: TObject; var Key: Char);
    procedure suiMaskEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure suiMaskEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker2KeyPress(Sender: TObject; var Key: Char);
    procedure suiMaskEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure dtp1Change(Sender: TObject);
    procedure dbgrd1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure btn3Click(Sender: TObject);
    procedure suiListBox2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    id:string;
    ifguest:boolean;
    ifguestselect:boolean;
  end;

var
  YDDJForm: TYDDJForm;

implementation

uses MainUnit, YDGLUnit, LoginUnit, GuestSelectUnit;

{$R *.dfm}

procedure TYDDJForm.suiButton2Click(Sender: TObject);
begin
  close;
end;

procedure TYDDJForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  self.ClientDataSet2.Close;
  if MainForm.ydflag then
    begin
      mainform.RefrushRoomState(0);
      MainForm.Enabled:=true;
    end
  else
    begin
      YDGLForm.ClientDataSet1.Close;
      YDGLForm.ClientDataSet1.CommandText:='select * from Reserve order by id,roomnum';
      YDGLForm.ClientDataSet1.Open;
      YDGLForm.Enabled:=true;
    end;
end;

procedure TYDDJForm.FormCreate(Sender: TObject);
begin
  self.suiEdit1.Clear;
  self.suiEdit2.Clear;
  self.dtp1.DateTime:=now;
  self.suiMaskEdit1.Text:='12:00';
  self.DateTimePicker2.DateTime:=self.dtp1.DateTime+3;
  self.suiMaskEdit3.Text:='23:59';
  self.suiListBox2.Items.Clear;
  id:='YD'+FormatDateTime('yyyymmddhhnnss',now);
  suiPanel1.Caption:='预订单号:'+id;
  self.suiGroupBox1.Caption:='已预订餐台宾客信息';
  Self.suiListBox1.Clear;
  if mainform.roomnum<>'' then
    begin
      self.ClientDataSet2.Close;
      self.ClientDataSet2.Open;
      self.ClientDataSet2.Filter:='roomnum='''+mainform.roomnum+'''';
      self.ClientDataSet2.Filtered:=true;
      self.suiGroupBox1.Caption:='已预订餐台【'+mainform.typename+':'+mainform.roomnum+'】的宾客';
      self.suiListBox1.Items.Add(MainForm.typename+':'+mainform.roomnum);
    end;
  suiListBox2.Items.Clear;
  suiListBox2.Items.BeginUpdate;
  loginform.ExecuteSQL('select roomtype.type_mc,room.room_num from room,roomtype '+
                       'where (room.room_type=roomtype.type_xh) and '+
                             '((room.room_state=''可供'') or (room.room_state=''预订'')) and '+
                             '(room.room_num<>'''+mainform.roomnum+''') '+
                       'order by room.room_num');
  LoginForm.dsQuery.First;
  while not LoginForm.dsQuery.Eof do
    begin
      suiListBox2.Items.Add(LoginForm.dsQuery.Fields[0].AsString+':'+LoginForm.dsQuery.Fields[1].AsString);
      LoginForm.dsQuery.Next;
    end;
  suiListBox2.Items.EndUpdate;
end;

procedure TYDDJForm.FormActivate(Sender: TObject);
begin
  self.suiEdit1.SetFocus;
end;

procedure TYDDJForm.suiEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    self.suiEdit2.SetFocus;
end;

procedure TYDDJForm.suiEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in [#48..#57,#45,#13,#8]) then
    key:=#0
  else
    if key=#13 then
      self.dtp1.SetFocus;
end;

procedure TYDDJForm.dtp1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    self.suiMaskEdit1.SetFocus;
end;

procedure TYDDJForm.suiMaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    self.DateTimePicker2.SetFocus;
end;

procedure TYDDJForm.suiMaskEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    self.DateTimePicker2.SetFocus;
end;

procedure TYDDJForm.DateTimePicker2KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
    self.suiMaskEdit3.SetFocus;
end;

procedure TYDDJForm.suiMaskEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    self.suiButton1.SetFocus;
end;

procedure TYDDJForm.dtp1Change(Sender: TObject);
begin
  self.DateTimePicker2.DateTime:=self.dtp1.DateTime+1;
end;

procedure TYDDJForm.dbgrd1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if dbgrd1.DataSource.DataSet.RecNo mod 2 = 0 theN
    dbgrd1.Canvas.Brush.Color:=clSilver
  else
    dbgrd1.Canvas.Brush.Color:=clYellow;
  dbgrd1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TYDDJForm.btn3Click(Sender: TObject);
var
  index:Integer;
begin
  for index:=suiListBox2.Items.Count-1 downto 0 do
    if suiListBox2.Selected[index] then
      begin
        suiListBox1.Items.Add(suiListBox2.Items.Strings[index]);
        suiListBox2.Items.Delete(index);
      end;
end;

procedure TYDDJForm.suiListBox2Click(Sender: TObject);
var
  roomnum:string;
begin
  roomnum:=suiListBox2.Items.Strings[self.suiListBox2.itemindex];
  Delete(roomnum,1,Pos(':',roomnum));
  self.ClientDataSet2.Close;
  self.ClientDataSet2.Open;
  self.ClientDataSet2.Filter:='roomnum='''+roomnum+'''';
  self.ClientDataSet2.Filtered:=true;
  self.suiGroupBox1.Caption:='已预订餐台【'+suiListBox2.Items.Strings[self.suiListBox2.itemindex]+'】的宾客';
end;

procedure TYDDJForm.suiButton1Click(Sender: TObject);
var
  temp:string;
  roomtype,roomnum:string;
  time1,time2,time3:string;
  index:Integer;
begin
  for index:=0 to self.suiListBox1.Items.Count-1 do
    temp:=temp+self.suiListBox1.Items.Strings[index]+'@';
  if temp='' then
    begin
      MessageDlg('当前宾客【'+suiedit1.Text+'】预订单号【'+id+'】尚未选择房间信息！',mtConfirmation, [mbYes], 0);
      exit;
    end;
  time1:=formatdatetime('yyyy-mm-dd',self.dtp1.Date)+' '+self.suiMaskEdit1.Text;
  time2:=formatdatetime('yyyy-mm-dd',self.DateTimePicker2.Date)+' '+self.suiMaskEdit3.Text;
  time3:=formatdatetime('yyyy-mm-dd hh:nn:ss',now);
  while Pos('@',temp)>0 do
    begin
      roomnum:=Copy(temp,1,Pos('@',temp)-1);
      roomtype:=Copy(roomnum,1,Pos(':',roomnum)-1);
      Delete(roomnum,1,Pos(':',roomnum));
      LoginForm.ExecuteSQL('insert into reserve '+
                           'values('''+id+''','''+suiedit1.Text+''','''+suiedit2.Text+
                                   ''','''+roomtype+''','''+roomnum+''',''预订中'+
                                   ''','''+time1+''','''+time2+''','''+time3+''','''+LoginForm.username+''')');
      loginform.ExecuteSQL('update room set room_state=''预订'' where room_num='''+roomnum+'''');
      Delete(temp,1,Pos('@',temp));
    end;
  loginform.ExecuteSQL('insert into log '+
                       'values('''+time3+''','''+loginform.userid+''','''+LoginForm.username+
                               ''',''宾客【'+suiedit1.Text+'】预订成功,预订单号【'+id+'】'')');
  MessageDlg('当前宾客【'+suiedit1.Text+'】预订成功,预订单号【'+id+'】！',mtConfirmation, [mbYes], 0);
  close;
end;

procedure TYDDJForm.btn4Click(Sender: TObject);
var
  index:Integer;
begin
  for index:=suiListBox1.Items.Count-1 downto 0 do
    if suiListBox1.Selected[index] then
      begin
        suiListBox2.Items.Add(suiListBox1.Items.Strings[index]);
        suiListBox1.Items.Delete(index);
      end;
  Self.suiListBox2.Sorted:=true;
end;

end.