29、 Recordset. UpdateAdodc2. Refreshadocon. OpenProvider二Microsoft. Jet. OLEDB. 4. 0;
DatdSource二& App. Path & DB_KFGL. mdb;
Persist Security Info二FalseadoRs. Open select * from tb_djys, adocon, adOpenKeyset, adLockOptimiSticadoRs. AddNewIf bh. Text ” Then adoRs. Fieldsf 姓 名)=ZSDJ(O).TextIf Combol. Text。

30、Then adoRs. Fields C 证件名 称)=Combol. TextIf ZSDJ(l).Text ZSDJ(l).TextIf ZSDJ(2).Text Vai (Combo3. Text)If ZSDJ(5).Text DTP1. ValueIf ZSDJ(6). Text ZSDJ(7). TextIf DTP3. Value Then Adodcl. Recordset. Fields C房态)= 入住Adodcl. Recordset. UpdateFor i = 0 To 6ZSDJ(i). Enabled = FalseNext iZSDJ(8). Enabled 二 。

31、 False： ZSDJ(10). Enabled = False：ZSDJ(11). Enabled = FalseCombo3. Enabled = False： Combo1. Enabled = FalseEnd IfComok. Enabled = False: Comprint. Enabled 二 True： Comdj. Enabled =TrueComprint. SetFocusEnd IfEnd SubPrivate Sub comcancel_Click()For i = 0 To 2ZSDJ(i). Enabled = FalseNext iFor i = 4 To。

32、6ZSDJ(i). Enabled = FalseNext iComok.Enabled = False: Combo3.Enabled = FalseCombol. Enabled = False: DTP3 .Enabled = False Comdj. Enabled = TrueEnd SubPrivate Sub comend_Click()Unload Memain. Enabled = TrueEnd Sub4.1.5退宿登记模块按照如上方法设计窗体如下:代码设计：Private Sub Form_Load()Adodcl. Connectionstring 二PROVIDER二 。

33、MSDASQL;
DRIVER二Oracle in OraDb11g_home1 ;
&server二webserver;
DSN=;
databasename=aa;
databasefile=d:aa;
UID=scot t;
PWD二123456AdodclRecordSource = select * from tb_djbAdodcl RefreshAdodc2. Connectionstring 二PROVIDER二MSDASQL;
DRIVER二Oracle in OraDb11g_home1 ;
&server二webserver;
DSN=;
databasename=aa;
databasefil 。

34、e=d:aa;
UID二scot t;
PWD二123456Adodc2 RecordSource = select * from tb kfAdodc2 RefreshAdodc3. Connectionstring 二PROVIDER二MSDASQL;
DRIVER二Oracle in OraDb11g_home1;
&server二webserver;
DSN=;
databasename=aa;
databasefile=d:aa;
UID=scot t;
PWD二123456Adodc3 RecordSource = select * from tb_gzmxAdodc3 RefreshAdodc4. 。

35、 Connectionstring 二PROVIDER二MSDASQL;
DRIVER二Oracle in OraDb11g_home1 ;
&server二webserver;
DSN=;
databasename=aa;
databasefile=d:aa;
UID=scot t;
PWD二123456Adodc4. RecordSource = select * from tb_djysAdodc4. RefreshAdodco. Connectionstring 二PROVIDER二MSDASQL;
DRIVER二Oracle in OraDb11g_home1;
&server二webserver;
D 。

36、SN=;
databasename=aa;
databasefile=d:aa;
UID二scot t;
PWD二123456Adodco. RecordSource = select 凭 证号码 from tb_djb where 标志 =,r order by凭证号码Adodc5 RefreshIf Adodc5 Recordset RecordCount 0 ThenFor i = 1 To Adodc5 Recordset RecordCountCombo4. Additem Adodco. Recordset. Fields （凭证号码）.ValueAdodc5 Recordset Move 。

37、NextNext iEnd IfEnd SubJ Private Sub Form_Activate（）czy. Text = main. StatusBarl. Panels （4）. Text 赋值给 czy,DTP2. Value = https://www.renrendoc.com/paper/Date: tim2. Value = TimePrivate Sub combo4_Click（）If Combo4. Text 0 ThenIf Adodcl. Recordset. Fields （ ， ?姓名）” ThenCombo 1. Text = Adodcl. Recordset. Fields （ ， ?证件名称）If Adodcl. Recor 。

38、dset. Fields （ ， z 证件号码 ”） ThenTexdz. Text = Adodcl. Recordset. Fields （ ， ?详细地址）If Adodcl. Recordset. Fields （z ， 房间号”） ThenDBCombol. Text = Adodcl. Recordset. Fields （z ， 客房类型）If Adodcl. Recordset. Fields C 客房价格”） ThenDTP1. Value = https://www.renrendoc.com/paper/Adodcl. Recordset. Fields （z ， 住宿日期）If Adodcl. Recordset. Fields （z/ 住宿时间“）。

【oracle|oracle酒店管理系统】39、ThenTexts. Text = Adodcl. Recordset. Fields 住宿天数）If Adodcl. Recordset. Fields （ ， ?预收金额“）Then Combo2. Text = Adodcl. Recordset. Fields （ ， z结款方式）If Adodcl. Recordset. Fields C折扣”） DTP1. Value ThenDTPicker控件返回包含于字符串内的数字 ， 字符串中是一个适当 类型的数值 。
If tim2. Value # 11:59:00 AM# ThenIf tim2. Value #6:00:00 PM# Then* Texts. Text = DTP2. Value - CDate（DTP1. Value） + 1CDate函数都可以强制将一个表达式转换成某种特定数 据类型 。
ElseTexts. Text 二 DTP2. Value - CDate（DTP1. Val 。

稿源：(未知)

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

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