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

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

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

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

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

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

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

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

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

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

10、置課 程3.3各模塊主要原代碼公用?？?#39;定義一個屬性過程反映連接字符串Public Property Get conString() As VariantconString = "data source=.;initial catalog=Sims_four;user id=sa;password=;"End Property'定義一個提供者反映數(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 '聲明一個連接Private rsSims As ADODB.Recordset '聲明一個連接記錄集Public rs1 As ADODB.Recordset '聲明一個連接到所需表的記錄集Public rs2 As ADODB.RecordsetPublic rst As ADODB.RecordsetPrivate Data As Object'-

14、9; 在類初始化時建立連接'-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 "連接后臺數(shù)據(jù)庫失??！" & vbCrLf & vbCrLf & "請檢查配置是否完好,數(shù)據(jù)庫Sims_four是否存在?", vbOKOnly + vbInformation, "學(xué)生信息管理系統(tǒng)" End End IfEnd Sub'-'data是一個指向ADO記錄集的對象的引用'用于設(shè)置class的數(shù)據(jù)源內(nèi)容'-Private Sub Class_GetDataMember(DataMember As String, Data As Objec

16、t) Set Data = rsSimsEnd Sub'-'建立一個可以打開記錄集的函數(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;-'建立一個可以打開記錄集(動態(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'-'建立一個可以打開記錄集(靜態(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'-'類終止時,釋放一切可能占據(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 "請輸入查詢條件！", 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é)號| 姓名|性別| 出生日期|班號| 聯(lián)系電話| 入校時間| 家庭住址 | 注釋" MsgBox "沒有

22、找到符合條件的記錄！", vbOKOnly + vbInformation, "提示" txtName.Text = ""Else Set StudentGrid.DataSource = myModiStudent.rs1 StudentGrid.FormatString = " | 學(xué)號| 姓名|性別| 出生日期|班號| 聯(lián)系電話| 入校時間| 家庭住址 | 注釋" 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é)號|姓名|性別| 出生日期|班號|聯(lián)系電話|入校時間| 家庭住址|注釋"End IfEnd SubPrivate Sub Cmdsave_Click()If txtstudentName.T

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

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

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

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

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

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

32、_-_-_" Exit SubElseIf Format(txtInDate.Text, "yyyy/mm/dd") < Format(#1/1/1900#, "yyyy/mm/dd") Then MsgBox "入校日期不能小于1900年,請重新輸入！", 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 "請輸入家庭地址！", 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é)號| 姓名|性別| 出生日期|班號| 聯(lián)系電話| 入校時間| 家庭住址 | 注釋" 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é)號| 姓名|性別| 出生日期|班號| 聯(lián)系電話| 入校時間| 家庭住址 | 注釋" 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") '生成年級信息記錄集While myModiStudent.rs2.EOF = False cboGrade.AddItem (myModiStudent.rs2!grade_name) myModiStudent.rs2.MoveNextWendcboSex.AddItem ("男")cboSex.AddItem ("女")StudentGrid.FormatString = " | 學(xué)號| 姓名|性別| 出生日期|班號| 聯(lián)系電話| 入校時間| 家庭住址 | 注釋"

40、;myModiStudent.rsDK1 "SELECT * FROM student_info"If Not myModiStudent.rs1.EOF Then Set StudentGrid.DataSource = myModiStudent.rs1 StudentGrid.FormatString = " | 學(xué)號| 姓名|性別| 出生日期|班號| 聯(lián)系電話| 入校時間| 家庭住址 | 注釋"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 "請選擇年級.", vbInformat

45、ion, "提示" cboGrade.SetFocus Exit SubElseIf cboClass.Text = Empty Then MsgBox "請選擇班級.", 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é)號界限,不能再添加學(xué)號.", 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)處理信息稍有改動，此處不再羅列，詳細(xì)的請參考源程序。數(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ù)庫的操作，請與管理員聯(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ù)庫的操作，請與管理員聯(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 "請選擇備份文件！", vbOKOnly + vbInformation, "還原數(shù)據(jù)庫"End IfExit Suberr1: If Err = -2147217900 Then MsgBox "找不到指定的備份文件。" & vbCrLf & vbCrLf & &qu