?? frmbackyajin.frm
字號:
Left = 1320
MultiLine = -1 'True
TabIndex = 13
Top = 1560
Width = 6495
End
Begin VB.Label Label1
Caption = " 收費編號"
Height = 255
Index = 0
Left = 240
TabIndex = 27
Top = 480
Width = 855
End
Begin VB.Label Label1
Caption = "合同編號"
Height = 255
Index = 1
Left = 360
TabIndex = 26
Top = 1080
Width = 735
End
Begin VB.Label Label1
Caption = "客戶姓名"
Height = 255
Index = 2
Left = 2880
TabIndex = 25
Top = 1080
Width = 855
End
Begin VB.Label Label1
Caption = "房屋編號"
Height = 255
Index = 3
Left = 5760
TabIndex = 24
Top = 1080
Width = 735
End
Begin VB.Label Label1
Caption = "押金金額"
Height = 255
Index = 4
Left = 2880
TabIndex = 23
Top = 480
Width = 855
End
Begin VB.Label Label1
Caption = "收費日期"
Height = 255
Index = 5
Left = 5760
TabIndex = 22
Top = 480
Width = 855
End
Begin VB.Label Label2
Caption = "元"
Height = 255
Index = 0
Left = 5160
TabIndex = 21
Top = 480
Width = 255
End
Begin VB.Label Label1
Caption = " 備 注"
Height = 255
Index = 6
Left = 360
TabIndex = 20
Top = 1920
Width = 855
End
End
End
End
Attribute VB_Name = "frmBackYaJin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定義幾個共用變量
Dim rs_yj As New ADODB.Recordset
Dim rs_con As New ADODB.Recordset
Dim rs_count As New ADODB.Recordset
Dim sqlcount As String
Dim sqlyj As String
Dim sqlcon As String
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdend_Click()
'當單擊押金退還按鈕時，需要彈出一個提示框，警告用戶
Dim answer As String
answer = MsgBox("確定要退還押金嗎？", vbYesNo, "")
'確實退還，則需要從押金表中刪除該記錄
If answer = vbYes Then
rs_yj.Delete '刪除當前記錄
rs_yj.Update '更新刪除
MsgBox "押金退還成功！", vbOKOnly + vbExclamation, ""
Else
Exit Sub
End If
'刪除之后，顯示總信息條數需要減 1
Text2.Text = Val(Text2.Text) - 1
'刪除當前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄
'先移動rs_yj記錄到后一條
rs_yj.MoveNext
If rs_yj.EOF Then
rs_yj.MovePrevious
'如果沒有到記錄首則顯示該記錄
If Not rs_yj.BOF Then
For i = 0 To 6
If IsNull(rs_yj.Fields(i)) Then
Text1(i).Text = ""
Else
Text1(i).Text = rs_yj.Fields(i)
End If
Next i
'如果到記錄首，則表格已經為空，置所有text框顯示為空
ElseIf rs_yj.BOF Then
For i = 0 To 6
Text1(i).Text = ""
Next i
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
cmdEnd.Enabled = False
End If
'如果刪除的不是首尾記錄，則顯示當前記錄即可
Else
For i = 0 To 6
If IsNull(rs_yj.Fields(i)) Then
Text1(i).Text = ""
Else
Text1(i).Text = rs_yj.Fields(i)
End If
Next i
End If
End Sub
Private Sub cmdFirst_Click()
'先移動rs_yj記錄到第一條
rs_yj.MoveFirst
'同時需要設置相應按鈕為不可用和不可用
cmdPrev.Enabled = False
cmdFirst.Enabled = False
cmdNext.Enabled = True
cmdLast.Enabled = True
'如果已經是第一條記錄，則提示用戶
If rs_yj.BOF = True Then
MsgBox "對不起，已經是第一條記錄了！", vbOKOnly + vbInformation, "注意"
Exit Sub
'如果不是，則個數據表的記錄位置移到第一條記錄，并且顯示之
Else
For i = 0 To 6
If IsNull(rs_yj.Fields(i)) Then
Text1(i).Text = ""
Else
Text1(i).Text = rs_yj.Fields(i)
End If
Next i
End If
End Sub
Private Sub cmdLast_Click()
'移動rs_yj記錄到最后一條
rs_yj.MoveLast
cmdFirst.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = False
cmdLast.Enabled = False
'如果已經是最后一條記錄，則提示用戶
If rs_yj.EOF = True Then
MsgBox "對不起，已經是最后一條記錄了！", vbOKOnly + vbInformation, "注意"
Exit Sub
'如果不是最后一條，則數據表的記錄位置移到后一條記錄，并且顯示之
Else
For i = 0 To 6
If IsNull(rs_yj.Fields(i)) Then
Text1(i).Text = ""
Else
Text1(i).Text = rs_yj.Fields(i)
End If
Next i
End If
End Sub
Private Sub cmdNext_Click()
'先移動rs_yj記錄到后一條
rs_yj.MoveNext
'設置前一條和第一條按鈕可用
cmdPrev.Enabled = True
cmdFirst.Enabled = True
'如果已經是最后一條記錄，則提示用戶
If rs_yj.EOF = True Then
MsgBox "對不起，已經是最后一條記錄了！", vbOKOnly + vbInformation, "注意"
'并且設置“后一條”和最后一條按鈕不可用
cmdNext.Enabled = False
cmdLast.Enabled = False
Exit Sub
'如果不是，則個數據表的記錄位置移到后一條記錄，并且顯示之
Else
For i = 0 To 6
If IsNull(rs_yj.Fields(i)) Then
Text1(i).Text = ""
Else
Text1(i).Text = rs_yj.Fields(i)
End If
Next i
End If
End Sub
Private Sub cmdPrev_Click()
'先移動rs_yj記錄到前一條
rs_yj.MovePrevious
'設置后一條和最后一條按鈕可用
cmdNext.Enabled = True
cmdLast.Enabled = True
'如果已經是第一條記錄，則提示用戶
If rs_yj.BOF = True Then
MsgBox "對不起，已經是第一條記錄了！", vbOKOnly + vbInformation, "注意"
'并且設置“前一條”和第一條按鈕不可用
cmdPrev.Enabled = False
cmdFirst.Enabled = False
Exit Sub
'如果不是，則數據表的記錄位置移到前一條記錄，并且顯示之
Else
For i = 0 To 6
If IsNull(rs_yj.Fields(i)) Then
Text1(i).Text = ""
Else
Text1(i).Text = rs_yj.Fields(i)
End If
Next i
End If
End Sub
Private Sub Form_Activate()
Dim X0 As Long
Dim Y0 As Long
'讓窗體居中
X0 = Screen.Width
Y0 = Screen.Height
X0 = (X0 - Me.Width) / 2
Y0 = (Y0 - Me.Height) / 2
Me.Move X0, Y0
'設置所有text不可寫
For i = 0 To 18
Text1(i).Enabled = False
Next i
'分別處理2個選項卡
Select Case SSTab1.Tab
'家庭租戶選項卡
Case 0
'因為開始顯示時必定打開了rs_yj,rs_count,所以應該先關閉它們
sqlyj = "select * from YaJin " & sqlqyj
rs_yj.CursorLocation = adUseClient
rs_yj.Open sqlyj, conn, adOpenStatic, adLockOptimistic
If rs_yj.EOF Then
Text2.Text = 0
'如果沒有找到記錄，則提示用戶，置空所有text控件，并且退出本子過程
MsgBox "沒有找到符合條件的記錄", vbOKOnly + vbInformation, "注意"
For i = 0 To 6
Text1(i).Text = ""
Next i
'如果是0條記錄，需要設置前翻后翻的按鈕為不可用
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
cmdEnd.Enabled = False
Exit Sub
'找到符合條件的記錄
Else
'如果有記錄，需要設置前翻后翻的按鈕為可用
cmdFirst.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = True
cmdLast.Enabled = True
cmdEnd.Enabled = True
'計算找到的條數
sqlcount = "select count(*) from YaJin " & sqlqyj
rs_count.Open sqlcount, conn, adOpenStatic, adLockOptimistic
Text2.Text = rs_count.Fields(0)
'找到符合條件的記錄，顯示之
For i = 0 To 6
If IsNull(rs_yj.Fields(i)) Then
Text1(i).Text = ""
Else
Text1(i).Text = rs_yj.Fields(i)
End If
Next i
End If
Case 1
'如果開始時為預定單資料選項卡，則都顯示為空
'設置frame1(1)不可見
Frame1(1).Visible = False
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
cmdEnd.Enabled = False
For i = 7 To 18
Text1(i).Text = ""
Next i
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
If rs_yj.State = adStateOpen Then
rs_yj.Close
End If
If rs_con.State = adStateOpen Then
rs_con.Close
End If
If rs_count.State = adStateOpen Then
rs_count.Close
End If
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
'家庭租戶選項卡
Case 0
'設置frame1(1)不可見
Frame1(1).Visible = True
'因為開始顯示時必定打開了rs_yj,rs_count,所以應該先關閉它們
If rs_yj.State = adStateOpen Then
rs_yj.Close
End If
sqlyj = "select * from YaJin " & sqlqyj
rs_yj.CursorLocation = adUseClient
rs_yj.Open sqlyj, conn, adOpenStatic, adLockOptimistic
If rs_yj.EOF Then
Text2.Text = 0
'如果沒有找到記錄，則提示用戶，置空所有text控件，并且退出本子過程
MsgBox "沒有找到符合條件的記錄", vbOKOnly + vbInformation, "注意"
For i = 0 To 6
Text1(i).Text = ""
Next i
'如果是0條記錄，需要設置前翻后翻的按鈕為不可用
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
cmdEnd.Enabled = False
Exit Sub
'找到符合條件的記錄
Else
'如果有記錄，需要設置前翻后翻的按鈕為可用
cmdFirst.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = True
cmdLast.Enabled = True
cmdEnd.Enabled = True
If rs_count.State = adStateOpen Then
rs_count.Close
End If
'計算找到的條數
sqlcount = "select count(*) from YaJin " & sqlqyj
rs_count.Open sqlcount, conn, adOpenStatic, adLockOptimistic
Text2.Text = rs_count.Fields(0)
'找到符合條件的記錄，顯示之
For i = 0 To 6
If IsNull(rs_yj.Fields(i)) Then
Text1(i).Text = ""
Else
Text1(i).Text = rs_yj.Fields(i)
End If
Next i
End If
Case 1
'設置frame1(1)不可見
Frame1(1).Visible = False
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
cmdEnd.Enabled = False
'如果預定單編號為空，則預定單資料選項卡顯示為空
If Text1(3).Text = "" Then
For i = 7 To 18
Text1(i).Text = ""
Next i
Else
If rs_con.State = adStateOpen Then
rs_con.Close
End If
sqlcon = "select * from Contract where 合同編號 = '" & Text1(3).Text & "'"
rs_con.Open sqlcon, conn, adOpenStatic, adLockOptimistic
If rs_con.EOF = True Then
MsgBox "該預定單編號在預定單表中不存在！", vbOKOnly + vbInformation, "注意"
Exit Sub
Else
For i = 7 To 18
Text1(i).Text = rs_con.Fields(i - 7)
Next i
rs_con.Close
End If
End If
End Select
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -