?? frmbookin2.frm
字號:
VERSION 5.00
Begin VB.Form frmBookin2
BorderStyle = 3 'Fixed Dialog
Caption = "訂房信息查詢"
ClientHeight = 2448
ClientLeft = 48
ClientTop = 336
ClientWidth = 5100
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2448
ScaleWidth = 5100
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
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 = "入住時(shí)間："
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 "請?jiān)O(shè)置查詢條件！", 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 = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
With mrc
Do While Not .EOF
cboYear(0).AddItem .Fields(0)
.MoveNext
Loop
End With
cboYear(0).ListIndex = 0
For j = 1 To 12
cboMonth(0).AddItem j
Next j
cboMonth(0).Text = Month(Now())
For j = 1 To 31
cboDay.AddItem j
Next j
cboDay.Text = Day(Now())
Else
cmdOk.Enabled = False
End If
mrc.Close
End Sub
Private Sub lblitem_Click(Index As Integer)
chkItem(Index).Value = vbChecked
End Sub
Private Sub txtItem_GotFocus(Index As Integer)
txtItem(Index).SelStart = 0
txtItem(Index).SelLength = Len(txtItem(Index))
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -