bookroom.~pas

我自己写的一个有关酒店管理系统的代码 大家

unit bookroom;

interface

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

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

var
  bookroomForm: TbookroomForm;
  booknumber:string;
implementation
  USES BOOK_FIND,main,bookroomrpt;
{$R *.dfm}

procedure TbookroomForm.BitBtn1Click(Sender: TObject);
begin
    BOOKFINDFORM.ShowModal;
end;

procedure TbookroomForm.BitBtn4Click(Sender: TObject);
begin
    close;
end;
procedure TBookRoomForm.initiate;
begin
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
    edit5.Text:='';
    edit6.Text:='';
    edit7.Text:='';
    edit8.Text:='';
    edit9.Text:='';
    edit10.Text:='';
    edit11.Text:='';
    edit12.Text:='';
    edit13.Text:='';
    edit14.Text:='';
    edit15.Text:='';
    edit16.Text:='';
    edit17.Text:='0';
    maskedit1.Text:='';
    combobox1.Text:='';
    radiobutton1.Checked:=false;
    radiobutton2.Checked:=false;
end;
procedure TbookroomForm.FormActivate(Sender: TObject);
begin
    initiate;
    edit1.SetFocus;
    edit11.Enabled:=false; 
    edit13.Enabled:=false;
end;

procedure TbookroomForm.RadioButton1Click(Sender: TObject);
begin
    query1.Close;
    if radiobutton1.Checked then
    begin
          query1.SQL.clear;
          query1.SQL.add('select * from room_manager where use_id=:s0 and hour_id=:s1');
          query1.ParamByName('s0').asboolean:=false;
          query1.ParamByName('s1').asboolean:=true;
          query1.open;
          combobox1.Items.clear;
          while not query1.Eof do
          begin
                combobox1.Items.add(query1.fieldbyname('roomno').asstring);
                query1.next;
          end;
          if query1.RecordCount=0 then
          begin
              application.MessageBox('对不起，已经没有钟点房间了!','提示信息',mb_ok);
              radiobutton1.Checked:=false;
          end;
          query1.close;
    end;
end;

procedure TbookroomForm.RadioButton2Click(Sender: TObject);
begin
    query1.Close;
    if radiobutton2.Checked then
    begin
          query1.SQL.Clear;
          query1.sql.add('select * from room_manager where use_id=:s0');
          query1.ParamByName('s0').asboolean:=false;
          query1.open;
          combobox1.Items.clear;
          while not query1.Eof do
          begin
                combobox1.Items.add(query1.fieldbyname('roomno').asstring);
                query1.next;
          end;
          if query1.RecordCount=0 then
          begin
              application.MessageBox('对不起，已经没有房间了!','提示信息',mb_ok);
              radiobutton2.Checked:=false;
          end;
          query1.close;
    end;
end;

procedure TbookroomForm.Edit1Exit(Sender: TObject);
begin
    edit11.text:=DateTimeToStr(now);
end;

procedure TbookroomForm.ComboBox1Exit(Sender: TObject);
begin
      query1.Close;
      query1.SQL.clear;
      query1.sql.add('select * from room_manager where roomno=:s0');
      query1.ParamByName('s0').AsString:=combobox1.Items[combobox1.ItemIndex];
      query1.open;
      edit13.Text:=IntToStr(query1.fieldByname('roomprice').asinteger);
      query1.close;
end;
procedure tbookroomform.savetobookroomtable;
begin
      query1.Close;
      query1.sql.clear;
      query1.SQL.add('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,NOTE)');
      query1.SQL.add(' values(: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,:NOTE)');
      query1.ParamByName('bookno').AsString:=booknumber;
      query1.ParamByName('name').AsString:=EDIT1.TEXT;
      query1.ParamByName('certi').AsString:=EDIT4.TEXT;
      query1.ParamByName('certi_no').AsString:=EDIT4.TEXT;
      query1.ParamByName('sex').AsString:=EDIT2.TEXT;
      query1.ParamByName('birthplace').AsString:=EDIT3.TEXT;
      query1.ParamByName('birthday').Asdatetime:=strtodate(MASKEDIT1.TEXT);
      query1.ParamByName('unit').AsString:=EDIT6.TEXT;
      query1.ParamByName('address').AsString:=EDIT7.TEXT;
      query1.ParamByName('contact').AsString:=EDIT8.TEXT;
      query1.ParamByName('hour_id').Asboolean:=radiobutton1.Checked;
      query1.ParamByName('source').AsString:=EDIT9.TEXT;
      query1.ParamByName('destination').AsString:=EDIT10.TEXT;
      query1.ParamByName('registerday').Asdatetime:=strtodatetime(EDIT11.TEXT);
      query1.ParamByName('precount').Asinteger:=strtoint(EDIT12.TEXT);
      query1.ParamByName('roomno').Asstring:=combobox1.Items[combobox1.itemindex];
      query1.ParamByName('roomprice').Asinteger:=strtoint(EDIT13.TEXT);
      query1.ParamByName('discount').AsFLOAT:=strtoFLOAT(EDIT14.TEXT);
      query1.ParamByName('deposit').Asinteger:=strtoint(EDIT15.TEXT);
      query1.ParamByName('note').Asstring:=EDIT16.TEXT;
      query1.ParamByName('otherfee').Asinteger:=strtoint(EDIT17.TEXT);