form3.frm

土地管理系统 用acess+datareporter做的

         Appearance      =   0  'Flat
         Height          =   285
         Left            =   2040
         TabIndex        =   6
         Top             =   360
         Width           =   1695
      End
      Begin VB.ComboBox Combo1 
         Appearance      =   0  'Flat
         Height          =   315
         Left            =   240
         TabIndex        =   1
         Text            =   "Combo1"
         Top             =   360
         Width           =   1575
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "="
         Height          =   195
         Left            =   1920
         TabIndex        =   5
         Top             =   360
         Width           =   90
      End
   End
End
Attribute VB_Name = "Form3"
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 aa As Boolean
Public rsstringtemp As String


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

 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tdgl.mdb;Persist Security Info=False"
 Dim combo As String
 
 Select Case Combo1.Text
     Case "土地使用者"
          combo = "SoilUser"
     Case "图号"
          combo = "ChartNum"
     Case "地号"
          combo = "SoilNum"
     Case "土地证号"
          combo = "SoilCardNum"
 End Select
 If Text1.Text = "" Then
     MsgBox "请输入查询条件"
     Exit Sub
 End If
 
 Dim rsstring1 As String
 rsstring1 = "select * from tddjspb where " & combo & "='" & Text1.Text & "'"
 rsstringtemp = rsstring1
 rs1.Open rsstring1, cnn
 aa = True
 If rs1.RecordCount = 0 Then
    MsgBox "没有找到数据"
 Else
   Text2.Text = rs1!SoilUser
   Text3.Text = rs1!CorporName
   Text4.Text = rs1!CorporUnitprop
   Text5.Text = rs1!CorporUnit
   Text6.Text = rs1!SoilownerZhen
   Text7.Text = rs1!SoilownerCun
   Text8.Text = rs1!SoilownerZu
   Text9.Text = rs1!ChartNum
   Text10.Text = rs1!SoilNum
   Text11.Text = rs1!SoilCardNum
   Text12.Text = rs1!SoilPos
   Text13.Text = rs1!Base_Access_Sqr
   Text16.Text = rs1!Base_Particular_Sqr
   Text14.Text = rs1!Base_Particular_YT
   Text15.Text = rs1!Base_Particular_JZ
   Text17.Text = rs1!Base_Particular_XZ
   Text22.Text = rs1!Base_Communion_Sqr
   Text18.Text = rs1!Base_Communion_LX
   Text19.Text = rs1!Base_Communion_FT
   Text20.Text = rs1!Base_Communion_BJ
   Text21.Text = rs1!Base_Communion_User
   Text24.Text = rs1!Base_Term
   Text23.Text = rs1!Base_Term_Date
   Text25.Text = rs1!Base_JZWQS
   Text26.Text = rs1!Base_JZLX
   Text27.Text = rs1!Base_ZDSZ
   Text28.Text = rs1!Base_TDQYJRQ
    If rs1!BZ <> Null Then
       Text29.Text = rs1!BZ
    Else
       Text29.Text = ""
    End If
 End If
 If rs1.RecordCount > 1 Then
    Command5.Enabled = True
 End If
 Command4.Enabled = True
 Command7.Enabled = True
 Command6.Enabled = True
End Sub

Private Sub Command2_Click()
On Error Resume Next
    If rs1.RecordCount > 1 Then
        rs1.MovePrevious
        If Not rs1.BOF Then
            
            Text2.Text = rs1!SoilUser
            Text3.Text = rs1!CorporName
            Text4.Text = rs1!CorporUnitprop
            Text5.Text = rs1!CorporUnit
            Text6.Text = rs1!SoilownerZhen
            Text7.Text = rs1!SoilownerCun
            Text8.Text = rs1!SoilownerZu
            Text9.Text = rs1!ChartNum
            Text10.Text = rs1!SoilNum
            Text11.Text = rs1!SoilCardNum
            Text12.Text = rs1!SoilPos
            Text13.Text = rs1!Base_Access_Sqr
            Text16.Text = rs1!Base_Particular_Sqr
            Text14.Text = rs1!Base_Particular_YT
            Text15.Text = rs1!Base_Particular_JZ
            Text17.Text = rs1!Base_Particular_XZ
            Text22.Text = rs1!Base_Communion_Sqr
            Text18.Text = rs1!Base_Communion_LX
            Text19.Text = rs1!Base_Communion_FT
            Text20.Text = rs1!Base_Communion_BJ
            Text21.Text = rs1!Base_Communion_User
            Text24.Text = rs1!Base_Term
            Text23.Text = rs1!Base_Term_Date
            Text25.Text = rs1!Base_JZWQS
            Text26.Text = rs1!Base_JZLX
            Text27.Text = rs1!Base_ZDSZ
            Text28.Text = rs1!Base_TDQYJRQ
            If rs1!BZ <> Null Then
                Text29.Text = rs1!BZ
            Else
                Text29.Text = ""
             End If
        Else
            MsgBox "已经是第一条记录"
            Command2.Enabled = False
        End If
    
    Command5.Enabled = True
    
    End If
End Sub

Private Sub Command3_Click()
On Error Resume Next
    Text2.Text = ""
            Text3.Text = ""
            Text4.Text = ""
            Text5.Text = ""
            Text6.Text = ""
            Text7.Text = ""
            Text8.Text = ""
            Text9.Text = ""
            Text10.Text = ""
            Text11.Text = ""
            Text12.Text = ""
            Text13.Text = ""
            Text16.Text = ""
            Text14.Text = ""
            Text15.Text = ""
            Text17.Text = ""
            Text22.Text = ""
            Text18.Text = ""
            Text19.Text = ""
            Text20.Text = ""
            Text21.Text = ""
            Text24.Text = ""
            Text23.Text = ""
            Text25.Text = ""
            Text26.Text = ""
            Text27.Text = ""
            Text28.Text = ""
            Text29.Text = ""
        

If aa = True Then
rs1.Close
cnn.Close
End If
    Form3.Hide
    Form1.Show
End Sub

Private Sub Command4_Click()
DataReport1.Show

End Sub

Private Sub Command5_Click()
On Error Resume Next
    If rs1.RecordCount > 1 Then
       rs1.MoveNext
        If Not rs1.EOF Then
            
            Text2.Text = rs1!SoilUser
            Text3.Text = rs1!CorporName
            Text4.Text = rs1!CorporUnitprop
            Text5.Text = rs1!CorporUnit
            Text6.Text = rs1!SoilownerZhen
            Text7.Text = rs1!SoilownerCun
            Text8.Text = rs1!SoilownerZu
            Text9.Text = rs1!ChartNum
            Text10.Text = rs1!SoilNum
            Text11.Text = rs1!SoilCardNum
            Text12.Text = rs1!SoilPos
            Text13.Text = rs1!Base_Access_Sqr
            Text16.Text = rs1!Base_Particular_Sqr
            Text14.Text = rs1!Base_Particular_YT
            Text15.Text = rs1!Base_Particular_JZ
            Text17.Text = rs1!Base_Particular_XZ
            Text22.Text = rs1!Base_Communion_Sqr
            Text18.Text = rs1!Base_Communion_LX
            Text19.Text = rs1!Base_Communion_FT
            Text20.Text = rs1!Base_Communion_BJ
            Text21.Text = rs1!Base_Communion_User
            Text24.Text = rs1!Base_Term
            Text23.Text = rs1!Base_Term_Date
            Text25.Text = rs1!Base_JZWQS
            Text26.Text = rs1!Base_JZLX
            Text27.Text = rs1!Base_ZDSZ
            Text28.Text = rs1!Base_TDQYJRQ
            If rs1!BZ <> Null Then
                Text29.Text = rs1!BZ
            Else
                Text29.Text = ""
            End If
            
        Else
            MsgBox "已经是最后一条记录"
            Command5.Enabled = False
        End If
    
    Command2.Enabled = True
    
    End If
End Sub

Private Sub Command6_Click()
On Error Resume Next
        If rs1.EOF Then
           rs1.MovePrevious
        End If
        If rs1.BOF Then
           rs1.MoveNext
        End If
        rs1!SoilUser = Text2.Text
        rs1!CorporName = Text3.Text
        rs1!CorporUnitprop = Text4.Text
        rs1!CorporUnit = 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!SoilPos = Text12.Text
        rs1!Base_Access_Sqr = Text13.Text
        rs1!Base_Particular_Sqr = Text16.Text
        rs1!Base_Particular_YT = Text14.Text
        rs1!Base_Particular_JZ = Text15.Text
        rs1!Base_Particular_XZ = Text17.Text
        rs1!Base_Communion_Sqr = Text22.Text
        rs1!Base_Communion_LX = Text18.Text
        rs1!Base_Communion_FT = Text19.Text
        rs1!Base_Communion_BJ = Text20.Text
        rs1!Base_Communion_User = Text21.Text
        rs1!Base_Term = Text24.Text
        rs1!Base_Term_Date = Text23.Text
        rs1!Base_JZWQS = Text25.Text
        rs1!Base_JZLX = Text26.Text
        rs1!Base_ZDSZ = Text27.Text
        rs1!Base_TDQYJRQ = Text28.Text
        rs1!BZ = Text29.Text
        rs1.Update
End Sub

Private Sub Command7_Click()
'Printer.PaperSize = vbPRPSA4 '定义纸张大小为A4
'Printer.Orientation = vbPRORPortrait '纵向打印
'Printer.Orientation = vbPRORLandscape '横向打印
DataReport4.PrintReport True, 1, 1, 2
'DataReport4.Show
End Sub

Private Sub Form_Load()
On Error Resume Next
    Combo1.AddItem "土地使用者"
    Combo1.AddItem "图号"
    Combo1.AddItem "地号"
    Combo1.AddItem "土地证号"
    Combo1.Text = Combo1.List(0)
    aa = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Text2.Text = ""
            Text3.Text = ""
            Text4.Text = ""
            Text5.Text = ""
            Text6.Text = ""
            Text7.Text = ""
            Text8.Text = ""
            Text9.Text = ""
            Text10.Text = ""
            Text11.Text = ""
            Text12.Text = ""
            Text13.Text = ""
            Text16.Text = ""
            Text14.Text = ""
            Text15.Text = ""
            Text17.Text = ""
            Text22.Text = ""
            Text18.Text = ""
            Text19.Text = ""
            Text20.Text = ""
            Text21.Text = ""
            Text24.Text = ""
            Text23.Text = ""
            Text25.Text = ""
            Text26.Text = ""
            Text27.Text = ""
            Text28.Text = ""
            Text29.Text = ""
If aa = True Then
rs1.Close
cnn.Close
End If
Form3.Hide
Form1.Show

End Sub