ydeditunit.pas

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

unit YDEditUnit;

interface

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

type
  TYDEditForm = class(TForm)
    suiPanel1: TsuiPanel;
    Label1: TLabel;
    Label7: TLabel;
    Label3: TLabel;
    Label17: TLabel;
    suiGroupBox1: TsuiGroupBox;
    dbgrd1: TDBGrid;
    suiEdit1: TsuiEdit;
    suiEdit2: TsuiEdit;
    dtp1: TDateTimePicker;
    suiMaskEdit1: TsuiMaskEdit;
    DateTimePicker2: TDateTimePicker;
    suiMaskEdit3: TsuiMaskEdit;
    suiGroupBox2: TsuiGroupBox;
    Label16: TLabel;
    suiListBox2: TsuiListBox;
    btn3: TsuiButton;
    btn4: TsuiButton;
    suiListBox1: TsuiListBox;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    ClientDataSet2: TClientDataSet;
    DataSource1: TDataSource;
    procedure suiButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(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 suiListBox2Click(Sender: TObject);
    procedure dbgrd1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure dtp1Change(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    id:string;
    memo:string;
  end;

var
  YDEditForm: TYDEditForm;

implementation

uses LoginUnit, MainUnit, YDGLUnit, AbortUnit;

{$R *.dfm}

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

procedure TYDEditForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  self.ClientDataSet2.Close;
  YDGLForm.Enabled:=true;
end;

procedure TYDEditForm.FormCreate(Sender: TObject);
var
  time1,time2:string;
  temp:string;
  state:string;
begin
  id:=YDGLForm.ClientDataSet1.fieldbyname('id').AsString;
  state:=YDGLForm.ClientDataSet1.fieldbyname('state').AsString;
  suiPanel1.Caption:='预订单号:'+id+'【'+state+'】';
  loginform.ExecuteSQL('select * from reserve where id='''+id+'''');
  self.suiEdit1.Text:=loginform.dsQuery.fieldbyname('name').AsString;
  self.suiEdit2.Text:=loginform.dsQuery.fieldbyname('phone').AsString;
  time1:=loginform.dsQuery.fieldbyname('time1').AsString;
  time2:=loginform.dsQuery.fieldbyname('time2').AsString;
  self.dtp1.DateTime:=strtodatetime(copy(time1,1,pos(' ',time1)-1));
  delete(time1,1,pos(' ',time1));
  self.suiMaskEdit1.Text:=time1;
  self.DateTimePicker2.DateTime:=strtodatetime(copy(time2,1,pos(' ',time2)-1));
  delete(time2,1,pos(' ',time2));
  self.suiMaskEdit3.Text:=time2;
  loginform.dsQuery.First;
  self.suiListBox1.Items.Clear;
  self.suiListBox1.Items.BeginUpdate;
  temp:='(';
  while not LoginForm.dsQuery.Eof do
    begin
      Self.suiListBox1.Items.Add(loginform.dsQuery.fieldbyname('roomtype').AsString+':'+
                                 loginform.dsQuery.fieldbyname('roomnum').AsString);
      temp:=temp+'(room.room_num<>'''+loginform.dsQuery.fieldbyname('roomnum').AsString+''') or ';
      memo:=memo+loginform.dsQuery.fieldbyname('roomnum').AsString+'@';
      LoginForm.dsQuery.Next;
    end;
  Self.suiListBox1.Items.EndUpdate;
  LoginForm.dsQuery.Close;
  delete(temp,Length(temp)-3,4);
  temp:=temp+')';
  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 '+temp+' '+
                       '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;
  self.suiGroupBox1.Caption:='已预订宾客信息';
  self.ClientDataSet2.Close;
  self.ClientDataSet2.Open;
end;

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

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

procedure TYDEditForm.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 TYDEditForm.dtp1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    self.suiMaskEdit1.SetFocus;
end;

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

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

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

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

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

procedure TYDEditForm.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 TYDEditForm.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;
  Self.suiListBox1.Sorted:=true;
end;

procedure TYDEditForm.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;

procedure TYDEditForm.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+''' and state<>''已入住''';
  self.ClientDataSet2.Filtered:=true;
  self.suiGroupBox1.Caption:='已预订'+roomnum+'的宾客';
end;

procedure TYDEditForm.suiButton1Click(Sender: TObject);
var
  temp:string;
  time1,time2,time3:string;
  str:string;
  index:Integer;
  roomnum,roomtype:string;
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);
  str:=memo;
  while Pos('@',str)>0 do
    begin
      roomnum:=Copy(str,1,Pos('@',str)-1);
      if Pos(roomnum,temp)=0 then
        LoginForm.ExecuteSQL('delete from reserve where id='''+id+''' and roomnum='''+roomnum+'''');
      Delete(str,1,Pos('@',str));
    end;
  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));
      if Pos(roomnum,memo)=0 then
        begin
          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+'''');
        end;
      Delete(temp,1,Pos('@',temp));
    end;
  loginform.ExecuteSQL('update reserve set name='''+suiedit1.Text+''',phone='''+suiedit2.Text+''','+
                                      'state=''预订中'',time1='''+time1+''',time2='''+time2+''','+
                                      'admin='''+LoginForm.username+''' '+
                       'where id='''+id+'''');
  loginform.ExecuteSQL('insert into log '+
                       'values('''+time3+''','''+loginform.userid+''','''+LoginForm.username+
                               ''',''宾客【'+suiedit1.Text+'】预订单号【'+id+'】预订信息编辑成功'')');
  MessageDlg('当前宾客【'+suiedit1.Text+'】预订单号【'+id+'】预订信息编辑成功！',mtConfirmation, [mbYes], 0);
  close;
end;

end.