秋霞电影网午夜鲁丝片无码,真人h视频免费观看视频,囯产av无码片毛片一级,免费夜色私人影院在线观看,亚洲美女综合香蕉片,亚洲aⅴ天堂av在线电影猫咪,日韩三级片网址入口

VB課程設(shè)計(jì)-學(xué)生綜合管理系統(tǒng).doc

上傳人:good****022 文檔編號(hào):116398782 上傳時(shí)間:2022-07-05 格式:DOC 頁(yè)數(shù):67 大小:803.53KB
收藏 版權(quán)申訴 舉報(bào) 下載
VB課程設(shè)計(jì)-學(xué)生綜合管理系統(tǒng).doc_第1頁(yè)
第1頁(yè) / 共67頁(yè)
VB課程設(shè)計(jì)-學(xué)生綜合管理系統(tǒng).doc_第2頁(yè)
第2頁(yè) / 共67頁(yè)
VB課程設(shè)計(jì)-學(xué)生綜合管理系統(tǒng).doc_第3頁(yè)
第3頁(yè) / 共67頁(yè)

下載文檔到電腦,查找使用更方便

10 積分

下載資源

還剩頁(yè)未讀,繼續(xù)閱讀

資源描述:

《VB課程設(shè)計(jì)-學(xué)生綜合管理系統(tǒng).doc》由會(huì)員分享,可在線(xiàn)閱讀,更多相關(guān)《VB課程設(shè)計(jì)-學(xué)生綜合管理系統(tǒng).doc(67頁(yè)珍藏版)》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、學(xué)生綜合管理系統(tǒng)姓 名:學(xué) 號(hào):指導(dǎo)老師: 設(shè)計(jì)時(shí)間:2006年12月26日-2007年1月7日目錄第1章 設(shè)計(jì)的目的和意義1第2章 系統(tǒng)的功能流程圖1第3章 數(shù)據(jù)庫(kù)的設(shè)計(jì)3第4章 主要內(nèi)容(設(shè)計(jì)過(guò)程、界面、代碼)741登錄窗體 742主控界面 943檔案管理14431檔案瀏覽 14432檔案添加 16433檔案查詢(xún) 1944成績(jī)管理22441成績(jī)?yōu)g覽與修改 22442成績(jī)添加 24443考試類(lèi)型設(shè)置 28 45、學(xué)費(fèi)管理 33451學(xué)費(fèi)設(shè)置瀏覽 33452學(xué)費(fèi)設(shè)置添加 35453學(xué)生交費(fèi)瀏覽 39454學(xué)生交費(fèi)添加 41455學(xué)生交費(fèi)查詢(xún) 45 46、課程設(shè)定 48461基本課程設(shè)計(jì) 484

2、62班級(jí)課程瀏覽 54462班級(jí)課程設(shè)置 56 47、系統(tǒng)維護(hù) 60471增加用戶(hù) 60472密碼修改 64第5章 設(shè)計(jì)的體會(huì) 66第6章 附錄 67 61、實(shí)現(xiàn)主要功能的核心源程序 67 62、附錄參考書(shū) 67第1章 設(shè)計(jì)的目的和意義 系統(tǒng)是對(duì)高校教師及管理人員提供的對(duì)在校學(xué)生有效管理的一個(gè)信息系統(tǒng)。系統(tǒng)設(shè)計(jì)的目的是實(shí)現(xiàn)紀(jì)錄、查詢(xún)和修改學(xué)生檔案信息;對(duì)于學(xué)生繳費(fèi)情況能有效的處理,以及設(shè)置課程信息及考試相關(guān)信息。本系統(tǒng)的開(kāi)發(fā)具有很強(qiáng)的使用價(jià)值及實(shí)踐意義。開(kāi)發(fā)本系統(tǒng)不僅能很好的鞏固我們?cè)趯W(xué)習(xí)中的所掌握的知識(shí),而且系統(tǒng)本身就是應(yīng)用于實(shí)踐,為學(xué)校教學(xué)管理提供了很大的方便性,提高了工作效率;同時(shí)方便了

3、我們自己。第2章 系統(tǒng)功能流程圖學(xué)生綜合管理系統(tǒng) 用戶(hù)登陸系統(tǒng)主控界面檔案管理成績(jī)管理學(xué)費(fèi)管理課程設(shè)置用戶(hù)管理管理添加查詢(xún)?yōu)g覽提交查詢(xún)權(quán)限設(shè)定增加設(shè)置學(xué)費(fèi)增加圖2.1 系統(tǒng)功能流程圖第3章 數(shù)據(jù)庫(kù)的設(shè)計(jì)本系統(tǒng)的數(shù)據(jù)庫(kù)是Access數(shù)據(jù)庫(kù),在Access環(huán)境下創(chuàng)建數(shù)據(jù)庫(kù)Stud.mdb文件。該數(shù)據(jù)庫(kù)包括學(xué)生檔案表、班級(jí)信息表、各專(zhuān)業(yè)學(xué)生學(xué)費(fèi)表、管理人員表用于紀(jì)錄學(xué)生的基本信息數(shù)據(jù)庫(kù)表結(jié)構(gòu)如下所示:字段名類(lèi)型大小說(shuō)明學(xué)號(hào)文本10學(xué)生學(xué)號(hào)姓名文本8學(xué)生姓名性別文本2學(xué)生性別班級(jí)文本10班級(jí)出生年月日期/時(shí)間家庭住址文本30入學(xué)時(shí)間日期/時(shí)間學(xué)生入學(xué)時(shí)間表3.1 學(xué)生檔案表字段名類(lèi)型大小說(shuō)明年級(jí)文本1

4、6班級(jí)文本20年制文本8學(xué)習(xí)年限班主任文本8備注備注表3.2 班級(jí)信息表字段名類(lèi)型大小說(shuō)明課程名稱(chēng)文本20紀(jì)錄課程名稱(chēng)教材文本30所使用教材表3.3 課程種類(lèi)表字段名類(lèi)型大小說(shuō)明學(xué)號(hào)文本10學(xué)生學(xué)號(hào)學(xué)期文本50類(lèi)型文本16期中/期末課程名稱(chēng)文本20分?jǐn)?shù)數(shù)字單精度型考試成績(jī)表3.4 學(xué)生成績(jī)表字段名類(lèi)型大小說(shuō)明年級(jí)文本16專(zhuān)業(yè)文本12專(zhuān)業(yè)類(lèi)型年制文本8學(xué)習(xí)年限學(xué)期文本50課程名稱(chēng)文本20開(kāi)設(shè)課程表3.4 課程信息表字段名類(lèi)型大小說(shuō)明username文本20用戶(hù)名uerpassword文本20密碼admin文本2是否為管理員readonly文本2是否為只讀用戶(hù)qx1文本2是否有系統(tǒng)管理權(quán)限qx2文

5、本2是否有檔案管理權(quán)限qx3文本2是否有交費(fèi)管理權(quán)限qx4文本2是否有成績(jī)管理權(quán)限表3.4 管理人員表字段名類(lèi)型大小說(shuō)明年級(jí)文本16專(zhuān)業(yè)文本50年制文本20學(xué)習(xí)年限學(xué)期文本40學(xué)費(fèi)貨幣應(yīng)繳納學(xué)費(fèi)表3.4 學(xué)費(fèi)表字段名類(lèi)型大小說(shuō)明學(xué)號(hào)文本10學(xué)期文本50繳費(fèi)貨幣貨幣已交納費(fèi)用欠費(fèi)貨幣貨幣欠費(fèi)額日期日期日期/時(shí)間紀(jì)錄時(shí)間操作員文本10添加紀(jì)錄人員表3.4 學(xué)身繳費(fèi)情況第4章 主要內(nèi)容41登錄窗體圖4.1 登錄窗體設(shè)計(jì)過(guò)程:用于輸入用戶(hù)名和密碼登錄,提示中寫(xiě)可以以用戶(hù)名和密碼都為guest進(jìn)入系統(tǒng),不過(guò)是只讀用戶(hù)。點(diǎn)擊確定判斷數(shù)據(jù)庫(kù)中的用戶(hù)是否為合法用戶(hù)。設(shè)計(jì)代碼:Private Sub cmdCa

6、ncel_Click()EndEnd SubPrivate Sub cmdOK_Click()Dim sql As String使用sql語(yǔ)言進(jìn)行數(shù)據(jù)庫(kù)的查找sql = select userpassword from use where username= & txtUserName & 使用find語(yǔ)句查找數(shù)據(jù)庫(kù);(不能刷新)Adodc1.Recordset.Find username= & txtUserName & , , adSearchForward, 1Adodc1.RecordSource = sqlAdodc1.RefreshIf Not Adodc1.Recordset.E

7、OF Then If Adodc1.Recordset!userpassword txtPassword Then MsgBox 密碼錯(cuò)誤! txtPassword.SetFocus txtPassword = ElseIf Adodc1.Recordset!userpassword = txtPassword Then MsgBox 登陸成功,歡迎進(jìn)入本系統(tǒng)!, vbOKOnly + vbInformation, 提示 MDIForm1.Show Me.Hide End IfElseIf Adodc1.Recordset.EOF Then MsgBox 無(wú)此用戶(hù) txtUserName.Se

8、tFocus txtUserName = txtPassword = End IfEnd SubPrivate Sub Command1_Click()MsgBox 可以以用戶(hù)名和密碼均為guest進(jìn)入, vbOKOnly + vbInformation, 提示txtUserName.SetFocusEnd SubPrivate Sub Form_Load()OpenTable Adodc1, useAdodc1.RefreshEnd Sub42主控界面圖4.2 主控界面設(shè)計(jì)過(guò)程:所有功能都在菜單中打開(kāi)來(lái)實(shí)現(xiàn),在最下面添加了工具欄,來(lái)顯示時(shí)間,操作員,狀態(tài)等信息。在代碼中判斷登陸時(shí)的用戶(hù)權(quán)限,

9、不同權(quán)限有不同的權(quán)限來(lái)瀏覽各個(gè)窗體。設(shè)計(jì)代碼:Private Sub adddangan_Click()If QX2 = True Then Form1.ShowElse MsgBox 對(duì)不起,您沒(méi)有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub addjiaofei_Click()If QX3 = True Then Form10.ShowElse MsgBox 對(duì)不起,您沒(méi)有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub banjikechengliu

10、lan_Click()Form13.ShowEnd SubPrivate Sub cengdie_Click() MDIForm1.Arrange 0End SubPrivate Sub chengji_Click()End SubPrivate Sub chengjiadd_Click()If QX4 = True Then flAg = True Form6.ShowElse MsgBox 對(duì)不起,您沒(méi)有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub chongpai_Click() MDIForm1.Arrange 3

11、End SubPrivate Sub chuizhi_Click()MDIForm1.Arrange 2End SubPrivate Sub classkechengset_Click()If QX4 = True Then Form15.ShowElse MsgBox 對(duì)不起,您沒(méi)有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub danganfind_Click()Form4.ShowEnd SubPrivate Sub liulanbiao_Click()Form2.ShowEnd SubPrivate Sub jiao

12、feifind_Click()Form12.ShowEnd SubPrivate Sub jiaofeiliulan_Click()Form11.ShowEnd SubPrivate Sub jibenkechengset_Click()If QX4 = True Then Form14.ShowElse MsgBox 對(duì)不起,您沒(méi)有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub kecheng_Click()Form13.ShowEnd SubPrivate Sub liulanchengjibiao_Click()For

13、m5.ShowEnd SubPrivate Sub liulandanganbiao_Click()Form2.ShowEnd SubPrivate Sub MDIForm_Load()StatusBar1.Panels(2) = NowOpenTable Adodc1, useAdodc1.RefreshAdodc1.RecordSource = select * from use where username = & frmLogin.txtUserName & Adodc1.Refresh If Adodc1.Recordset!admin = y Then QXstr = admin

14、ElseIf Adodc1.Recordset!userreadonly = y Then QXstr = userreadonly End If If Adodc1.Recordset!QX1 = y Then QX1 = True End If If Adodc1.Recordset!QX2 = y Then QX2 = True End If If Adodc1.Recordset!QX3 = y Then QX3 = True End If If Adodc1.Recordset!QX4 = y Then QX4 = True End IfStatusBar1.Panels(3) =

15、當(dāng)前操作員: & frmLogin.txtUserNameIf QXstr = admin Then ZhuangTai = 超級(jí)管理員ElseIf QXstr = userreadonly Then ZhuangTai = 只讀用戶(hù)Else ZhuangTai = 普通用戶(hù)End IfStatusBar1.Panels(4) = 狀態(tài): & ZhuangTaiEnd SubPrivate Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)彈出式菜單If Button = 2 Th

16、en PopupMenu tanEnd IfEnd SubPrivate Sub MDIForm_Unload(Cancel As Integer)Call quit_ClickEnd SubPrivate Sub quit_Click()If MsgBox(確定要要退出本系統(tǒng)么?, vbOKCancel + vbExclamation, 警告) = vbOK ThenEndEnd IfEnd SubPrivate Sub shuiping_Click() MDIForm1.Arrange 1End SubPrivate Sub textleixing_Click()If QX4 = True

17、 Then Form7.ShowElse MsgBox 對(duì)不起,您沒(méi)有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub Timer1_Timer()StatusBar1.Panels(2) = NowEnd SubPrivate Sub useradd_Click()If QX1 = True Then Form16.ShowElse MsgBox 對(duì)不起,您沒(méi)有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub viewchengji_Click()Form5

18、.ShowEnd SubPrivate Sub viewdangan_Click()Form2.ShowEnd SubPrivate Sub viewjiaofei_Click()Form11.ShowEnd SubPrivate Sub xiugaimima_Click()Form17.ShowEnd SubPrivate Sub xuefeiadd_Click()If QX3 = True Then Form9.ShowElse MsgBox 對(duì)不起,您沒(méi)有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub xuefeish

19、ezhi_Click()Form8.ShowEnd Sub43檔案管理431檔案瀏覽圖4.3.1 檔案瀏覽設(shè)計(jì)過(guò)程:用控件可以實(shí)現(xiàn)檔案的瀏覽,在此窗體所有上用戶(hù)可以瀏覽,查找,有權(quán)限的用戶(hù)可以進(jìn)行修改和刪除。此窗體與數(shù)據(jù)輪中的student表進(jìn)行連接。設(shè)計(jì)代碼:Private Sub Command1_Click()Form4.ShowEnd SubPrivate Sub Command2_Click()If QX2 = True Then Form3.ShowElse MsgBox 對(duì)不起,您沒(méi)有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubP

20、rivate Sub Command3_Click()If QX2 = True Then 刪除語(yǔ)句 If MsgBox(確定要?jiǎng)h除學(xué)號(hào)為 & Adodc1.Recordset!學(xué)號(hào) & 的記錄么? & Chr(10) + Chr(13) & 會(huì)導(dǎo)致該學(xué)生的信息丟失! & Chr(10) + Chr(13) & 確定么?, vbYesNo + vbExclamation, 警告) = vbYes Then If MsgBox(真的要?jiǎng)h除么?, vbYesNo + vbExclamation, 警告!) = vbYes Then Adodc1.Recordset.Delete Adodc1.Re

21、cordset.Update MsgBox 刪除成功!, vbOKOnly + vbInformation, 提示! End If End IfElse MsgBox 對(duì)不起,您沒(méi)有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load()打開(kāi)數(shù)據(jù)庫(kù)中的student表OpenTable Adodc1, studentAdodc1.Refresh連接DataGrid1表到數(shù)據(jù)庫(kù)Set DataGrid1.DataSource

22、= Adodc1DataGrid1.RefreshEnd Sub432檔案添加圖4.3.2 檔案登記設(shè)計(jì)過(guò)程:用于檔案的登記,此窗體和檔案瀏覽窗體中的數(shù)據(jù)表進(jìn)行了連接,可以直接進(jìn)行添加,前提是必須有權(quán)限,加入了text 和combo控件的keypress事件,讓用戶(hù)可以更輕松的進(jìn)行添加。設(shè)計(jì)代碼:Private Sub combo1_KeyPress(KeyAscii As Integer)回車(chē)換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub combo2_KeyPress(KeyAscii As Intege

23、r)回車(chē)換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub Command1_Click()定義變量Dim msgDim f As BooleanDim g As BooleanDim j As Integerf = Trueg = True判斷文本框是否為空For j = 0 To 4 If Text1(j).Text = Then MsgBox Label2(j).Caption & 不能為空 !, vbExclamation + vbOKOnly, 警告 f = False Text1(j).SetFocu

24、s Exit Sub End IfNext j判斷出生年月是否為日期If Not IsDate(Text1(2).Text) Then MsgBox 應(yīng)輸入日期 yy-mm-dd, vbOKOnly + vbInformation, 提示 g = False反白錯(cuò)誤的框 Text1(2).SetFocus Text1(2).SelStart = 0 Text1(2).SelLength = 10 Exit SubEnd If判斷入學(xué)時(shí)間是否為日期If Not IsDate(Text1(4).Text) Then MsgBox 應(yīng)輸入日期 yy-mm-dd, vbOKOnly + vbInfor

25、mation, 提示 g = False反白錯(cuò)誤的框 Text1(4).SetFocus Text1(4).SelStart = 0 Text1(4).SelLength = 10End If判斷是否要保存If f = True And g = True Then msg = MsgBox(確定要添加么?, vbYesNo + vbInformation, 提示)End If確定后執(zhí)行的語(yǔ)句If msg = vbYes ThenMsgBox 添加成功!, vbOKOnly + vbInformation, 提示 Adodc1.Recordset.AddNew數(shù)據(jù)傳遞到數(shù)據(jù)庫(kù) Adodc1.Re

26、cordset!學(xué)號(hào) = Text1(0).Text Adodc1.Recordset!姓名 = Text1(1).Text Adodc1.Recordset!出生年月 = Text1(2).Text Adodc1.Recordset!家庭住址 = Text1(3).Text Adodc1.Recordset!入學(xué)時(shí)間 = Text1(4).Text Adodc1.Recordset!備注 = Text1(5).Text Adodc1.Recordset!性別 = Combo1.Text Adodc1.Recordset!班級(jí) = Combo2.Text Adodc1.Recordset.Up

27、date添加保存后清空文本For j = 0 To 5 Text1(j).Text = Next jEnd IfForm2.ShowEnd SubPrivate Sub Command2_Click()退出該窗體Unload MeEnd SubPrivate Sub Form_Load()打開(kāi)數(shù)據(jù)庫(kù)中的student表OpenTable Adodc1, student初始化combo的初值Combo1.Text = Combo1.List(ListIndex)Combo2.Text = Combo2.List(ListIndex)End SubPrivate Sub text1_KeyPres

28、s(Index As Integer, KeyAscii As Integer)回車(chē)換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub Form_Activate()Text1(0).SetFocusEnd Sub433檔案查詢(xún)圖4.3.3 學(xué)生信息查找設(shè)計(jì)過(guò)程:用戶(hù)可以根據(jù)自己的需要按學(xué)號(hào),姓名,班級(jí)查找,查找的學(xué)生信息會(huì)顯示在檔案瀏覽的窗體上,用的是sql語(yǔ)言。在此窗體上必須輸入至少一條記錄,不然會(huì)提示。若沒(méi)有找到一條符合的記錄,則會(huì)提示無(wú)此記錄。設(shè)計(jì)代碼:Private Sub Command1_Click

29、()定義sql語(yǔ)言Dim sqlxuehao As StringDim sqlxingming As StringDim sqlbanji As Stringsqlxuehao = select * from student where 學(xué)號(hào)= & Text1.Text & sqlxingming = select * from student where 姓名= & Text2.Text & sqlbanji = select * from student where 班級(jí)= & Combo1.Text & If Combo1.Text = And Text1.Text = And Text

30、2.Text = Then Label1.Caption = 至少一條記錄不空 Exit SubEnd IfIf Text1.Text Then Form2.Adodc1.RecordSource = sqlxuehao Form2.Adodc1.Refresh Form2.DataGrid1.RefreshEnd IfIf Text2.Text Then Form2.Adodc1.RecordSource = sqlxingming Form2.Adodc1.Refresh Form2.DataGrid1.RefreshEnd IfIf Combo1.Text Then Form2.Adod

31、c1.RecordSource = sqlbanji Form2.Adodc1.Refresh Form2.DataGrid1.RefreshEnd IfIf Form2.Adodc1.Recordset.EOF Then MsgBox 無(wú)此記錄, vbOKOnly + vbInformation, 提示End IfUnload MeEnd SubPrivate Sub Command2_Click()退出該窗體Unload MeEnd SubPrivate Sub Form_Activate()Text1.SetFocusEnd SubPrivate Sub combo1_KeyPress(

32、KeyAscii As Integer)回車(chē)換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub text1_KeyPress(KeyAscii As Integer)回車(chē)換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub text2_KeyPress(KeyAscii As Integer)回車(chē)換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd Sub44成績(jī)管理441成績(jī)?yōu)g覽與修

33、改圖4.4.1 考試成績(jī)?yōu)g覽設(shè)計(jì)過(guò)程:通過(guò)一個(gè)combo數(shù)組(4個(gè)),來(lái)實(shí)現(xiàn)各個(gè)信息的選擇,符合的信息會(huì)在下面顯示出來(lái),同時(shí)此窗體同樣可以連接到其它的窗體上,例如修改。若是有權(quán)限的話(huà)還可以直接刪除。此窗體是連接到數(shù)據(jù)庫(kù)中的scorei表。設(shè)計(jì)代碼:Private Sub Command1_Click()If QX4 = True Then flAg = False Form6.ShowElse MsgBox 對(duì)不起,您沒(méi)有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub Command2_Click()If QX4 = Tru

34、e Then 刪除語(yǔ)句 If MsgBox(確定要?jiǎng)h除學(xué)號(hào)為 & Adodc1.Recordset!學(xué)號(hào) & 的記錄么? & Chr(10) + Chr(13) & 會(huì)導(dǎo)致該學(xué)生的信息丟失! & Chr(10) + Chr(13) & 確定么?, vbYesNo + vbExclamation, 警告) = vbYes Then If MsgBox(真的要?jiǎng)h除么?, vbYesNo + vbExclamation, 警告!) = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.Update MsgBox 刪除成功!, vbOKOnly +

35、 vbInformation, 提示! End If End IfElse MsgBox 對(duì)不起,您沒(méi)有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub Command3_Click()定義sql語(yǔ)言Dim sqlxuwqi As StringDim sqlleixing As Stringsqlxuwqi = select * from score where 學(xué)期= & Combo1(2).Text & sqlleixing = select * from score where 類(lèi)型= & Combo1(3).Text

36、& Adodc1.RecordSource = sqlxuwqiAdodc1.RecordSource = sqlleixingAdodc1.RefreshDataGrid1.RefreshIf Adodc1.Recordset.EOF Then MsgBox 無(wú)此記錄, vbOKOnly + vbInformation, 提示End IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load()打開(kāi)數(shù)據(jù)庫(kù)中的score和leixing表OpenTable Adodc1, scoreOpenTable A

37、dodc2, leixing初始化combo的初值For i = 0 To 2 Combo1(i).Text = Combo1(i).List(ListIndex)Next i連接DataGrid1表到數(shù)據(jù)庫(kù)Set DataGrid1.DataSource = Adodc1DataGrid1.Refresh初始化combo1(3)的值Combo1(3).ClearAdodc2.Recordset.MoveFirstDo Until Adodc2.Recordset.EOF Combo1(3).AddItem Adodc2.Recordset!類(lèi)型 Adodc2.Recordset.MoveNe

38、xtLoop Combo1(3).ListIndex = 0End Sub442成績(jī)添加圖4.4.2 成績(jī)添加設(shè)計(jì)過(guò)程:有權(quán)限的用戶(hù)可以進(jìn)行成績(jī)的添加或刪除的操作,學(xué)期,專(zhuān)業(yè),類(lèi)型都可以從combo框中選擇,學(xué)號(hào),姓名是用戶(hù)自己輸入的,且不能為空,還有考試成績(jī),使用了keypress事件,只能鍵入數(shù)字,而且限定長(zhǎng)度為3位數(shù)。設(shè)計(jì)代碼:Private Sub combo1_KeyPress(KeyAscii As Integer)回車(chē)換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub combo2_KeyPress

39、(KeyAscii As Integer)回車(chē)換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub Combo3_KeyPress(KeyAscii As Integer)回車(chē)換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub Command1_Click()判斷文本框是否為空If Text1.Text = Then MsgBox Label3.Caption & 不能為空 !, vbExclamation + vbOKOnly, 警

40、告 Text1.SetFocus Exit SubEnd IfIf Text2.Text = Then MsgBox Label2(2).Caption & 不能為空 !, vbExclamation + vbOKOnly, 警告 Text2.SetFocus Exit SubEnd IfIf Text3.Text = Then MsgBox Label2(4).Caption & 不能為空 !, vbExclamation + vbOKOnly, 警告 Text3.SetFocus Exit SubEnd IfIf flAg = True Then 確定后執(zhí)行的語(yǔ)句 If MsgBox(確定

41、要添加么?, vbYesNo + vbInformation, 提示) = vbYes Then MsgBox 添加成功!, vbOKOnly + vbInformation, 提示 Form5.Adodc1.Recordset.AddNew 數(shù)據(jù)傳遞到數(shù)據(jù)庫(kù) Form5.Adodc1.Recordset!學(xué)期 = Combo1.Text Form5.Adodc1.Recordset!班級(jí) = Combo2.Text Form5.Adodc1.Recordset!學(xué)號(hào) = Text2.Text Form5.Adodc1.Recordset!姓名 = Text3.Text Form5.Adodc

42、1.Recordset!課程名稱(chēng) = Visual Basic Form5.Adodc1.Recordset!類(lèi)型 = Combo3.Text Form5.Adodc1.Recordset!分?jǐn)?shù) = Text1.Text Form5.Adodc1.Recordset!年級(jí) = 2005級(jí) Form5.Adodc1.Recordset.Update End IfElse 確定后執(zhí)行的語(yǔ)句 If MsgBox(確定要修改么?, vbYesNo + vbInformation, 提示) = vbYes Then MsgBox 修改成功!, vbOKOnly + vbInformation, 提示 數(shù)

43、據(jù)傳遞到數(shù)據(jù)庫(kù) Form5.Adodc1.Recordset!學(xué)期 = Combo1.Text Form5.Adodc1.Recordset!班級(jí) = Combo2.Text Form5.Adodc1.Recordset!學(xué)號(hào) = Text2.Text Form5.Adodc1.Recordset!姓名 = Text3.Text Form5.Adodc1.Recordset!課程名稱(chēng) = Visual Basic Form5.Adodc1.Recordset!類(lèi)型 = Combo3.Text Form5.Adodc1.Recordset!分?jǐn)?shù) = Text1.Text Form5.Adodc1

44、.Recordset!年級(jí) = 2005級(jí) Form5.Adodc1.Recordset.Update End IfEnd IfUnload MeEnd SubPrivate Sub Form_Load()Combo1.Text = Combo1.List(ListIndex)Combo2.Text = Combo2.List(ListIndex)初始化combo3的值Combo3.ClearForm5.Adodc2.Recordset.MoveFirstDo Until Form5.Adodc2.Recordset.EOF Combo3.AddItem Form5.Adodc2.Record

45、set!類(lèi)型 Form5.Adodc2.Recordset.MoveNextLoop Combo3.ListIndex = 0判斷是否是修改的窗體If flAg = False Then Label1.Caption = 成績(jī)修改 Command1.Caption = 修改 數(shù)據(jù)庫(kù)數(shù)據(jù)傳遞到文本里 Combo1.Text = Form5.Adodc1.Recordset!學(xué)期 Combo2.Text = Form5.Adodc1.Recordset!班級(jí) Text2.Text = Form5.Adodc1.Recordset!學(xué)號(hào) Text3.Text = Form5.Adodc1.Recor

46、dset!姓名 Combo3.Text = Form5.Adodc1.Recordset!類(lèi)型 Text1.Text = Form5.Adodc1.Recordset!分?jǐn)?shù)End IfEnd SubPrivate Sub Form_Activate()Combo1.SetFocusEnd SubPrivate Sub Command2_Click()退出該窗體Unload MeEnd SubPrivate Sub text1_KeyPress(KeyAscii As Integer)回車(chē)換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd Su

47、bPrivate Sub text2_KeyPress(KeyAscii As Integer)回車(chē)換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfIf KeyAscii = 8 Then Text2 = End IfEnd SubPrivate Sub text3_KeyPress(KeyAscii As Integer)回車(chē)換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd Sub443考試類(lèi)型設(shè)置圖4.4.3 考試類(lèi)型設(shè)置設(shè)計(jì)過(guò)程: 有權(quán)限的用戶(hù)盒超級(jí)管理員可以進(jìn)行考試類(lèi)型的增加,修改,刪

48、除等操作。在此窗體修改過(guò)的東西會(huì)在其它具有選擇類(lèi)型的combo控件的窗體中作出相應(yīng)的修改。最大特點(diǎn)是在點(diǎn)擊增加或修改按鈕時(shí),其他按鈕的enable屬性會(huì)變成false,以免造成不正確的操作。設(shè)計(jì)代碼:Private Sub Command1_Click()增加考試類(lèi)型的代碼If Command1.Caption = 加入列表 Then Adodc1.RecordSource = select * from leixing where 類(lèi)型= & Text1.Text & Adodc1.Refresh 判斷是否重復(fù) If Adodc1.Recordset.EOF = False Then Msg

49、Box 已經(jīng)存在該類(lèi)型名稱(chēng)!, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit Sub Else 增加 Adodc1.Recordset.AddNew Adodc1.Recordset!類(lèi)型 = Text1.Text Adodc1.Recordset.Update Command1.Caption = 增加 Command2.Enabled = True Command3.Enabled = True Command4.Enabled =

50、True Command5.Visible = False Text1.Text = End If 這個(gè)Form_Load是刷新list列表用的 Form_Load MsgBox 設(shè)置成功!, vbOKOnly + vbInformation, 提示Else Text1.Text = InputBox(輸入考試類(lèi)型!, 輸入) If Text1.Text = Then MsgBox 類(lèi)型名稱(chēng)不能為空!, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub End If Command1.Caption = 加入列表 Command2.Ena

51、bled = False Command3.Enabled = False Command4.Enabled = False Command5.Visible = TrueEnd IfEnd SubPrivate Sub Command2_Click()If Text1.Text = Then MsgBox 你還沒(méi)有選擇記錄!, vbOKOnly + vbExclamation, 警告Else If MsgBox(確定要?jiǎng)h除 類(lèi)型名稱(chēng) 為 & List1.List(List1.ListIndex) & 的記錄嗎?, vbOKCancel + vbExclamation, 警告) = vbOK

52、Then Adodc1.RecordSource = select * from leixing where 類(lèi)型= & List1.List(List1.ListIndex) & Adodc1.Refresh Adodc1.Recordset.Delete Text1.Text = End IfEnd If這個(gè)Form_Load是刷新list列表用的Form_LoadEnd SubPrivate Sub Command3_Click()If Text1.Text = Then MsgBox 你還沒(méi)有選擇記錄!, vbOKOnly + vbExclamation, 警告Exit SubEnd

53、IfIf Command3.Caption = 保存修改 Then Adodc1.RecordSource = select * from leixing where 類(lèi)型= & Text1.Text & Adodc1.Refresh 判斷是否重復(fù) If Adodc1.Recordset.EOF = False Then MsgBox 已經(jīng)存在該類(lèi)型名稱(chēng)!, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit Sub Else 修改 Adodc1.RecordSource = select * from leixing where 類(lèi)型= & List1.List(List1.ListIndex) & Adodc1.Refresh Adodc1.Reco

展開(kāi)閱讀全文
溫馨提示:
1: 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2: 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶(hù)所有。
3.本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

相關(guān)資源

更多
正為您匹配相似的精品文檔
關(guān)于我們 - 網(wǎng)站聲明 - 網(wǎng)站地圖 - 資源地圖 - 友情鏈接 - 網(wǎng)站客服 - 聯(lián)系我們

copyright@ 2023-2025  zhuangpeitu.com 裝配圖網(wǎng)版權(quán)所有   聯(lián)系電話(huà):18123376007

備案號(hào):ICP2024067431號(hào)-1 川公網(wǎng)安備51140202000466號(hào)


本站為文檔C2C交易模式,即用戶(hù)上傳的文檔直接被用戶(hù)下載,本站只是中間服務(wù)平臺(tái),本站所有文檔下載所得的收益歸上傳人(含作者)所有。裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)上載內(nèi)容本身不做任何修改或編輯。若文檔所含內(nèi)容侵犯了您的版權(quán)或隱私,請(qǐng)立即通知裝配圖網(wǎng),我們立即給予刪除!