ylglunit.pas

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

unit YLGLUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, Grids, DBGrids, SUIDBCtrls, SUIButton, StdCtrls,
  ExtCtrls, SUIImagePanel, SUIMemo, SUIGroupBox, SUIEdit;

type
  TYLGLForm = class(TForm)
    suiPanel1: TsuiPanel;
    lbl1: TLabel;
    btn1: TsuiButton;
    sdbgrd1: TsuiDBGrid;
    ds1: TClientDataSet;
    ds2: TDataSource;
    ds3: TClientDataSet;
    wdstrngfldds1id: TWideStringField;
    wdstrngfldds1guest: TWideStringField;
    wdstrngfldds1peopelnum: TWideStringField;
    ds1memozs: TMemoField;
    wdstrngfldds1room: TWideStringField;
    ds1price: TFloatField;
    wdstrngfldds1ifclock: TWideStringField;
    ds1clock: TFloatField;
    ds1scale: TFloatField;
    ds1factprice: TFloatField;
    wdstrngfldds1days: TWideStringField;
    ds1deposit: TFloatField;
    wdstrngfldds1paymode: TWideStringField;
    wdstrngfldds1entertime: TWideStringField;
    wdstrngfldds1leavetime: TWideStringField;
    ds1name: TStringField;
    suiGroupBox1: TsuiGroupBox;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    suiMemo1: TsuiMemo;
    suiGroupBox2: TsuiGroupBox;
    suiMemo2: TsuiMemo;
    edt1: TsuiEdit;
    procedure suiButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure edt1KeyPress(Sender: TObject; var Key: Char);
    procedure btn1Click(Sender: TObject);
    procedure suiMemo1KeyPress(Sender: TObject; var Key: Char);
    procedure ds1AfterScroll(DataSet: TDataSet);
    procedure suiButton3Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YLGLForm: TYLGLForm;

implementation

uses LoginUnit, MainUnit, AbortUnit;

{$R *.dfm}

procedure TYLGLForm.suiButton1Click(Sender: TObject);
begin
  close;
end;

procedure TYLGLForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  mainform.RefrushRoomState(0);
  mainform.Enabled:=true;
end;

procedure TYLGLForm.FormActivate(Sender: TObject);
begin
  SELF.edt1.SetFocus;
end;

procedure TYLGLForm.FormCreate(Sender: TObject);
begin
  self.edt1.Clear;
  self.suiMemo1.Clear;
  self.suiMemo2.Clear;
  SELF.ds1.Close;
  SELF.ds1.CommandText:='select * from house '+
                        'where not (id in (select distinct room_id from room where room_id<>''''))';
  self.ds1.Open;
end;

procedure TYLGLForm.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    self.btn1.SetFocus;
end;

procedure TYLGLForm.btn1Click(Sender: TObject);
begin
  SELF.ds1.Close;
  SELF.ds1.CommandText:='select * from house '+
                        'where (not (id in (select distinct room_id from room where room_id<>''''))) and '+
                              '(room='''+self.edt1.Text+''') '+
                        'order by leavetime';
  self.ds1.Open;
  self.ds1.Last;
  suimemo1.SetFocus;
end;

procedure TYLGLForm.suiMemo1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      suimemo2.Text:='尚未被失主取回！';
      suimemo2.SetFocus;
    end;
end;

procedure TYLGLForm.ds1AfterScroll(DataSet: TDataSet);
begin
  loginform.ExecuteSQL('select good,control from ylgl '+
                       'where id='''+self.ds1.fieldbyname('id').AsString+''' and '+
                             'room='''+self.ds1.fieldbyname('room').AsString+'''');
  suimemo1.Text:=loginform.dsQuery.Fields[0].AsString;
  suimemo2.Text:=loginform.dsQuery.Fields[1].AsString;
  loginform.dsQuery.Close;
end;

procedure TYLGLForm.suiButton3Click(Sender: TObject);
var
  time:string;
begin
  time:=formatdatetime('yyyy-mm-dd hh:nn:ss',now);
  loginform.ExecuteSQL('insert into ylgl '+
                       'values('''+self.ds1.fieldbyname('id').AsString+''','+
                               ''''+self.ds1.fieldbyname('room').AsString+''','+
                               ''''+suimemo1.Text+''','''+suimemo2.Text+''','+
                               ''''+time+''','''+time+''')');
  loginform.ExecuteSQL('insert into log '+
                       'values('''+time+''','''+loginform.userid+''','''+LoginForm.username+
                               ''',''房间【'+self.ds1.fieldbyname('room').AsString+'】遗留物品登记成功'')');
  MessageDlg('房间【'+self.ds1.fieldbyname('room').AsString+'】遗留物品登记成功！',mtConfirmation, [mbYes], 0);
  close;
end;

procedure TYLGLForm.suiButton2Click(Sender: TObject);
var
  time:string;
begin
  if self.suiMemo2.Text<>'遗留物品领回' then
    begin
      time:=formatdatetime('yyyy-mm-dd hh:nn:ss',now);
      loginform.ExecuteSQL('update ylgl set control=''遗留物品领回'',time2='''+time+''' '+
                           'where id='''+self.ds1.fieldbyname('id').AsString+''' and '+
                                 'room='''+self.ds1.fieldbyname('room').AsString+'''');
      loginform.ExecuteSQL('insert into log '+
                           'values('''+time+''','''+loginform.userid+''','''+LoginForm.username+
                                   ''',''房间【'+self.ds1.fieldbyname('room').AsString+'】遗留物品领回成功'')');
      MessageDlg('房间【'+self.ds1.fieldbyname('room').AsString+'】遗留物品领回成功！',mtConfirmation, [mbYes], 0);
      close;
    end
  else
    MessageDlg('房间【'+self.ds1.fieldbyname('room').AsString+'】'+
               '离开时间【'+self.ds1.fieldbyname('leavetime').AsString+'】'+
               '遗留物品已领回,不可重复操作！',mtConfirmation, [mbYes], 0);
end;

end.