VBoracle學(xué)生學(xué)籍管理系統(tǒng)

課程設(shè)計(jì)報(bào)告冊

課程設(shè)計(jì)報(bào)告設(shè)項(xiàng)編號(hào)主儀設(shè)

1

名稱PC

附設(shè)主使軟同人

無

起時(shí)

2010年月10日—12月日課設(shè)任書本程計(jì)目掌握Oracle基本內(nèi)容，了解備份和恢復(fù)數(shù)據(jù)庫的方法；基本Oracle語句，如添加、查詢、修改、刪除記錄語句；VB數(shù)據(jù)綁定控件的方法，熟悉數(shù)據(jù)庫連接技術(shù)。．程設(shè)計(jì)的任及要求1）基本要求：要求掌基本概念和恢復(fù)數(shù)據(jù)庫的方法基本句，如添加、查詢、修改、刪除記錄語句,熟悉數(shù)據(jù)庫連接技術(shù)。2）課程設(shè)計(jì)論文編寫要求（1）理論設(shè)計(jì)部分以課程設(shè)計(jì)論文的形式提交，格式必須按照課程設(shè)計(jì)論文標(biāo)準(zhǔn)格式進(jìn)行書寫和裝訂。（2）課程設(shè)計(jì)報(bào)告（論文）包括中文摘要、目錄、緒論、正文、設(shè)計(jì)小結(jié)、參考文獻(xiàn)、附錄等；

（3）正文部分應(yīng)包含系統(tǒng)功能流程圖、系統(tǒng)結(jié)構(gòu)框圖、模塊流程圖、設(shè)計(jì)目的、實(shí)現(xiàn)思路、實(shí)現(xiàn)步驟、調(diào)試運(yùn)行等。目錄學(xué)生信息管理系統(tǒng)的主要功能……………4系統(tǒng)的功能模塊結(jié)構(gòu)………創(chuàng)建數(shù)據(jù)庫用戶……………5數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)創(chuàng)建表的腳本語言

5連……………創(chuàng)建數(shù)據(jù)源

數(shù)據(jù)庫連接………………

主窗體的設(shè)計(jì)

…………………登錄窗體的設(shè)計(jì)

背景窗體的設(shè)計(jì)…………課程信息窗體的設(shè)計(jì)…………………用戶信息管理窗體的設(shè)計(jì)……………獎(jiǎng)懲信息管理窗體的設(shè)計(jì)……………成績查詢窗口的設(shè)計(jì)…………………學(xué)籍信息管理窗口的設(shè)計(jì)……………個(gè)人信息查詢窗口的設(shè)……………

……………

……………………46構(gòu)學(xué)信管系的要能：（1息管理可以修改、刪除、添加用戶；（2息管理可以添加、修改、刪除班級(jí)；

（3息管理可以添加、查詢、修改、刪除學(xué)籍；（4息管理可以查看各班的課程信息；（5息管理可以用一個(gè)或幾個(gè)條件查詢、添加、刪除，修改成績；（6息管理可以添加、查詢、刪除獎(jiǎng)懲信息（7息管理可以查詢學(xué)生的個(gè)人信息。、統(tǒng)功模結(jié)如：設(shè)創(chuàng)數(shù)庫戶在設(shè)計(jì)數(shù)據(jù)庫表結(jié)構(gòu)之前先要?jiǎng)?chuàng)建一個(gè)學(xué)生信息管理的數(shù)據(jù)庫用戶里定義為zengym,所有相關(guān)的表都屬于這個(gè)用戶。創(chuàng)建用戶的腳本為：CREATEuserzengymidentifiedbyzengymdefaulttablespaceuserstemporarytablespacetempquota10monusers;

grantcreatesession,resourcetozengym;這樣在設(shè)置ODBC時(shí)，使用戶zengym登錄，就可以直接在程序中調(diào)用用戶zengym的表和視圖等數(shù)據(jù)庫對象了。數(shù)庫輯構(gòu)計(jì)根據(jù)學(xué)生信息管理系統(tǒng)的功能要求，選取Oracle后臺(tái)數(shù)據(jù)庫，數(shù)據(jù)庫前臺(tái)控制界面使用VisualBasic來實(shí)現(xiàn)。該數(shù)據(jù)庫由8個(gè)表組成8個(gè)表包括班級(jí)課程信息class_cour)表級(jí)信息(class_Form)表、課程信息(course_Form)表、獲獎(jiǎng)信息prize_Form)表、獲獎(jiǎng)學(xué)生信息(Prize_Stud)表、學(xué)生成績信息(score_Form)、學(xué)生信息(student_Form)表、用戶（user_Form）表。（1）班級(jí)課程信息(class_cour)表字段名稱class_NoCourse_Name

字段類型numberVarchar2(50)

說明班級(jí)編號(hào)課程名稱（2）班級(jí)信息(class_Form)字段名稱Class_NoClass_NameClass_teacherClass_Remarks

字段類型numberVarchar2(50)Varchar2(50)Varchar2(50)

說明班級(jí)編號(hào)班級(jí)名稱導(dǎo)員名字班級(jí)主課程（3）課程信息(course_Form)表字段名稱Course_nameCourse_Rem

字段類型Varchar2(50)Varchar2(50)

說明課程名稱主課程（4）獎(jiǎng)懲信息(prize_Form)表字段名稱

字段類型

說明

Prize_namePrize_Rem

Varchar2(50)Varchar2(50)

獎(jiǎng)懲名稱備注（5）獎(jiǎng)懲學(xué)生信息(Prize_Stud)表字段名稱Prize_NOPrize_StuPrize_DatPrize_Nam

字段類型numbernumberDateVarchar2(50)

說明獎(jiǎng)懲編號(hào)獎(jiǎng)懲學(xué)生學(xué)號(hào)獎(jiǎng)懲日期獎(jiǎng)懲名稱（6）學(xué)生成績信息(score_Form)表字段名稱Score_NoScore_perScore_ClaScore_StuScore_CouScore_Sco

字段類型numberVarchar2(50)numbernumberVarchar2(50)Varchar2(50)

說明成績編號(hào)成績類型班級(jí)編號(hào)學(xué)生學(xué)號(hào)課程名稱成績

7）學(xué)生信息(student_Form)表字段名稱

字段類型

說明學(xué)號(hào)姓名性別出生日期班級(jí)編號(hào)聯(lián)系電話報(bào)名日期家庭地址

（8）用戶（）表

備注字段名稱user_IDuser_PWDuser_DATE

字段類型Varchar2(50)Varchar2(50)date

說明用戶名用戶密碼登錄日期創(chuàng)表腳語（1）班級(jí)課程信息(class_cour)表CREATETABLE(class_NOnumberPrimaryKey,course_Namevarchar2(50))TABLESPACEUSERS;（2）班級(jí)信息(class_Form)表CREATETABLE(class_NonumberPrimaryKey,class_Namevarchar2(50),class_Teachervarchar2(50),class_Remarksvarchar2(50))TABLESPACEUSERS;（3）課程信息(course_Form)表CREATETABLE(course_NameVarchar2(50)PrimaryKey,course_RemVarchar2(50))

TABLESPACEUSERS;（4）獎(jiǎng)懲信息(prize_Form)表CREATETABLE(prize_namevarchar2(50)PrimaryKey,prize_RemVarchar2(50))TABLESPACEUSERS;（5）獎(jiǎng)懲學(xué)生信息(Prize_Stud)表CREATETABLE(prize_NOnumberPrimaryKey,prize_Stunumber,prize_Datdate,prize_NamVarchar2(50))TABLESPACEUSERS;（6）學(xué)生成績信息(score_Form)表CREATETABLE(score_NOnumberPrimaryKey,score_perVarchar2(50),score_Clanumber,score_Stunumber,score_CouVarchar2(50),score_ScoVarchar2(50))TABLESPACEUSERS;（7）學(xué)生信息(student_Form)表CREATETABLE

(student_NOnumberPrimaryKey,student_NameVarchar2(50),student_SexVarchar2(5),student_BirDate,student_Clanumber,student_TelVarchar2(50),student_EsdDate,student_AddVarchar2(50),student_RemVarchar2(50))TABLESPACEUSERS;（8）用戶（user_Form）表CREATETABLE(user_IDVarchar2(50)PrimaryKey,user_PWDVarchar2(50),user_DATEdate)TABLESPACEUSERS;三數(shù)據(jù)庫連接、建據(jù)為了能夠在程序中訪問到數(shù)據(jù)庫，需要?jiǎng)?chuàng)建系統(tǒng)數(shù)據(jù)源。選擇“控制面板”→“管理工具”→“數(shù)據(jù)源”→“系統(tǒng)”標(biāo)簽→“添加選OraHome92據(jù)庫驅(qū)動(dòng)程序進(jìn)入數(shù)據(jù)庫ODBCDriverConfiguration置。將“DataSourceName”設(shè)置為StatusService設(shè)置為Oracle創(chuàng)建的數(shù)據(jù)庫zengym,后點(diǎn)Conncetion”

進(jìn)入測試數(shù)據(jù)庫連接是否連接成功。測試連接數(shù)據(jù)庫是否成功：

輸入密碼zengym后顯示連接結(jié)果“Password”輸入，點(diǎn)擊OK測試連接是否成功。最后就可以在中使用“外接程序”→“可視化數(shù)據(jù)管理”連接數(shù)據(jù)庫。、數(shù)據(jù)連接（在模中）PublicFunctionConnectString()AsStringConnectString="Driver={MicrosoftODBCfororacle};server=gntc;UID=zengym;PWD=zengym;"EndFunctionPublicFunctionExecuteSQL(ByValSQLAsString,MsgStringAsString)AsDimcnnAsDimrstAsDimsTokens()AsStringOnErrorGoToExecuteSQL_ErrorsTokens=Split(SQL)Setcnn=NewConnectStringIfInStr("INSERT,DELETE,UPDATE",UCase$(sTokens(0)))ThenSQLMsgString=sTokens(0)&"querysuccessful"ElseSetrst=NewTrim$(SQL),cnn,adOpenKeyset,adLockOptimisticSetExecuteSQL=rst

MsgString="查詢到"&&"條記錄"EndIfExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:MsgString="查詢錯(cuò)誤:"&ResumeExecuteSQL_ExitEndFunction統(tǒng)主體設(shè)主界面是學(xué)生信息管理系統(tǒng)的主要窗口，擔(dān)任著調(diào)動(dòng)程序其他模塊的功能，是整個(gè)應(yīng)程序的核心。在工程中添加一個(gè)窗體，命名為“frmMain主界面的主要屬性如下：

–手

選擇“工具”菜單項(xiàng)中的“菜單編輯器單內(nèi)容，如下圖所示。菜單項(xiàng)的屬性如下：

主界面如下圖所示：窗口代如下：PrivateSubclaiMenu_Click()EndSubPrivateSubcouiMenu_Click()EndSubPrivateSubcusiMenu_Click()EndSub

PrivateSubMDIForm_Load()EndSubPrivateSubMDIForm_Resize()If>1100Then=-1100EndIfIf>180Then=-180EndIfEndSubPrivateSubprpiMenu_Click()EndSubPrivateSubscoiMenu_Click()EndSubPrivateSubstsiMenu_Click()EndSubPrivateSubsumiMenu_Click()EndSub、錄體設(shè)在工程中添加一個(gè)窗體，命名為“frmLogin整個(gè)窗體界面的示意圖如圖所示。

用戶要使用本系統(tǒng)先要通過系統(tǒng)的身份認(rèn)證需要登錄錄過程需要完成一下任務(wù)用戶名和密碼來判斷是否能進(jìn)入系統(tǒng)戶類型決定用戶擁有的權(quán)限。登錄界面窗體的主要屬性如下。窗體屬性名稱BorderStyleCaptionControlBox

設(shè)置值Label11-FixedSingle登錄False

具體說明設(shè)置窗體名稱設(shè)置窗體的邊框?qū)傩源绑w的標(biāo)題條文本取消控制按鈕在登錄窗體中添加控件，并設(shè)置控件的屬性如下表所示：對象名

屬性

屬性值txtPasswordtxtUserNameCmd_OkCmd_Cancel

（名稱）StyleTextCaptionCaption

txtPassword0—DropdownCombotxtUserName確定取消編寫窗代碼

：PrivateSubForm_Load()DimiAsIntegeri=0txtSQL="select*fromuser_Form"WithtxtUserNameSetmrc=ExecuteSQL(txtSQL,MsgText)DoWhileNoti=i+1Trim(mrc!user_ID)

Loop.ListIndex=i-1EndWithOK=FalsemiCount=0EndSubPrivateSubcmdCancel_Click()OK=FalseEndSubPrivateSubcmdOK_Click()txtSQL="select*fromuser_Formwhereuser_ID='"&&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)If=TrueThenMsgBox"沒有這個(gè)用戶輸入用戶名,vbOKOnly+vbExclamation,"警告"ElseIfTrim(1))=TrimThenOK=TrueUserName=TrimElseMsgBox"輸入的密碼不對輸入,vbOKOnly+vbExclamation,

"警告"=""EndIfEndIfmiCount=miCount+1IfmiCount=3ThenEndIfExitSubEndSubPrivateSubLabel1_Click()EndSubPrivateSubtxtPassword_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubtxtPassword_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallcmdOK_ClickEndIfEndSubPrivateSubtxtUserName_Click()=""EndSubPrivateSubtxtUserName_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSub

背窗的計(jì)在工程中添加一個(gè)窗體，命名為“dColor整個(gè)窗體的界面設(shè)計(jì)示意圖如下

dColor窗體上的空間及其屬性如下表所示。窗體屬性

設(shè)置值

具體說明名稱MaxButtonMinButtonControlBox

dColorTrueTrueTrue

設(shè)置窗體名稱激活最大化按鈕激活最小化按鈕控制按鈕在登錄窗體中添加控件，并設(shè)置控件的屬性如下表所示：對象名

屬性

屬性值Image1Image2Label1

PicturePictureStretchCaptionBackColor

（Bitmap）（Bitmap）False歡迎進(jìn)去學(xué)生管理系統(tǒng)0–Transparent編寫窗代碼PrivateSubForm_Load()=&H8000000E=12=Truei=EndSubPrivateSubForm_Resize()=0

=0===-=-=--100EndSubPrivateSubLabel1_Click()EndSubPrivateSubTimer1_Timer()i=i+50=-iIfi>+Theni=EndIfEndSub班管窗的計(jì)在工程中添加一個(gè)窗體，命名為“frmclai整個(gè)窗體界面示意圖如圖所示

frmclai窗體上的的主要屬性和控件設(shè)置如下：對象名Frmclai

屬性CaptionMinbuttonLinkTopicHacDC

屬性值班級(jí)信息TrueForm1True

MSFlexGrid1Label1Label2（0）Label2（1）Label2（2）Label3（0）Label3（1）Label3（2）Label3（3）

DragModeCaptionCaptionCaptionCaptionCaptionCaptionCaptionCaption

0–vbManual班級(jí)信息列表添加修改刪除班級(jí)編號(hào)班級(jí)名稱導(dǎo)員姓名備注編寫窗代碼PrivateSubCommand1_Click()IfText1(0)=""ThenMsgBox"班級(jí)編號(hào)不能為空！",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIfIfText1(1)=""ThenMsgBox"班級(jí)名稱不能為空！",vbOKOnly,"提示"Text1(1).SetFocusExitSubEndIfIfText1(2)=""ThenMsgBox"導(dǎo)員姓名不能為空！",vbOKOnly,"提示"Text1(2).SetFocusExitSubEndIf

txtSQL"select*class_Formclass_NO='"&&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)If=FalseThenMsgBox"此班級(jí)編號(hào)已經(jīng)存在！",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)(0)=Trim(Text1(0))(1)=Trim(Text1(1))(2)=Trim(Text1(2))(3)=Trim(Text1(3))Fori=0To3Text1(i)=""NextMsgBox"班級(jí)信息添加成功！",vbOKOnly,"提示"ShowDataEndSubPrivateSubCommand2_Click()Fori=0To3Text1(i)=""

NextEndSubPrivateSubCommand5_Click()txtSQL="deletefromclass_Formwhereclass_NO='"&Trim(Text1(8))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Fori=8To11Text1(i)=""NextMsgBox"班級(jí)已經(jīng)刪除！",vbOKOnly,"警告"ShowDataEndSubPrivateSubCommand6_Click()Fori=8To11Text1(i)=""NextEndSubPrivateSubForm_Load()="班級(jí)信息—>添加"Picture1(1).Top=Picture1(0).TopPicture1(1).Left=Picture1(0).LeftPicture1(2).Top=Picture1(0).TopPicture1(2).Left=Picture1(0).LeftShowDataFori=0To2Label2(i).BackColor=&HE0E0E0

Picture1(i).Visible=FalseNextLabel2(0).BackColor=&HFFFFFFPicture1(0).Visible=TrueEndSubPrivateSubForm_Resize()1EndSubPrivateSubLabel2_Click(IndexAsInteger)="班級(jí)信息"=&"->"&Trim(Label2(Index).Caption)Fori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(Index).BackColor=&HFFFFFFPicture1(Index).Visible=TrueFori=0To11Text1(i)=""Next=False=FalseEndSubPrivateSubShowData()DimtxSQLAsStringDimmrccAstxSQL="select*fromclass_Form"

Setmrcc=ExecuteSQL(txSQL,MsgText)WithMSFlexGrid1.ColWidth(0)=1200.ColWidth(1)=1200.ColWidth(2)=1200.ColWidth(3)=6000.TextMatrix(0,0)="班級(jí)編號(hào)".TextMatrix(0,1)="班級(jí)名稱".TextMatrix(0,2)="導(dǎo)員姓名".TextMatrix(0,3)="備注信息￠".Rows=1DoWhileNot.Rows=.Rows+1Fori=0To-1.TextMatrix(.Rows-1,i)=(i)&""NextiLoopEndWithEndSubPrivateSubMSFlexGrid1_Click()IfPicture1(1).Visible=TrueThenText1(4)=Trim,0))Text1(5)=Trim,1))Text1(6)=Trim,2))Text1(7)=Trim,3))

=TrueEndIfIfPicture1(2).Visible=TrueThenText1(8)=Trim,0))Text1(9)=Trim,1))Text1(10)=Trim,2))Text1(11)=Trim,3))=TrueEndIfEndSubPrivateSubText1_Change(IndexAsInteger)IfIndex=4ThentSQL="select*fromclass_FormTrim(Text1(Index))&"'"Setmrc=ExecuteSQL(tSQL,MsgText)If=FalseThenText1(5)=(1)Text1(6)=(2)Text1(7)=(3)=TrueExitSubElseText1(5)=""Text1(6)=""Text1(7)=""=False

whereclass_NO='"&

EndIfEndIfIfIndex=8ThentSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(Index))&"'"Setmrc=ExecuteSQL(tSQL,MsgText)If=FalseThenText1(9)=(1)Text1(10)=(2)Text1(11)=(3)=TrueExitSubElseText1(9)=""Text1(10)=""Text1(11)=""=FalseEndIfEndIfEndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSubPrivateSubText1_KeyDown(IndexInteger,KeyCodeAs

Integer)EnterToTabKeyCodeEndSub課信窗的計(jì)在工程中添加一個(gè)窗體，命名為“frmcoui整個(gè)窗體界面如下所示。Frmcoui窗體的主要控件和屬性設(shè)置如下對象名ComcolList1TxtUserFrmcouiCommand1Command2

屬性Text(名稱)TextCaptionStartUpPositionCaptionCaption

屬性值Combol密碼List1課程信息0–手動(dòng)添加刪除添加窗代碼PrivateSubCombo1_Click()List1TextEndSubPrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"課程名稱不能為空",vbOKOnly,"提示"Text1(0).SetFocusExitSub

EndIftxtSQL="select*fromcourse_Formwherecourse_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)If=FalseThenMsgBox"此課程名稱已經(jīng)存在！",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromcourse_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)(0)=Trim(Text1(0))(1)=Trim(Text1(1))Text1(0)=""Text1(1)=""MsgBox"課程信息添加成功！",vbOKOnly,"提示"List2TextEndSubPrivateSubCommand2_Click()DimtxtSQLAsStringIf<>""ThentxtSQL="deletefromcourse_Formwherecourse_Name='"&Trim&

"'"Setmrc=ExecuteSQL(txtSQL,MsgText)MsgBox"課程信息已經(jīng)刪除！",vbOKOnly,"提示"List2TextEndIfEndSubPrivateSubForm_Load()DimtxtSQLAsString="課程信息->設(shè)置"txtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)If=TrueThenMsgBox"請先進(jìn)行班級(jí)設(shè)置",vbOKOnly,"提示"ElseWithCombo1DoWhileNot.AddItemTrim(mrc!class_NO)Loop=0EndWithEndIfList2TextEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAs

Single,YAsSingle)Label3(0).BackColor=&HC0C0C0Label3(1).BackColor=&HC0C0C0Label3(2).BackColor=&HC0C0C0Label3(3).BackColor=&HC0C0C0EndSubPrivateSubForm_Resize()1EndSubPrivateSubLabel3_Click(IndexAsInteger)DimtxtSQLAsStringDimtSQLAsStringDimmmrcAsIfIndex=0ThenIf<>""And<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim&"'andcourse_Name='"&Trim&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromclass_Cour"Setmrc=ExecuteSQL(txtSQL,MsgText)(0)=Trim(1)=Trim

EndIfEndIfIfIndex=1ThenIf<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)tSQL="select*fromcourse_Form"txtSQL="select*fromclass_Cour"Setmmrc=ExecuteSQL(tSQL,MsgText)If=TrueThenMsgBox"請先進(jìn)行班級(jí)設(shè)置",vbOKOnly,"提示"ElseDoWhileNotSetmrc=ExecuteSQL(txtSQL,MsgText)(0)=Trim(1)=(0)LoopEndIfEndIfEndIfIfIndex=2ThenIf<>""And<>""Then

txtSQL="deletefromclass_Courwhereclass_NO='"&Trim&"'andcourse_Name='"&Trim&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)EndIfEndIfIfIndex=3ThenIf<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)EndIfEndIftxtSQL="select*fromclass_Cour"Setmrc=ExecuteSQL(txtSQL,MsgText)List1TextEndSubPrivateSubLabel3_MouseMove(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label3(Index).BackColor=&HFFFFFFEndSubPrivateSubList1_Click()EndSubPrivateSubList2_Click()Text1(0)=

EndSubPrivateSubText1_Change(IndexAsInteger)DimtxSQLAsStringIfIndex=0ThentxtSQL="select*fromcourse_Formwherecourse_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)If=FalseThenText1(1)=(1)Text1(1).Locked=TrueElseText1(1)=""Text1(1).Locked=FalseEndIfEndIfEndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSubPrivateSubText1_KeyDown(IndexInteger,KeyCodeAsInteger)EnterToTabKeyCodeEndSubPrivateSubList1Text()

DimtxSQLAsStringDimmrccAstxSQL="select*fromclass_Courwhereclass_NO='"&Trim&"'"Setmrcc=ExecuteSQL(txSQL,MsgText)DoWhileNotTrim(mrcc!course_Name)LoopEndSubPrivateSubList2Text()DimtxSQLAsStringDimmrccAstxSQL="select*fromcourse_Form"Setmrcc=ExecuteSQL(txSQL,MsgText)DoWhileNotTrim(mrcc!course_Name)LoopEndSub用信管窗的計(jì)在工程中添加一個(gè)窗體，命名為“frmcusiFrmcusi窗口的界面十一圖如下。

Frmcusi窗體包含的控件及其屬性如下：對象名

屬性

屬性值Label1Label2(0)Label2(1)Label2(2)Picture1(0)List1Command1Command2

CaptionCaptionCaptionCaptionIMEModeListCaptionCaption

用戶列表添加修改刪除0–NoOperation（List）添加取消編寫窗代碼PrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"用戶名稱不能為空!",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIfIfText1(1)=""ThenMsgBox"用戶密碼不能為空!",vbOKOnly,"提示"Text1(1).SetFocusExitSubElseIfText1(1)<>Text1(2)ThenMsgBox"兩次密碼不同!",vbOKOnly,"提示"Text1(1)=""

Text1(2)=""Text1(1).SetFocusExitSubEndIfEndIftxtSQL="select*fromuser_Formwhereuser_ID='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)If=FalseThenMsgBox"此用戶已經(jīng)存在!",vbOKOnly,警告"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)(0)=Trim(Text1(0))(1)=Trim(Text1(1))(2)=NowFori=0To2Text1(i)=""NextMsgBox"用戶添加成功!",vbOKOnly,"提示"Listapp

EndSub獎(jiǎng)信管窗的計(jì)在工程中添加一個(gè)窗體，命名為“frmprpiFrmprpi窗口的界面設(shè)計(jì)十一圖如下：Frmprpi窗體包含的主要控件及其屬性如下：對象名

屬性

屬性值Label1Label2Label3Label4Picture5List1Command1Command2

CaptionCaptionCaptionCaptionCaptionListCaptionCaption

輸入學(xué)號(hào)進(jìn)行查詢添加獎(jiǎng)懲信息表收到獎(jiǎng)勵(lì)或懲罰的時(shí)間獎(jiǎng)懲名稱備注信息（List）添加刪除編寫主代碼如下PrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"獎(jiǎng)懲名稱不能為空!",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromprize_Formwhereprize_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)If=FalseThen

MsgBox"此獎(jiǎng)懲名稱已經(jīng)存在",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromprize_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)(0)=Trim(Text1(0))(1)=Trim(Text1(1))Text1(0)=""Text1(1)=""MsgBox"獎(jiǎng)懲信息添加成功!",vbOKOnly,"提示"List1TextEndSub成查窗的計(jì)在工程中添加一個(gè)窗口，命名為“frmscoiFrmscoi窗口的界面設(shè)計(jì)示意圖如下.Frmscoi窗體包含的主要控件及其屬性如下：對象名

屬性

屬性值Combo1（0）LabelOption1（0）

CaptionCaptionCaption

學(xué)生班號(hào)考試期號(hào)添加

MSFlexGrid1Picture1（0）ProgressBar1Command1Command2

BorderStyleDrawModeOrientationCaptionCaption

1–flexBorderSingle13–CopyPenccOrientationHorizontal添加取消其他控件以及屬性跟上面的表中的類似。編寫窗主要代碼如PrivateSubForm_Load()Option1(1).Value=TruePicture1(0).Visible=FalsePicture1(1).Visible=TruePicture1(2).Visible=FalsePicture1(3).Visible=FalsePicture1(1).Top=Picture1(0).TopPicture1(1).Left=Picture1(0).LeftPicture1(2).Top=Picture1(0).TopPicture1(2).Left=Picture1(0).LeftPicture1(3).Top=Picture1(0).TopPicture1(3).Left=Picture1(0).LeftWithMSFlexGrid1.Cols=6.TextMatrix(0,1)="考試期號(hào)".TextMatrix(0,2)="學(xué)生班號(hào)".TextMatrix(0,3)="學(xué)生編號(hào)".TextMatrix(0,4)="考試課程".TextMatrix(0,5)="考試分?jǐn)?shù)

.ColWidth(0)=0.ColWidth(1)=1550.ColWidth(2)=1550.ColWidth(3)=1550.ColWidth(4)=1550.ColWidth(5)=1550.Rows=1EndWithText1(0)=GetRknoEndSubPrivateSubMSFlexGrid1_Click()DimtxtSQLAsStringIf<>0ThenText3(0)=,0)Text3(1)=,1)Combo3(0).ClearCombo3(0).AddItem,2)Combo3(0).ListIndex=0txtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)If=FalseThenWithCombo3(0)DoWhileNotIfmrc!class_NO<>.TextThen.AddItemTrim(mrc!class_NO)EndIf

LoopEndWithEndIfCombo3(1).ClearCombo3(1).AddItem,3)Combo3(1).ListIndex=0Combo3(2).ClearCombo3(2).AddItem,4)Combo3(2).ListIndex=0Text3(2)=,5)Text4(0)=,0)Text4(1)=,1)Combo4(0).ClearCombo4(0).AddItem,2)Combo4(0).ListIndex=0Combo4(1).ClearCombo4(1).AddItem,3)Combo4(1).ListIndex=0Combo4(2).ClearCombo4(2).AddItem,4)Combo4(2).ListIndex=0Text4(2)=,5)EndIfEndSub學(xué)信管窗的計(jì)在工程中添加一個(gè)窗口，命名為“frmstsi

Frmstsi的界面這幾示意圖如下。Frmstsii窗體包含的主要控件及其屬性如下：對象名

屬性

屬性值Combo1（0）Label1(0)Label1（1）Label1（2）Label1（3）Label4Label3MSFlexGrid1Command1Command2

TextCaptionCaptionCaptionCaptionCaptionCaptionRowCaptionCaption

Combol添加查詢修改刪除查詢中請稍后…學(xué)籍信息列表2添加取消其他屬性的設(shè)置與表中的類似。編寫主的代碼如下PrivateSubCombo1_Click()Text1(4)=IfLabel1(3).BackColor<>&HFFFFFFThenIfLabel2(4).Caption=Then=&HE0E0E0Else=&HFFFFFFEndIfEndIfEndSubPrivateSubCommand1_Click()

DimtxtSQLAsStringFori=0To7Ifi<>4ThenIfText1(i)=Label2(i).CaptionThenMsgBox請"&Label2(i).Caption&"!",vbOKOnly,Text1(i).SetFocusExitSubEndIfElseIfText1(i)=Label2(i).CaptionThenMsgBox請"&Label2(i).Caption&"!",vbOKOnly,ExitSubEndIfEndIfNextIfIsDate(Text1(3))=FalseThenMsgBox"出生日期應(yīng)為日期格式((yyyy-mm-dd)!",vbOKOnly,"告"Text1(3).SetFocusExitSubEndIfIfIsDate(Text1(6))=FalseThenMsgBox"入學(xué)日期應(yīng)為日期格式(yyyy-mm-dd)!",vbOKOnly,"告"Text1(6).SetFocusExitSubEndIftxtSQL="select*fromstudent_Formwherestudent_NO='"&

Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)If=FalseThenMsgBox"學(xué)號(hào)不能重復(fù)",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromstudent_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)(0)=Trim(Text1(0))(1)=Trim(Text1(1))(2)=Trim(Text1(2))(3)=Trim(Text1(3))(4)=Trim(Text1(4))(5)=Trim(Text1(5))(6)=Trim(Text1(6))(7)=Trim(Text1(7))IfText1(8)=Label2(8).CaptionThen(8)=""Else(8)=Trim(Text1(8))EndIfMsgBox"學(xué)籍信息添加成功",vbOKOnly,"提示"

WithMSFlexGrid1.Rows=.Rows+1.TextMatrix(.Rows-1,0)=Trim(Text1(0)).TextMatrix(.Rows-1,1)=Trim(Text1(1)).TextMatrix(.Rows-1,2)=Trim(Text1(2)).TextMatrix(.Rows-1,3)=Trim(Text1(3)).TextMatrix(.Rows-1,4)=Trim(Text1(4)).TextMatrix(.Rows-1,5)=Trim(Text1(5)).TextMatrix(.Rows-1,6)=Trim(Text1(6)).TextMatrix(.Rows-1,7)=Trim(Text1(7))IfText1(8)<>Label2(8).CaptionThen.TextMatrix(.Rows-1,8)=Trim(Text1(8))EndIfEndWith=-1TextDcolorEndSubPrivateSubText1_Change(IndexAsInteger)IfLabel1(2).BackColor&HFFFFFFLabel1(3).BackColor=&HFFFFFFThenIfIndex=0ThentSQL="select*fromstudent_Formwherestudent_NO='"&Trim(Text1(Index))&"'"Setmrc=ExecuteSQL(tSQL,MsgText)If=FalseThenFori=1To8Text1(i)=(i)

NextText1(4)=0txtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)If=FalseThenWithCombo1DoWhileNot.AddItemTrim(mrc!class_NO)LoopEndWithEndIfIfLabel1(2).BackColor=&HFFFFFFThenFori=1To8Text1(i).BackColor=&H8000000ENext=&H8000000EEndIfText1(7).Height=600Text1(8).Height=600=True=TrueExitSubElseFori=1To8

Text1(i)=Label2(i).CaptionNextLabel2(4).Caption=0IfLabel1(2).BackColor=&HFFFFFFThenFori=1To8Text1(i).BackColor=&HE0E0E0Next=&HE0E0E0EndIfText1(7).Height=300Text1(8).Height=300=False=FalseEndIfEndIfEndIfEndSub個(gè)信查窗的計(jì)在工程中添加一個(gè)窗口，命名為“frmsumiFrmsumi窗口的界面設(shè)計(jì)示意圖如下：Frmsumi窗體包含的主要控件及其屬性如下：對象名

屬性

屬性值

Label1(0)Label（1）Label（2）Label（3）Label（4）Label（5）Label（6）Labe2（0）Labe2（1）MSFlexGrid1

CaptionCaptionCaptionCaptionCaptionCaptionCaptionCaptionCaptionrows

學(xué)號(hào)姓名性別生日班號(hào)聯(lián)系電話入學(xué)日期成績表獎(jiǎng)懲表2其他屬性的設(shè)置與表中的類似。編寫的要代碼如下PrivateSubForm_Load()WithMSFlexGrid1.Cols=4.ColWidth(0)=0.ColWidth(1)=0.ColWidth(2)=1700.ColWidth(3)=1700.TextMatrix(0,2)="獎(jiǎng)懲日期".TextMatrix(0,3)="獎(jiǎng)懲名稱".Rows=1EndWithWithMSFlexGrid2.Cols=6.ColWidth(0)=0

.ColWidth(1)=1550.ColWidth(2)=1550.ColWidth(3)=0.ColWidth(4)=1550.ColWidth(5)=1550.TextMatrix(0,1)="考試期號(hào)".TextMatrix(0,2)="考生班號(hào)".TextMatrix(0,4)="考試課程".TextMatrix(0,5)="考試分?jǐn)?shù)".Rows=1EndWith=False=False=FalseEndS