?? frmpayzujin.frm
字號:
Width = 1215
End
Begin VB.Label Label2
Caption = "月"
Height = 255
Index = 6
Left = 7440
TabIndex = 42
Top = 960
Width = 255
End
Begin VB.Label Label1
Caption = "備 注"
Height = 255
Index = 11
Left = 360
TabIndex = 41
Top = 2880
Width = 735
End
Begin VB.Label Label1
Caption = "合同編號"
Height = 255
Index = 7
Left = 360
TabIndex = 40
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "客戶姓名"
Height = 255
Index = 8
Left = 2760
TabIndex = 39
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "房屋編號"
Height = 255
Index = 9
Left = 5280
TabIndex = 38
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "起租日期"
Height = 255
Index = 10
Left = 360
TabIndex = 37
Top = 960
Width = 735
End
Begin VB.Label Label1
Caption = "止租日期"
Height = 255
Index = 12
Left = 2760
TabIndex = 36
Top = 960
Width = 735
End
Begin VB.Label Label1
Caption = "租 期"
Height = 255
Index = 13
Left = 5280
TabIndex = 35
Top = 960
Width = 735
End
Begin VB.Label Label1
Caption = "月租金"
Height = 255
Index = 14
Left = 360
TabIndex = 34
Top = 1560
Width = 735
End
Begin VB.Label Label1
Caption = "總租金"
Height = 255
Index = 15
Left = 2880
TabIndex = 33
Top = 1560
Width = 615
End
Begin VB.Label Label1
Caption = "押金"
Height = 255
Index = 16
Left = 5400
TabIndex = 32
Top = 1560
Width = 495
End
Begin VB.Label Label2
Caption = "元"
Height = 255
Index = 1
Left = 2520
TabIndex = 31
Top = 1560
Width = 255
End
Begin VB.Label Label2
Caption = "元"
Height = 255
Index = 2
Left = 4920
TabIndex = 30
Top = 1560
Width = 255
End
Begin VB.Label Label2
Caption = "元"
Height = 255
Index = 3
Left = 7440
TabIndex = 29
Top = 1560
Width = 255
End
Begin VB.Label Label1
Caption = "業(yè)務(wù)員"
Height = 255
Index = 17
Left = 360
TabIndex = 28
Top = 2160
Width = 735
End
Begin VB.Label Label1
Caption = "簽訂日期"
Height = 255
Index = 18
Left = 2760
TabIndex = 27
Top = 2160
Width = 735
End
End
End
End
Attribute VB_Name = "frmPayZuJin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sqlpay As String
Dim sqlclient As String
Dim sqlch As String
Dim rs_pay As New ADODB.Recordset
Dim rs_client As New ADODB.Recordset
Dim rs_ch As New ADODB.Recordset
Private Sub cmdAdd_Click()
'先檢測數(shù)據(jù)完整性
If Text1(0).Text = "" Then
MsgBox "收費編號不可為空！", vbOKOnly + vbInformation, "注意"
Text1(0).SetFocus
Exit Sub
End If
If Text1(1).Text = "" Or IsNumeric(Text1(1).Text) = False Then
MsgBox "租金年份應(yīng)為數(shù)字！", vbOKOnly + vbInformation, "注意"
Text1(1).SetFocus
Exit Sub
End If
If Text1(2).Text = "" Or IsNumeric(Text1(2).Text) = False Or Val(Text1(2).Text) < 1 Or Val(Text1(2).Text) > 12 Then
MsgBox "租金月份應(yīng)為1－12的數(shù)字！", vbOKOnly + vbInformation, "注意"
Text1(2).SetFocus
Exit Sub
End If
If Text1(3).Text = "" Or IsNumeric(Text1(3).Text) = False Then
MsgBox "應(yīng)交租金應(yīng)為數(shù)字！", vbOKOnly + vbInformation, "注意"
Text1(3).SetFocus
Exit Sub
End If
If Text1(4).Text = "" Or IsNumeric(Text1(4).Text) = False Then
MsgBox "已交租金應(yīng)為數(shù)字！", vbOKOnly + vbInformation, "注意"
Text1(4).SetFocus
Exit Sub
End If
If Text1(6).Text = "" Then
MsgBox "客戶姓名不可為空！", vbOKOnly + vbInformation, "注意"
Text1(6).SetFocus
Exit Sub
End If
If Text1(7).Text = "" Or IsDate(Text1(7).Text) = False Then
MsgBox "收費日期應(yīng)為這樣的日期格式：2003-8-3！", vbOKOnly + vbInformation, "注意"
Text1(7).SetFocus
Exit Sub
End If
'檢測該收費編號是否已存在
sqlch = "select * from ZuJin where 收費編號 = '" & Text1(0).Text & "'"
rs_ch.Open sqlch, conn, adOpenStatic, adLockOptimistic
If rs_ch.EOF = False Then
MsgBox "該收費編號已經(jīng)存在，請重新輸入一個！", vbOKOnly + vbInformation, "注意"
Text1(0).SetFocus
rs_ch.Close
Exit Sub
End If
rs_ch.Close
'還需要檢測客戶姓名是否存在
sqlclient = "select * from Contract where 客戶姓名 = '" & Text1(6).Text & "'"
rs_client.Open sqlclient, conn, adOpenStatic, adLockOptimistic
If rs_client.EOF = True Then
MsgBox "該客戶姓名在合同表中不存在！", vbOKOnly + vbInformation, "注意"
rs_client.Close
Text1(6).SetFocus
Exit Sub
End If
rs_client.Close
'計算欠費金額
Text1(5).Text = Val(Text1(3).Text) - Val(Text1(4).Text)
'加入租金收費表
sqlpay = "select * from ZuJin "
rs_pay.Open sqlpay, conn, adOpenStatic, adLockOptimistic
rs_pay.AddNew
For i = 0 To 8
rs_pay.Fields(i) = Text1(i).Text
Next i
rs_pay.Update
rs_pay.Close
MsgBox "收取租金成功！", vbOKOnly + vbInformation, "注意"
'添加完后，需要設(shè)置收取租金按鈕不可用
cmdAdd.Enabled = False
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdReset_Click()
'清空所有text
For i = 0 To 8
Text1(i).Text = ""
Next i
'設(shè)定收費日期為當前日期
Text1(7).Text = Date
'設(shè)置收取租金按鈕為可用
cmdAdd.Enabled = True
End Sub
Private Sub Form_Load()
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設(shè)為不可寫，自動計算而得
Text1(5).Enabled = False
'設(shè)置所有合同資料選項卡的text為不可寫
For i = 9 To 20
Text1(i).Enabled = False
Next i
'判斷是從frmSignContract調(diào)用的還是菜單直接調(diào)用的本窗體
If ZuJinfromContract = False Then
'菜單直接調(diào)用的
'如果要顯示的是租金收取選項卡
If SSTab1.Tab = 0 Then
'清空所有text
For i = 0 To 8
Text1(i).Text = ""
Next i
'設(shè)定收費日期為當前日期
Text1(7).Text = Date
'如果要顯示的是合同資料選項卡
ElseIf SSTab1.Tab = 1 Then
'開始時，由于租金收取信息沒有顯示，因此相應(yīng)的合同資料也都顯示為空
For i = 9 To 20
Text1(i).Text = ""
Next i
cmdAdd.Enabled = False
cmdReset.Enabled = False
End If
ElseIf ZuJinfromContract = True Then
'從frmSignContract窗體調(diào)用的
If SSTab1.Tab = 0 Then
'需要把合同表中的客戶姓名和月租金自動填入
Text1(3).Text = frmSignContract.Text1(6).Text
Text1(6).Text = frmSignContract.Text1(1).Text
Text1(7).Text = Date
ElseIf SSTab1.Tab = 1 Then
For i = 0 To 11
Text1(i + 9).Text = frmSignContract.Text1(i).Text
Next i
cmdAdd.Enabled = False
cmdReset.Enabled = False
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
'設(shè)置ZuJinfromContract=false
ZuJinfromContract = False
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
If SSTab1.Tab = 0 Then
'不需要改變數(shù)據(jù)，只需要相應(yīng)修改按鈕是否可用
cmdReset.Enabled = True
cmdAdd.Enabled = True
'設(shè)定收費日期為當前日期
Text1(7).Text = Date
'合同選項卡
Else
cmdReset.Enabled = False
cmdAdd.Enabled = False
'如果租金收取選項卡中客戶姓名為空
If Text1(6).Text = "" Then
For i = 9 To 20
Text1(i).Text = ""
Next i
'如果租金收取選項卡中客戶姓名不為空，則打開相應(yīng)記錄
Else
sqlclient = "select * from Contract where 客戶姓名 = '" & Text1(6).Text & "'"
rs_client.Open sqlclient, conn, adOpenStatic, adLockOptimistic
If rs_client.EOF = True Then
MsgBox "相應(yīng)客戶姓名的合同記錄不存在！", vbOKOnly + vbInformation, "注意"
rs_client.Close
For i = 9 To 20
Text1(i).Text = ""
Next i
Exit Sub
Else
For i = 9 To 20
Text1(i).Text = rs_client.Fields(i - 9)
Next i
rs_client.Close
End If
End If
End If
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -