【導(dǎo)讀】2020年1月6日止。的重要作用，掌握使用SQL語(yǔ)言嵌入式操作與設(shè)計(jì)的基本方法和步驟。并能得出正確的結(jié)果。本課程設(shè)計(jì)的題目是一VirtualBasic為開(kāi)發(fā)環(huán)境，利用。今后真正多表數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)打下良好的基礎(chǔ)。為了便于企業(yè)領(lǐng)導(dǎo)掌握本企業(yè)的工資信息，在系統(tǒng)中應(yīng)加入各種查詢(xún)功能，應(yīng)能輸出各類(lèi)統(tǒng)計(jì)報(bào)表。由于計(jì)算機(jī)技術(shù)的飛速發(fā)展,數(shù)據(jù)庫(kù)技術(shù)作為數(shù)據(jù)管理的一個(gè)有效的手段,在各行各業(yè)中得到越來(lái)越廣泛的應(yīng)用。言編寫(xiě)管理信息系統(tǒng)的過(guò)程。該程序通過(guò)VB的ADO數(shù)據(jù)對(duì)象來(lái)實(shí)現(xiàn)VB前臺(tái)與后。結(jié)構(gòu)與現(xiàn)實(shí)生活的緊密結(jié)合。設(shè)計(jì)階段所做的工作。該程序在設(shè)計(jì)過(guò)程中嚴(yán)格遵循軟件工程學(xué)的方法,用分階。事工資管理系統(tǒng)”。

　　

【正文】 能為空 , 錯(cuò)誤提示 End If Exit Sub errorhandler: MsgBox 部門(mén)號(hào)是主索引，不能重復(fù) , 錯(cuò)誤提示 End Sub Private Sub cmdedit_Click() On Error GoTo errorhandler If Then = select * from 基本工資 where Sno= 39。 amp。 amp。 39。 (Sno) = 華東交通大學(xué)理工學(xué)院通用工資管理系統(tǒng)課程設(shè)計(jì)報(bào)告 36 第 頁(yè) (Sbas) = Else MsgBox 工資級(jí)別是主索引，不能為空 , 錯(cuò)誤提示 End If Exit Sub errorhandler: MsgBox 工資級(jí)別是主索引，不能重復(fù) , 錯(cuò)誤提示 End Sub Private Sub cmdexit_Click() Unload Me End Sub Private Sub Form_Load() Dim i As Integer = select * from 基本工資 Set = Adodc1 For i = 0 To 1 (i).Name Next i 津貼信息管理 選擇“津貼信息管理”→“津貼信息表設(shè)置”菜單 ，彈出如圖 所示對(duì)話(huà)框。在該對(duì)話(huà)框可以進(jìn)行查詢(xún)和修改操作。 選擇“津貼信息管理”→“津貼情況表設(shè)置”菜單，彈出如圖 所示對(duì)話(huà)框，在該對(duì)話(huà)框也可進(jìn)行查詢(xún)和修改操作。 通過(guò)津貼信息表設(shè)置可以知道某員工加班的天數(shù)，通過(guò)津貼情況表可以知道加班的天數(shù)和其相應(yīng)的津貼。 華東交通大學(xué)理工學(xué)院通用工資管理系統(tǒng)課程設(shè)計(jì)報(bào)告 37 第 頁(yè) 圖 津貼信息表設(shè)置 津貼信息表設(shè)置模塊的源代碼： ext = (0) End Sub Private Sub cmbfield_Click() = select * from 津貼信息 Do While Not () Loop = (0) End Sub Private Sub cmbname_Click() Dim condition condition = Trim() 華東交通大學(xué)理工學(xué)院通用工資管理系統(tǒng)課程設(shè)計(jì)報(bào)告 38 第 頁(yè) If VarType(condition) = 8 Then = select * from 津貼信息 where amp。 condition amp。 = 39。 amp。 amp。 39。 Else = select * from 津貼信息 where amp。 condition amp。 = amp。 End If = (Eno) = (Eadd) End Sub Private Sub cmdedit_Click() On Error GoTo errorhandler If Then = select * from 津貼信息 where Eno= 39。 amp。 amp。 39。 (Eno) = (Eadd) = Else MsgBox y 員工號(hào)是主索引，不能為空 , 錯(cuò)誤提示 End If Exit Sub errorhandler: MsgBox 員工號(hào)是主索引，不能重復(fù) , 錯(cuò)誤提示 End Sub Private Sub cmdexit_Click() 華東交通大學(xué)理工學(xué)院通用工資管理系統(tǒng)課程設(shè)計(jì)報(bào)告 39 第 頁(yè) Unload Me End Sub Private Sub Form_Load() Dim i As Integer = select * from 津貼信息 Set = Adodc1 For i = 0 To 1 (i).Name Next i = (0) End Sub 圖 津貼情況表設(shè)置 津貼情況表設(shè)置模塊源代碼： Private Sub cmbfield_Click() = select * from 津貼情況 華東交通大學(xué)理工學(xué)院通用工資管理系統(tǒng)課程設(shè)計(jì)報(bào)告 40 第 頁(yè) Do While Not () Loop = (0) End Sub Private Sub cmbname_Click() Dim condition condition = Trim() If VarType(condition) = 8 Then = select * from 津貼情況 where amp。 condition amp。 = 39。 amp。 amp。 39。 Else = select * from 津貼情況 where amp。 condition amp。 = amp。 End If = (Eadd) = (Ssub) End Sub Private Sub cmdedit_Click() On Error GoTo errorhandler If Then = select * from 津貼情況 where Eadd= 39。 amp。 amp。 39。 (Eadd) = 華東交通大學(xué)理工學(xué)院通用工資管理系統(tǒng)課程設(shè)計(jì)報(bào)告 41 第 頁(yè) (Ssub) = Else MsgBox 加班天數(shù)是主索引，不能為空 , 錯(cuò)誤提示 End If Exit Sub errorhandler: MsgBox 加班天數(shù)是主索引，不能重復(fù) , 錯(cuò)誤提示 End Sub Private Sub cmdexit_Click() Unload Me End Sub Private Sub Form_Load() Dim i As Integer = select * from 津貼情況 Set = Adodc1 For i = 0 To 1 (i).Name Next i = (0) End Sub 華東交通大學(xué)理工學(xué)院通用工資管理系統(tǒng)課程設(shè)計(jì)報(bào)告 42 第 頁(yè) 第 7章 系統(tǒng)運(yùn)行結(jié)果 經(jīng)過(guò)編程，連接數(shù)據(jù)庫(kù)并且編譯執(zhí)行后，系統(tǒng) 運(yùn)行正常，說(shuō)明程序基本上沒(méi)有錯(cuò)誤，而且所對(duì)應(yīng)的功能都能滿(mǎn)足，但是還是存在一些問(wèn)題的。 第一，系統(tǒng)的安全性設(shè)置的不構(gòu)完美，雖然設(shè)置了密碼來(lái)防止無(wú)權(quán)用戶(hù)訪問(wèn)該系統(tǒng)，但是員工和經(jīng)理（該系統(tǒng)的兩個(gè)實(shí)體）所擁有的權(quán)限不同，比如員工只能查詢(xún)工資信息，而不能修改工資信息，但是經(jīng)理（類(lèi)似于管理員）能，這是就需要對(duì)他們?cè)O(shè)置不過(guò)的權(quán)限，才能保證安全。 第二，系統(tǒng)模塊的功能不太完好，比如“添加用戶(hù)”模塊只能添加用戶(hù)信息，而不能刪除或修改用戶(hù)信息，這樣在實(shí)際應(yīng)用中很可能會(huì)帶來(lái)很大的不變。 第 8 章 總結(jié) 通過(guò)本次課程設(shè)計(jì)，對(duì)數(shù)據(jù)庫(kù) 的認(rèn)識(shí)加深了，對(duì)編程和 Virtual Basic以及 SQL Server2020 的功能有了更深層次的認(rèn)識(shí)和學(xué)習(xí)。 雖然在課設(shè)過(guò)程中遇到了很多問(wèn)題，但是通過(guò)和同學(xué)討論，上網(wǎng)查資料以及在圖書(shū)館翻閱資料把所有遇到的問(wèn)題都解決了。課設(shè)完成后我深刻感受到自學(xué)的能力很重要，通過(guò)自學(xué) Virtual basic 和 ADO控件，使我對(duì)開(kāi)發(fā)一個(gè)工程有了更深刻的了解。 在開(kāi)發(fā)過(guò)程中，遇到困難是在所難免的，在此期間我跟我的同學(xué)進(jìn)行交流，從中明白了很多。要多與人溝通，討論，所謂“三人行，必有我?guī)煛?，多與人溝通，吸取別人的長(zhǎng)處，這要才能事半 功倍，少走彎路。開(kāi)發(fā)一個(gè)系統(tǒng)，恒心和毅力也是不可缺少的，如果一遇到難題就心慌，想要放棄，那這樣就不可能完成系統(tǒng)。同樣，在開(kāi)發(fā)過(guò)程當(dāng)中，細(xì)心也是非常重要的，由于很多事項(xiàng)都要很注意才行，如果沒(méi)有做到這一點(diǎn)，就會(huì)出錯(cuò)。 在開(kāi)發(fā)過(guò)程當(dāng)中，我學(xué)到很多，明白了做任何事情都要有始有終，謙虛，多與人溝通還要細(xì)心，在以后的工作和學(xué)習(xí)中我會(huì)繼續(xù)發(fā)揚(yáng)這些好的作風(fēng)。 我設(shè)計(jì)的通用工資管理系統(tǒng)總體上基本工能都實(shí)現(xiàn)了，但是系統(tǒng)的工程設(shè)計(jì)的不構(gòu)完美。正如上章節(jié)所述的，安全性設(shè)置得不夠高，而且系統(tǒng)工程不全，經(jīng)過(guò)我仔細(xì)思考我認(rèn)為可以 做如下改進(jìn)： （ 1）在用戶(hù)關(guān)系模式中加上權(quán)限屬性，即用戶(hù)（用戶(hù)號(hào)，密碼，權(quán)限），設(shè)計(jì)系統(tǒng)時(shí)，也加上權(quán)限在里面，使得不同的用戶(hù)擁有不同的權(quán)限。 （ 2）為了是我設(shè)計(jì)的通用工資管理系統(tǒng)的功能更完善，我認(rèn)為可以在我設(shè)計(jì)的該系統(tǒng)中的“添加用戶(hù)”模塊中添加命令控件，“修改密碼”模塊中加入“重新輸入密碼”文本框?！盎竟べY”模塊中加入“刪除”控件等。 這樣就能使系統(tǒng)的功能更加完善。 華東交通大學(xué)理工學(xué)院通用工資管理系統(tǒng)課程設(shè)計(jì)報(bào)告 43 第 頁(yè) 參考文獻(xiàn) [1] 錢(qián)雪忠 .數(shù)據(jù)庫(kù)原理及應(yīng)用 ,2 版 .北京 :北京郵件大學(xué)出版社 ,2020. [2] 丁寶康 ,董健全 .數(shù)據(jù)庫(kù)實(shí)用教程 ,2 版 .北京 :清華大學(xué)出版社 ,2020. [3] 薩師煊 ,王珊 .數(shù)據(jù)庫(kù)系統(tǒng)概論 ,3 版 .北京 :高等教育出版社 ,2020. [4] 張林風(fēng) ,羊四清 .Virtual Basic 程序設(shè)計(jì) .北京 :中國(guó)鐵道出版社 ,2020. [5] 申時(shí)凱 ,李海雁 .數(shù)據(jù)庫(kù)應(yīng)用技術(shù) (SQL Server 2020).2 版 .北京 :中國(guó)鐵道出版社 ,2020. [6] 何勝利 .Access 數(shù)據(jù)庫(kù)應(yīng)用技術(shù)教程 ,2 版 .北京 :中國(guó)鐵道出版社 ,2020. [7] 沈大林 .Virtual 程序設(shè)計(jì)案例教程 .北京 :中國(guó)鐵道出版社 ,2020. [8] 虞益誠(chéng) .SQL Server 2020 教程數(shù)據(jù)庫(kù)應(yīng)用技術(shù) .北京 :中國(guó)鐵道出版社 ,2020. [9] 趙連勝 ,馬國(guó)光 .Virtual Basic 程序設(shè)計(jì) .北京 :中國(guó)計(jì)劃出版社 ,2020. [10] 丁寶康 ,等 .數(shù)據(jù)庫(kù)應(yīng)用教程 (第二版 )習(xí)題解答 .北京 :清華大學(xué)出版社 ,2020. [11] 錢(qián)雪忠 ,陶向東 .數(shù)據(jù)庫(kù)原理及應(yīng)用實(shí)驗(yàn)指導(dǎo) ,2 版 .北京 :中國(guó)郵件大學(xué)出版社 ,2020. [12] 劉彩虹 ,沈大林 .Virtual Basic 程序設(shè)計(jì)案例教程 .北京 :中國(guó)鐵道出版社 . [13] 楊長(zhǎng)興 ,王小玲 .數(shù)據(jù)庫(kù)應(yīng)用基 礎(chǔ)實(shí)用教程 .北京 :中國(guó)鐵道出版社 ,2020. [14] 施伯樂(lè) ,等 .數(shù)據(jù)庫(kù)系統(tǒng)教程 ,3 版 .北京 :高等教育出版社