?? frmchaxun.frm
字號:
VERSION 5.00
Begin VB.Form frmchaxun
BorderStyle = 1 'Fixed Single
Caption = "精細(xì)查詢"
ClientHeight = 3165
ClientLeft = 2505
ClientTop = 4470
ClientWidth = 4695
Icon = "frmchaxun.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3165
ScaleWidth = 4695
Begin VB.CommandButton cmdquxiao
Caption = "退出"
Height = 375
Left = 3600
TabIndex = 9
Top = 2640
Width = 975
End
Begin VB.CommandButton cmdchaxun
Caption = "查詢"
Height = 375
Left = 2280
TabIndex = 8
Top = 2640
Width = 975
End
Begin VB.TextBox txtshenfenzhenghao
Height = 375
Left = 1560
TabIndex = 7
Top = 1920
Width = 3015
End
Begin VB.TextBox txtbianhao
Height = 375
Left = 1560
TabIndex = 6
Top = 1320
Width = 3015
End
Begin VB.TextBox txtzhuzhi
Height = 375
Left = 1560
TabIndex = 5
Top = 720
Width = 3015
End
Begin VB.TextBox txtxingming
Height = 375
Left = 1560
TabIndex = 4
Top = 120
Width = 3015
End
Begin VB.Label lblshenfenzhenghao
Caption = "身份證號"
Height = 255
Left = 240
TabIndex = 3
Top = 2040
Width = 1095
End
Begin VB.Label lblbianhao
Caption = "客戶編號"
Height = 255
Left = 240
TabIndex = 2
Top = 1440
Width = 1095
End
Begin VB.Label lblzhuzhi
Caption = "客戶住址"
Height = 255
Left = 240
TabIndex = 1
Top = 840
Width = 1095
End
Begin VB.Label lblfangjianbianhao
Caption = "房間編號"
Height = 255
Left = 240
TabIndex = 0
Top = 240
Width = 1095
End
End
Attribute VB_Name = "frmchaxun"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
'Download by http://www.codefans.net
Attribute VB_Exposed = False
Private Sub cmdchaxun_Click()
Dim chaxun As String
chaxun = Empty
If Trim(txtxingming.Text) <> Empty Then
chaxun = "(fangjianbianhao like '%" & Trim(txtxingming.Text) & "%')"
End If
If Trim(txtzhuzhi.Text) <> Empty Then
If chaxun <> Empty Then
chaxun = chaxun & "and (kehuzhuzhi like '%" & Trim(txtzhuzhi.Text) & " %')"
Else
chaxun = "(kehuzhuzhi like '%" & Trim(txtzhuzhi.Text) & " %')"
End If
End If
If Trim(txtbianhao.Text) <> Empty Then
If chaxun <> Empty Then
chaxun = chaxun & " and (kehuID = " & Trim(txtbianhao.Text) & " )"
Else
chaxun = "(kehuID like " & Trim(txtbianhao.Text) & " )"
End If
End If
If Trim(txtshenfenzhenghao.Text) <> Empty Then
If chaxun <> Empty Then
chaxun = chaxun & " and (shenfenzhenghao = " & Trim(txtshenfenzhenghao.Text) & " )"
Else
chaxun = "(shenfenzhenghao = " & Trim(txtshenfenzhenghao.Text) & " )"
End If
End If
If chaxun <> Empty Then
chaxun = "select * from kehudengji where " & chaxun
Else
chaxun = "select * from kehudengji"
End If
If querydata(chaxun) = True Then
If rct.EOF And rct.BOF Then
MsgBox "輸入無效"
Exit Sub
End If
Unload Me
frmchaxunjieguo.Show
End If
End Sub
Private Sub cmdquxiao_Click()
Unload Me
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -