editws.frm

一个简单的大学宿舍管理系统环境：vb6.0+acce

            Width           =   1215
         End
         Begin VB.Label Label8 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "减分"
            Height          =   180
            Left            =   120
            TabIndex        =   23
            Top             =   300
            Width           =   360
         End
         Begin VB.Label Label9 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "得分"
            Height          =   180
            Left            =   1560
            TabIndex        =   22
            Top             =   300
            Width           =   360
         End
         Begin VB.Label Label10 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "等级"
            Height          =   180
            Left            =   3000
            TabIndex        =   21
            Top             =   300
            Width           =   360
         End
      End
      Begin VB.Frame Frame2 
         Height          =   680
         Left            =   120
         TabIndex        =   12
         Top             =   120
         Width           =   4935
         Begin VB.TextBox Text1 
            Appearance      =   0  'Flat
            Height          =   300
            Left            =   600
            TabIndex        =   14
            Text            =   "Text1"
            Top             =   240
            Width           =   1455
         End
         Begin VB.TextBox Text2 
            Appearance      =   0  'Flat
            Height          =   300
            Left            =   3360
            TabIndex        =   13
            Text            =   "Text2"
            Top             =   240
            Width           =   1215
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "公寓"
            Height          =   180
            Left            =   120
            TabIndex        =   16
            Top             =   300
            Width           =   360
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "寝室"
            Height          =   180
            Left            =   2880
            TabIndex        =   15
            Top             =   300
            Width           =   360
         End
      End
      Begin VB.Frame Frame1 
         Height          =   2270
         Left            =   120
         TabIndex        =   1
         Top             =   840
         Width           =   4935
         Begin VB.TextBox Text3 
            Appearance      =   0  'Flat
            Height          =   300
            Left            =   1080
            TabIndex        =   6
            Text            =   "Text3"
            Top             =   320
            Width           =   3735
         End
         Begin VB.TextBox Text4 
            Appearance      =   0  'Flat
            Height          =   300
            Left            =   1080
            TabIndex        =   5
            Text            =   "Text4"
            Top             =   680
            Width           =   3735
         End
         Begin VB.TextBox Text5 
            Appearance      =   0  'Flat
            Height          =   300
            Left            =   1080
            TabIndex        =   4
            Text            =   "Text5"
            Top             =   1040
            Width           =   3735
         End
         Begin VB.TextBox Text6 
            Appearance      =   0  'Flat
            Height          =   300
            Left            =   1080
            TabIndex        =   3
            Text            =   "Text6"
            Top             =   1400
            Width           =   3735
         End
         Begin VB.TextBox Text7 
            Appearance      =   0  'Flat
            Height          =   300
            Left            =   1080
            TabIndex        =   2
            Text            =   "Text7"
            Top             =   1760
            Width           =   3735
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "不合格 1"
            Height          =   180
            Left            =   240
            TabIndex        =   11
            Top             =   360
            Width           =   720
         End
         Begin VB.Label Label4 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "不合格 2"
            Height          =   180
            Left            =   240
            TabIndex        =   10
            Top             =   720
            Width           =   720
         End
         Begin VB.Label Label5 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "不合格 3"
            Height          =   180
            Left            =   240
            TabIndex        =   9
            Top             =   1080
            Width           =   720
         End
         Begin VB.Label Label6 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "不合格 4"
            Height          =   180
            Left            =   240
            TabIndex        =   8
            Top             =   1440
            Width           =   720
         End
         Begin VB.Label Label7 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "不合格 5"
            Height          =   180
            Left            =   240
            TabIndex        =   7
            Top             =   1800
            Width           =   720
         End
      End
   End
End
Attribute VB_Name = "editws"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public c As Adodc
Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim provider As String
Dim datasource As String

Set c = main.DataGrid1.datasource

provider = "provider=Microsoft.jet.oledb.4.0"
datasource = "data source=" & App.Path & "\DB.mdb"

With Adodc1
.Mode = adModeReadWrite
.ConnectionString = provider & ";" & datasource
.CommandType = adCmdText
.RecordSource = r.RecordSource
End With

With Adodc2
.Mode = adModeReadWrite
.ConnectionString = provider & ";" & datasource
.CommandType = adCmdTable
.RecordSource = "gongyu"
.Refresh
End With

With Adodc3
.Mode = adModeReadWrite
.ConnectionString = provider & ";" & datasource
.CommandType = adCmdTable
.RecordSource = "qinshi"
.Refresh
End With

Text1.Text = c.Recordset.Fields("公寓").Value
Text2.Text = c.Recordset.Fields("寝室").Value
Text3.Text = c.Recordset.Fields("检查1").Value
Text4.Text = c.Recordset.Fields("检查2").Value
Text5.Text = c.Recordset.Fields("检查3").Value
Text6.Text = c.Recordset.Fields("检查4").Value
Text7.Text = c.Recordset.Fields("检查5").Value
Text8.Text = c.Recordset.Fields("减分").Value
Text9.Text = c.Recordset.Fields("得分").Value
Text10.Text = c.Recordset.Fields("等级").Value
Text11.Text = c.Recordset.Fields("备注").Value
End Sub