学生信息管理系统的论文+毕业设计用VB(7)

End Sub

Private Sub sysManager_Click() Form3.Show 1 End Sub

Private Sub Userpasword_Click() ''用户密码 Form4.Show 1 End Sub

Public Sub PrivsSeting() '权限设置 If IsUserMode = 1 Then ''管理员

ElseIf IsUserMode = 2 Then sysManager.Visible = False Infomanage.Visible = False End If End Sub 用户管理代码

Private Sub cmdExit_Click() Unload Me End Sub

Private Sub Command2_Click() ''添加用户 On Error GoTo Err

If Trim(Text8.Text) <> \

<> \

Dim rs1 As New ADODB.Recordset If rs1.State Then rs1.Close

rs1.Open \count(*) from user_Form where user_Id='\& Trim(Text8.Text) & \ If rs1.Fields(0) > 0 Then

MsgBox \用户已经存在! 请改user_Id!\系统提示\ Text8.Text = \ Exit Sub End If

If rs1.State Then rs1.Close

rs1.Open \* from user_Form\Cn, adOpenStatic, adLockOptimistic rs1.AddNew

rs1.Fields(0).Value = Trim(Text8.Text) rs1.Fields(1).Value = Trim(Text9.Text) rs1.Fields(2).Value = Date

rs1.Fields(3).Value = Trim(Combo1.Text) rs1.Update

Combo5.AddItem Trim(Text8.Text)

MsgBox \用户添加成功!,初始密码为\系统提示\ Text8.Text = \End If Exit Sub Err:

MsgBox Err.Description End Sub

Private Sub Command3_Click() ''删除用户代码

If Trim(Combo5.Text) = UserName Then MsgBox \不能删除正在操作的用户!\ Exit Sub End If

Cn.Execute \from user_Form where user_Id='\& Trim(Combo5.Text) & \

Combo5.RemoveItem (Combo5.ListIndex) MsgBox \操作已成功!\提示\End Sub

Private Sub Form_Load() ''初始化代码 On Error GoTo Err Text8.Text = \

Dim rs1 As New ADODB.Recordset

rs1.Open \Combo5.Clear While Not rs1.EOF

If Not IsNull(rs1.Fields(0)) Then Combo5.AddItem Trim(rs1.Fields(0)) rs1.MoveNext Wend Err: End Sub

查询界面及源代码

Dim rs2 As New ADODB.Recordset '''记录集,检索用的

Private Sub cmdExcel_Click() ''excel输出 On Error GoTo Err

If MSHFlexGrid1.TextMatrix(0, 0) = \

Dim i As Integer Dim j As Integer

Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject(\

Set xlBook = xlApp.Workbooks.Add '打开已经存在的EXCEL工件簿文件 Set xlSheet = xlBook.Worksheets(1) '设置活动工作表 For i = 0 To MSHFlexGrid1.Rows - 1 For j = 0 To MSHFlexGrid1.Cols - 1

xlSheet.Cells(i + 1, j + 1) = Trim(MSHFlexGrid1.TextMatrix(i, j)) Next j Next i xlApp.Visible = True Exit Sub Err:

MsgBox Err.Description, , \错误\xlBook.Close (True) '关闭工作簿 xlApp.Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象 End Sub

Private Sub cmdExit_Click() Unload Me End Sub

Private Sub cmdLook_Click() ''查询代码

If Trim(Combo2.Text) <> \

Trim(Text1.Text) <> \ Dim strsql As String

strsql = \& Trim(Combo4.Text) & \

If Combo4.Text = \

strsql = strsql & \ Else

strsql = strsql & Trim(Text1.Text) & \ End If

If rs2.State Then rs2.Close

rs2.Open strsql, CN, adOpenStatic, adLockOptimistic Set MSHFlexGrid1.DataSource = rs2 Else

MsgBox \请选择或输入数据!\系统提示\End If End Sub

Private Sub Combo2_Click() If rs2.State Then rs2.Close

rs2.Open \Dim i As Integer Combo3.Clear

For i = 0 To rs2.Fields.Count - 1

Combo3.AddItem rs2.Fields(i).Name Next i

Combo3.Text = Combo3.List(0) Set MSHFlexGrid1.DataSource = rs2 End Sub

Private Sub Form_Load() Me.Caption = \综合检索\

'Combo2.Text = strTableName

Mainfrm.StatusBar1.Panels(2).Text = strTableName & \检索\ End Sub