VB項目課程設(shè)計報告

1、國家部屬重點示范軟件院校 VB項目設(shè)計課程設(shè)計報告系 部： 軟件學(xué)院 專 業(yè)： 軟件技術(shù) 班 級： 軟件072 姓 名： 李金飛 指導(dǎo)教師： 夏克付 陳鍵 二00九 年 六 月 二十 日1、課程設(shè)計目的隨著學(xué)校的規(guī)模不斷擴大，教師數(shù)量增加，有關(guān)老師的各種信息量也成倍增長。為了提高學(xué)校管理工作的效率，實現(xiàn)信息的規(guī)范管理、科學(xué)統(tǒng)計和快速查詢，需要設(shè)計一個教師管理系統(tǒng)。2、課程設(shè)計題目和要求2.1 課程設(shè)計題目教師學(xué)生管理系統(tǒng)2.2 課程設(shè)計要求（1）界面設(shè)計要求盡量友好、美觀，提供了登錄界面，并考慮用戶權(quán)限問題；普通的教師進入一般用戶界面，校長或主任等領(lǐng)導(dǎo)進入管理員界面可以對教師信息新增，修改，刪

2、除等操作（2） 對各種教師的信息提供錄入、修改、刪除和查詢功能；（3）具有對教師的基本信息、工資和工作業(yè)績進行統(tǒng)計的功能；（4）能夠新增、修改和刪除用戶信息；（5）能夠按用戶的要求生成教師信息報表3、課程設(shè)計報告內(nèi)容3.1系統(tǒng)設(shè)計3.1.1 系統(tǒng)功能分析根據(jù)對我校有關(guān)部門進行的調(diào)查和分析,教師管理系統(tǒng)應(yīng)該具有以下功能：（1）學(xué)校中的教師基本信息的錄入、修改、刪除和查詢。（2）教師工作崗位所取得的業(yè)績信息的錄入、修改、刪除、查詢和統(tǒng)計。（3）系統(tǒng)用戶信息的錄入、修改、刪除和查詢。（4）系統(tǒng)數(shù)據(jù)的備份和恢復(fù)3.12 系統(tǒng)功能模塊設(shè)計對系統(tǒng)功能分析中的各項功能進行集中、分塊，按照結(jié)構(gòu)化程序設(shè)計的要求

3、，得到系統(tǒng)功能模塊圖教師管理系統(tǒng)成績管理教師管理系統(tǒng)設(shè)置課程設(shè)置成績更新教師信息工 資工作調(diào)動用戶管理系統(tǒng)備份系統(tǒng)恢復(fù)針對不同模塊進行新增，查找，刪除等功能3.2數(shù)據(jù)庫設(shè)計3.2.1 數(shù)據(jù)庫需求分析二：數(shù)據(jù)庫設(shè)計1：數(shù)據(jù)庫需求分析根據(jù)對我校有關(guān)部門進行的調(diào)查和分析,系統(tǒng)中各種功能所需的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)如下： Chengjibiao（成績表）：編號，年級，所帶課程，平均成績，班級名次 Gz(工資表)：編號，工齡，工齡金，基本工資，班級名次，獎金，職稱，職稱金，稅收，總工資 Kecheng(課程表)：編號，所帶課程，年級，學(xué)期，年度 Move(工作調(diào)動表)：編號，調(diào)動內(nèi)容，調(diào)動日期，調(diào)動原因，備注

4、 Teacher(教師基本信息表)：身份證號，編號，姓名，性別，民族，學(xué)歷， 職稱，政治面貌，出生日期，入校日期，聯(lián)系電話，家庭住址，相片 Users(用戶表)：用戶名，密碼，用戶身份，備注3.2.2 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計根據(jù)數(shù)據(jù)庫需求分析，本系統(tǒng)的數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計如下。教師基本信息表教師工資表教師工作調(diào)動表教師課程表教師所帶課程的成績表用戶信息設(shè)計各種信息之間的關(guān)系設(shè)計3.3 界面設(shè)計3.3.1 系統(tǒng)主界面設(shè)計3.3.2 教師信息查詢3.3.3 教師信息查詢后顯示的界面3.3.4教師信息添加 （備注：教師信息添加和修改是同個界面）3.3.5 教師工資查詢3.3.6 查詢后顯示界面3.3.7

5、教師工資信息添加（備注：教師工資信息添加和修改是同個界面）3.3.8教師工作調(diào)動查詢3.3.9 調(diào)動查詢后顯示界面3.3.10教師工作信息調(diào)動添加（備注“教師工作調(diào)動添加和修改是同個界面）3.3.11教師所帶課程設(shè)置界面3.12 教師所帶課程信息的添加（備注：教師所帶課程添加和修改是同個界面）3.3.13教師所帶課程成績查詢界面3.3.14查詢后顯示界面3.3.15教師所帶課程成績信息修改界面（備注：成績新增界面和修改界面是同個界面）3.3.16教師信息報表的打?。▊渥ⅲ航處煿べY打印和教師信息打印相同 不再贅述）3.3.17用戶設(shè)置3.3.18 用戶添加（備注：用戶信息修改和添加是同個界面）3

6、.3.19用戶登錄界面設(shè)計3.3.20 關(guān)于符中3.3.21幫助關(guān)于教師管理系統(tǒng)3.4 代碼設(shè)計3.4.1 教師基本信息查詢頁面代碼Private Sub Command2_Click()Dim sql As StringIf cmbbh.Text = Then MsgBox 請選擇查詢條件！ Exit SubElse sql = select * from teacher where 編號 in(select 編號 from teacher _ + where 編號= + cmbbh.Text + )End If ShowData sql, frmteachersql.fgShow If f

7、rmteachersql.fgShow.Rows = 1 Then MsgBox 對不起！沒有找到符合條件的信息！請重新查找！ Exit Sub Else Unload Me frmteachersql.tlBar.Buttons(2).Visible = False frmteachersql.tlBar.Buttons(3).Visible = True frmteachersql.tlBar.Buttons(4).Visible = True If frmteachersql.Visible = False Then frmteachersql.Show 1 End IfEnd Sub3

8、.4.2 教師基本信息顯示Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Dim sql As StringSelect Case Button.Index Case 2 frmmoney.Show 1 Case 3 With frmmoneygx .Caption = 修改記錄 .cmbbh.Text = fgshowgz.TextMatrix(fgshowgz.Row, 0) .txtgl.Text = fgshowgz.TextMatrix(fgshowgz.Row, 1) .txtglj.Text

9、= fgshowgz.TextMatrix(fgshowgz.Row, 2) .txtjbgz.Text = fgshowgz.TextMatrix(fgshowgz.Row, 3) .cmbbjmc.Text = fgshowgz.TextMatrix(fgshowgz.Row, 4) .txtjj.Text = fgshowgz.TextMatrix(fgshowgz.Row, 5) .cmbzc.Text = fgshowgz.TextMatrix(fgshowgz.Row, 6) .txtzcj.Text = fgshowgz.TextMatrix(fgshowgz.Row, 7) .

10、txtss.Text = fgshowgz.TextMatrix(fgshowgz.Row, 8) .txtzgz.Text = fgshowgz.TextMatrix(fgshowgz.Row, 9) .Show 1 End With Case 4 If MsgBox(你確定要刪除嗎？, vbOKCancel + vbQuestion, 詢問) = vbOK Then Dim rtn As Long sql = delete from gz where 編號= + fgshowgz.TextMatrix(fgshowgz.Row, 0) + rtn = Update(sql) If rtn

11、= 0 Then fgshowgz.RemoveItem fgShow.Row MsgBox (刪除成功！) Else MsgBox (系統(tǒng)錯誤，刪除失?。? End If End IfCase 6 MoveFirst fgshowgzCase 7 MovePre fgshowgzCase 8 MoveNext fgshowgzCase 9 MoveLast fgshowgzCase 11 Unload MeCase 12If Me.fgshowgz.Rows 0 Then Unload Me DataReport1.Show 1 End IfEnd WithEnd SelectEnd Sub

12、3.4.3 教師基本信息添加Private Sub tlbar_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 3 Dim sql As String Dim rtn As Long With frmteachersql.fgShow If Me.Caption = 教師信息添加 Then sql = insert into teacher(身份證號,編號,姓名,性別,民族,學(xué)歷,職稱,政治面貌,出生日期,入校日期,聯(lián)系電話,家庭住址) values( _ & Trim(Me.txtsfzh

13、.Text) & , _ & Trim(Me.txtbh.Text) & , _ & Trim(Me.txtxm.Text) & , _ & Trim(Me.cmbxb.Text) & , _ & Trim(Me.cmbmz.Text) & , _ & Trim(Me.txtxl.Text) & , _ & Trim(Me.txtzc.Text) & , _ & Trim(Me.cmbzzmm.Text) & , _ & Me.dtpkcsrq.Value & , _ & Trim(Me.dtpkrxrq.Value) & , _ & Trim(Me.txtlxdh.Text) & , _ &

14、 Trim(Me.txtjtzz.Text) & ) Else sql = update teacher set 編號= + Trim(Me.txtbh.Text) _ + ,身份證號= + Trim(Me.txtsfzh.Text) _ + ,姓名= + Trim(Me.txtxm.Text) _ + ,性別= + Trim(Me.cmbxb.Text) _ + ,民族= + Trim(Me.cmbmz.Text) _ + ,學(xué)歷= + Trim(Me.txtxl.Text) _ + ,職稱= + Trim(Me.txtzc.Text) _ + ,政治面貌= + Trim(Me.cmbzzm

15、m.Text) _ + ,出生日期= & Me.dtpkcsrq.Value _ & ,入校日期= & Me.dtpkrxrq.Value _ & ,聯(lián)系電話= + Trim(Me.txtlxdh) _ + ,家庭住址= + Trim(Me.txtjtzz.Text) _ & where 編號= + .TextMatrix(.Row, 1) + End If rtn = Update(sql) If rtn = 0 Then * Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim stm As New ADODB

16、.Stream sql = select 相片 from teacher where 編號= _ + Trim(txtbh.Text) + cnn.Open strcnn rst.Open sql, cnn, 3, 3 If rst.RecordCount 0 Then If Me.CommonDialog1.FileName = Then rst.Fields(相片).Value = Null rst.Update Else stm.Type = adTypeBinary stm.Open stm.LoadFromFile Me.CommonDialog1.FileName rst.Fiel

17、ds(相片).Value = stm.Read rst.Update stm.Close End If End If rst.Close cnn.Close * If Me.Caption = 教師信息添加 Then MsgBox 信息添加成功！ Else .TextMatrix(.Row, 0) = Trim(Me.txtsfzh.Text) .TextMatrix(.Row, 1) = Trim(Me.txtbh.Text) .TextMatrix(.Row, 2) = Trim(Me.txtxm.Text) .TextMatrix(.Row, 3) = Trim(Me.cmbxb.Tex

18、t) .TextMatrix(.Row, 4) = Trim(Me.cmbmz.Text) .TextMatrix(.Row, 5) = Trim(Me.txtxl.Text) .TextMatrix(.Row, 6) = Trim(Me.txtzc.Text) .TextMatrix(.Row, 7) = Trim(Me.cmbzzmm.Text) .TextMatrix(.Row, 8) = Me.dtpkcsrq.Value .TextMatrix(.Row, 9) = Trim(Me.dtpkrxrq.Value) .TextMatrix(.Row, 10) = Trim(Me.txt

19、lxdh.Text) .TextMatrix(.Row, 11) = Trim(Me.txtjtzz.Text) .TextMatrix(.Row, 12) = Trim(Me.imgxp.Picture) MsgBox 信息修改成功！ End If Unload Me ElseIf rtn = - Then MsgBox 編號已存在！請重新輸入！ Me.txtbh.Text = Me.txtbh.SetFocus ElseIf rtn = - Then MsgBox 輸入的信息超過指定長度！請檢查！ Else MsgBox 出現(xiàn)未指定錯誤！請檢查您的輸入！ End If End With C

20、ase 5 Unload MeEnd SelectEnd Sub3.4.4 工資信息查詢代碼設(shè)計 Private Sub Command1_Click()Dim sql As StringIf txtxm.Text = ThenMsgBox 姓名不能為空！請重新輸入txtxm.SetFocusExit SubEnd Ifsql = select * from gz where 編號 in(select 編號 from teacher where 姓名 like % + Trim(txtxm.Text) + %)ShowData sql, frmmoneysql.fgshowgzIf frmmo

21、neysql.fgshowgz.Rows = 1 ThenMsgBox 對不起!沒有找到Exit SubElseUnload Mefrmmoneysql.Toolbar1.Buttons(3).Visible = Truefrmmoneysql.Toolbar1.Buttons(2).Visible = Falsefrmmoneysql.Toolbar1.Buttons(4).Visible = True If frmmoneysql.Visible = False Then frmmoneysql.Show 1End IfEnd SubPrivate Sub Command2_Click()

22、Dim sql As StringIf cmbbh.Text = Then MsgBox 請選擇查詢條件！ Exit SubElse sql = select * from gz where 編號 in(select 編號 from gz _ + where 編號= + cmbbh.Text + )End If ShowData sql, frmmoneysql.fgshowgz If frmmoneysql.fgshowgz.Rows = 1 Then MsgBox 對不起！沒有找到符合條件的信息！請重新查找！ Exit Sub Else Unload Me frmmoneysql.Tool

23、bar1.Buttons(2).Visible = False frmmoneysql.Toolbar1.Buttons(3).Visible = True frmmoneysql.Toolbar1.Buttons(4).Visible = False If frmmoneysql.Visible = False Then frmmoneysql.Show 1 End IfEnd SubPrivate Sub Form_Load()Dim cnn As New ADODB.ConnectionDim rst As New ADODB.RecordsetDim sql As Stringsql

24、= select distinct 編號 from teachercnn.Open strcnnrst.Open sql, cnn, 3, 1Do While Not rst.EOF cmbbh.AddItem rst!編號 rst.MoveNextLooprst.Closecnn.CloseEnd Sub3.4.5 工資查詢后顯示頁面的代碼Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Dim sql As StringSelect Case Button.Index Case 2 frmmoney.Sh

25、ow 1 Case 3 With frmmoneygx .Caption = 修改記錄 .cmbbh.Text = fgshowgz.TextMatrix(fgshowgz.Row, 0) .txtgl.Text = fgshowgz.TextMatrix(fgshowgz.Row, 1) .txtglj.Text = fgshowgz.TextMatrix(fgshowgz.Row, 2) .txtjbgz.Text = fgshowgz.TextMatrix(fgshowgz.Row, 3) .cmbbjmc.Text = fgshowgz.TextMatrix(fgshowgz.Row,

26、 4) .txtjj.Text = fgshowgz.TextMatrix(fgshowgz.Row, 5) .cmbzc.Text = fgshowgz.TextMatrix(fgshowgz.Row, 6) .txtzcj.Text = fgshowgz.TextMatrix(fgshowgz.Row, 7) .txtss.Text = fgshowgz.TextMatrix(fgshowgz.Row, 8) .txtzgz.Text = fgshowgz.TextMatrix(fgshowgz.Row, 9) .Show 1 End With Case 4 If MsgBox(你確定要刪

27、除嗎？, vbOKCancel + vbQuestion, 詢問) = vbOK Then Dim rtn As Long sql = delete from gz where 編號= + fgshowgz.TextMatrix(fgshowgz.Row, 0) + rtn = Update(sql) If rtn = 0 Then fgshowgz.RemoveItem fgShow.Row MsgBox (刪除成功！) Else MsgBox (系統(tǒng)錯誤，刪除失?。? End If End IfCase 6 MoveFirst fgshowgzCase 7 MovePre fgshowgz

28、Case 8 MoveNext fgshowgzCase 9 MoveLast fgshowgzCase 11 Unload MeCase 12If Me.fgshowgz.Rows 0 Then Unload Me DataReport1.Show 1 End IfEnd WithEnd SelectEnd Sub3.4.6 工資更新界面代碼 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 3 Dim sql As String Dim rtn A

29、s Long With frmmoneysql.fgshowgz If Me.Caption = 教師工資信息添加 Then sql = insert into gz(編號,工齡,工齡金,基本工資,班級名次,獎金,職稱,職稱金,稅收,總工資) values( _ & Trim(Me.cmbbh.Text) & , _ & Trim(Me.txtgl.Text) & , _ & Trim(Me.txtglj.Text) & , _ & Trim(Me.txtjbgz.Text) & , _ & Trim(Me.cmbbjmc.Text) & , _ & Trim(Me.txtjj.Text) &

30、 , _ & Trim(Me.cmbzc.Text) & , _ & Trim(Me.txtzcj.Text) & , _ & Trim(Me.txtss.Text) & , _ & Trim(Me.txtzgz.Text) & ) Else sql = update gz set 編號= + Trim(Me.cmbbh.Text) _ + ,工齡= + Trim(Me.txtgl.Text) _ + ,工齡金= + Trim(Me.txtglj.Text) _ + ,基本工資= + Trim(Me.txtjbgz.Text) _ + ,班級名次= + Trim(Me.cmbbjmc.Text

31、) _ + ,獎金= + Trim(Me.txtjj.Text) _ + ,職稱= + Trim(Me.cmbzc.Text) _ + ,職稱金= + Trim(Me.txtzcj.Text) _ + ,稅收= + Trim(Me.txtss.Text) _ + ,總工資= + Trim(Me.txtzgz.Text) _ & where 編號= + .TextMatrix(.Row, 1) + End If rtn = Update(sql) If rtn = 0 Then If Me.cmbbjmc.Text = 1 Then Me.txtjj.Text = 500 End If If M

32、e.cmbbjmc.Text = 2 Then Me.txtjj.Text = 400 End If If Me.cmbbjmc.Text = 3 Then Me.txtjj.Text = 300 End If If Me.cmbbjmc.Text = 4 Then Me.txtjj.Text = 200 End If If Me.cmbbjmc.Text = 5 Then Me.txtjj.Text = 100 End If If Me.cmbzc.Text = 博導(dǎo) Then Me.txtzcj.Text = 800 End If If Me.cmbzc.Text = 特級教師 Then

33、Me.txtzcj.Text = 500 End If If Me.cmbzc.Text = 一級教師 Then Me.txtzcj.Text = 300 End If If Me.cmbzc.Text = 二級教師 Then Me.txtzcj.Text = 200 End If Me.txtglj.Text = Str(Val(Me.txtgl.Text) * 50) Me.txtzgz.Text = Str(Val(Me.txtjbgz.Text) + Val(Me.txtglj.Text) + Val(Me.txtjj.Text) + Val(Me.txtzcj.Text) _ - S

34、tr(Val(Me.txtjbgz.Text) + Val(Me.txtglj.Text) + Val(Me.txtjj.Text) + Val(Me.txtzcj.Text) * 0.01 sql = update gz set 總工資= + Trim(Me.txtzgz.Text) _ & where 編號= + Trim(Me.cmbbh.Text) + Call Update(sql) If Me.Caption = 教師工資信息添加 Then MsgBox 信息添加成功！ Else .TextMatrix(.Row, 0) = Trim(Me.cmbbh.Text) .TextMat

35、rix(.Row, 1) = Trim(Me.txtgl.Text) .TextMatrix(.Row, 2) = Trim(Me.txtglj.Text) .TextMatrix(.Row, 3) = Trim(Me.txtjbgz.Text) .TextMatrix(.Row, 4) = Trim(Me.cmbbjmc.Text) .TextMatrix(.Row, 5) = Trim(Me.txtjj.Text) .TextMatrix(.Row, 6) = Trim(Me.cmbzc.Text) .TextMatrix(.Row, 7) = Trim(Me.txtzcj.Text) .

36、TextMatrix(.Row, 8) = Trim(Me.txtss.Text) .TextMatrix(.Row, 9) = Trim(Me.txtzgz.Text) MsgBox 信息修改成功！ End If Unload Me ElseIf rtn = - Then MsgBox 編號已存在！請重新輸入！ Me.cmbbh.Text = Me.cmbbh.SetFocus ElseIf rtn = - Then MsgBox 輸入的信息超過指定長度！請檢查！ Else MsgBox 出現(xiàn)未指定錯誤！請檢查您的輸入！ End If End WithCase 5Unload MeEnd S

37、electEnd SubPrivate Sub txtbjmc_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Val(Trim(txtbjmc.Text) = 1 Then Me.txtjj.Text = 500 End If If Me.txtbjmc.Text = 2 Then Me.txtjj.Text = 400 End If If Me.txtbjmc.Text = 3 Then Me.txtjj.Text = 300 End If If Me.txtbjmc.Text = 4 Then Me.txtjj.Text =

38、200 End If If Me.txtbjmc.Text = 5 Then Me.txtjj.Text = 100 End If End IfEnd Sub3.4.7 教師所帶課程查詢界面的代碼 Private Sub Command2_Click()Dim sql As StringIf txtxm.Text = ThenMsgBox 姓名不能為空！請重新輸入txtxm.SetFocusExit SubEnd Ifsql = select * from kecheng where 編號 in(select 編號 from teacher where 姓名 like % + Trim(txt

39、xm.Text) + %)ShowData sql, frmclasssz.MSFlexGrid1If frmclasssz.MSFlexGrid1.Rows = 1 ThenMsgBox 對不起!沒有找到Exit SubElseUnload Mefrmclasssz.Toolbar1.Buttons(3).Visible = Truefrmclasssz.Toolbar1.Buttons(2).Visible = Falsefrmclasssz.Toolbar1.Buttons(4).Visible = True If frmclasssz.Visible = False Then frmc

40、lasssz.Show 1End IfEnd SubPrivate Sub Form_Load()Dim cnn As New ADODB.ConnectionDim rst As New ADODB.RecordsetDim sql As Stringsql = select distinct 編號 from teachercnn.Open strcnnrst.Open sql, cnn, 3, 1Do While Not rst.EOF cmbbh.AddItem rst!編號 rst.MoveNextLooprst.Closecnn.CloseEnd Sub3.4.8 課程顯示界面代碼P

41、rivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 2 frmclassgx.Caption = 課程信息添加 frmclassgx.Show 1Case 3frmclasscx.Show 1Case 4With frmclassgx .Caption = 修改記錄 .cmbbh.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) .txtkc = MSFlexGrid1.TextMatrix(MSFlexG

42、rid1.Row, 1) .txtnj.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) .Show 1End With Case 5If MSFlexGrid1.Rows = 1 Then MsgBox 沒有記錄可以刪除！ Exit SubEnd If If MsgBox(你確定要刪除嗎？, vbOKCancel + vbQuestion, 詢問) = vbOK Then Dim sql As String, rtn As Longsql = delete from kecheng where 編號= + MSFlexGrid1.TextMa

43、trix(MSFlexGrid1.Row, 0) + rtn = Update(sql) If rtn = 0 Then If MSFlexGrid1.Rows 2 Then MSFlexGrid1.RemoveItem MSFlexGrid1.Row Else MSFlexGrid1.Rows = 1 End If MsgBox (刪除成功！) Else MsgBox (系統(tǒng)錯誤，刪除失??！) End IfEnd If Case 7 MoveFirst MSFlexGrid1 Case 8 MovePre MSFlexGrid1 Case 9 MoveNext MSFlexGrid1Case 10 MoveLast MSFlexG