📄 frm_zzrk_czfwxxxx.frm
字号:
Height = 1245
Left = 480
TabIndex = 17
Top = 3600
Width = 255
End
Begin VB.Line Line17
X1 = 240
X2 = 240
Y1 = 3480
Y2 = 8040
End
Begin VB.Line Line16
X1 = 240
X2 = 8160
Y1 = 4920
Y2 = 4920
End
Begin VB.Line Line15
X1 = 6600
X2 = 6600
Y1 = 2520
Y2 = 3480
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "出租房性质"
Height = 255
Left = 5520
TabIndex = 16
Top = 3120
Width = 975
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "出租房用途"
Height = 255
Left = 5520
TabIndex = 15
Top = 2640
Width = 975
End
Begin VB.Line Line14
X1 = 5280
X2 = 5280
Y1 = 2520
Y2 = 3480
End
Begin VB.Line Line13
X1 = 3720
X2 = 3720
Y1 = 2520
Y2 = 3480
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "出租房类型"
Height = 255
Left = 2640
TabIndex = 14
Top = 3120
Width = 1095
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "出租房面积"
Height = 255
Left = 2640
TabIndex = 13
Top = 2640
Width = 1095
End
Begin VB.Line Line12
X1 = 2400
X2 = 2400
Y1 = 2520
Y2 = 3480
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "电 话"
Height = 255
Left = 5280
TabIndex = 12
Top = 1680
Width = 615
End
Begin VB.Line Line11
X1 = 6120
X2 = 6120
Y1 = 1560
Y2 = 2040
End
Begin VB.Line Line10
X1 = 5040
X2 = 5040
Y1 = 1560
Y2 = 2040
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "身份证号码"
Height = 255
Left = 4680
TabIndex = 11
Top = 1200
Width = 1095
End
Begin VB.Line Line9
X1 = 8160
X2 = 8160
Y1 = 1080
Y2 = 8040
End
Begin VB.Line Line8
X1 = 6120
X2 = 6120
Y1 = 1080
Y2 = 1560
End
Begin VB.Line Line7
X1 = 4200
X2 = 4200
Y1 = 1080
Y2 = 1560
End
Begin VB.Line Line6
X1 = 1440
X2 = 1440
Y1 = 1080
Y2 = 3480
End
Begin VB.Line Line5
X1 = 240
X2 = 240
Y1 = 1080
Y2 = 3480
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "限住人数"
Height = 255
Left = 360
TabIndex = 9
Top = 3120
Width = 975
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "出租房间数"
Height = 255
Left = 360
TabIndex = 8
Top = 2640
Width = 975
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "出租房地址"
Height = 255
Left = 360
TabIndex = 7
Top = 2160
Width = 975
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "出租人住址"
Height = 255
Left = 360
TabIndex = 6
Top = 1680
Width = 975
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "出租人姓名"
Height = 255
Left = 360
TabIndex = 5
Top = 1200
Width = 975
End
Begin VB.Line Line4
X1 = 240
X2 = 8160
Y1 = 3480
Y2 = 3480
End
Begin VB.Line Line3
X1 = 240
X2 = 8160
Y1 = 3000
Y2 = 3000
End
Begin VB.Line Line2
Index = 2
X1 = 240
X2 = 8160
Y1 = 2520
Y2 = 2520
End
Begin VB.Line Line2
Index = 1
X1 = 240
X2 = 8160
Y1 = 2040
Y2 = 2040
End
Begin VB.Line Line2
Index = 0
X1 = 240
X2 = 8160
Y1 = 1560
Y2 = 1560
End
Begin VB.Line Line1
X1 = 240
X2 = 8160
Y1 = 1080
Y2 = 1080
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "登记日期"
Height = 255
Left = 3120
TabIndex = 3
Top = 840
Width = 975
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "编号"
Height = 255
Left = 480
TabIndex = 2
Top = 840
Width = 495
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "出租私房治安许可证申请登记表"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 375
Left = 1440
TabIndex = 0
Top = 120
Width = 5655
End
End
Attribute VB_Name = "frm_ZZRK_CZFWXXXX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Call main
Dim a
a = MsgBox("保存信息吗?", 33, "人口信息管理系统")
If a = vbOK Then
Set adoRs = adoCon.Execute("insert into Table_ZZRK_CZFW values(" & Text1 & ",'" & Text25 & "','" & Check1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Text6 & "','" & Text5 & "','" & Text7 & "','" & Text8 & "','" & Text9 & "','" & Text10 & "','" & Text11 & "','" & Text12 & "','" & Text13 & "','" & Text24 & "','" & Text14 & "','" & Text15 & "','" & Text16 & "','" & Text17 & "','" & Text18 & "','" & Text19 & "','" & Text20 & "','" & Text21 & "','" & Text22 & "','" & Text26 & "','" & Text23 & "','" & Text27 & "')")
MsgBox "数据保存成功!", 32, "人口信息管理系统"
Unload Me
Else
Unload Me
End If
adoCon.Close
End Sub
Private Sub DTPicker2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text23.SetFocus
Else
End If
End Sub
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
Me.Top = 20
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text25.SetFocus
Else
End If
End Sub
Private Sub Text10_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text11.SetFocus
Else
End If
End Sub
Private Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text12.SetFocus
Else
End If
End Sub
Private Sub Text12_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text13.SetFocus
Else
End If
End Sub
Private Sub Text13_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text24.SetFocus
Else
End If
End Sub
Private Sub Text14_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text15.SetFocus
Else
End If
End Sub
Private Sub Text15_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text16.SetFocus
Else
End If
End Sub
Private Sub Text16_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text17.SetFocus
Else
End If
End Sub
Private Sub Text17_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text18.SetFocus
Else
End If
End Sub
Private Sub Text18_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text19.SetFocus
Else
End If
End Sub
Private Sub Text19_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text20.SetFocus
Else
End If
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text3.SetFocus
Else
End If
End Sub
Private Sub Text20_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text21.SetFocus
Else
End If
End Sub
Private Sub Text21_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text22.SetFocus
Else
End If
End Sub
Private Sub Text22_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text26.SetFocus
Else
End If
End Sub
Private Sub Text23_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text27.SetFocus
Else
End If
End Sub
Private Sub Text24_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text14.SetFocus
Else
End If
End Sub
Private Sub Text24_LostFocus()
If Text24.Text = "男" Or Text24.Text = "女" Then
frm_ZZRK_CZFWXXXX.Refresh
Else
Text24.Text = ""
End If
End Sub
Private Sub Text25_LostFocus()
Dim temp1
temp1 = Text25.Text
If IsDate(temp1) = False Then
Text25.Text = ""
Text25.SetFocus
Else
End If
End Sub
Private Sub Text26_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text23.SetFocus
Else
End If
End Sub
Private Sub Text26_LostFocus()
Dim temp1
temp1 = Text26.Text
If IsDate(temp1) = False Then
Text26.Text = ""
Else
End If
End Sub
Private Sub Text27_LostFocus()
Dim temp1
temp1 = Text27.Text
If IsDate(temp1) = False Then
Text27.Text = ""
Else
End If
End Sub
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text4.SetFocus
Else
End If
End Sub
Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text5.SetFocus
Else
End If
End Sub
Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text6.SetFocus
Else
End If
End Sub
Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text7.SetFocus
Else
End If
End Sub
Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text8.SetFocus
Else
End If
End Sub
Private Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text9.SetFocus
Else
End If
End Sub
Private Sub Text9_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text10.SetFocus
Else
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -