学生学籍成绩管理系统源程序[分享]

1、学生学籍成绩管理系统源程序分享【专业版】（文档可以直接使用，也可根据实际需要修订后使用 ，可编辑放心下载）模块 1:Option ExplicitPublic con As ADODB.ConnectionPublic rs As ADODB.RecordsetPublic username As StringPublic usergrade As StringPublic userpwd As StringPublic cmd As ADODB.Command模块 2Option ExplicitSub hidewindow()With ActiveWindow.DisplayGridlin

2、es = False .DisplayHeadings = False .DisplayOutline = False .DisplayZeros = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False .DisplayWorkbookTabs = FalseEnd WithEnd SubSub showwindow()With ActiveWindow .DisplayGridlines = True .DisplayHeadings = True .DisplayOutline = True

3、 .DisplayZeros = True .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = TrueEnd WithEnd Sub模块 3:Sub Macro1()Range("D2:D60000").SelectWith Selection.Validation.Delete.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _xlBetween, Formula1:="团员，党员，预备党员，群众&qu

4、ot;.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd WithEnd SubSub Macro2()Range("J2:J60000").SelectWith Selection.Validati

5、on.Delete.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _xlBetwee n, Formula1:="本科，专科”.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput

6、 = True.ShowError = TrueEnd WithEnd SubSub Macro3()Range("K2:K60000").SelectWith Selection.Validation.Delete.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetwee n, Formula1:="在校，休学，毕业”.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTi

7、tle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd WithEnd SubUserForm1 代码 :Option ExplicitPrivate Sub CommandButton1_Click()On Error GoTo doerrorDim sql As StringSet con = New ADODB.ConnectionSet rs = New ADOD

8、B.Recordsetcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path & "xjcj.mdb"sql = "select * from 用户数据表 where 用户名 = '" & UserForm1.ComboBox1.Text & "'"rs.Open sql, con, adOpenKeyset, adLockOptimisticIf UserForm1.C

9、omboBox1.Text = "" ThenMsgBox " 用户名不能为空！ "Exit SubEnd IfIf UserForm1.TextBox2.Text = "" ThenMsgBox " 密码不能为空！ "Exit SubEnd IfIf Trim(rs.Fields(” 密码")=Trim(UserForm1.TextBox2.Text) Thenuser name = Trim(rs.Fields('用户名") usergrade = Trim(rs.Fields(权限

10、") userpwd = Trim(rs.Fields('密码") Workbooks.Application.Visible = True Sheets("目录").A ctivate Me.HideUnload MeElseMsgBox "密码错误 "TextBox2.Text = ""TextBox2.SetFocusExit SubEnd Ifrs.Close con.Close Set rs = Nothing Set con = Nothing Exit Sub doerror:MsgBox &

11、quot; 系统出现错误 " End SubPrivate Sub CommandButton2_Click()ActiveWorkbook.SaveApplication.QuitEnd SubPrivate Sub UserForm_Initialize()Dim i As IntegerSet con = New ADODB.ConnectionSet rs = New ADODB.Recordsetcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path

12、 & "xjcj.mdb"rs.Open "select * from 用户数据表 ", con, adOpenKeyset, adLockOptimistic For i = 1 To rs.RecordCountUserForml.ComboBoxl.Addltem rs.Fields(用户名”) rs.MoveNextNext irs.Closecon.CloseSet rs = NothingSet con = NothingEnd SubUserForm2 代码 :Option ExplicitPrivate Sub CommandBu

13、tton1_Click()On Error Resume NextApplication.ScreenUpdating = FalseDim sql As StringSet con = New ADODB.ConnectionSet rs = New ADODB.RecordsetSet cmd = New ADODB.Commandcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path & "xjcj.mdb"Set cmd.Active

14、Connection = conOrIf UserForm2.TextBox1.Text = "" Or UserForm2.TextBox2.Text = " UserForm2.TextBox3.Text = "" ThenMsgBox "更改信息不齐全！ ", 48Exit SubEnd IfIf userpwd = Trim(UserForm2.TextBox1.Text) ThenIf Trim(UserForm2.TextBox2) = Trim(UserForm2.TextBox3) Then cmd.Comm

15、andText = "update 用 户 数 据 表 set 密 码 = UserForm2.TextBox2.Text & "'where 用户名 = '" & username & "'" cmd.ExecuteMsgBox " 密码更换成功！请牢记密码！ "Unload MeElseMsgBox " 确认密码输入有误，请重新输入！ "End IfElseMsgBox " 原密码输入错误，请重新输入！End IfApplication.Scr

16、eenUpdating = True rs.Closecon.CloseSet rs = NothingSet con = NothingEnd SubPrivate Sub CommandButton2_Click()Unload MeEnd SubUserForm3 代码 :Option ExplicitPrivate Sub CommandButton1_Click()On Error Resume NextDim y As IntegerSet con = New ADODB.ConnectionSet rs = New ADODB.RecordsetSet cmd = New ADO

17、DB.Command con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path& "xjcj.mdb" rs.Open "select * from 用户数据表 where 用户名 ='" & UserForm3.TextBox1.Text & "'", con, adOpenKeyset, adLockOptimisticIf UserForm3.TextBox1.Tex

18、t = "" Or UserForm3.TextBox2.Text = "" Or UserForm3.TextBox1.Text = "" ThenMsgBox "信息不全，请完整填写信息 "Exit SubEnd IfIf Not rs.EOF ThenMsgBox " 用户名已存在，请重新输入 "Exit SubElseSet cmd.ActiveConnection = concmd.CommandText = "INSERT INTO 用户数据表 (用户名 ,密码,权限) V

19、ALUES ('" & Trim(UserForm3.TextBox1.Text) & "','" & Trim(UserForm3.TextBox2.Text) & "','" & Trim(UserForm3.ComboBox1.Text) & "')"cmd.Executey = MsgBox("数据保存成功，是否继续增加", vbYesNo,"提示信息！")If y = vbYes

20、ThenWith UserForm3 .TextBox1.Text = "" .TextBox2.Text = "" .ComboBox1.Text = "" .TextBox1.SetFocusExit SubEnd WithElseIf y = vbNo ThenUnload MeExit SubEnd IfEnd Ifrs.Closecon.CloseSet rs = NothingSet con = NothingEnd SubUserForm4 代码 :Option ExplicitPrivate Sub CommandBu

21、tton1_Click()On Error Resume NextDim y As StringDim cmd As ADODB.CommandSet con = New ADODB.ConnectionSet rs = New ADODB.RecordsetSet cmd = New ADODB.Commandcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path & "xjcj.mdb"Set cmd.ActiveConnection =

22、 conIf Trim(username) = Trim(UserForm4.ComboBox1.Text) ThenMsgBox " 当前用户不能删除 "Exit SubEnd Ify = MsgBox(" 您是否真的删除该用户 ?", vbYesNo + 64, "提示")If y = vbYes Thencmd.CommandText = "delete * from 用 户 数 据 表 where 用 户 名 = '" & UserForm4.ComboBox1.Text & &qu

23、ot;'"cmd.ExecuteMsgBox "删除成功 "Me.HideUnload MeElseUserForm4.ComboBox1.Text = ""Exit SubEnd Ifrs.Close con.CloseSet rs = NothingSet con = NothingEnd SubPrivate Sub CommandButton2_Click()Unload MeEnd SubPrivate Sub UserForm_Initialize()On Error Resume NextDim i As IntegerS

24、et con = New ADODB.ConnectionSet rs = New ADODB.Recordsetcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path & "xjcj.mdb"rs.Open "select * from 用户数据表 ", con, adOpenKeyset, adLockOptimisticFor i = 1 To rs.RecordCountComboBoxI .Addltem rs.

25、Fields(”用户名")rs.MoveNextNext irs.Closecon.CloseSet rs = NothingSet con = NothingEnd SubPrivate Sub CommandButton2_Click（）Unload MeEnd SubPrivate Sub UserForm_Initialize（）On Error Resume NextComboBox1.AddItem （" 一般用户 "）ComboBox1.AddItem （" 高级用户 "）ComboBox1.AddItem （"管理员

26、"）End SubUserForm5 代码 :Option ExplicitPrivate Sub CommandButton1_Click（）On Error Resume NextDim sql As StringDim con As ADODB.ConnectionDim rs As ADODB.RecordsetSet con = New ADODB.ConnectionSet rs = New ADODB.RecordsetIf UserForm5.TextBox1.Text = "" ThenMsgBox " 查询条件不能为空！ "

27、Exit SubEnd Ifcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path& "xjcj.mdb"sql = "select * from 学生数据表 where 学号= '" & UserForm5.TextBox1.Text & "'" rs.Open sql, con, adOpenKeyset, adLockOptimisticIf Not rs.EOF

28、ThenWith UserForm5丄 abel24.Captio n = rs.Fields（ 学号”）.Label19.Caption = rs.Fields（"姓名”）.Label17.Caption = rs.Fields（ 性别”） .Label16.Caption = rs.Fields（"政治面貌”） 丄abel20.Caption = rs.Fields（"入学时间"） .Label21.Caption = rs.Fields（"出生年月"） 丄abel27.Caption = rs.Fields（"班级代码

29、"） .Label18.Caption = rs.Fields（"专业代码"） 丄 abel26.Captio n = rs.Fields（"民 族"） 丄 abel25.Captio n = rs.Fields（"层次"） 丄abel23.Caption = rs.Fields（"在校状态"） End WithElseMsgBox "没有找到查询结果 "Exit SubEnd IfUserForm5.CommandButton7.Enabled = TrueUserForm5.Com

30、mandButton8.Enabled = TrueUserForm5.CommandButton9.Enabled = True End SubPrivate Sub CommandButton6_Click（）Unload MeEnd SubPrivate Sub CommandButton7_Click（）On Error Resume NextDim y As IntegerDim cmd As ADODB.CommandSet con = New ADODB.ConnectionSet rs = New ADODB.Recordsetcon.Open "Provider=M

31、icrosoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path& "xjcj.mdb"Set cmd = New ADODB.CommandSet cmd.ActiveConnection = conIf Trim（UserForm5.Label23.Caption） = Trim（" 在校 "） Theny = MsgBox（" 您是否要进行休学处理 ", vbYesNo, "提示信息！ "）If y = vbYes ThenUserFo

32、rm5.Label23.Caption = "休学 "cmd.CommandText = "update 学 生 数 据 表 set 在 校 状 态 ='"&UserForm5.Label23.Caption & "'where 学号='" & UserForm5.Label24.Caption &mucmd.ExecuteMsgBox "更新成功 "ElseExit SubEnd IfElseMsgBox " 不能进行休学处理 "Exit

33、 SubEnd IfUserForm5.CommandButton8.Enabled = FalseUserForm5.CommandButton9.Enabled = False End SubPrivate Sub CommandButton8_Click()On Error Resume NextDim y As IntegerDim cmd As ADODB.CommandSet con = New ADODB.ConnectionSet rs = New ADODB.Recordsetcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Da

34、ta source=" & ThisWorkbook.Path & "xjcj.mdb"Set cmd = New ADODB.CommandSet cmd.ActiveConnection = conIf Trim(UserForm5.Label23.Caption) = Trim(" 休学 ") Then y = MsgBox("您是否要进行复学处理", vbYesNo,"提示信息！")If y = vbYes ThenUserForm5.Label23.Caption = "

35、;在校 "cmd.CommandText = "update 学 生 数 据 表 set 在 校 状 态 ='"&UserForm5.Label23.Caption & "'where 学号 ='" & UserForm5.Label24.Caption & "'" cmd.ExecuteMsgBox "更新成功"ElseExit SubEnd IfElseMsgBox "不能进行复学处理 "Exit SubEnd IfU

36、serForm5.CommandButton7.Enabled = FalseUserForm5.CommandButton9.Enabled = FalseEnd SubPrivate Sub CommandButton9_Click()On Error Resume NextDim y As IntegerDim cmd As ADODB.CommandSet con = New ADODB.ConnectionSet rs = New ADODB.Recordsetcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=&q

37、uot; & ThisWorkbook.Path & "xjcj.mdb"Set cmd = New ADODB.CommandSet cmd.ActiveConnection = conIf UserForm5.Label24.Caption = "" Or Trim(UserForm5.Label23.Caption) = Trim(" 毕业") ThenMsgBox " 不能进行退学处理 "Exit SubEnd Ify = MsgBox("您是否要进行退学处理”,vbYesNo,&

38、quot;提示信息！")If y = vbYes Thencmd.CommandText = "delete from 学 生 数 据 表 where 学 号 ='" & UserForm5.Label24.Caption & "'"cmd.ExecuteWith UserForm5.TextBox1.Text = "".Label24.Caption = "".Label19.Caption = "".Label17.Caption = "&

39、quot;.Label16.Caption = "".Label20.Caption = "".Label21.Caption = "".Label27.Caption = "".Label18.Caption = "".Label26.Caption = "".Label25.Caption = "".Label23.Caption = ""End WithElseExit SubEnd IfUserForm5.CommandButt

40、on7.Enabled = FalseUserForm5.CommandButton8.Enabled = False rs.Close con.CloseSet rs = NothingSet con = NothingEnd SubPrivate Sub UserForm_Initialize()UserForm5.CommandButton7.Enabled = FalseUserForm5.CommandButton8.Enabled = FalseUserForm5.CommandButton9.Enabled = False End SubUserForm6 代码 :Option

41、ExplicitPrivate Sub CommandButton1_Click()On Error Resume NextDim sql As StringDim cmd As ADODB.CommandSet cmd = New ADODB.CommandSet con = New ADODB.ConnectionSet rs = New ADODB.Recordset con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path& "xjcj.mdb&

42、quot;If UserForm6.TextBox4.Text = "" Or UserForm6.TextBox1.Text = "" Or UserForm6.TextBox5.Text = "" ThenMsgBox " 信息不全 "Exit SubEnd Ifsql = "select * from 成绩数据表 where 学号 ='" & UserForm6.TextBox4.Text & "'and 课 程 名 ='" &a

43、mp; UserForm6.TextBox1.Text & "' and 开 设 学 期 ='" & UserForm6.TextBox5.Text & "'"rs.Open sql, con, 1, 3If Not rs.EOF ThenUserForm6.TextBox2.Text = rs.Fields(吩数")UserForm6.TextBox3.Text = rs.Fields('补考分数")ElseMsgBox "没有搜索到信息 "Exit Sub

44、End IfUserForm6.CommandButton2.Enabled = True UserForm6.CommandButton6.Enabled = True rs.Close con.CloseSet rs = NothingSet con = NothingEnd SubPrivate Sub CommandButton2_Click()On Error Resume Next Dim sql As StringDim cmd As ADODB.CommandSet con = New ADODB.ConnectionSet rs = New ADODB.RecordsetSe

45、t cmd = New ADODB.Commandcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path & "xjcj.mdb"Set cmd.ActiveConnection = conIf UserForm6.TextBox4.Text = "" Or UserForm6.TextBox1.Text = "" Or UserForm6.TextBox5.Text = "" Th

46、enMsgBox " 信息不全 "Exit SubEnd If cmd.CommandText = "delete from 成 绩 数 据 表 where 学 号 ='" & UserForm6.TextBox4.Text & "'and 课程名 ='" & UserForm6.TextBox1.Text & "' and 开设学期 ='" & UserForm6.TextBox5.Text & "'&quo

47、t; cmd.ExecuteIf UserForm6.TextBox2.Text > 60 ThenUserForm6.TextBox3.Text = 0End Ifcmd.CommandText = "insert into 成绩数据表 (课程名 ,学号 ,开设学期 ,分数 ,补考 分数) values ('" & UserForm6.TextBox1.Text & "','" & UserForm6.TextBox4.Text & "','" &

48、 UserForm6.TextBox5.Text & "', '" & UserForm6.TextBox2.Text & "','" & UserForm6.TextBox3.Text & "')"cmd.ExecuteMsgBox "提交成功 " rs.Close con.CloseSet rs = NothingSet con = NothingEnd SubPrivate Sub CommandButton4_Click()Un

49、load MeEnd SubPrivate Sub CommandButton6_Click()On Error Resume Next Dim y As IntegerDim cmd As ADODB.CommandSet con = New ADODB.ConnectionSet rs = New ADODB.Recordsetcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path & "xjcj.mdb"If UserForm6.Tex

50、tBox4.Text = "" Or UserForm6.TextBox1.Text = "" Or UserForm6.TextBox5.Text = "" ThenMsgBox "信息不全，不能删除 "Exit SubEnd IfSet cmd = New ADODB.Commandy = MsgBox(" 您是否要进行删除处理 ", vbYesNo, "提示信息！ ")If y = vbYes ThenSet cmd.ActiveConnection = con cmd

51、.CommandText = "delete from 成 绩 数 据 表 where 学 号 ='" & UserForm6.TextBox4.Text & "'and 课程名 ='" & UserForm6.TextBox1.Text & "' and 开设学期 ='" & UserForm6.TextBox5.Text & "'" cmd.ExecuteMsgBox "删除成功 "ElseExi

52、t SubEnd If rs.Close con.Close Set rs = Nothing Set con = NothingEnd SubPrivate Sub UserForm_Initialize()UserForm6.CommandButton2.Enabled = FalseUserForm6.CommandButton6.Enabled = False End SubUserForm7 代码 :Option ExplicitPrivate Sub CommandButton1_Click()Dim sql As StringDim cmd As ADODB.CommandSet

53、 con = New ADODB.ConnectionSet rs = New ADODB.RecordsetSet cmd = New ADODB.CommandIf UserForm7.TextBox1.Text = "" Or UserForm7.TextBox2.Text = "" Or UserForm7.ComboBox2.Text = "" Or UserForm7.TextBox4.Text = "" Or UserForm7.ComboBox1.Text = "" ThenMs

54、gBox " 信息不全 "Exit SubEnd Ifcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path & "xjcj.mdb"sql = "select * from 课程数据表 where 课程号= '" & UserForm7.TextBox1.Text & murs.Open sql, con, adOpenKeyset, adLockOptimistic If N

55、ot rs.EOF ThenMsgBox " 课程号存在 "Exit Sub Else Set cmd.ActiveConnection = concmd.CommandText = "insert into 课程数据表 (课程号 ,课程名 ,课程性质 ,学分 ,开 设学期 ) values ('" & UserForm7.TextBox1.Text & "','" & UserForm7.TextBox2.Text & "','" &

56、 UserForm7.ComboBox2.Text & "', '" & UserForm7.TextBox4.Text & "','" & UserForm7.ComboBox1.Text & "')" cmd.ExecuteMsgBox " 数据提交成功 "End IfEnd SubPrivate Sub CommandButton2_Click()Dim cmd As ADODB.CommandSet con = New ADOD

57、B.ConnectionSet rs = New ADODB.RecordsetSet cmd = New ADODB.Commandcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path& "xjcj.mdb"If UserForm7.TextBox1.Text = "" Or UserForm7.TextBox2.Text = "" Or UserForm7.ComboBox2.Text = &qu

58、ot;" Or UserForm7.TextBox4.Text = "" Or UserForm7.ComboBox1.Text = "" ThenMsgBox " 信息不全 "Exit SubEnd IfSet cmd.ActiveConnection = concmd.CommandText = "delete from 课 程 数 据 表 where 课 程 号 ='" & UserForm7.TextBox1.Text & "'" cmd.Exe

59、cutecmd.CommandText = "insert into 课程数据表 (课程号 ,课程名 ,课程性质 ,学分 ,开 设学期 ) values ('" & UserForm7.TextBox1.Text & "','" & UserForm7.TextBox2.Text & "','" & UserForm7.ComboBox2.Text & "', '" & UserForm7.TextBox

60、4.Text & "','" & UserForm7.ComboBox1.Text & "')"cmd.Execute MsgBox "提交成功 " UserForm7.CommandButton1.Enabled = True UserForm7.CommandButton2.Enabled = False End SubPrivate Sub CommandButton4_Click()Unload MeEnd SubPrivate Sub CommandButton5_Click(

61、)On Error Resume NextDim sql As StringSet con = New ADODB.ConnectionSet rs = New ADODB.Recordsetcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path & "xjcj.mdb"If UserForm7.TextBox5.Text = "" ThenMsgBox " 请输入查询信息 "Exit SubEnd I

62、fsql = "select * from 课程数据表 where 课程号= '" & UserForm7.TextBox5.Text &murs.Open sql, con, adOpenKeyset, adLockOptimisticIf Not rs.EOF ThenWith UserForm7.TextBoxl.Text = rs.Fields（ 课程号 ”）.Value.TextBox2.Text = rs.Fields（"课程名 ”）.Value .ComboBox2.Text = rs.Fields（"课程性质 ”）

63、.Value .TextBox4.Text = rs.Fields（"学分 ”）.Value .ComboBoxl.Text = rs.Fields（"开设学期 ”）.Value End WithElseMsgBox " 输入的课程名不存在，请重新输入 "Exit SubEnd IfUserForm7.Label7.Visible = True UserForm7.CommandButton2.Enabled = True UserForm7.CommandButton1.Enabled = False rs.Closecon.CloseSet rs =

64、 NothingSet con = NothingEnd SubPrivate Sub UserForm_Initialize（）On Error Resume NextDim i As IntegerFor i = 1 To 8UserForm7.ComboBox1.AddItem iNext iWith UserForm7.ComboBox2.Clear.ComboBox2.AddItem " 选修 ".ComboBox2.AddItem " 主修 "End WithUserForm7.Label7.Visible = False UserForm7

65、.CommandButton2.Enabled = False End SubUserForm8 代码 :Option ExplicitPrivate Sub CommandButton1_Click（）On Error Resume NextDim cmd As ADODB.CommandSet con = New ADODB.ConnectionSet rs = New ADODB.RecordsetSet cmd = New ADODB.Commandcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" &a

66、mp; ThisWorkbook.Path & "xjcj.mdb"rs.Open "select * from 专 业 数 据 表 where 专 业 代 码 ='" & UserForm8.TextBox1.Text & "'", con, adOpenKeyset, adLockOptimisticIf Not rs.EOF ThenMsgBox " 专业代码存在，请重新输入 "Exit SubEnd IfIf UserForm8.TextBox1.Text = &qu

67、ot;" Or UserForm8.TextBox2.Text = "" Or UserForm8.TextBox3.Text = "" Or UserForm8.TextBox4.Text = "" Then MsgBox " 信息不全 "Exit SubEnd IfSet cmd.ActiveConnection = concmd.CommandText = "insert into 专业数据表 ( 专业代码 ,专业名 ,系部 ,学制 ) values ('" & UserForm8.TextBox1.Text & "'