【VB开源代码栏目提醒】:网学会员VB开源代码为您提供frmBookin2.frm参考,解决您在frmBookin2.frm学习中工作中的难题,参考学习。
VERSION 5.00
Begin VB.Form frmBookin2
BorderStyle = 3 'Fixed Dialog
Caption = "订房信息查询"
ClientHeight = 2460
ClientLeft = 45
ClientTop = 330
ClientWidth = 5100
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2460
ScaleWidth = 5100
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.TextBox txtItem
Height = 270
Index = 0
Left = 1560
TabIndex = 14
Top = 240
Width = 3252
End
Begin VB.TextBox txtItem
Height = 270
Index = 1
Left = 1560
TabIndex = 0
Top = 600
Width = 3252
End
Begin VB.CheckBox chkItem
Caption = "Check1"
Height = 180
Index = 2
Left = 240
TabIndex = 12
TabStop = 0 'False
Top = 1080
Width = 132
End
Begin VB.Frame Frame1
Height = 732
Left = 1560
TabIndex = 9
Top = 960
Width = 3252
Begin VB.ComboBox cboDay
Height = 288
Left = 2280
Style = 2 'Dropdown List
TabIndex = 16
Top = 240
Width = 612
End
Begin VB.ComboBox cboMonth
Height = 288
Index = 0
Left = 1368
Style = 2 'Dropdown List
TabIndex = 2
Top = 240
Width = 645
End
Begin VB.ComboBox cboYear
Height = 288
Index = 0
Left = 192
Style = 2 'Dropdown List
TabIndex = 1
Top = 240
Width = 765
End
Begin VB.Label Label1
Caption = "日"
Height = 216
Index = 7
Left = 3000
TabIndex = 15
Top = 240
Width = 240
End
Begin VB.Label Label1
Caption = "年"
Height = 216
Index = 1
Left = 1032
TabIndex = 11
Top = 240
Width = 240
End
Begin VB.Label Label1
Caption = "月"
Height = 216
Index = 2
Left = 2040
TabIndex = 10
Top = 240
Width = 240
End
End
Begin VB.CheckBox chkItem
Caption = "Check1"
Height = 180
Index = 1
Left = 240
TabIndex = 8
TabStop = 0 'False
Top = 600
Width = 132
End
Begin VB.CheckBox chkItem
Caption = "Check1"
Height = 180
Index = 0
Left = 240
TabIndex = 7
TabStop = 0 'False
Top = 240
Value = 1 'Checked
Width = 132
End
Begin VB.CommandButton cmdOk
Caption = "确定 (&O)"
Default = -1 'True
Height = 375
Left = 1320
TabIndex = 3
Top = 1920
Width = 1215
End
Begin VB.CommandButton cmdExit
Caption = "取消 (&X)"
Height = 375
Left = 2880
TabIndex = 4
Top = 1920
Width = 1215
End
Begin VB.Label lblitem
Caption = "房间编号:"
Height = 255
Index = 2
Left = 600
TabIndex = 13
Top = 600
Width = 1095
End
Begin VB.Label lblitem
Caption = "入住时间:"
Height = 255
Index = 1
Left = 600
TabIndex = 6
Top = 1080
Width = 1095
End
Begin VB.Label lblitem
Caption = "顾客:"
Height = 255
Index = 0
Left = 600
TabIndex = 5
Top = 240
Width = 1095
End
End
Attribute VB_Name = "frmBookin2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'用于传递查询块
Private Sub chkItem_Click(Index As Integer)
If Index = 2 Then
cboYear(0).SetFocus
Else
txtItem(Index).SetFocus
End If
End Sub
Private Sub cmdExit_Click()
Me.Hide
End Sub
Private Sub cmdOK_Click()
Dim dBeginDate As String
Dim sQSql As String
If chkItem(0).Value = vbChecked Then
sQSql = " customname = '" & Trim(txtItem(0) & " ") & "'"
End If
If chkItem(1).Value = vbChecked Then
If Trim(sQSql & " ") = "" Then
sQSql = " roomno ='" & Trim(txtItem(1) & " ") & "'"
Else
sQSql = sQSql & " and roomno ='" & Trim(txtItem(1) & " ") & "'"
End If
End If
If chkItem(2).Value = vbChecked Then
dBeginDate = Format(CDate(cboYear(0) & "-" & cboMonth(0) & "-" & cboDay), "yyyy-mm-dd")
If Trim(sQSql & " ") = "" Then
sQSql = " indate ='" & dBeginDate & "'"
Else
sQSql = sQSql & " and indate ='" & dBeginDate & "'"
End If
End If
If Trim(sQSql) = "" Then
MsgBox "请设置查询条件!", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
If flagBedit Then
Unload frmBookin
End If
frmBookin.txtSQL = "select bookno,customname,customID,roomno,indate,discount,inmemo from bookin where ammount = '0' and " & sQSql
frmBookin.Show
End If
Me.Hide
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
Dim sSql As String
Dim txtSQL As String
Dim MsgText As String
Dim mrc As ADODB.Recordset
txtSQL = "select distinct datepart(yy,indate) from bookin where ammount = '0' "
Set mrc = Exe