vboracle学生学籍管理系统课程设计报告(编辑修改稿)

vboracle学生学籍管理系统课程设计报告(编辑修改稿)内容摘要：

16 End If Exit Sub End Sub Private Sub Label1_Click() End Sub Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCode End Sub Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call cmdOK_Click End If End Sub Private Sub txtUserName_Click() = End Sub Private Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCode End Sub 在工程中添加一个窗体，命名为“ dColor”。 整个窗体的界面设计示意图如下 . dColor 窗体上的空间及其属性如下表所示。 窗体属性 设置值 具体说明 名称 dColor 设置窗体名称 MaxButton True 激活最大化按钮 MinButton True 激活最小化按钮 ControlBox True 控制按钮 在登录 窗体中添加控件，并设置控件的属性如下表所示： 对象名 属性 属性值 Image1 Picture （ Bitmap） 17 Image2 Picture （ Bitmap） Stretch False Label1 Caption 欢迎进去学生管理系统 BackColor 0 – Transparent 编写窗体代码 Private Sub Form_Load() = amp。 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。 amp。 Trim(Text1(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 此班级编号已经存在。 , 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。 amp。 Trim(Text1(8)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) For i = 8 To 11 Text1(i) = Next MsgBox 班级已经删除。 , 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。 HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = amp。 HFFFFFF Picture1(0).Visible = True End Sub Private Sub Form_Resize() 1 End Sub Private 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 = 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。 .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 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。 amp。 Trim(Text1(Index)) amp。 39。 Set mrc = ExecuteSQL(tSQL, MsgText) If = False Th。