魅族人工在线客服中心:VB问题：动态生成控件

Private Sub Combo1_Click()

Dim db As Database
Dim rs As Recordset

Set db = DBEngine.Workspaces(0).OpenDatabase("D:\天津机电职业技术学院成绩管理系统\学生成绩管理库.mdb")
Set rs = db.OpenRecordset("select * from " & Combo1.Text)
Set Data1.Recordset = rs

Dim i As Integer

For i = 0 To DBGrid1.Columns.Count - 1
DBGrid1.Columns(i).Locked = True
Next i

End Sub

Private Sub Command1_Click()

Dim i As Integer

If Command1.Caption = "修改" Then
For i = 0 To 3
Text1(i).Locked = False
Next i
Command1.Caption = "完成"
DBGrid1.Enabled = False
Else
For i = 0 To DBGrid1.Columns.Count - 1
DBGrid1.Columns(i).Text = Text1(i).Text
Next i

Data1.UpdateRecord

For i = 0 To 3
Text1(i).Locked = True
Next i

Command1.Caption = "修改"
DBGrid1.Enabled = True
End If

End Sub

Private Sub Command2_Click()

Dim i As Integer

If Command2.Caption = "添加" Then
For i = 0 To 3
Text1(i).Locked = False
Next i

Data1.Recordset.AddNew
Data1.UpdateRecord
Data1.Recordset.MoveLast

Command2.Caption = "完成"
DBGrid1.Enabled = False
Else
For i = 0 To DBGrid1.Columns.Count - 1
DBGrid1.Columns(i).Text = Text1(i).Text
Next i

Data1.UpdateRecord

For i = 0 To 3
Text1(i).Locked = True
Next i

Command2.Caption = "添加"
DBGrid1.Enabled = True
End If

End Sub

Private Sub Command3_Click()

If MsgBox("是否真的删除该记录？", vbYesNo, "提示") = vbYes Then
Data1.Recordset.Delete
Else
Exit Sub
End If
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast

End Sub

Private Sub Data1_Reposition()

Dim i As Integer

For i = 0 To DBGrid1.Columns.Count - 1
Text1(i).Text = DBGrid1.Columns(i).Text
Next i

End Sub