frm_zxinfomd.frm

小区物业管理系统,(vb6+SQLServer2000+使用说明)

         Caption         =   "客    户："
         Height          =   180
         Left            =   165
         TabIndex        =   26
         Top             =   825
         Width           =   900
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "预    算："
         Height          =   180
         Left            =   180
         TabIndex        =   25
         Top             =   1245
         Width           =   900
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "罚    金："
         Height          =   180
         Left            =   165
         TabIndex        =   24
         Top             =   1650
         Width           =   900
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "验  收："
         Height          =   180
         Left            =   3615
         TabIndex        =   23
         Top             =   915
         Width           =   720
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "申请日期："
         DataSource      =   "Adodc1"
         Height          =   180
         Left            =   180
         TabIndex        =   22
         Top             =   2460
         Width           =   900
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         Caption         =   "装修内容："
         Height          =   180
         Left            =   180
         TabIndex        =   21
         Top             =   2895
         Width           =   900
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         Caption         =   "装修队："
         Height          =   180
         Left            =   2265
         TabIndex        =   20
         Top             =   420
         Width           =   720
      End
      Begin VB.Label Label9 
         AutoSize        =   -1  'True
         Caption         =   "申请人："
         Height          =   180
         Left            =   2160
         TabIndex        =   19
         Top             =   885
         Width           =   720
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         Caption         =   "装修押金："
         Height          =   180
         Left            =   2580
         TabIndex        =   18
         Top             =   1695
         Width           =   900
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         Caption         =   "经办人："
         Height          =   180
         Left            =   2580
         TabIndex        =   17
         Top             =   2100
         Width           =   720
      End
      Begin VB.Label Label12 
         AutoSize        =   -1  'True
         Caption         =   "装修管理费："
         Height          =   180
         Left            =   2550
         TabIndex        =   16
         Top             =   1275
         Width           =   1080
      End
      Begin VB.Label Label13 
         AutoSize        =   -1  'True
         Caption         =   "退押金日期："
         Height          =   180
         Left            =   2520
         TabIndex        =   15
         Top             =   2475
         Width           =   1080
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         Caption         =   "完工日期："
         Height          =   180
         Left            =   180
         TabIndex        =   14
         Top             =   2085
         Width           =   900
      End
   End
   Begin VB.Frame Frame4 
      Height          =   660
      Left            =   105
      TabIndex        =   28
      Top             =   2685
      Width           =   3630
      Begin VB.CommandButton Command3 
         Caption         =   "第一条"
         Height          =   350
         Left            =   90
         TabIndex        =   32
         Top             =   195
         Width           =   850
      End
      Begin VB.CommandButton Command4 
         Caption         =   "上一条"
         Height          =   350
         Left            =   945
         TabIndex        =   31
         Top             =   195
         Width           =   850
      End
      Begin VB.CommandButton Command5 
         Caption         =   "下一条"
         Height          =   350
         Left            =   1800
         TabIndex        =   30
         Top             =   195
         Width           =   850
      End
      Begin VB.CommandButton Command6 
         Caption         =   "最后一条"
         Height          =   350
         Left            =   2655
         TabIndex        =   29
         Top             =   195
         Width           =   850
      End
   End
End
Attribute VB_Name = "Frm_zxinfomd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Command1_Click()   '更新
     If Text6.Text = "" Then
        MsgBox "请输入罚金", , "系统提示"
    Else
       Set adors = cn.Execute("update  tab_zxinfo set 罚金='" & Text6 & "'")
    Set adors = cn.Execute("update  tab_zxinfo set 验收='" & Text8 & "'")

'    adodc1.Recordset.UpdateBatch
    MsgBox "数据修改成功！", , "系统提示"
    Adodc1.Refresh
Unload Me
    frm_zxinfo.Show     '显示装修信息窗体

    End If
End Sub
Private Sub Command2_Click()   '退出
    Unload Me
    frm_zxinfo.Show     '显示装修信息窗体
End Sub



Private Sub Command3_Click()   '第一条
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then

    Adodc1.Recordset.MoveFirst
    Else
            MsgBox "没有记录!", , "系统提示"
    End If

End Sub
Private Sub Command4_Click()    '上一条
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.MovePrevious
        If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
    Else
        MsgBox "没有记录!", , "系统提示"
    End If
'    adodc1.Recordset.MovePrevious
'    If adodc1.Recordset.BOF Then adodc1.Recordset.MoveFirst
End Sub
Private Sub Command5_Click()   '下一条
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.MoveNext
        If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
    Else
        MsgBox "没有记录!", , "系统提示"
    End If
'    adodc1.Recordset.MoveNext
'    If adodc1.Recordset.EOF Then adodc1.Recordset.MoveLast
End Sub
Private Sub Command6_Click()   '最后一条
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
    Adodc1.Recordset.MoveLast
Else
        MsgBox "没有记录!", , "系统提示"
    End If
'    adodc1.Recordset.MoveLast
End Sub

Private Sub Form_Load()
    DTPicker1.Value = Date
    DTPicker2.Value = Date
    DTPicker3.Value = Date
    '自动识别路径
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_wygl.mdb;Persist Security Info=False"
    Adodc1.RecordSource = "select * from tab_zxinfo"
'    Adodc1.Refresh

End Sub