【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 款的發(fā)放以及員工個(gè)人臺(tái)賬的生成，使企業(yè)運(yùn)用現(xiàn) 代化技術(shù)創(chuàng)造更多的經(jīng)濟(jì)效益。系統(tǒng)在運(yùn)用 Microsoft SQL Server 2021和 visual 技術(shù)開發(fā)的過(guò)程中，主要完成了以下幾項(xiàng)工作： （ 1）系統(tǒng)在需求分析階段通過(guò)深入的調(diào)查和收集酒店近年來(lái)在工資管理方面的不足和優(yōu)勢(shì)，準(zhǔn)確到位的考慮和分析了酒店員工、管理層、用戶等酒店內(nèi)所有相關(guān)實(shí)體的需求，分析酒店在工資管理方面的業(yè)務(wù)流程和數(shù)據(jù)處理流程，實(shí)現(xiàn)了系統(tǒng)系統(tǒng)化的管理。 （ 2）在系統(tǒng)的設(shè)計(jì)階段，本系統(tǒng)主要運(yùn)用 Microsoft SQL Server 2021 和 visual 技術(shù)，整個(gè)系統(tǒng)的設(shè)計(jì)應(yīng)該遵循系統(tǒng)總體的系統(tǒng)性、靈活性、可靠性和經(jīng)濟(jì)性的原則。在各個(gè)功能模塊設(shè)計(jì)中應(yīng)盡量遵循功能界面簡(jiǎn)單和規(guī)范、操作簡(jiǎn)便、模塊獨(dú)立性高、代碼設(shè)計(jì)規(guī)范、功能操作安全和認(rèn)真做好貫穿整個(gè)過(guò)程的測(cè)試、修改與評(píng)審工作的指導(dǎo)原則。 （ 3）在系統(tǒng)的實(shí)施的運(yùn)行階段，通過(guò)反復(fù)的系統(tǒng)測(cè)試和應(yīng)用程序的調(diào)試。針對(duì)系統(tǒng)的功能、特性及穩(wěn)定性和適用性進(jìn)行進(jìn)一步的測(cè)試。確定了系統(tǒng)在各方面功能的完備性和強(qiáng)大。 展望 雖然在整個(gè)系統(tǒng)的設(shè)計(jì)過(guò)程中查找了不少關(guān)于速 8 酒店的資料，但是還有很多內(nèi)部機(jī)密資料無(wú)法了解，再加上自己在系 統(tǒng)設(shè)計(jì)和酒店工資管理方面的經(jīng)驗(yàn)不足，時(shí)間的倉(cāng)促。系統(tǒng)還有很多方面需要完善： （ 1）在前臺(tái)、頁(yè)面和數(shù)據(jù)庫(kù)設(shè)計(jì)方面還需要更先進(jìn)的技術(shù)進(jìn)行完善。 （ 2）各個(gè)系統(tǒng)之間的協(xié)調(diào)性沒(méi)有達(dá)到預(yù)期的效果，還需要改進(jìn)。 內(nèi)蒙古科技大學(xué)本科生課程設(shè)計(jì)說(shuō)明書（課程論文） 26 參考文獻(xiàn) [1] 何富貴，吳曉紅．工資管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)．北京勞動(dòng)保障職業(yè)學(xué)院學(xué)報(bào)， 2021，（ 02）： 165167. [2]易旺宏．淺析工資管理．市場(chǎng)論壇， 2021，（ 04）： 112116. [3]錢秀峰．工資管理存在的問(wèn)題及對(duì)策 [J]．人力資源管理， 2021，（ 05）： 5961. [4]陳東．淺 談財(cái)務(wù)決策支持機(jī)構(gòu)架 [J]．財(cái)會(huì)通信， 2021，（ 16）： 4244． [5]譚輝．工資管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)．科技通訊， 2021，（ 07）： 112116. [6]邱月 .數(shù)據(jù)庫(kù)課程設(shè)計(jì)教學(xué)模式研究 [J].軟件導(dǎo)刊， 2021，（ 08）： 7678. [7]張鵬 .信息與計(jì)算科學(xué)專業(yè)數(shù)據(jù)庫(kù)課程實(shí)驗(yàn)教學(xué)分析 [J].計(jì)算機(jī)關(guān)盤軟件與應(yīng)用， 2021，（ 18）： 9193. [8]譚丹丹 .SQL server 數(shù)據(jù)庫(kù)設(shè)計(jì)課程教學(xué)改革 [J].中國(guó)冶金教育， 2021，（ S1）： 6770. [9]孔麗云 .數(shù)據(jù)庫(kù)應(yīng)用技術(shù)課程改 革探索 [J].廣西教育， 2021，（ 27）： 8690. [10]徐亞鳳 .高職數(shù)據(jù)課程項(xiàng)目化教學(xué)改革與實(shí)踐 [J].牡丹江大學(xué)學(xué)報(bào)， 2021，（ 08）： 3437. [11]李瑞華，楊斐，尚佩妮 .數(shù)據(jù)庫(kù)課程設(shè)計(jì)中分組階段式反饋教學(xué)模式探索 [J].科教導(dǎo)刊（中國(guó)）， 2021，（ 10）： 1215. [12]尼春雨，舒熊 .visual basic 基礎(chǔ)與案例開發(fā)詳解 [M]. [13]戴志誠(chéng) ，數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)與實(shí)例 [M].電子工業(yè)出版社 [14] 黃梯云，李一軍 .管理信息系統(tǒng) [M].高等教 育出版社 .. [15]施伯樂(lè)，丁?？担粜l(wèi) .數(shù)據(jù)庫(kù)系統(tǒng)教程 .[M]高等教育出版社 . [16]劉衛(wèi)國(guó) .Visual Basic 程序設(shè)計(jì)教程第二版 .[M]北京郵電大學(xué)出版社 . [17]王珊，薩師煊 .數(shù)據(jù)庫(kù)系統(tǒng)概論（第四版） [M]高等教育出版社 . 內(nèi)蒙古科技大學(xué)本科生課程設(shè)計(jì)說(shuō)明書（課程論文） 27 附錄 本系統(tǒng)代碼如下： （ 1） 登錄代碼： Dim rs As New Private Sub Comd1_ok_Click() Dim m As Integer Call InitGrid SELECT username,userpassword FROM users where username = 39。 amp。 amp。 39。 and userpassword=39。 amp。 amp。 39。 , Conn If Trim() = Or Trim(txtpassword) = Then MsgBox 用戶名或密碼不能為空！ , vbCritical, 警告?。?！ ElseIf Then MsgBox 用戶名和密碼不匹配，請(qǐng)重新登陸?。?！ , vbCritical, 警告！?。? = txtpassword = ElseIf Not ( And Trim() = And Trim(txtpassword) = ) Then End If End Sub Private Sub Comd2_Click() End End Sub Sub InitGrid() Set Conn = New Set rs = New = adUseClient ConnStr End Sub 內(nèi)蒙古科技大學(xué)本科生課程設(shè)計(jì)說(shuō)明書（課程論文） 28 （ 2） 工資管理系統(tǒng)代碼： Private Sub exit_Click() End End Sub Private Sub mnupersoninfo_Click() End Sub Private Sub mnuquerystuffinfo_Click() End Sub Private Sub mnusetpay_Click() End Sub Private Sub mnuuser_Click() End Sub （ 3） 管理人事信息代碼 ： Dim rs As New Private Sub cmdadd_Click() Call InitGrid Dim m As String m = insert into employee(employeeid,employeename,sex,brithday,education,duty,department,identityid,telephone,adress,remark,userid) values(39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。) m, Conn 內(nèi)蒙古科技大學(xué)本科生課程設(shè)計(jì)說(shuō)明書（課程論文） 29 Call InitGrid select * from employee, Conn Set = rs End Sub Private Sub cmdcan_Click() MsgBox 如果想重新請(qǐng)按確定，想退出界面請(qǐng)按確定后再點(diǎn)擊推出！ End Sub Private Sub cmddelect_Click() 39。刪除 Dim m As String If = Or = Then MsgBox 請(qǐng)選擇要?jiǎng)h除的員工編號(hào)和姓名！ , vbExclamation Else Call InitGrid m = delete from employee where employeeid=39。 amp。 Trim() amp。 39。and employeename =39。 amp。 Trim() amp。 39。 m, Conn, adOpenKeyset, adLockOptimistic Set = rs End If End Sub Private Sub cmdexit_Click() End Sub Private Sub cmdquery_Click() Dim m As String If = Or = Then MsgBox 請(qǐng)輸入要查詢項(xiàng)目的編號(hào)和姓名??！ Else 內(nèi)蒙古科技大學(xué)本科生課程設(shè)計(jì)說(shuō)明書（課程論文） 30 m = SELECT * FROM employee where employeeid = 39。 amp。 amp。 39。 and employeename=39。 amp。 amp。 39。 Call InitGrid m, Conn, adOpenKeyset, adLockOptimistic Set = rs End If End Sub Sub InitGrid() Set Conn = New Set rs = New = adUseClient ConnStr End Sub Private Sub Command1_Click() Dim m As String Call InitGrid m = SELECT * FROM employee m, Conn, adOpenKeyset, adLockOptimistic Set = rs End Sub （ 4） 工資查詢代碼： Dim rs As New Private Sub cmdexit_Click() End Sub Private Sub cmdquery_Click() 39。查 詢 Dim m As String If = Then MsgBox 請(qǐng)輸入要查詢項(xiàng)目的職務(wù)?。? Else 內(nèi)蒙古科技大學(xué)本科生課程設(shè)計(jì)說(shuō)明書（課程論文） 31 m = SELECT * FROM wage where basewage = 39。 amp。 amp。 39。 Call InitGrid m, Conn, adOpenKeyset, adLockOptimistic Set = rs End If End Sub Private Sub Form_Load() Dim m As String Call InitGrid m = SELECT * FROM wageconfig m, Conn, adOpenKeyset, adLockOptimistic Set = rs End Sub Sub InitGrid() Set Conn = New Set rs = New = adUseClient ConnStr End Sub （ 5） 工資設(shè)置代碼： Dim rs As New Private Sub Command1_Click() 39。添加 Call InitGrid Dim m As String m = insert into wage(wageid,employeeid,wagedate,basewage,overtimewage,evectionwage,absentwage,latewage,etcwage,bonuswage,totalwage) values(39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。) m, Conn Call InitGrid select * from wage, Conn 內(nèi)蒙古科技大學(xué)本科生課程設(shè)計(jì)說(shuō)明書（課程論文） 32 Set = rs End Sub Private Sub Command2_Click() 39。刪除 If = Then MsgBox 請(qǐng)選擇要?jiǎng)h除項(xiàng)目編號(hào)！ , vbExclamation Else Call InitGrid m = delete from wage where wageid=39。 amp。 Trim() amp。 39。 m, Conn, adOpenKeyset, adLockOptimistic Set = rs End If End Sub Private Su