📄 unt_bookroom.pas

📁 酒店资源管理的软件
💻 PAS
字号:
unit unt_BookRoom;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB;

type
  TBookroomForm = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure savetoszlstable;
    procedure savetodtsztable;
    procedure savetobookroomtable;
    procedure savetobookroomhistorytable;
    procedure savezjqstable;
    procedure savetozjqslstable;
    procedure makeUserBookNo;
    procedure printBook;
  end;

var
  BookroomForm: TBookroomForm;
  UserBookNo: String;
implementation
uses Main, unt_CheckUser, unt_RoomFind, unt_BookRep;
{$R *.dfm}

procedure TBookroomForm.printBook;
var
  sSql: String;
begin
  sSql := 'select * from bookroom where bookno=''' + UserBookNo + '''';
  mainForm.exeSql(mainForm.query1,sSql,'1');
  
end;

procedure TBookroomForm.savetoszlstable;
var
  sSql: String;
begin
  sSql := 'insert into Szhistorytable(bookno,roomno,name,certi_no,factfee,note1,oper_date,operator) values('''
        + UserBookNo + ''',''' + ComboBox1.Text + ''',''' + Edit1.Text + ''','''
        + Edit6.Text + ''',' + Edit17.Text + ',''' + Edit18.Text
        + ''',#' + FormatDateTime('yyyy-mm-dd',Now) + '#,''' + Main.username + ''')';
  mainForm.exeSql(mainForm.query1,sSql,'2');
end;

procedure TBookroomForm.savetodtsztable;
var
  sSql: String;
begin
  sSql := 'insert into dtsztable(bookno,roomno,name,certi_no,factfee,note1,oper_date,operator) values('''
        + UserBookNo + ''',''' + ComboBox1.Text + ''',''' + Edit1.Text + ''','''
        + Edit6.Text + ''',' + Edit17.Text + ',''' + Edit18.Text
        + ''',#' + FormatDateTime('yyyy-mm-dd',Now) + '#,''' + Main.username + ''')';
  mainForm.exeSql(mainForm.query1,sSql,'2');
end;

procedure TBookroomForm.savetozjqslstable;
var
  sSql: String;
begin
  sSql := 'insert into zjmxtable(bookno,roomno,name,certi_no,deposit,'
        + 'dayfee,precount,note1,registerday,accountday,operator) values('''
        + UserBookNo + ''',''' + ComboBox1.Text + ''',''' + Edit1.Text
        + ''',''' + Edit6.Text + ''',' + Edit17.Text + ',' + Edit15.Text
        + ',' + Edit13.Text + ',''' + Edit18.Text + ''',''' + Edit12.Text
        + ''',#' + FormatDateTime('yyyy-mm-dd',Now) + '#''' + Main.username + ''')';
  mainForm.exeSql(mainForm.query1,sSql,'2');
end;

procedure TBookroomForm.savezjqstable;
var
  sSql: String;
begin
  sSql := 'insert into zjqstable(bookno,roomno,name,certi_no,deposit,'
        + 'dayfee,precount,note1,registerday,accountday,operator) values('''
        + UserBookNo + ''',''' + ComboBox1.Text + ''',''' + Edit1.Text
        + ''',''' + Edit6.Text + ''',' + Edit17.Text + ',' + Edit15.Text
        + ',' + Edit13.Text + ',''' + Edit18.Text + ''',''' + Edit12.Text
        + ''',#' + FormatDateTime('yyyy-mm-dd',Now) + '#''' + Main.username + ''')';
  mainForm.exeSql(mainForm.query1,sSql,'2');
end;

procedure TBookroomForm.makeUserBookNo;
var
  sSql: String;
begin
  sSql := 'select * from Bookroomhistory';
  mainForm.exeSql(mainForm.query1,sSql,'1');
  if mainForm.query1.RecordCount = 0 then
    UserBookNo := '00001'
  else
  begin
    mainForm.query1.Last;
    UserBookNo := IntToStr(mainForm.query1.FieldByName('Bookno').AsInteger + 1);
  end;
end;

procedure TBookroomForm.savetobookroomhistorytable;
var
  sSql,i: String;
begin
  i := '0';
  if RadioButton1.Checked then
    i := '1';
  sSql := 'insert into Bookroomhistory(bookno,name,certi,certi_no,sex,birthplace,birthday,unit,'
        + 'address,contact,hour_id,source,destination,registerday,precount,roomno,otherfee,'
        + 'roomprice,discount,deposit,operator,oper_date,NOTE1) values(''' + UserBookNo
        + ''',''' + Edit1.Text + ''',''' + Edit5.Text + ''',''' + Edit6.Text + ''','''
        + Edit2.Text + ''',''' + Edit3.Text + ''',''' + Edit4.Text + ''',''' + Edit7.Text
        + ''',''' + Edit8.Text + ''',''' + Edit9.Text + ''',' + i + ',''' + Edit10.Text
        + ''',''' + Edit11.Text + ''',''' + Edit12.Text + ''',' + Edit13.Text + ','''
        + ComboBox1.Text + ''',' + Edit19.Text + ',' + Edit15.Text + ',' + Edit16.Text
        + ',' + Edit17.Text + ',''' + Main.username + ''',#' + FormatDateTime('yyyy-mm-dd',Now)
        + '#,''' + Edit18.Text + ''')';
  mainForm.exeSql(mainForm.query1,sSql,'2');
end;

procedure TBookroomForm.savetobookroomtable;
var
  sSql,i: String;
begin
  i := '0';
  if RadioButton1.Checked then
    i := '1';
  sSql := 'insert into bookroom(bookno,name,certi,certi_no,sex,birthplace,birthday,unit,'
        + 'address,contact,hour_id,source,destination,registerday,precount,roomno,otherfee,'
        + 'roomprice,discount,deposit,operator,oper_date,NOTE1) values(''' + UserBookNo
        + ''',''' + Edit1.Text + ''',''' + Edit5.Text + ''',''' + Edit6.Text + ''','''
        + Edit2.Text + ''',''' + Edit3.Text + ''',''' + Edit4.Text + ''',''' + Edit7.Text
        + ''',''' + Edit8.Text + ''',''' + Edit9.Text + ''',' + i + ',''' + Edit10.Text
        + ''',''' + Edit11.Text + ''',''' + Edit12.Text + ''',' + Edit13.Text + ','''
        + ComboBox1.Text + ''',' + Edit19.Text + ',' + Edit15.Text + ',' + Edit16.Text
        + ',' + Edit17.Text + ',''' + Main.username + ''',#' + FormatDateTime('yyyy-mm-dd',Now)
        + '#,''' + Edit18.Text + ''')';
  mainForm.exeSql(mainForm.query1,sSql,'2');
end;

procedure TBookroomForm.BitBtn1Click(Sender: TObject);
begin
  RoomFindForm := TRoomFindForm.Create(self);
  RoomFindForm.ShowModal;
  RoomFindForm.Free;
end;

procedure TBookroomForm.BitBtn3Click(Sender: TObject);
begin
  BookroomForm.Close;
end;

procedure TBookroomForm.FormShow(Sender: TObject);
var
  sSql: String;
begin
  sSql := 'select * from Room_manager where use_id=0';
  mainForm.exeSql(mainForm.query1,sSql,'1');
  if mainForm.query1.RecordCount <> 0 then
  begin
    while not mainForm.query1.Eof do
    begin
      ComboBox1.Items.Add(mainForm.query1.fieldbyname('roomno').AsString);
      mainForm.query1.Next;
    end;
    ComboBox1.Text := '请选择客房编号';
  end;
  BitBtn2.Enabled := False;
end;

procedure TBookroomForm.RadioButton1Click(Sender: TObject);
var
  sSql: String;
begin
  BitBtn2.Enabled := True;
  if radiobutton1.Checked then
  begin
    sSql := 'select * from room_manager where use_id=0 and hour_id=1';
    mainForm.exeSql(mainForm.query1,sSql,'1');
    combobox1.Items.clear;
    if mainForm.query1.RecordCount = 0 then
    begin
      MessageDlg('对不起，已经没有空闲的钟点房间了!',mtinformation,[mbok],0);
      radiobutton1.Checked:=false;
      BitBtn2.Enabled := False;
      combobox1.Text := '没有空闲钟点客房';
    end
    else
    begin
      while not mainForm.query1.Eof do
      begin
        ComboBox1.Items.Add(mainForm.query1.fieldbyname('roomno').AsString);
        mainForm.query1.Next;
      end;
      ComboBox1.Text := '请选择客房编号';
    end;
  end;
end;

procedure TBookroomForm.RadioButton2Click(Sender: TObject);
var
  sSql: String;
begin
  BitBtn2.Enabled := True;
  if radiobutton2.Checked then
  begin
    sSql := 'select * from room_manager where use_id=0 and hour_id=0';
    mainForm.exeSql(mainForm.query1,sSql,'1');
    combobox1.Items.clear;
    if mainForm.query1.RecordCount = 0 then
    begin
      MessageDlg('对不起，已经没有房间了!',mtinformation,[mbok],0);
      radiobutton2.Checked:=false;
      BitBtn2.Enabled := False;
      combobox1.Text := '没有空闲客房';
    end
    else
    begin
      while not mainForm.query1.Eof do
      begin
        ComboBox1.Items.Add(mainForm.query1.fieldbyname('roomno').AsString);
        mainForm.query1.Next;
      end;
      ComboBox1.Text := '请选择客房编号';
    end;
  end;
end;

procedure TBookroomForm.BitBtn2Click(Sender: TObject);
var
  sSql: String;
begin
  sSql := 'update room_manager set use_id=1 where roomno=''' + ComboBox1.Text + '''';
  mainForm.exeSql(mainForm.query1,sSql,'2');
  makeUserBookNo;
  savetobookroomtable;
  savetobookroomhistorytable;
  savezjqstable;
  savetozjqslstable;
  savetodtsztable;
  savetoszlstable;
  if application.MessageBox('是否打印订房单(Yes/No)','提示信息',mb_yesno)=IDYes then
    printBook;
end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -