




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
1、Vb+sql學(xué)生成績管理系統(tǒng)一、實驗?zāi)康?.綜合掌握實驗一到實驗六的內(nèi)容。2.掌握編程語言與數(shù)據(jù)庫連接及訪問表記錄的方法。二、實驗準備1.綜合以前所學(xué)知識,結(jié)合某種編程語言開發(fā)完整的系統(tǒng);2.預(yù)習(xí)數(shù)據(jù)庫與編程語言鏈接的相關(guān)內(nèi)容;四、系統(tǒng)功能流程圖查詢刪除修改添加查詢刪除修改添加成績信息管理課程信息管理學(xué)生成績管理系統(tǒng)刪除修改添加刪除修改添加用戶登錄學(xué)生成績管理系統(tǒng)班級信息管理學(xué)生信息管理五、實驗內(nèi)容及步驟Sql建表:create table student(student_ID char(4) NOT NULL ,student_Name char(10) NOT NULL ,student_
2、Sex char(2) NULL ,born_Date datetime NULL ,class_NO char(10) NULL ,tele_Number char(10) NULL ,ru_Date datetime NULL ,address varchar(50) NULL ,comment varchar(200) NULL )create table result(exam_No char(10) NOT NULL ,student_ID char(4) NOT NULL ,student_Name char(10) NULL ,class_No char(10) NULL ,co
3、urse_Name char(10) NULL ,result float NULL )create table course(course_No char(10) NOT NULL ,course_Name char(10) NULL ,course_Type char(10) NULL ,course_Des char(50) NULL )create table class(class_No char(10) NOT NULL ,grade char(10) NULL ,director char(10) NULL ,classroom_No char(10) NULL )六、Vb開發(fā)歡
4、迎界面歡迎界面設(shè)計思想: 以動畫形式開始整個程序設(shè)計代碼:Option ExplicitDim Proba, Proba2 As IntegerDim Boja2 As String Private Function Zrak(slika As PictureBox, StartX As Integer, StartY As Integer, Levo As Integer, Desno As Integer, Boja As String) Me.ScaleMode = vbPixels With slika .ScaleMode = vbPixels .AutoRedraw = True
5、End With For Proba2 = 0 To slika.ScaleWidth DoEvents For Proba = 0 To slika.ScaleHeight Boja2 = slika.Point(Proba2, Proba) Line (StartX, StartY)-(Levo + Proba2, Desno + Proba), Boja2 Next Line (StartX, StartY)-(Levo + Proba2, Desno + slika.ScaleHeight), Boja Next For Proba2 = 0 To slika.ScaleHeight
6、Line (StartX, StartY)-(Levo + slika.ScaleWidth, Desno + Proba2), Boja NextEnd FunctionPrivate Sub Form_Activate() Timer1.Enabled = TrueEnd SubPrivate Sub Form_Click() Unload Me frmLogin.Show Timer1.Enabled = FalseEnd SubPrivate Sub Picture1_Click()End SubPrivate Sub Timer1_Timer() Dim i, j As Intege
7、r Zrak Picture1, 565, 295, 0, 0, Me.BackColor If Timer1.Interval = 1000 Then For i = 0 To 100 For j = 0 To 100 DoEvents Next Next End If Call Form_ClickEnd Sub登陸界面登陸界面設(shè)計思想:輸入用戶名和密碼進入學(xué)生成績管理系統(tǒng)設(shè)計代碼:Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() '設(shè)置全局變量為 false '不提示失
8、敗的登錄 LoginSucceeded = False Me.HideEnd SubPrivate Sub cmdOK_Click() '檢查正確的密碼 If txtPassword = "0" Then '將代碼放在這里傳遞 '成功到 calling 函數(shù) '設(shè)置全局變量時最容易的 LoginSucceeded = True Unload Me Form2.Show Me.Hide Else MsgBox "無效的密碼,請重試!", , "登錄" txtPassword.SetFocus SendKe
9、ys "Home+End" End IfEnd SubPrivate Sub Form_Load()End Sub主界面主界面設(shè)計思想:點擊按鈕進入不同的管理界面。設(shè)計代碼:Private Sub Command1_Click()Unload MeForm1.ShowEnd SubPrivate Sub Command2_Click()Unload MeForm9.ShowEnd SubPrivate Sub Command3_Click()Unload MeForm7.ShowEnd SubPrivate Sub Command4_Click()Unload MeForm
10、8.ShowEnd SubPrivate Sub Form_Load()End Sub學(xué)生信息管理界面學(xué)生信息界面設(shè)計思想:點擊按鈕來實現(xiàn)系統(tǒng)的修改、添加、刪除和查詢。設(shè)計代碼: Private Sub Command1_Click()Unload MeForm2.ShowEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Comm
11、and6_Click()End SubPrivate Sub Command7_Click()End SubPrivate Sub Command8_Click()Dim ask As Integerask = MsgBox("是否刪除?", vbYesNo)If ask = 6 ThenEnd IfEnd SubPrivate Sub Command9_Click()Unload MeForm6.ShowEnd Sub學(xué)生信息管理界面查詢界面學(xué)生信息查詢界面設(shè)計思想: 實現(xiàn)學(xué)生信息按學(xué)號或姓名或班號的查詢。設(shè)計代碼:Private Sub Command2_Click()
12、If Text1 > "" ThenAdodc1.RecordSource = "select * from xt27result where student_NAME='" & Text1.Text & " '"ElseIf Text2 > "" ThenAdodci1.RecordSource = "select * from xt27result where student_ID='" & Text2.Text & &qu
13、ot; '"ElseIf Text3 > "" ThenAdodc1.RecordSource = "select * from xt27result where course_Name='" & Text3.Text & " '"End IfAdodc1.RefreshEnd SubPrivate Sub Command3_Click()Unload MeForm1.ShowEnd Sub班級信息管界面班級信息界面設(shè)計思想:點擊按鈕來實現(xiàn)系統(tǒng)的修改、添加、刪除和查詢。設(shè)計代碼:
14、Private Sub addCommand_Click()End SubPrivate Sub Command1_Click()Unload MeForm2.ShowEnd SubPrivate Sub deleteCommand_Click()Dim ask As Integerask = MsgBox("是否刪除?", vbYesNo)If ask = 6 ThenEnd IfEnd SubPrivate Sub updateCommand_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Com
15、mand3_Click()End SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Form_Load()End Sub課程信息管理界面課程信息界面設(shè)計思想:點擊按鈕來實現(xiàn)系統(tǒng)的修改、添加、刪除。設(shè)計代碼: Private Sub Command1_Click()Unload MeForm2.ShowEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub
16、Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Command6_Click()End SubPrivate Sub Command7_Click()End SubPrivate Sub Command8_Click()Dim ask As Integerask = MsgBox("是否刪除?", vbYesNo)If ask = 6 ThenEnd IfEnd SubPrivate Sub Form_Load()End Sub成績信息管理界面學(xué)生成績管理界面設(shè)計思想:點擊按鈕來實現(xiàn)
17、系統(tǒng)的修改、添加、刪除和查詢。設(shè)計代碼:Private Sub Command1_Click()Unload MeForm2.ShowEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Command6_Click()End SubPrivate Sub Command7_Click()End SubPrivate Sub Comm
18、and8_Click()Dim ask As Integerask = MsgBox("是否刪除?", vbYesNo)If ask = 6 ThenEnd IfEnd SubPrivate Sub Command9_Click()Unload MeForm5.ShowEnd SubPrivate Sub Form_Load()End Sub 成績信息管理界面查詢界面成績查詢界面設(shè)計思想: 實現(xiàn)學(xué)生信息按學(xué)號或姓名或班號的查詢。設(shè)計代碼:Private Sub Command2_Click()If Text1 > "" ThenAdodc1.RecordSource = "select * from xt27student where student_ID='" & Text1.Text & " '"ElseIf Text2 > "" ThenAdodc1.RecordSource = "select * from xt27student where student_NAME='" & Text2.Text & " '"
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 湖北省八校聯(lián)考2024-2025學(xué)年高一下學(xué)期6月期末生物試卷(含答案)
- 山東美術(shù)館組織活動方案
- 居家安全游園活動方案
- 小門店活動策劃方案
- 幫助客戶活動方案
- 小學(xué)編程活動方案
- 山西甜品活動方案
- 工會代表活動方案
- 少兒口才團隊活動方案
- 師生情活動策劃方案
- GA 1800.5-2021電力系統(tǒng)治安反恐防范要求第5部分:太陽能發(fā)電企業(yè)
- 膿毒癥指南解讀2021完整版課件
- 起重機械制動器和制動輪的檢查規(guī)定
- 醫(yī)院感染質(zhì)量檢查反饋記錄登記
- 乳糜漏的護理培訓(xùn)課件
- 站區(qū)道路施工監(jiān)理平行檢查記錄
- 兒童口腔科接診基本流程綱要
- 公司工作流程圖
- GB∕T 34876-2017 真空技術(shù) 真空計 與標準真空計直接比較校準結(jié)果的不確定度評定
- (完整版)管理經(jīng)濟學(xué)題庫
- 車工技師論文 細長軸的加工技術(shù)方法
評論
0/150
提交評論