【正文】 Color 窗體上的空間及其屬性如下表所示。H8000000E = 12 = True i = End Sub Private Sub Form_Resize() = 0 = 0 = = = = = 100 End Sub Private Sub Label1_Click() End Sub Private Sub Timer1_Timer() i = i + 50 = i If i + Then i = End If End Sub 在工程中添加一個窗體，命名為“ frmclai”。 18 frmclai 窗體上的的主要屬性和控件設置如下： 對象名 屬性 屬性值 Frmclai Caption 班級信息 Minbutton True LinkTopic Form1 HacDC True MSFlexGrid1 DragMode 0 – vbManual Label1 Caption 班級信息列表 Label2（ 0） Caption 添加 Label2（ 1） Caption 修改 Label2（ 2） Caption 刪除 Label3（ 0） Caption 班級編號 Label3（ 1） Caption 班級名稱 Label3（ 2） Caption 導員姓名 Label3（ 3） Caption 備注 編寫窗體代碼 Private Sub Command1_Click() If Text1(0) = Then MsgBox 班級編號不能為空！ , vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 班級名稱不能為空！ , vbOKOnly, 提示 Text1(1).SetFocus Exit Sub End If If Text1(2) = Then MsgBox 導員姓名不能為空！ , vbOKOnly, 提示 Text1(2).SetFocus 19 Exit Sub End If txtSQL = select * from class_Form where class_NO=39。 Trim(Text1(0)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 此班級編號已經(jīng)存在！ , vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) (2) = Trim(Text1(2)) (3) = Trim(Text1(3)) For i = 0 To 3 Text1(i) = Next MsgBox 班級信息添加成功！ , vbOKOnly, 提示 ShowData End Sub Private Sub Command2_Click() For i = 0 To 3 Text1(i) = Next End Sub Private Sub Command5_Click() txtSQL = delete from class_Form where class_NO=39。 Trim(Text1(8)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) For i = 8 To 11 Text1(i) = Next MsgBox 班級已經(jīng)刪除！ , vbOKOnly, 警告 ShowData End Sub Private Sub Command6_Click() For i = 8 To 11 20 Text1(i) = Next End Sub Private Sub Form_Load() = 班級信息 — 添 加 Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Picture1(0).Left ShowData For i = 0 To 2 Label2(i).BackColor = amp。HFFFFFF Picture1(0).Visible = True End Sub Private Sub Form_Resize() 1 End Sub Private Sub Label2_Click(Index As Integer) = 班級信息 = amp。 Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = amp。HFFFFFF Picture1(Index).Visible = True For i = 0 To 11 Text1(i) = Next = False = False End Sub Private Sub ShowData() Dim txSQL As String Dim mrcc As txSQL = select * from class_Form Set mrcc = ExecuteSQL(txSQL, MsgText) With MSFlexGrid1 .ColWidth(0) = 1200 .ColWidth(1) = 1200 .ColWidth(2) = 1200 21 .ColWidth(3) = 6000 .TextMatrix(0, 0) = 班級編號 .TextMatrix(0, 1) = 班級名稱 .TextMatrix(0, 2) = 導員姓名 .TextMatrix(0, 3) = 備注信息 162。 Next i Loop End With End Sub Private Sub MSFlexGrid1_Click() If Picture1(1).Visible = True Then Text1(4) = Trim((, 0)) Text1(5) = Trim((, 1)) Text1(6) = Trim((, 2)) Text1(7) = Trim((, 3)) = True End If If Picture1(2).Visible = True Then Text1(8) = Trim((, 0)) Text1(9) = Trim((, 1)) Text1(10) = Trim((, 2)) Text1(11) = Trim((, 3)) = True End If End Sub Private Sub Text1_Change(Index As Integer) If Index = 4 Then tSQL = select * from class_Form where class_NO=39。 Trim(Text1(Index)) amp。 Set mrc = ExecuteSQL(tSQL, MsgText) If = False Then Text1(5) = (1) Text1(6) = (2) Text1(7) = (3) = True Exit Sub 22 Else Text1(5) = Text1(6) = Text1(7) = = False End If End If If Index = 8 Then tSQL = select * from class_Form where class_NO=39。 Trim(Text1(Index)) amp。 Set mrc = ExecuteSQL(tSQL, MsgText) If = False Then Text1(9) = (1) Text1(10) = (2) Text1(11) = (3) = True Exit Sub Else Text1(9) = Text1(10) = Text1(11) = = False End If End If End Sub Private Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index)) End Sub Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCode End Sub 在工程中添加一個窗體，命名為“ frmcoui”。 23 Frmcoui 窗體的主要控件和屬性設置如下 對象名 屬性 屬性值 Comcol Text Combol List1 (名稱 ) 密碼 TxtUser Text List1 Frmcoui Caption 課程信息 StartUpPosition 0 – 手動 Command1 Caption 添加 Command2 Caption 刪除