【文章內(nèi)容簡介】 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, 提示 ShowDataEnd SubPrivate Sub Command2_Click() For i = 0 To 3 Text1(i) = NextEnd SubPrivate Sub Command5_Click() txtSQL = delete from class_Form where class_NO=39。 amp。 Trim(Text1(8)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) For i = 8 To 11 Text1(i) = Next MsgBox 班級已經(jīng)刪除！, vbOKOnly, 警告 ShowDataEnd SubPrivate Sub Command6_Click() For i = 8 To 11 Text1(i) = NextEnd SubPrivate 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。HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = amp。HFFFFFF Picture1(0).Visible = TrueEnd SubPrivate Sub Form_Resize() 1End SubPrivate Sub Label2_Click(Index As Integer) = 班級信息 = amp。 amp。 Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = amp。HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = amp。HFFFFFF Picture1(Index).Visible = True For i = 0 To 11 Text1(i) = Next = False = FalseEnd SubPrivate 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 .ColWidth(3) = 6000 .TextMatrix(0, 0) = 班級編號 .TextMatrix(0, 1) = 班級名稱 .TextMatrix(0, 2) = 導(dǎo)員姓名 .TextMatrix(0, 3) = 備注信息162。 .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 0 To 1 .TextMatrix(.Rows 1, i) = (i) amp。 Next i Loop End With End SubPrivate 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 IfEnd SubPrivate Sub Text1_Change(Index As Integer) If Index = 4 Then tSQL = select * from class_Form where class_NO=39。 amp。 Trim(Text1(Index)) amp。 39。 Set mrc = ExecuteSQL(tSQL, MsgText) If = False Then Text1(5) = (1) Text1(6) = (2) Text1(7) = (3) = True Exit Sub 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。 amp。 Trim(Text1(Index)) amp。 39。 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 IfEnd SubPrivate Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index))End SubPrivate Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub，命名為“frmcoui”。整個(gè)窗體界面如下所示。Frmcoui窗體的主要控件和屬性設(shè)置如下對象名屬性屬性值ComcolTextCombolList1(名稱)密碼TxtUserTextList1FrmcouiCaption課程信息StartUpPosition0 – 手動Command1Caption添加Command2Caption刪除Private Sub Combo1_Click() List1TextEnd SubPrivate Sub Command1_Click() Dim txtSQL As String If Text1(0) = Then MsgBox 課程名稱不能為空, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If txtSQL = select * from course_Form where course_Name=39。 amp。 Trim(Text1(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 此課程名稱已經(jīng)存在！, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txtSQL = select * from course_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) Text1(0) = Text1(1) = MsgBox 課程信息添加成功！, vbOKOnly, 提示 List2TextEnd SubPrivate Sub Command2_Click() Dim txtSQL As String If Then txtSQL = delete from course_Form where course_Name=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) MsgBox 課程信息已經(jīng)刪除！, vbOKOnly, 提示 List2Text End IfEnd SubPrivate Sub Form_Load() Dim txtSQL As String = 課程信息設(shè) 置 txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 請先進(jìn)行班級設(shè)置, vbOKOnly, 提示 Else With Combo1 Do While Not .AddItem Trim(mrc!class_NO) Loop = 0 End With End If List2TextEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label3(0).BackColor = amp。HC0C0C0 Label3(1).BackColor = amp。HC0C0C0 Label3(2).BackColor = amp。HC0C0C0 Label3(3).BackColor = amp。HC0C0C0End SubPrivate Sub Form_Resize() 1End SubPrivate Sub Label3_Click(Index A