學(xué)生學(xué)籍管理系統(tǒng)課程設(shè)計(jì)

1、中文摘要本文首先簡要地介紹了學(xué)生學(xué)籍管理現(xiàn)代化的時(shí)代背景，指出學(xué)籍管理現(xiàn)代化的必要性和重要性，接著詳細(xì)闡述了學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，在學(xué)籍系統(tǒng)的設(shè)計(jì)這一部分，主要是對(duì)系統(tǒng)設(shè)計(jì)到的數(shù)據(jù)以及主要的功能進(jìn)行分析，在實(shí)現(xiàn)這一部分主要介紹了與管理信息系統(tǒng)設(shè)計(jì)開發(fā)結(jié)合最緊密的三個(gè)方面：管理信息系統(tǒng)MIS（Management Information System）、Visual Basic數(shù)據(jù)庫知識(shí)。在管理信息系統(tǒng)中論述了其基本概念、特點(diǎn)、開發(fā)過程和方法及其發(fā)展；在Visual Basica數(shù)據(jù)庫中主要介紹了概念模型、數(shù)據(jù)模型和基本語法三個(gè)方面以及SQL語句編程。本文的重點(diǎn)是系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，以自己

2、開發(fā)的學(xué)生管理信息系統(tǒng)為例，詳細(xì)說明開發(fā)的一般流程和開發(fā)數(shù)據(jù)庫的基本語言。 關(guān)鍵詞 學(xué)籍管理 教育管理 信息化 VB SQL目錄一引言 31.1設(shè)計(jì)目的 31.2設(shè)計(jì)要求 31.3設(shè)計(jì)環(huán)境 31.4分工情況 3二概要設(shè)計(jì) 32.1系統(tǒng)需求分析 32.2系統(tǒng)結(jié)構(gòu)及功能設(shè)計(jì) 3 三詳細(xì)設(shè)計(jì) 53.1主要功能模塊設(shè)計(jì) 5 3.2數(shù)據(jù)庫設(shè)計(jì) 63.3各模塊主要源代碼 10四調(diào)試運(yùn)行結(jié)果 234.1調(diào)試運(yùn)行 23五總結(jié) 25六參考文獻(xiàn) 25一引言1.1 設(shè)計(jì)目的數(shù)據(jù)庫系統(tǒng)原理及應(yīng)用課程設(shè)計(jì)是我校計(jì)算機(jī)科學(xué)與技術(shù)學(xué)科中計(jì)算機(jī)應(yīng)用專業(yè)（本科）教學(xué)大綱要求的重要實(shí)踐性環(huán)節(jié)之一，是學(xué)習(xí)完數(shù)據(jù)庫系統(tǒng)概論課程后進(jìn)行

3、的一次性全面的綜合練習(xí)。其目的在于：配合數(shù)據(jù)庫系統(tǒng)概論課程的教學(xué)，使學(xué)生能鞏固和加深對(duì)數(shù)據(jù)庫基礎(chǔ)理論和基本知識(shí)的理解；掌握使用數(shù)據(jù)庫進(jìn)行軟件設(shè)計(jì)的基本思想和方法；提高學(xué)生運(yùn)用數(shù)據(jù)庫理論解決實(shí)際問題的能力；培養(yǎng)學(xué)生調(diào)查研究、查閱技術(shù)文獻(xiàn)、資料、以及編寫技術(shù)文獻(xiàn)的能力。1.2 設(shè)計(jì)要求 調(diào)查學(xué)校學(xué)生處、教務(wù)處、設(shè)計(jì)一個(gè)學(xué)生信息管理系統(tǒng)。要求：1。建立學(xué)生檔案，設(shè)計(jì)學(xué)生入學(xué)、管理及查詢界面；2。設(shè)計(jì)學(xué)生各學(xué)期、學(xué)年成績輸入及查詢界面；3。設(shè)計(jì)統(tǒng)計(jì)報(bào)表并能完成打?。?。系統(tǒng)維護(hù)：如數(shù)據(jù)安全管理（含備分與恢復(fù)）、操作員管理、權(quán)限設(shè)置等； 1.3 設(shè)計(jì)環(huán)境 Microsoft Windows XP操作系統(tǒng)

4、，Microsoft SQL Server 2000數(shù)據(jù)庫管理系統(tǒng)個(gè)人版。1.4 分工情況 本次程序設(shè)計(jì)由本人自己獨(dú)立完成。二概要設(shè)計(jì)2.1 系統(tǒng)需求分析 系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化，規(guī)范化和自動(dòng)化。該管理系統(tǒng)的功能主要有：用戶管理：包括用戶填加、用戶刪除和用戶密碼修改。年級(jí)信息管理：包括學(xué)校信息設(shè)置、學(xué)校年級(jí)設(shè)置。班級(jí)信息管理：包括班級(jí)信息設(shè)置。課程信息管理：包括課程信息設(shè)置、年級(jí)課程開設(shè)。學(xué)籍信息管理：包括學(xué)籍信息設(shè)置。成績信息管理：包括成績信息設(shè)置。查詢管理：包括班級(jí)信息查詢、課程信息查詢、成績信息查詢、學(xué)籍信息查詢。統(tǒng)計(jì)報(bào)表中心：班級(jí)信息報(bào)表、學(xué)生信息報(bào)表。 系統(tǒng)維護(hù)

5、管理：數(shù)據(jù)庫還原和備分。2.2 系統(tǒng)結(jié)構(gòu)及功能設(shè)計(jì)對(duì)上述各項(xiàng)功能進(jìn)行集中、分塊，按照結(jié)構(gòu)化程序設(shè)計(jì)的要求，得到如下圖所示的系統(tǒng)功能模塊圖。學(xué)生信息管理系統(tǒng)成績信息管理課程管理系統(tǒng)班級(jí)信息管理學(xué)籍信息管理 系統(tǒng)管理成績信息查詢成績信息修改成績信息添加年級(jí)課程設(shè)置課程信息修改課程信息添加班級(jí)信息添加班級(jí)信息修改學(xué)籍信息添加學(xué)籍信息查詢學(xué)籍信息修改 密碼管理 用戶管理年級(jí)信息管理年級(jí)信息添加年級(jí)信息修改報(bào)表統(tǒng)計(jì)中心班級(jí)信息報(bào)表學(xué)生信息報(bào)表系統(tǒng)維護(hù)管理數(shù)據(jù)庫備分?jǐn)?shù)據(jù)庫還原三詳細(xì)設(shè)計(jì)3.1主要功能模塊設(shè)計(jì)在仔細(xì)分析調(diào)查有關(guān)學(xué)生信息需要的基礎(chǔ)上，將得到如下圖所示的本系統(tǒng)所處理的數(shù)據(jù)流程：學(xué)生注冊(cè)基本信息輸

6、入學(xué)籍信息管理班級(jí)設(shè)置班級(jí)管理班級(jí)課程設(shè)置課程基本信息成績信息輸入班級(jí)課程管理成績信息管理學(xué)生信息報(bào)表成績信息報(bào)表報(bào)表統(tǒng)計(jì)中心系統(tǒng)維護(hù)管理學(xué)生信息備分還原成績信息備分還原3.2 數(shù)據(jù)庫設(shè)計(jì) 針對(duì)學(xué)生管理系統(tǒng)的要求，通過對(duì)學(xué)生學(xué)習(xí)過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)數(shù)據(jù)庫中各個(gè)表格的設(shè)計(jì)如下面各表所示。每個(gè)表表示數(shù)據(jù)庫中的一個(gè)數(shù)據(jù)表。Class_info班級(jí)信息基本表列 名數(shù)據(jù)類型可否為空說 明class_NoCHAR (3)NOT NULL班級(jí)編號(hào)（主鍵）grade_NoCHAR(10)NULL年級(jí)編號(hào)user_idVARCHAR (10)NULL班主任編號(hào)course_

7、No課程信息基本表列 名數(shù)據(jù)類型可否為空說 明course_NoINT (4)NOT NULL課程編號(hào)（主鍵）course_NameVARCHAR(30)NULL課程名稱course_typeCHAR (20)NULL課程類型course_desVARCHAR（60）NULL備注GradeCourse_info年級(jí)課程開設(shè)基本表列 名數(shù)據(jù)類型可否為空說 明grade_NoCHAR (8)NOT NULL年級(jí)編號(hào)（主鍵）course_NoINT(4)NULL課程編號(hào)Result_info成績基本表列 名數(shù)據(jù)類型可否為空說 明exam_NoCHAR (10)NOT NULL考試編號(hào)（主鍵）cstu

8、dent_IdVARCHAR(15)NOT NULL學(xué)生編號(hào)course_noINT（4）NOT NULL課程編號(hào)resultFLOAT（8）NULL學(xué)習(xí)成績School_info學(xué)校信息基本表列 名數(shù)據(jù)類型可否為空說 明school_nameVARCHAR (12)NULL學(xué)校名稱school_telVARCHAR (12)NULL學(xué)校電話SchoolGrade_info年級(jí)信息基本表列 名數(shù)據(jù)類型可否為空說 明school_nameVARCHAR (12)NULL學(xué)校名稱school_telVARCHAR (12)NULL學(xué)校電話User_info用戶信息基本表列 名數(shù)據(jù)類型可否為空說 明

9、user_idVARCHAR (10)NOT NULL用戶編號(hào)（主鍵）user_nameVARCHAR (20)NULL用戶名稱 user_pwdVARCHAR (10)NULL用戶密碼user_desVARCHAR (20)NULL用戶描述user_levelINT（4）NOT NULL用戶類別學(xué)生實(shí)體E-R圖：學(xué)生基本信息學(xué)生班級(jí)信息學(xué)生成績學(xué)生課程信息學(xué) 生班級(jí)實(shí)體E-R圖：班 級(jí)班 號(hào)所在班級(jí)班主任所在教室課程實(shí)體E-R圖：課 程課程編號(hào)課程名稱課程類型課程描述年級(jí)實(shí)體E-R圖：年 級(jí)年級(jí)名稱包括班級(jí)設(shè)置課程實(shí)體和實(shí)體之間的關(guān)系E-R圖：考核過程學(xué) 生班級(jí)設(shè)置班 級(jí)年級(jí)設(shè)置年 級(jí)年級(jí)設(shè)

10、置課 程3.3各模塊主要原代碼公用?？?#39;定義一個(gè)屬性過程反映連接字符串Public Property Get conString() As VariantconString = "data source=.;initial catalog=Sims_four;user id=sa;password=;"End Property'定義一個(gè)提供者反映數(shù)據(jù)庫類型Public Property Get conProvide() As VariantconProvide = "sqloledb"End PropertyPublic Declare

11、Function GetPrivatePro Lib "kernel32" Alias "GetPrivatePro" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lp As String) As LongPublic Declare Function WritePrivatePro Lib "k

12、ernel32" Alias "WritePrivatePro" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lp As String) As LongPublic Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal

13、 szOtherStuff As String, ByVal hIcon As Long) As LongOption ExplicitPrivate cnSIMS As ADODB.Connection '聲明一個(gè)連接Private rsSims As ADODB.Recordset '聲明一個(gè)連接記錄集Public rs1 As ADODB.Recordset '聲明一個(gè)連接到所需表的記錄集Public rs2 As ADODB.RecordsetPublic rst As ADODB.RecordsetPrivate Data As Object'-

14、9; 在類初始化時(shí)建立連接'-Private Sub Class_Initialize() On Error GoTo DbnotOpen Set cnSIMS = New ADODB.Connection With cnSIMS .Provider = conProvide .ConnectionString = conString .ConnectionTimeout = 10 .Open Set rst = New ADODB.Recordset End With Exit SubDbnotOpen: If Err = -2147467259 Then Set cnSIMS =

15、Nothing MsgBox "連接后臺(tái)數(shù)據(jù)庫失敗！" & vbCrLf & vbCrLf & "請(qǐng)檢查配置是否完好,數(shù)據(jù)庫Sims_four是否存在?", vbOKOnly + vbInformation, "學(xué)生信息管理系統(tǒng)" End End IfEnd Sub'-'data是一個(gè)指向ADO記錄集的對(duì)象的引用'用于設(shè)置class的數(shù)據(jù)源內(nèi)容'-Private Sub Class_GetDataMember(DataMember As String, Data As Objec

16、t) Set Data = rsSimsEnd Sub'-'建立一個(gè)可以打開記錄集的函數(shù)，需要是必須把表名傳給函數(shù)'-Public Function rsDK(Table As String) Set rsSims = New ADODB.Recordset With rsSims .Source = Table .ActiveConnection = cnSIMS .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open , , , , adCmdTable End WithEnd Function&#

17、39;-'建立一個(gè)可以打開記錄集(動(dòng)態(tài)游標(biāo))的函數(shù)'需要把SQL語句傳遞給函數(shù)'-Public Function rsDK1(sql As String) Set rs1 = New ADODB.Recordset With rs1 .Source = sql .ActiveConnection = cnSIMS .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open , , , , adCmdText End WithEnd Function'-'建立一個(gè)可以打開記錄集(靜態(tài)游標(biāo))的函

18、數(shù)'需要把SQL語句傳遞給函數(shù)'-Public Function rsDK2(sql As String) Set rs2 = New ADODB.Recordset With rs2 .Source = sql .ActiveConnection = cnSIMS .CursorType = adOpenStatic .LockType = adLockOptimistic .Open , , , , adCmdText End WithEnd Function'-'類終止時(shí),釋放一切可能占據(jù)的資源'-Private Sub Class_Termina

19、te() Set cnSIMS = Nothing Set rs1 = Nothing Set rs2 = Nothing Set rsSims = Nothing Set rst = NothingEnd Sub學(xué)籍信息管理主要功能代碼Private Sub Cmdfind_Click()Dim sql As StringDim sql1 As StringDim sql2 As StringIf txtName.Text = Empty And txtClass.Text = Empty ThenMsgBox "請(qǐng)輸入查詢條件！", vbOKOnly + vbInfor

20、mation, "學(xué)籍信息設(shè)置"Exit SubEnd IfIf txtName.Text <> "" Then sql1 = "and student_name='" & txtName.Text & "'"Else sql1 = " "End IfIf txtClass.Text <> "" Then sql2 = "and class_no='" & txtClass.Text

21、& "'"Else sql2 = " "End Ifsql = "SELECT * FROM student_info where 1=1" & sql1 & sql2myModiStudent.rsDK1 sqlIf myModiStudent.rs1.EOF Then StudentGrid.Clear StudentGrid.FormatString = " | 學(xué)號(hào)| 姓名|性別| 出生日期|班號(hào)| 聯(lián)系電話| 入校時(shí)間| 家庭住址 | 注釋" MsgBox "沒有

22、找到符合條件的記錄！", vbOKOnly + vbInformation, "提示" txtName.Text = ""Else Set StudentGrid.DataSource = myModiStudent.rs1 StudentGrid.FormatString = " | 學(xué)號(hào)| 姓名|性別| 出生日期|班號(hào)| 聯(lián)系電話| 入校時(shí)間| 家庭住址 | 注釋" Frame2.Enabled = True Change = False txtstudentName.Text = myModiStudent.rs1!s

23、tudent_name cboClass.Text = myModiStudent.rs1!Class_no txtStudentId.Text = myModiStudent.rs1!student_id cboSex.Text = myModiStudent.rs1!student_gender txtBirth.Text = Format(myModiStudent.rs1!birth_date, "yyyy-mm-dd") txtTel.Text = myModiStudent.rs1!tele_number txtInDate.Text = Format(myMo

24、diStudent.rs1!in_date, "yyyy-mm-dd") txtAdd.Text = myModiStudent.rs1!address txtcomment.Text = myModiStudent.rs1!comment cboGrade.Text = Mid(txtStudentId.Text, 5, 2) cmdAdd.Enabled = True cmdSave.Caption = "更新(&U)" cmdSave.Enabled = True cmdDel.Enabled = TrueEnd IfEnd SubPriv

25、ate Sub cmdReturn_Click()myModiStudent.rsDK1 "SELECT * FROM student_info"If Not myModiStudent.rs1.EOF Then Set StudentGrid.DataSource = myModiStudent.rs1 StudentGrid.FormatString = " |學(xué)號(hào)|姓名|性別| 出生日期|班號(hào)|聯(lián)系電話|入校時(shí)間| 家庭住址|注釋"End IfEnd SubPrivate Sub Cmdsave_Click()If txtstudentName.T

26、ext = Empty Then MsgBox "請(qǐng)輸入學(xué)生姓名！", vbInformation, "提示" txtstudentName.SetFocus Exit SubEnd IfIf cboGrade.Text = Empty Then MsgBox "請(qǐng)選擇年級(jí)！", vbInformation, "提示" cboGrade.SetFocus Exit SubEnd IfIf cboClass.Text = Empty Then MsgBox "請(qǐng)選擇班級(jí)！", vbInformat

27、ion, "提示" cboClass.SetFocus Exit SubEnd IfIf cboSex.Text = Empty Then MsgBox "請(qǐng)選擇性別！", vbInformation, "提示" cboSex.SetFocus Exit SubEnd IfIf txtStudentId.Text = Empty Then MsgBox "請(qǐng)輸入學(xué)號(hào)！", vbInformation, "提示" txtStudentId.SetFocus Exit SubEnd IfIf txt

28、Birth.Text = Empty Then MsgBox "請(qǐng)輸入出生日期！", vbInformation, "提示" txtBirth.SetFocus Exit SubElseIf Not IsDate(txtBirth) Then MsgBox "出生日期不是有效日期,請(qǐng)重新輸入.", vbInformation, "提示" txtBirth.SetFocus txtBirth.Text = "_-_-_" Exit SubElseIf Format(txtBirth.Text, &

29、quot;yyyy/mm/dd") > Format(Date, "yyyy/mm/dd") Then MsgBox "出生日期不能大于今日,請(qǐng)重新輸入！", vbInformation, "提示" txtBirth.SetFocus Exit SubElseIf Format(txtBirth.Text, "yyyy/mm/dd") < Format(#1/1/1900#, "yyyy/mm/dd") Then MsgBox "生出日期不能小于1900年,請(qǐng)重新

30、輸入！", vbInformation, "提示" txtBirth.SetFocus txtBirth.Text = "_-_-_" Exit SubEnd IfIf txtInDate.Text = Empty Then MsgBox "請(qǐng)輸入入校時(shí)間！", vbInformation, "提示" txtInDate.SetFocus Exit SubEnd IfIf Not IsDate(txtInDate) Then MsgBox "入校時(shí)間不是有效日期,請(qǐng)重新輸入！", vb

31、Information, "提示" txtInDate.SetFocus txtInDate.Text = "_-_-_" Exit SubElseIf Format(txtBirth.Text, "yyyy/mm/dd") > Format(Date, "yyyy/mm/dd") Then MsgBox "入校日期不能大于今日,請(qǐng)重新輸入！", vbInformation, "提示" txtInDate.SetFocus txtInDate.Text = "

32、_-_-_" Exit SubElseIf Format(txtInDate.Text, "yyyy/mm/dd") < Format(#1/1/1900#, "yyyy/mm/dd") Then MsgBox "入校日期不能小于1900年,請(qǐng)重新輸入！", vbInformation, "提示" txtInDate.SetFocus txtInDate.Text = "_-_-_" Exit SubEnd IfIf txtTel.Text = Empty Then If Msg

33、Box("聯(lián)系電話是否為空?", vbYesNo + vbQuestion, "提示") = vbNo Then txtTel.SetFocus Exit Sub Else txtTel.Text = "無" End IfEnd IfIf txtAdd.Text = Empty Then MsgBox "請(qǐng)輸入家庭地址！", vbInformation, "提示" txtAdd.SetFocus Exit SubEnd IfIf txtcomment.Text = Empty Then txtc

34、omment.Text = "無"End IfIf cmdSave.Caption = "保存(&S)" Then With myModiStudent.rs1 .AddNew !student_id = txtStudentId.Text !student_name = txtstudentName.Text !student_gender = cboSex.Text !birth_date = txtBirth.Text !Class_no = cboClass.Text !tele_number = txtTel.Text !in_date

35、 = txtInDate.Text !address = txtAdd.Text !comment = txtcomment.Text .Update End With Set StudentGrid.DataSource = myModiStudent.rs1 StudentGrid.FormatString = " | 學(xué)號(hào)| 姓名|性別| 出生日期|班號(hào)| 聯(lián)系電話| 入校時(shí)間| 家庭住址 | 注釋" MsgBox "學(xué)籍信息已成功添加！", vbOKOnly + vbInformation, "學(xué)籍信息添加" Frame2.E

36、nabled = False cmdAdd.Caption = "添加(&A)" cmdSave.Caption = "保存(&S)" cmdSave.Enabled = False cmdDel.Enabled = FalseElse With myModiStudent.rs1 !student_id = txtStudentId.Text !student_name = txtstudentName.Text !student_gender = cboSex.Text !birth_date = txtBirth.Text !Cla

37、ss_no = cboClass.Text !tele_number = txtTel.Text !in_date = txtInDate.Text !address = txtAdd.Text !comment = txtcomment.Text .Update End With Set StudentGrid.DataSource = myModiStudent.rs1 StudentGrid.FormatString = " | 學(xué)號(hào)| 姓名|性別| 出生日期|班號(hào)| 聯(lián)系電話| 入校時(shí)間| 家庭住址 | 注釋" MsgBox "學(xué)籍信息已成功更新！&quo

38、t;, vbOKOnly + vbInformation, "學(xué)籍信息添加" Frame2.Enabled = False cmdSave.Caption = "保存(&S)" cmdAdd.Caption = "添加(&A)" cmdSave.Enabled = False cmdDel.Enabled = FalseEnd IfEnd SubPrivate Sub Form_Load()Set myModiStudent = New OpenRsmyModiStudent.rsDK2 ("select *

39、 from schoolgrade_info") '生成年級(jí)信息記錄集While myModiStudent.rs2.EOF = False cboGrade.AddItem (myModiStudent.rs2!grade_name) myModiStudent.rs2.MoveNextWendcboSex.AddItem ("男")cboSex.AddItem ("女")StudentGrid.FormatString = " | 學(xué)號(hào)| 姓名|性別| 出生日期|班號(hào)| 聯(lián)系電話| 入校時(shí)間| 家庭住址 | 注釋"

40、;myModiStudent.rsDK1 "SELECT * FROM student_info"If Not myModiStudent.rs1.EOF Then Set StudentGrid.DataSource = myModiStudent.rs1 StudentGrid.FormatString = " | 學(xué)號(hào)| 姓名|性別| 出生日期|班號(hào)| 聯(lián)系電話| 入校時(shí)間| 家庭住址 | 注釋"End IfEnd SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As

41、 Single)End SubPrivate Sub StudentGrid_Click() myModiStudent.rsDK1 "SELECT * FROM student_info" If myModiStudent.rs1.EOF Then Exit Sub End If Frame2.Enabled = True Change = False txtstudentName.Text = StudentGrid.TextMatrix(StudentGrid.Row, 2) cboClass.Text = StudentGrid.TextMatrix(Student

42、Grid.Row, 5) txtStudentId.Text = StudentGrid.TextMatrix(StudentGrid.Row, 1) cboSex.Text = StudentGrid.TextMatrix(StudentGrid.Row, 3) txtBirth.Text = Format(StudentGrid.TextMatrix(StudentGrid.Row, 4), "yyyy-mm-dd") txtTel.Text = StudentGrid.TextMatrix(StudentGrid.Row, 6) txtInDate.Text = Fo

43、rmat(StudentGrid.TextMatrix(StudentGrid.Row, 7), "yyyy-mm-dd") txtAdd.Text = StudentGrid.TextMatrix(StudentGrid.Row, 8) txtcomment.Text = StudentGrid.TextMatrix(StudentGrid.Row, 9) cboGrade.Text = Mid(txtStudentId.Text, 5, 2) cmdSave.Caption = "更新(&U)" cmdAdd.Caption = "

44、添加(&A)" cmdDel.Enabled = True cmdSave.Enabled = True myModiStudent.rsDK1 "SELECT * FROM student_info where student_id='" & txtStudentId.Text & "'"End SubPrivate Sub txtStudentId_GotFocus()If cboGrade.Text = Empty Then MsgBox "請(qǐng)選擇年級(jí).", vbInformat

45、ion, "提示" cboGrade.SetFocus Exit SubElseIf cboClass.Text = Empty Then MsgBox "請(qǐng)選擇班級(jí).", vbInformation, "提示" cboClass.SetFocus Exit SubEnd IfIf Change = True Then Dim id As String Dim i As Integer myModiStudent.rsDK2 ("select * from student_info where class_no='&

46、quot; & cboClass.Text & "'") If myModiStudent.rs2.EOF Then id = "01" Else myModiStudent.rs2.MoveLast i = Val(Right(myModiStudent.rs2!student_id, 2) i = i + 1 If i > 99 Then MsgBox "超過最大學(xué)號(hào)界限,不能再添加學(xué)號(hào).", vbInformation, "提示" Exit Sub End If id = Tri

47、m(Str(i) If Len(id) < 2 Then id = "0" & id End If End If txtStudentId.Text = Format(Now, "yy") & Format(Now, "mm") & Trim(cboGrade.Text) & Trim(cboClass.Text) & idEnd IfEnd SubPrivate Sub txtStudentId_KeyPress(KeyAscii As Integer)If KeyAscii = 13

48、Then cboSex.SetFocusElse KeyAscii = 0End IfEnd SubPrivate Sub txtstudentName_Change()cmdDel.Enabled = FalseEnd SubPrivate Sub txtstudentName_KeyPress(KeyAscii As Integer)If (KeyAscii >= 33 And KeyAscii <= 64) Or (KeyAscii >= 91 And KeyAscii <= 96) Or (KeyAscii >= 123 And KeyAscii <

49、= 127) Then KeyAscii = 0If KeyAscii = 13 Then cboGrade.SetFocusEnd SubPrivate Sub txtTel_KeyPress(KeyAscii As Integer)If KeyAscii >= 32 And KeyAscii <= 34 Or KeyAscii >= 36 And KeyAscii <= 44 Or KeyAscii > 45 And KeyAscii < 48 Or KeyAscii >= 58 And KeyAscii <= 127 Then KeyAsc

50、ii = 0If KeyAscii = 13 Then txtInDate.SetFocusEnd Sub其他?？旃δ艽a的算法與該?？焖惴ㄒ恢拢皇菙?shù)據(jù)字段及相關(guān)處理信息稍有改動(dòng)，此處不再羅列，詳細(xì)的請(qǐng)參考源程序。數(shù)據(jù)備分還原模塊Dim cn As ADODB.ConnectionDim success As LongDim ret As Long '返回值Dim buff As StringPrivate Sub Check1_Click()buff = String(255, 0)ret = GetPrivatePro("BackUp", "Rest

51、ore", "", buff, 256, App.Path & "Sims.ini")If ret = 0 Then MsgBox "你無權(quán)執(zhí)行還原數(shù)據(jù)庫的操作，請(qǐng)與管理員聯(lián)系！", vbOKOnly + vbInformation, "還原數(shù)據(jù)庫" Unload Me Exit SubEnd IfIf Check1.Value = 1 Then buff = String(255, 0) ret = GetPrivatePro("BackUp", "NewFile&

52、quot;, "", buff, 256, App.Path & "Sims.ini") If ret <> 0 Then cbo = buffElse cbo = ""End IfEnd SubPrivate Sub cmdExit_Click()success = WritePrivatePro("BackUp", "Restore", "", App.Path & "Sims.ini")Unload MeEnd SubPr

53、ivate Sub cmdRestore_Click()On Error GoTo err1buff = String(255, 0)ret = GetPrivatePro("BackUp", "Restore", "", buff, 256, App.Path & "Sims.ini")If ret = 0 Then MsgBox "你無權(quán)執(zhí)行還原數(shù)據(jù)庫的操作，請(qǐng)與管理員聯(lián)系！", vbOKOnly + vbInformation, "還原數(shù)據(jù)庫" Unload M

54、e Exit SubEnd IfIf cbo <> "" Then cn.Execute ("use master") cn.Execute "restore database Sims_four from disk='" & App.Path & "BackUP" & cbo & "'" MsgBox "數(shù)據(jù)庫還原成功!", vbOKOnly + vbInformation, "還原數(shù)據(jù)庫" cbo = "" Check1.Value = 0Else MsgBox "請(qǐng)選擇備份文件！", vbOKOnly + vbInformation, "還原數(shù)據(jù)庫"End IfExit Suberr1: If Err = -2147217900 Then MsgBox "找不到指定的備份文件。" & vbCrLf & vbCrLf & &qu