?? frmdengji.frm
字號:
VERSION 5.00
Begin VB.Form frmdengji
BorderStyle = 1 'Fixed Single
Caption = "客戶登記"
ClientHeight = 5520
ClientLeft = 2505
ClientTop = 3465
ClientWidth = 7785
Icon = "frmdengji.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5520
ScaleWidth = 7785
Begin VB.TextBox txtbianhao
Height = 390
Left = 6000
TabIndex = 20
Top = 1560
Width = 1215
End
Begin VB.TextBox txtid
Height = 375
Left = 6360
TabIndex = 18
Top = 120
Width = 855
End
Begin VB.CommandButton cmdquxiao
Caption = "取消"
Height = 375
Left = 6240
TabIndex = 16
Top = 3000
Width = 1095
End
Begin VB.CommandButton cmdbaocun
Caption = "保存"
Height = 375
Left = 4800
TabIndex = 15
Top = 3000
Width = 1095
End
Begin VB.TextBox txtruzhuriqi
Height = 375
Left = 1440
TabIndex = 14
Top = 3000
Width = 3015
End
Begin VB.TextBox txtzhuzhi
Height = 375
Left = 1440
TabIndex = 12
Top = 2280
Width = 5895
End
Begin VB.TextBox txtbeizhu
Height = 1455
Left = 240
TabIndex = 11
Text = "備注說明："
Top = 3840
Width = 7455
End
Begin VB.TextBox txtnianling
Height = 375
Left = 5160
TabIndex = 10
Top = 840
Width = 2055
End
Begin VB.TextBox txtshenfenzhenghao
Height = 375
Left = 1440
TabIndex = 9
Top = 840
Width = 2055
End
Begin VB.TextBox txtdanwei
Height = 375
Left = 1440
TabIndex = 5
Top = 1560
Width = 3015
End
Begin VB.TextBox txtxingbie
Height = 390
Left = 4680
TabIndex = 4
Top = 120
Width = 495
End
Begin VB.TextBox txtxingming
Height = 375
Left = 1440
TabIndex = 1
Top = 120
Width = 1815
End
Begin VB.Label lblbianhao
Caption = "房間編號"
Height = 255
Left = 4800
TabIndex = 19
Top = 1680
Width = 855
End
Begin VB.Label lblid
Caption = "客戶編號"
Height = 375
Left = 5400
TabIndex = 17
Top = 240
Width = 735
End
Begin VB.Label lblruzhuriqi
Caption = "入住日期"
Height = 375
Left = 240
TabIndex = 13
Top = 3120
Width = 975
End
Begin VB.Label lblnianling
Caption = "客戶年齡"
Height = 375
Left = 3840
TabIndex = 8
Top = 960
Width = 975
End
Begin VB.Label lblshenfenzhenghao
Caption = "身份證號"
Height = 375
Left = 240
TabIndex = 7
Top = 960
Width = 975
End
Begin VB.Label lblzhuzhi
Caption = "客戶住址"
Height = 375
Left = 240
TabIndex = 6
Top = 2400
Width = 975
End
Begin VB.Label lblxingbie
Caption = "客戶性別"
Height = 375
Left = 3480
TabIndex = 3
Top = 240
Width = 975
End
Begin VB.Label lbldanwei
Caption = "客戶單位"
Height = 375
Left = 240
TabIndex = 2
Top = 1680
Width = 975
End
Begin VB.Label lblxingming
Caption = "客戶姓名"
Height = 375
Left = 240
TabIndex = 0
Top = 240
Width = 975
End
End
Attribute VB_Name = "frmdengji"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Download by http://www.codefans.net
Private Sub cmdbaocun_Click()
Dim str As String
If txtxingming.Text = Empty Then
MsgBox "你的輸入無效請重新輸入"
Else
str = "select * from kehudengji"
If querydata(str) = True Then
rct.AddNew
rct.Fields("kehuID").Value = Val(txtid.Text)
rct.Fields("kehuname").Value = txtxingming.Text
rct.Fields("kehudanwei").Value = txtdanwei.Text
rct.Fields("kehunianling").Value = Val(txtnianling.Text)
rct.Fields("kehuxingbie").Value = txtxingbie.Text
rct.Fields("kehuzhuzhi").Value = txtzhuzhi.Text
rct.Fields("shenfenzhenghao").Value = Val(txtshenfenzhenghao.Text)
rct.Fields("beizhu").Value = txtbeizhu.Text
rct.Fields("ruzhuriqi").Value = txtruzhuriqi.Text
rct.Fields("fangjianbianhao").Value = Val(txtbianhao.Text)
rct.Update
Else
MsgBox "提出數據失敗!"
End If
str = "select * from fangjianbiao where fangjianbianhao=" & txtbianhao.Text
If querydata(str) = True Then
rct.MoveFirst
rct.Fields("fangjianzhuangtai").Value = 1
rct.Update
Else
MsgBox "沒有此房間!"
End If
End If
txtxingming.Text = ""
txtxingbie.Text = ""
txtid.Text = ""
txtshenfenzhenghao.Text = ""
txtnianling.Text = ""
txtdanwei.Text = ""
txtbianhao.Text = ""
txtzhuzhi.Text = ""
txtruzhuriqi.Text = ""
txtbeizhu.Text = "備注說明："
End Sub
Private Sub cmdquxiao_Click()
Unload Me
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -