18、接的表名不同 ， 这里链 接的是kfxx表 。
双击确定添加代码如下：with Data3. ADOQueryl dobeginClose;
SQL Clear;
SQL. Add（, select * from f jxx where 房间号码二：a）;
Parameters ParamByNamea ） value:二Trim（edit1 Text）;
Open;
end;
关闭键的代码如下：form5 close;
form1 show;
这样就完成了房间信息查询的操作 。
（7）再建立一个Form6,默认格式即可 。
在其中加入查看酒丿占信息所需控件：1 个 label, 1 个按钮,1 个 DBGrid：Form6 。

19、傩:丄画翌:酒店基本信息X关闭这里主要就是数据库的链接 ， 改用另外一种方式为：首先再建立一个Form7,默认格式即可 。
在其中加入查看客房信息所需控件 ， 和（7） 一样 ， 不过这里可以采用（5）的方法进行数据库的链接 。
再建立一个再建立一个Form8 ,默认格式即可 。
在其中加入退房所需控件：1 个 label, 1 个 Edit,两个 bitbtn, 1 个 DBGrid,和一个 DBNavigator 如图：将其与数据库中表krxx链接后 ， 输入证件号码单击DBNavigator控件上的丁可 以突出显示选择的信息 ， 然后点击退房可以实现退房功能 。
4.1.2进行窗体之间的转换（1）在form3中进行密码设置 。

20、 ， 双击登录按钮进行代码输入如下：varresults: Variant;
BEGINresults：=ADOTablel. Lookup 姓名 ， editl. text,密码）;
if results=edit2 Text thenbeginform3 Hide;
form 1. Show;
endelsebeginapplication. MessageBox（,姓名或密码错误,提示信息,64）;
editl SetFocus;
exit;
end;
end;
退出代码为：close;
（2）在forml中进行剩余各form间的连接 ， 在forml中分别单击要实现的功能 菜单按钮 ， 并分别输入代码 ， 得到的最后代码如下 。

21、：procedure TForm1N2C1ick（Sender: TObject）:beginform 1. Hide;
form2 showmodal;
end;
procedure TForm1N3C1ick（Sender: TObject）:beginform 1. Hide;
form4. showmodal;
end;
procedure TForm1N4C1ick(Sender: beginform 1. Hide;
form5 ShowModal;
end;
procedure TForm1. N5C1ick(Sender: beginform 1. Hide;
form6 ShowModal;
en 。

22、d;
procedure TForm1N6C1ick(Sender: beginform 1. hide;
form7. ShowModal;
end;
procedure TForm1N8C1ick(Sender: beginform 1. hide;
form8 ShowModal;
end;
procedure TForml. N7C1ick(Sender: beginTObject);
TObject);
TObject);
TObject);
TObject);
close;
end;
procedure TForm1FormCreate(Sender: TObject);
beginend;
并且要在uintl 。

23、的连接代码上添加：usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Menus, DB, ADODB, unit2, unit4, unit5, unit6, unit?, unit8,;
在form2中进行和forml间的转换 ， 代码如下：双击关闭按钮添加代码：form2 close;
form 1. show;
(4)在form4, form5, form6, form7中进行forml间的转换 ， 代码类似(3) 。
3、forml中退出菜单的实现双击退出菜单进行代码输入：clos 。

24、e;
即可 。
至此完成了菜单管理的实现 ， 可以运行后进行各功能的实现 。
代码设计Private Sub Toolbarl_ButtonClick(ByVai Button As MSComctlLib.Button) Select Case Button. KeyCase DJzsdj_ClickCase TFtf_ClickCase FTftck_ClickCase CXzscx_ClickCase ex辻If MsgBox(确定退出该系统？ ” ， 4,系统提示)=vbYes ThenEndEnd IfEnd SelectEnd SubPrivate Sub sztx_Click()Dim StrCo 。

25、mmonDialogl. Filter = BMP 图片(*. BMP) | *. BMP JPG 图片(*. JPG) | *. JPG GIF 图片(*. GIF) I *. GIF | 所有文件(*. *) | *.CommonDialog 1 ShowOpenIf CommonDialog1FileName ” Thenyl.Text = Month(Fdate)y2. Text = Month (Left (lsph. Text, 10)If yl. Text = y2 Text Thenbh. Text = Fdate & d & Format(Vai(Right(lsph. Te 。

26、xt, 3) + 1, #000)Textl.Text = Vai(Right(lsph. Text, 3)+1End IfIf yl. Text 0 ThenFor i = 1 To Adodc3 Recordset RecordCountCombo3. Additem Adodc3. Recordset. Fields (房间号).Value Adodc3 Recordset MoveNextNext iEnd IfEnd SubPrivate Sub comok_Click()If ZSDJ(O) = ” Or Combo3 = ” ThenMsgBox 请输入完整信息”、”系统提示El 。

27、seAdodc2. RecordSource = select * from tb_djb where 房间号 二 ， ”& Combo3. Text & and 标志 like 1Adodc2. RefreshIf Adodc2. Recordset. RecordCount = 0 ThenAdodc2. Recordset. AddNewIf bh. Text ” Then Adodc2. Recordset. Fields ( ， z姓名) =ZSDJ(O).TextIf Combol. Text “ Then Adodc2. Recordset. Fields C证件号 码”)=ZSDJ(1 。

28、). TextIf ZSDJ (2). Text Then Adodc2. Recordset. Fields(z ， 房间号 “)=Vai(Combo3. Text)If ZSDJ(4). Text Then Adodc2. Recordset. Fields C住宿日期 “)=DTP1. ValueIf ZSDJ (5). Text ” Then Adodc2. Recordset. Fields C住宿天 数”)=ZSDJ(6). TextIf ZSDJ (7). Text ” Then Adodc2. Recordset. Fields 退宿日期 ”)=DTP3. ValueAdodc2. 。

稿源：(未知)

【傻大方】网址：/a/2021/0816/0023746402.html

标题：oracle|oracle酒店管理系统( 三 )