《VB学生信息管理系统及源代码》由会员分享，可在线阅读，更多相关《VB学生信息管理系统及源代码（20页珍藏版）》请在金锄头文库上搜索。
1、VB 学生信息管理系统及源代码学生信息管理系统及源代码Option Explicit标识是否能关闭 Dim mbClose As Boolean标识当前要显示的照片的文件 Dim mstrFileName As String Private Sub Form_Load()On Error Resume NextIf frmMain.mnUserType = 1 Then 学生用户fraSeek.Enabled = FalsefraBrowse.Enabled = FalsecmdAdd.Enabled = FalsecmdDelete.Enabled = FalsetxtSerial.Enab
2、led = FalsedcbClass.Enabled = FalsegrdScan.Enabled = FalseIf Not (DataEnv.rsStudent.EOF And DataEnv.rsStudent.BOF) ThenDim Temp As StringTemp = “name = “ *.dib;*.gif;*.jpg;*.ico|位图文件(*.bmp;*.dib)“ *.dib|GIF 文件(*.gif)|*.gif|JPEG 文件(*.jpg)|*.jpg|图标文件(*.ico) |*.ico“dlgSelect.ShowOpenIf dlgSelect.FileNa
3、me = “ Then Exit SubimgPhoto.Picture = LoadPicture(dlgSelect.FileName)mstrFileName = dlgSelect.FileNameExit Sub errHandler:MsgBox Err.Description, vbCritical, “错误“ End SubPrivate Sub cmdUpdate_Click()更新所添加或者修改的记录On Error GoTo errHandler:Dim str As Stringstr = txtSerial.TextWith DataEnv.rsStudent.Fie
4、lds(“Serial“) = txtSerial.Text.Fields(“name“) = txtName.Text.Fields(“sex“) = cboSex.Text.Fields(“class“) = dcbClass.Text.Fields(“birthday“) = dtpBirth.Value.Fields(“tel“) = txtTelephone.Text.Fields(“address“) = txtAddress.Text.Fields(“resume“) = txtResume.TextIf mstrFileName = 3 ThenMsgBox “您无权操作本系统
5、！“, vbCritical, “错误“Unload MeEnd IfElse 登陆成功显示 MDI 窗体, 并将用户类型和用户名传到 MDI 窗体中的 mnUserType, msUserName 中With frmMain.mnUserType = mnUserType.msUserName = userEnd WithLoad frmMainfrmMain.ShowUnload MeEnd If End SubPrivate Sub Form_Load()optUserType(0).Value = True End SubPrivate Sub optUserType_Click(In
6、dex As Integer)mnUserType = Index End SubOption ExplicitPrivate Sub Command1_Click()Dim strCon1 As StringDim strCon2 As StringOn Error GoTo myerrIf Trim(Text1.Text) = “ Or Trim(Text2.Text) = “ ThenIf MsgBox(“请输入查询条件！“, vbInformation, “提示“) Then GoTo myerrEnd IfSelect Case Trim(Combo1.Text)Case “学号“s
7、trCon1 = “Serial“Case “姓名“strCon1 = “Name“Case “班级“strCon1 = “Class“Case “生日“strCon1 = “Birthday“Case “性别“strCon1 = “Sex“Case “家庭地址“strCon1 = “Address“Case “电话“strCon1 = “Tel“End SelectSelect Case Trim(Combo4.Text)Case “学号“strCon2 = “Serial“Case “姓名“strCon2 = “Name“Case “班级“strCon2 = “Class“Case “生日
8、“strCon2 = “Birthday“Case “性别“strCon2 = “Sex“Case “家庭地址“strCon1 = “Address“Case “电话“strCon2 = “Tel“End SelectDataEnv.rsStudent.CloseDataEnv.rsStudent.Open “select * from 学生信息表 where “ & _strCon1 & Trim(Combo2.Text) & “ “ & Trim(Text1.Text) _& “ & “ “ & Trim(Combo3.Text) & “ “ & strCon2 & _Trim(Combo
9、5.Text) & “ & Trim(Text2.Text) & “dgdCX.DataMember = “dgdCX.RefreshDataEnv.rsStudent.RequerydgdCX.DataMember = “Student“dgdCX.Refresh myerr: End SubPrivate Sub Command3_Click()Unload Me End SubPrivate Sub dgdCX_Click()End SubPrivate Sub Form_Load()添加 Combo1 的子项作为查询标准Combo1.AddItem (“学号“)Combo1.AddIt
10、em (“姓名“)Combo1.AddItem (“班级“)Combo1.AddItem (“生日“)Combo1.AddItem (“性别“)Combo1.AddItem (“家庭地址“)Combo1.AddItem (“电话“)Combo1.ListIndex = 0添加 Combo2 的子项作为关系符Combo2.AddItem (“=“)Combo2.AddItem (“)Combo2.AddItem (“=“)Combo2.AddItem (“)Combo2.ListIndex = 0添加 Combo3 的子项作为逻辑连接符Combo3.AddItem (“And“)Combo3.A
11、ddItem (“Or“)Combo3.ListIndex = 0添加 Combo4 的子项作为第二种查询标准Combo4.AddItem (“学号“)Combo4.AddItem (“姓名“)Combo4.AddItem (“班级“)Combo4.AddItem (“生日“)Combo4.AddItem (“性别“)Combo4.AddItem (“家庭地址“)Combo4.AddItem (“电话“)Combo4.ListIndex = 0添加 Combo5 的子项作为第二种关系符Combo5.AddItem (“=“)Combo5.AddItem (“)Combo5.AddItem (“=“)Combo5.AddItem (“)Combo5.ListIndex = 0End SubPrivate Sub Form_Unload(Cancel As Integer)frmMain.Enabled = TruefrmMain.Show End Sub
