📄 frmsigncontract.frm
字号:
Height = 375
Index = 8
Left = 6120
TabIndex = 7
Top = 1440
Width = 1215
End
Begin VB.TextBox Text1
Height = 375
Index = 10
Left = 3600
TabIndex = 8
Top = 2040
Width = 1215
End
Begin VB.Label Label2
Caption = "月"
Height = 255
Index = 6
Left = 7440
TabIndex = 51
Top = 960
Width = 255
End
Begin VB.Label Label1
Caption = "备 注"
Height = 255
Index = 11
Left = 360
TabIndex = 28
Top = 2880
Width = 735
End
Begin VB.Label Label1
Caption = "合同编号"
Height = 255
Index = 0
Left = 360
TabIndex = 27
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "客户姓名"
Height = 255
Index = 1
Left = 2760
TabIndex = 26
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "房屋编号"
Height = 255
Index = 2
Left = 5280
TabIndex = 25
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "起租日期"
Height = 255
Index = 3
Left = 360
TabIndex = 24
Top = 960
Width = 735
End
Begin VB.Label Label1
Caption = "止租日期"
Height = 255
Index = 4
Left = 2760
TabIndex = 23
Top = 960
Width = 735
End
Begin VB.Label Label1
Caption = "租 期"
Height = 255
Index = 5
Left = 5280
TabIndex = 22
Top = 960
Width = 735
End
Begin VB.Label Label1
Caption = "月租金"
Height = 255
Index = 6
Left = 360
TabIndex = 21
Top = 1560
Width = 735
End
Begin VB.Label Label1
Caption = "总租金"
Height = 255
Index = 7
Left = 2880
TabIndex = 20
Top = 1560
Width = 615
End
Begin VB.Label Label1
Caption = "押金"
Height = 255
Index = 8
Left = 5400
TabIndex = 19
Top = 1560
Width = 495
End
Begin VB.Label Label2
Caption = "元"
Height = 255
Index = 0
Left = 2520
TabIndex = 18
Top = 1560
Width = 255
End
Begin VB.Label Label2
Caption = "元"
Height = 255
Index = 1
Left = 4920
TabIndex = 17
Top = 1560
Width = 255
End
Begin VB.Label Label2
Caption = "元"
Height = 255
Index = 2
Left = 7440
TabIndex = 16
Top = 1560
Width = 255
End
Begin VB.Label Label1
Caption = "业务员"
Height = 255
Index = 9
Left = 360
TabIndex = 15
Top = 2160
Width = 735
End
Begin VB.Label Label1
Caption = "签订日期"
Height = 255
Index = 10
Left = 2760
TabIndex = 14
Top = 2160
Width = 735
End
End
End
Begin VB.Frame Frame3
Caption = "功能键"
Height = 975
Left = 120
TabIndex = 0
Top = 120
Width = 8535
Begin VB.CommandButton cmdZuJin
Caption = "收取租金"
Height = 495
Left = 4680
TabIndex = 55
Top = 240
Width = 975
End
Begin VB.CommandButton cmdYaJin
Caption = "收取押金"
Height = 495
Left = 3360
TabIndex = 54
Top = 240
Width = 975
End
Begin VB.CommandButton cmdReset
Caption = "清空重填"
Height = 495
Left = 6000
TabIndex = 53
Top = 240
Width = 975
End
Begin VB.CommandButton cmdAddClient
Caption = "添加租户资料"
Height = 495
Left = 1680
TabIndex = 52
Top = 240
Width = 1335
End
Begin VB.CommandButton cmdClose
Caption = "关 闭"
Height = 495
Left = 7200
TabIndex = 11
Top = 240
Width = 975
End
Begin VB.CommandButton cmdSign
Caption = "签 订"
Height = 495
Left = 360
TabIndex = 10
Top = 240
Width = 975
End
End
End
Attribute VB_Name = "frmSignContract"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义几个变量用于检查客户和房屋状态，以及打开合同表
Dim rs_ccheck As New ADODB.Recordset
Dim rs_hcheck As New ADODB.Recordset
Dim rs_contract As New ADODB.Recordset
Dim rs_yd As New ADODB.Recordset
Dim rs_qzc As New ADODB.Recordset
Dim rst As New ADODB.Recordset
Dim sqlc As String
Dim sqlh As String
Dim sqlcon As String
Dim sqlyd As String
Dim sqlqzc As String
Dim sqlname As String
Dim sql As String
Dim sqlstaff As String
Dim num_count As New ADODB.Recordset
'设置两个变量用于显示房屋资料时使用
Dim rs_house As New ADODB.Recordset
Dim sqlhouse As String
Private Sub cmdAddClient_Click()
frmClient.Show
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdReset_Click()
'清空所有text
Combo4.Text = ""
Combo2.Text = ""
For i = 3 To 8
Text1(i).Text = ""
Next i
Combo3.Text = ""
Text1(10).Text = ""
Text1(11).Text = ""
'设置租期和总租金为不可写，其值为计算而得
Text1(5).Enabled = False
Text1(7).Enabled = False
'设定签订日期和起租日期为当前日期
Text1(10).Text = Date
Text1(3).Text = Date
'设置签订按钮可用
cmdSign.Enabled = True
End Sub
Private Sub cmdSign_Click()
'先检查输入数据完整性
'If Text1(1).Text = "" Then
'MsgBox "除备注外的所有项不可为空！", vbOKOnly + vbInformation, "注意"
'Text1(1).SetFocus
'Exit Sub
'End If
For i = 3 To 4
If Text1(i).Text = "" Or IsDate(Text1(i).Text) = False Then
MsgBox "日期应为这样的格式：2003-7-15！", vbOKOnly + vbInformation, "注意"
Text1(i).SetFocus
Exit Sub
End If
Next i
If Text1(6).Text = "" Or IsNumeric(Text1(6).Text) = False Then
MsgBox "月租金应为数字！", vbOKOnly + vbInformation, "注意"
Text1(6).SetFocus
Exit Sub
End If
If Text1(8).Text = "" Or IsNumeric(Text1(8).Text) = False Then
MsgBox "押金应为数字！", vbOKOnly + vbInformation, "注意"
Text1(8).SetFocus
Exit Sub
End If
If Text1(10).Text = "" Or IsDate(Text1(10).Text) = False Then
MsgBox "签订日期应为这样的格式：2006-7-15！", vbOKOnly + vbInformation, "注意"
Text1(10).SetFocus
Exit Sub
End If
'止租日期不能前于起租日期
If DateValue(Text1(4).Text) < DateValue(Text1(3).Text) Then
MsgBox "止租日期不能前于起租日期", vbOKOnly + vbInformation, "注意"
Text1(4).SetFocus
Exit Sub
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -