📄 form2.frm
字号:
End
Begin VB.Line Line2
X1 = 7080
X2 = 9000
Y1 = 1320
Y2 = 1320
End
Begin VB.Line Line1
X1 = 7080
X2 = 7080
Y1 = 1320
Y2 = 2520
End
Begin VB.Label Label71
AutoSize = -1 'True
Caption = "号"
Height = 195
Left = 8520
TabIndex = 154
Top = 2040
Width = 180
End
Begin VB.Label Label70
AutoSize = -1 'True
Caption = "第"
Height = 195
Left = 7440
TabIndex = 152
Top = 2040
Width = 180
End
Begin VB.Label Label69
AutoSize = -1 'True
Caption = "字"
Height = 195
Left = 8640
TabIndex = 151
Top = 1560
Width = 180
End
Begin VB.Label Label68
AutoSize = -1 'True
Caption = "北集用"
Height = 195
Left = 7320
TabIndex = 149
Top = 1560
Width = 540
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "土地证号"
Height = 195
Left = 4320
TabIndex = 24
Top = 2040
Width = 720
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "地号"
Height = 195
Left = 2280
TabIndex = 22
Top = 2040
Width = 360
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "图号"
Height = 195
Left = 120
TabIndex = 20
Top = 2040
Width = 360
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "组"
Height = 195
Left = 6840
TabIndex = 19
Top = 1560
Width = 180
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "村"
Height = 195
Left = 4920
TabIndex = 17
Top = 1560
Width = 180
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "镇"
Height = 195
Left = 3000
TabIndex = 15
Top = 1560
Width = 180
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "土地所有者"
Height = 195
Left = 120
TabIndex = 13
Top = 1560
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "土地座落"
Height = 195
Left = 3240
TabIndex = 11
Top = 480
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "主管部门"
Height = 195
Left = 6240
TabIndex = 8
Top = 960
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "单位性质"
Height = 195
Left = 3240
TabIndex = 6
Top = 960
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "法人代表姓名"
Height = 195
Left = 120
TabIndex = 4
Top = 960
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "土地使用者"
Height = 195
Left = 120
TabIndex = 3
Top = 480
Width = 900
End
End
End
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim rs3 As ADODB.Recordset
Private Sub Command1_Click()
On Error Resume Next
Set cnn = New ADODB.Connection
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.CursorType = adOpenDynamic
rs1.LockType = adLockPessimistic
Set rs2 = New ADODB.Recordset
rs2.CursorLocation = adUseClient
rs2.CursorType = adOpenDynamic
rs2.LockType = adLockPessimistic
Set rs3 = New ADODB.Recordset
rs3.CursorLocation = adUseClient
rs3.CursorType = adOpenDynamic
rs3.LockType = adLockPessimistic
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tdgl.mdb;Persist Security Info=False"
Dim rsstring1 As String
rsstring1 = "select * from tddjspb"
Dim rsstring2 As String
rsstring2 = "select * from syqdjk"
Dim rsstring3 As String
rsstring3 = "select * from tddjsq"
If Text1.Text = "" Or Text9.Text = "" Or Text10.Text = "" Or Text11.Text = "" Then
MsgBox "土地使用者或者图号,地号,土地证号不能为空"
Exit Sub
End If
If (MsgBox("确定输入数据吗?", vbOKCancel, "数据录入") = vbOK) Then
rs1.Open rsstring1, cnn
rs2.Open rsstring2, cnn
rs3.Open rsstring3, cnn
If rs1.RecordCount <> 0 Then
rs1.MoveLast
End If
If rs2.RecordCount <> 0 Then
rs2.MoveLast
End If
If rs3.RecordCount <> 0 Then
rs3.MoveLast
End If
'登记审批表
rs1.AddNew
rs1!SoilUser = Text1.Text
rs1!CorporName = Text2.Text
rs1!CorporUnitprop = Text3.Text
rs1!CorporUnit = Text4.Text
rs1!SoilPos = Text5.Text
rs1!SoilownerZhen = Text6.Text
rs1!SoilownerCun = Text7.Text
rs1!SoilownerZu = Text8.Text
rs1!ChartNum = Text9.Text
rs1!SoilNum = Text10.Text
rs1!SoilCardNum = Text11.Text
rs1!Base_Access_Sqr = Text12.Text
rs1!Base_Particular_Sqr = Text13.Text
rs1!Base_Particular_JZ = Text15.Text
rs1!Base_Particular_YT = Text14.Text
rs1!Base_Particular_XZ = Text16.Text
rs1!Base_Communion_Sqr = Text17.Text
rs1!Base_Communion_FT = Text19.Text
rs1!Base_Communion_User = Text21.Text
rs1!Base_Communion_LX = Text18.Text
rs1!Base_Communion_BJ = Text20.Text
rs1!Base_Term = Text22.Text
rs1!Base_Term_Date = Text23.Text
rs1!Base_JZWQS = Text43.Text
rs1!Base_JZLX = Text42.Text
rs1!Base_TDQYJRQ = Text24.Text + Text25.Text
rs1!Base_ZDSZ = Text26.Text + Text27.Text + Text28.Text + Text29.Text
'使用权登记卡
rs2.AddNew
rs2!SoilUser = Text1.Text
rs2!SoilPos = Text5.Text
rs2!SoilownerZhen = Text6.Text
rs2!SoilownerCun = Text7.Text
rs2!SoilownerZu = Text8.Text
rs2!ChartNum = Text9.Text
rs2!SoilNum = Text10.Text
rs2!SQSPB_Num = Text30.Text
rs2!SoilPurpose = Text31.Text
rs2!SYQMJ = Text32.Text
rs2!JZZDMJ = Text33.Text
rs2!PZYDLB = Text34.Text
rs2!YDQX = Text35.Text
rs2!DYMJ = Text36.Text
rs2!TDDJ = Text37.Text
rs2!FTMJ = Text39.Text
rs2!GYZDMJ = Text40.Text
rs2!PZYDJG = Text38.Text
rs2!PZDate = Text41.Text
rs2!JZLX = Text42.Text
rs2!JZWQS = Text43.Text
rs2!GYZSYQ = Text44.Text
rs2!TDSYQLY = Text45.Text
rs2!TDSYQZMWJLX = Text62.Text
rs2!TDSYQBH = Text63.Text
rs2!TDSYQRQ = Text64.Text
rs2!SZ1 = Text26.Text
rs2!SZ2 = Text27.Text
rs2!SZ3 = Text28.Text
rs2!SZ4 = Text29.Text
rs2!BGXH1 = Text46.Text
rs2!BGXH2 = Text47.Text
rs2!BGXH3 = Text48.Text
rs2!BGRQ1 = Text49.Text
rs2!BGRQ2 = Text50.Text
rs2!BGRQ3 = Text51.Text
rs2!BGYJ1 = Text52.Text
rs2!BGYJ2 = Text53.Text
rs2!BGYJ3 = Text54.Text
rs2!BGJBR1 = Text55.Text
rs2!BGJBR2 = Text56.Text
rs2!BGJBR3 = Text57.Text
rs2!BGSHR1 = Text58.Text
rs2!BGSHR2 = Text59.Text
rs2!BGSHR3 = Text60.Text
rs2!zi = Text68.Text
rs2!hao = Text69.Text
'登记申请表
rs3.AddNew
rs3!SoilUser = Text1.Text
rs3!CorporName = Text2.Text
rs3!CorporUnitprop = Text3.Text
rs3!CorporUnit = Text4.Text
rs3!SoilPos = Text5.Text
rs3!QSXZ = Text65.Text
rs3!SYQLX = Text66.Text
rs3!SYQX = Text22.Text
rs3!ZZRQ = Text23.Text
rs3!SoilownerZhen = Text6.Text
rs3!SoilownerCun = Text7.Text
rs3!SoilownerZu = Text8.Text
rs3!SYQMJ = Text12.Text
rs3!DYMJ = Text13.Text
rs3!DYJZMJ = Text15.Text
rs3!DYTDYT = Text14.Text
rs3!DYJZLX = Text16.Text
rs3!GYZDMJ = Text17.Text
rs3!GYQS = Text43.Text '公用全书
rs3!GYFTMJ = Text19.Text
rs3!GYDJ = Text67.Text '申报地价
rs3!GYR = Text21.Text
rs3!ZDSZ = Text26.Text + Text27.Text + Text28.Text + Text29.Text
rs3!SQDHYJ = Text61.Text
rs1.Update
rs2.Update
rs3.Update
MsgBox "添加数据成功!"
rs1.Close
rs2.Close
rs3.Close
End If
cnn.Close
End Sub
Private Sub Command2_Click()
On Error Resume Next
Form1.Show
Form2.Hide
End Sub
Private Sub Command3_Click()
On Error Resume Next
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
Text21.Text = ""
Text22.Text = ""
Text23.Text = ""
Text24.Text = ""
Text25.Text = ""
Text26.Text = ""
Text27.Text = ""
Text28.Text = ""
Text29.Text = ""
Text30.Text = ""
Text31.Text = ""
Text32.Text = ""
Text33.Text = ""
Text34.Text = ""
Text35.Text = ""
Text36.Text = ""
Text37.Text = ""
Text38.Text = ""
Text39.Text = ""
Text40.Text = ""
Text41.Text = ""
Text42.Text = ""
Text43.Text = ""
Text44.Text = ""
Text45.Text = ""
Text46.Text = ""
Text47.Text = ""
Text48.Text = ""
Text49.Text = ""
Text50.Text = ""
Text51.Text = ""
Text52.Text = ""
Text53.Text = ""
Text54.Text = ""
Text55.Text = ""
Text56.Text = ""
Text57.Text = ""
Text58.Text = ""
Text59.Text = ""
Text60.Text = ""
Text61.Text = ""
Text62.Text = ""
Text63.Text = ""
Text64.Text = ""
Text65.Text = ""
Text66.Text = ""
Text67.Text = ""
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Form2.Hide
Form1.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -