bookroom.~pas

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

      query1.ParamByName('operator').Asstring:=username;
      query1.ParamByName('oper_date').Asdatetime:=date;
      query1.ExecSQL;
      query1.Close;
end;
procedure tbookroomform.savetobookroomhistorytable;
begin
      query1.Close;
      query1.sql.clear;
      query1.SQL.add('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,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);
      query1.ParamByName('operator').Asstring:=username;
      query1.ParamByName('oper_date').Asdatetime:=date;
      query1.ExecSQL;
      query1.Close;
end;
procedure tbookroomform.makebooknumber;
var
      oldnumber:string;
      s1,s2,s3:string;
      year,month,day,t:integer;
begin
      year:=yearof(now);
      month:=monthof(now);
      day:=dayof(now);
      s1:=inttostr(year);
      if month<10 then
          s1:=s1+'0'+inttostr(month)
      else
          s1:=s1+inttostr(month);
      if day<10 then
          s1:=s1+'0'+inttostr(day)
      else
          s1:=s1+inttostr(day);
      query1.close;
      query1.sql.clear;
      query1.sql.Add('select * from bookroomhistory');
      query1.open;
      if not query1.eof then
      begin
          query1.Last;
          oldnumber:=query1.fieldByname('bookno').asstring;
          s2:=copy(oldnumber,1,8);
          if s1=s2 then
          begin
              s2:=copy(oldnumber,9,12);
              t:=strtoint(s2);
              t:=t+1;
              if t<10 then
                  s3:='000'+inttostr(t)
              else if t<100 then
                  s3:='00'+inttostr(t)
              else if t<1000 then
                  s3:='0'+inttostr(t)
              else
                  s3:=inttostr(t);
          end
          else
              s3:='0001';
      end
      else
          s3:='0001';
      query1.Close;
      booknumber:=s1+s3;
end;
procedure TbookroomForm.BitBtn2Click(Sender: TObject);
begin
        if (not (radiobutton1.Checked or radiobutton2.Checked)) then
            application.messagebox('没有选择住房类型,请重新选择!','提示信息',mb_ok)
        else
        begin
              query1.close;
              query1.SQL.clear;
              query1.SQL.add('update room_manager set use_id=:use_id where roomno=:roomno');
              query1.ParamByName('use_id').AsBoolean:=true;
              query1.ParamByName('roomno').asstring:=combobox1.Items[combobox1.ItemIndex];
              query1.ExecSQL;
              query1.Close;
              makebooknumber;
              savetobookroomtable;
              savetobookroomhistorytable;
              savezjqstable;
              savetozjqslstable;
              savetodtsztable;
              savetoszlstable;
              while application.MessageBox('是否打印订房单(Yes/No)','提示信息',mb_yesno)=IDYes do
                    printbook;
              bitbtn2.Enabled:=false;
        end;
end;
procedure TBookRoomForm.printbook;
begin
        bookroomprnform.QRLabel3.caption:=edit1.text;
        bookroomprnform.QRLabel5.caption:=edit2.text;
        bookroomprnform.QRLabel7.caption:=edit3.text;
        bookroomprnform.QRLabel9.caption:=maskedit1.text;
        bookroomprnform.QRLabel11.caption:=edit4.text;
        bookroomprnform.QRLabel13.caption:=edit5.text;
        bookroomprnform.QRLabel15.caption:=edit6.text;
        bookroomprnform.QRLabel17.caption:=edit8.text;
        bookroomprnform.QRLabel19.caption:=edit11.text;
        bookroomprnform.QRLabel21.caption:=edit12.text;
        bookroomprnform.QRLabel23.caption:=combobox1.Items[combobox1.itemindex];
        bookroomprnform.QRLabel25.caption:=edit13.text;
        bookroomprnform.QRLabel27.caption:=edit14.text;
        bookroomprnform.QRLabel29.caption:=edit15.text;
        bookroomprnform.QRLabel31.caption:=edit17.text;
        bookroomprnform.QRLabel33.caption:=edit16.text;
        if radiobutton1.checked then
               bookroomprnform.QRLabel41.caption:='钟点房'
        else
               bookroomprnform.QRLabel41.caption:='正常住宿';
        bookroomprnform.QRLabel39.caption:=username;
        bookroomprnform.QRLabel35.caption:=booknumber;
        bookroomprnform.QRLabel37.caption:=datetostr(date());
        bookroomprnform.QuickRep1.Print; 
end;

procedure TbookroomForm.BitBtn3Click(Sender: TObject);
begin
    initiate;
    edit1.setfocus;
    bitbtn2.Enabled:=true; 
end;
procedure TBookRoomForm.savezjqstable;
begin
    query1.close;
    query1.SQL.Clear;
    query1.SQL.add('insert into zjqstable(bookno,roomno,name,certi_no,deposit,dayfee,precount,note,registerday,operator)');
    query1.SQL.Add(' values(:bookno,:roomno,:name,:certi_no,:deposit,:dayfee,:precount,:note,:registerday,:operator)');
    query1.ParamByName('bookno').asstring:=booknumber;
    query1.ParamByName('roomno').asstring:=combobox1.Items[combobox1.itemindex];
    query1.ParamByName('name').asstring:=edit1.text;
    query1.ParamByName('certi_no').asstring:=edit5.text;
    query1.ParamByName('deposit').ascurrency:=strtoint(edit15.text);
    query1.ParamByName('dayfee').ascurrency:=strtoint(edit13.text)*strtofloat(edit14.text);
    query1.ParamByName('precount').asinteger:=strtoint(edit12.text);
    query1.ParamByName('note').asstring:='交住房押金';
    query1.ParamByName('registerday').asdatetime:=strtodatetime(edit11.text);
    query1.ParamByName('operator').asstring:=username;
    query1.ExecSQL;
    query1.close;
end;
procedure TBookRoomForm.savetozjqslstable;
begin
    query1.close;
    query1.SQL.Clear;
    query1.SQL.add('insert into zjmxtable(bookno,roomno,name,certi_no,deposit,dayfee,precount,note,registerday,operator)');
    query1.SQL.Add(' values(:bookno,:roomno,:name,:certi_no,:deposit,:dayfee,:precount,:note,:registerday,:operator)');
    query1.ParamByName('bookno').asstring:=booknumber;
    query1.ParamByName('roomno').asstring:=combobox1.Items[combobox1.itemindex];
    query1.ParamByName('name').asstring:=edit1.text;
    query1.ParamByName('certi_no').asstring:=edit5.text;
    query1.ParamByName('deposit').ascurrency:=strtoint(edit15.text);
    query1.ParamByName('dayfee').ascurrency:=strtoint(edit13.text)*strtofloat(edit14.text);
    query1.ParamByName('precount').asinteger:=strtoint(edit12.text);
    query1.ParamByName('note').asstring:='交住房押金';
    query1.ParamByName('registerday').asdatetime:=strtodatetime(edit11.text);
    query1.ParamByName('operator').asstring:=username;
    query1.ExecSQL;
    query1.close;
end;
procedure TBookRoomForm.savetodtsztable;
begin
    query1.close;
    query1.SQL.Clear;
    query1.SQL.add('insert into dtsztable(bookno,roomno,name,certi_no,factfee,note,oper_date,operator)');
    query1.SQL.Add(' values(:bookno,:roomno,:name,:certi_no,:factfee,:note,:oper_date,:operator)');
    query1.ParamByName('bookno').asstring:=booknumber;
    query1.ParamByName('roomno').asstring:=combobox1.Items[combobox1.itemindex];
    query1.ParamByName('name').asstring:=edit1.text;
    query1.ParamByName('certi_no').asstring:=edit5.text;
    query1.ParamByName('factfee').ascurrency:=strtoint(edit15.text);
    query1.ParamByName('note').asstring:='交住房押金';
    query1.ParamByName('oper_date').asdatetime:=strtodatetime(edit11.text);
    query1.ParamByName('operator').asstring:=username;
    query1.ExecSQL;
    query1.close;
end;
procedure tBookroomForm.savetoszlstable;
begin
    query1.close;
    query1.SQL.Clear;
    query1.SQL.add('insert into szhistorytable(bookno,roomno,name,certi_no,factfee,note,oper_date,operator)');
    query1.SQL.Add(' values(:bookno,:roomno,:name,:certi_no,:factfee,:note,:oper_date,:operator)');
    query1.ParamByName('bookno').asstring:=booknumber;
    query1.ParamByName('roomno').asstring:=combobox1.Items[combobox1.itemindex];
    query1.ParamByName('name').asstring:=edit1.text;
    query1.ParamByName('certi_no').asstring:=edit5.text;
    query1.ParamByName('factfee').ascurrency:=strtoint(edit15.text);
    query1.ParamByName('note').asstring:='交住房押金';
    query1.ParamByName('oper_date').asdatetime:=strtodatetime(edit11.text);
    query1.ParamByName('operator').asstring:=username;
    query1.ExecSQL;
    query1.close;
end;

end.