Windows 程序設(shè)計實踐之總結(jié)報告

1、Windows 程序設(shè)計實踐總結(jié)報告班級： 姓名： 學(xué)號： 任課教師： 一、功能介紹1.用戶驗證。用戶通過系統(tǒng)登陸窗體輸入相應(yīng)的賬戶和密碼，通過驗證的用戶可以使用學(xué)生信息管理系統(tǒng)， 如果以普通用戶（學(xué)生，只具有“信息查詢用權(quán)限；如果以管理員的身份登陸，則增加代碼維護和學(xué)生信息輸入的功能，即顯示全部菜單。 2.代碼維護。此系統(tǒng)包括數(shù)據(jù)庫中的四個表分別是學(xué)院Tbl_De、專業(yè)Tbl_Se、民族Tbl_Natio、課程（Tbl_Project）和操作員（Tbl_User）進行維護。3.學(xué)生信息。選查詢條件，進行精確查詢或模糊查詢。在線考試。在線考試窗體中，開始考試后，系統(tǒng)可以從“試卷”文件中讀取考試

2、題目，并開始計時，學(xué)生可以選擇答案，考試結(jié)束后系統(tǒng)將輸出考生做出的答案。成績管理。低分、最高分、平均分以及總分顯示在界面中。二、補充功能圖表界面截圖核心代碼Private Function getArrayData() As SeriesCollectione1.YValue = Convert.ToInDim SC As New SeriesCollection()Dim mydt As New DataTable(Student)的大小數(shù)值s1.Elements.Add(e1)Dim mydr As DataRow Dim i As Integermydt.Columns.Add(New

3、DataColumn(學(xué)生, GetType(Integer) mydt.Columns.Add(New DataColumn(最低分, GetType(Integer) mydt.Columns.Add(New DataColumn(最高分, GetType(Integer) mydt.Columns.Add(New DataColumn(平均分, GetType(Integer)For i = 1 To stumydr = mydt.NewRow() mydr(0) = i Randomize()mydr(1) = CInt(ds.Tables(0).Rows(i - 1).Item(1)

4、mydr(2) = CInt(ds.Tables(0).Rows(i - 1).Item(2)mydr(3) = CInt(ds.Tables(0).Rows(i - 1).Item(3) mydt.Rows.Add(mydr)NextDim s1 As NewSeries() s1.Name = 最低分Dim s2 As NewSeries() s2.Name = 最高分Dim s3 As NewSeries() s3.Name = 平均分For i = 0 To mydt.Rows.Count - 1 Dim e1 As New Element()e1.Name = ds.Tables(0

5、).Rows(i).Item(0)NextFor i = 0 To mydt.Rows.Count Dim e1 As New Element() e1.Name = ds.Tables(0).R e1.YValue = Convert.ToIn素的大小數(shù)值s2.Elements.Add(e1) NextFor i = 0 To mydt.Rows.Count Dim e1 As New Element() e1.Name = ds.Tables(0).R e1.YValue = Convert.ToIn素的大小數(shù)值s3.Elements.Add(e1) NextSC.Add(s1) SC.A

6、dd(s2) SC.Add(s3) Return SCEnd Function代碼維護本學(xué)期實驗已經(jīng)將“學(xué)院以“專業(yè)代碼維護”為說明：界面截圖核心代碼Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click確定學(xué)院代碼Dim depid As String = If ComboBox1.Text Then conn.Open()Dim mtdep_s As Stringmtdep_s = select S_DepartmentIDTbl_D

7、ep where S_Department= + ComboBox1.Text + Dim mtdep_comm As New SqlCommand(mtdep_s, conn)dr = mtdep_comm.ExecuteReader()While dr.Readdepid = dr.Item(0)End While dr.Close() conn.Close()End IfIf Button1.Text =更新 Button1.Text = 保存 TextBox1.Enabled = True TextBox2.Enabled = True ComboBox1.Enabled = True

8、Elseconn.Open()Dim s_comm As New SqlCommand(select S_SpecialtyID fromTbl_Spe where S_SpecialtyID=+ TextBox1.Text + , conn)If s_comm.ExecuteScalar() ThenIf MsgBox(已有相同編號的信息存在！是否更新信息？, vbYesNo + vbQuestion, 提示) = vbYes ThenDim up_s As String = update Tbl_Spe set S_Specialty= + TextBox2.Text + ,S_Depar

9、tmentID= + depid + where S_SpecialtyID= + TextBox1.Text + Dim up_comm As New SqlCommand(up_s, conn)up_comm.ExecuteNonQuery() MsgBox(修改數(shù)據(jù)成功！)End If ElseIf MsgBox(是否確認保存新信息？, vbYesNo + vbQuestion, 提示) = vbYes ThenDim sa_s As String = insert into Tbl_Spe values( + TextBox1.Text + , + TextBox2.Text + ,

10、+ depid + )Dim sa_comm As New SqlCommand(sa_s, conn)sa_comm.ExecuteNonQuery() MsgBox(保存數(shù)據(jù)成功！)End If End Ifconn.Close() Button1.Text = 更新 TextBox1.Enabled = TextBox2.Enabled = ComboBox1.Enabled = False -重新加載datagridview conn.Open()Dim mtspe_s As Stringmtspe_s = select * from Tbl_Spe Dim mtdspe_comm A

11、s NewSqlCommand(mtspe_s, conn)dr = mtdspe_comm.ExecuteReader() dt = New DataTable() dt.Load(dr) DataGridView1.DataSource = dt conn.Close()End If End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickIf MsgBox(是否刪除該條記錄？vbYesNovbQuestion, 提示)

12、 = vbYes Then三、實驗收獲conn.Open()Dim del_s As String = delete from Tbl_Spe where S_SpecialtyID= + TextBox1.Text + Dim del_commAs New SqlCommand(del_s,conn)del_comm.ExecuteNonQuery() MsgBox(成功刪除該記錄！) conn.Close()End If-重新加載datagridview conn.Open()Dim mtspe_s As Stringmtspe_s = select * from Tbl_SpeDimmtdspe_commAsNewSqlCommand(mtspe_s,conn)dr = mtdspe_comm.ExecuteReader() dt = New DataTable() dt.Load(dr) DataGridView1.DataSource = dt conn.Close()End Sub End ClassVB.NET首先，是對至今以來所學(xué)習(xí)的VB.NET拉框之間的限制選擇，圖片控件的選擇和保存，文件的讀寫，計時器的使用等，在本次實踐中訓(xùn)練 自己在不同情況下使用哪種控件的意識，為以后系統(tǒng)開發(fā)設(shè)計打下基礎(chǔ)。其次，本次實踐學(xué)習(xí)了關(guān)于A