【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“unt_BookRoom.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');
BookRepForm.QRDBText1.DataField := 'bookno';
BookRepForm.QRDBText2.DataField := 'roomno';
BookRepForm.QRDBText3.DataField := 'name';
BookRepForm.QRDBText4.DataField := 'registerday';
BookRepForm.QRDBText5.DataField := 'precount';
BookRepForm.QRDBText6.DataField := 'Deposit';
BookRepForm.QRDBText7.DataField := 'Operator';
BookRepForm.QRDBText8.DataField := 'Oper_date';
BookRepForm.QuickRep1.Preview;
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;
proced
上一篇:
PowerTranDlg.cpp
下一篇:
有关英语励志句子