?? frmclient.frm
字號:
Text = "Combo1"
Top = 360
Width = 855
End
Begin VB.TextBox Text1
Height = 375
Index = 4
Left = 1080
TabIndex = 6
Top = 1440
Width = 2295
End
Begin VB.TextBox Text1
Height = 375
Index = 5
Left = 5040
TabIndex = 7
Top = 1440
Width = 1215
End
Begin VB.Label Label1
Caption = "備 注"
Height = 255
Index = 6
Left = 240
TabIndex = 33
Top = 2400
Width = 735
End
Begin VB.Label Label1
Caption = "租戶編號"
Height = 255
Index = 0
Left = 240
TabIndex = 16
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "租戶姓名"
Height = 255
Index = 1
Left = 3360
TabIndex = 15
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "工作單位"
Height = 255
Index = 2
Left = 240
TabIndex = 14
Top = 960
Width = 735
End
Begin VB.Label Label1
Caption = "電話"
Height = 255
Index = 3
Left = 6360
TabIndex = 13
Top = 960
Width = 495
End
Begin VB.Label Label2
Caption = "性別"
Height = 255
Left = 6360
TabIndex = 12
Top = 360
Width = 495
End
Begin VB.Label Label1
Caption = "身份證號"
Height = 255
Index = 4
Left = 240
TabIndex = 11
Top = 1560
Width = 735
End
Begin VB.Label Label1
Caption = "租住人數"
Height = 255
Index = 5
Left = 4080
TabIndex = 10
Top = 1560
Width = 735
End
End
End
End
Attribute VB_Name = "frmClient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定義幾個共用變量
Dim rs_client As New ADODB.Recordset
Dim rs_count As New ADODB.Recordset
Dim sqlcount As String
Dim sqlclient As String
'設置2個add變量用于保存時判斷是從添加還是修改后保存
Dim addf '用于家庭租戶選項卡
Dim addg '用于公司租戶選項卡
Private Sub cmdadd_Click()
'設置除保存和取消按鈕外的其他按鈕不可用
cmdAdd.Enabled = False
cmdEdit.Enabled = False
cmdDel.Enabled = False
cmdSave.Enabled = True
cmdCancel.Enabled = True
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
cmdQuery.Enabled = False
'需要判斷當前是在家庭租戶選項卡還是公司租戶選項卡上
'家庭租戶選項卡
If SSTab1.Tab = 0 Then
'需要清空所有text框，并且設置它們可寫
For i = 0 To 6
Text1(i).Text = ""
Text1(i).Enabled = True
Next i
Combo1.Enabled = True
'addf變量用于保存時判斷是從添加還是修改后保存
addf = 1
Text1(0).SetFocus
'公司租戶選項卡
ElseIf SSTab1.Tab = 1 Then
'需要清空所有text框，并且設置它們可寫
For i = 7 To 14
Text1(i).Text = ""
Text1(i).Enabled = True
Next i
'addg變量用于保存時判斷是從添加還是修改后保存
addg = 1
Text1(7).SetFocus
End If
End Sub
Private Sub cmdCancel_Click()
'取消按鈕用于用戶添加或修改過程中放棄添加或修改操作
cmdSave.Enabled = False
cmdCancel.Enabled = False
cmdAdd.Enabled = True
cmdQuery.Enabled = True
'需要判斷當前出在那個選項卡上，然后分別處理
Select Case SSTab1.Tab
'家庭租戶選項卡
Case 0
'又需要判斷是從添加后取消還是修改后取消
'如果是從添加后取消
If addf = 1 Then
'如果當前Client表中有數據則顯示第一條數據
If Not rs_client.EOF And Not rs_client.BOF Then
For i = 0 To 6
Text1(i).Text = rs_client.Fields(i)
Next i
If rs_client.Fields(7) = "男" Then
Combo1.ListIndex = 0
ElseIf rs_client.Fields(7) = "女" Then
Combo1.ListIndex = 1
End If
cmdEdit.Enabled = True
cmdDel.Enabled = True
cmdFirst.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = True
cmdLast.Enabled = True
'如果沒有數據，則顯示空
Else
For i = 0 To 6
Text1(i).Text = ""
Next i
cmdEdit.Enabled = False
cmdDel.Enabled = False
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
End If
'如果是修改后取消，則恢復到修改前的數據
ElseIf addf = 0 Then
For i = 0 To 6
Text1(i).Text = rs_client.Fields(i)
Next i
If rs_client.Fields(7) = "男" Then
Combo1.ListIndex = 0
ElseIf rs_client.Fields(7) = "女" Then
Combo1.ListIndex = 1
End If
End If
'設置各個text框不可寫
For i = 0 To 6
Text1(i).Enabled = False
Next i
'先設置ComboBox的默認值及不可改
Combo1.Enabled = False
'公司租戶選項卡
Case 1
'又需要判斷是從添加后取消還是修改后取消
'如果是從添加后取消
If addg = 1 Then
'如果當前GongSi表中有數據則顯示第一條數據
If Not rs_client.EOF And Not rs_client.BOF Then
For i = 7 To 14
Text1(i).Text = rs_client.Fields(i)
Next i
cmdEdit.Enabled = True
cmdDel.Enabled = True
cmdFirst.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = True
cmdLast.Enabled = True
'如果沒有數據，則顯示空
Else
For i = 7 To 14
Text1(i).Text = ""
Next i
cmdEdit.Enabled = False
cmdDel.Enabled = False
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
End If
'如果是修改后取消，則恢復到修改前的數據
ElseIf addg = 0 Then
For i = 7 To 14
Text1(i).Text = rs_client.Fields(i)
Next i
End If
'設置各個text框不可寫
For i = 7 To 14
Text1(i).Enabled = False
Next i
End Select
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdDel_Click()
'當單擊刪除記錄時，需要彈出一個提示框，警告用戶
Dim answer As String
answer = MsgBox("確定要刪除嗎？", vbYesNo, "")
'確實刪除
If answer = vbYes Then
rs_client.Delete '刪除當前記錄
rs_client.Update '更新刪除
MsgBox "成功刪除！", vbOKOnly + vbExclamation, ""
Else
Exit Sub
End If
'刪除之后，顯示總信息條數需要減 1
Text2.Text = Val(Text2.Text) - 1
'刪除當前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄
'先移動rs_client記錄到后一條
rs_client.MoveNext
If rs_client.EOF Then
rs_client.MovePrevious
'如果沒有到記錄首則顯示該記錄
If Not rs_client.BOF Then
'由于2個選項卡需要顯示的項不同，需要分別處理顯示記錄
If SSTab1.Tab = 0 Then
'當前處于家庭租戶選項卡
For i = 0 To 6
Text1(i).Text = rs_client.Fields(i)
Next i
If rs_client.Fields(7) = "男" Then
Combo1.ListIndex = 0
ElseIf rs_client.Fields(7) = "女" Then
Combo1.ListIndex = 1
End If
ElseIf SSTab1.Tab = 1 Then
'當前處于公司租戶選項卡
For i = 7 To 14
Text1(i).Text = rs_client.Fields(i)
Next i
End If
'如果到記錄首，則表格已經為空，置所有text框顯示為空
ElseIf rs_client.BOF Then
If SSTab1.Tab = 0 Then
For i = 0 To 6
Text1(i).Text = ""
Next i
ElseIf SSTab1.Tab = 1 Then
For i = 7 To 14
Text1(i).Text = ""
Next i
End If
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
End If
'如果刪除的不是首尾記錄，則顯示當前記錄即可
Else
If SSTab1.Tab = 0 Then
For i = 0 To 6
Text1(i).Text = rs_client.Fields(i)
Next i
If rs_client.Fields(7) = "男" Then
Combo1.ListIndex = 0
ElseIf rs_client.Fields(7) = "女" Then
Combo1.ListIndex = 1
End If
ElseIf SSTab1.Tab = 1 Then
For i = 7 To 14
Text1(i).Text = rs_client.Fields(i)
Next i
End If
End If
End Sub
Private Sub cmdEdit_Click()
'設置除保存和取消按鈕外的其他按鈕不可用
cmdAdd.Enabled = False
cmdEdit.Enabled = False
cmdDel.Enabled = False
cmdSave.Enabled = True
cmdCancel.Enabled = True
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
cmdQuery.Enabled = False
If SSTab1.Tab = 0 Then
'需要設置除主鍵之外的text框可寫
For i = 1 To 6
Text1(i).Enabled = True
Next i
Combo1.Enabled = True
addf = 0
ElseIf SSTab1.Tab = 1 Then
For i = 7 To 14
Text1(i).Enabled = True
Next i
addg = 0
End If
End Sub
Private Sub cmdFirst_Click()
'先移動rs_client記錄到第一條
rs_client.MoveFirst
'同時需要設置相應按鈕為不可用和不可用
cmdPrev.Enabled = False
cmdFirst.Enabled = False
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -