招聘應(yīng)聘管理信息系統(tǒng)-資料下載頁
2025-04-15 08:35本頁面
【正文】 inzhexinxixiugaijiemian（代碼如下）Yingpinzhexinxijiemian的代碼Private Sub Command3_Click()If = True ThenEnd IfEnd SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Command6_Click()If MsgBox(你確定要刪除該信息嗎？, vbOKCancel + vbDefaultButton2) = vbOK Then = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=city。Data Source=(local) = adCmdTableEnd IfEnd SubPrivate Sub Command7_Click()End Subjiepinzhexinxixiugaijiemian的代碼Private Sub Command1_Click() = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=city。Data Source=(local) = adCmdText = select Ename from Employee where Ename = 39。 amp。 Trim() amp。 39。If = False Then MsgBox Ename已經(jīng)存在！請重新輸入, 0, 提示 = Exit SubEnd IfIf And And And Then = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=city。Data Source=(local) = adCmdTable = Employee(Ename) = Trim()(Esage) = Trim()(Esex) = Trim()(Eeducation) = Trim()(Emarrided) = Trim()MsgBox 恭喜你添加成功 = = = = = ElseMsgBox (新添加的記錄不能為空！)End IfEnd SubPrivate Sub Command3_Click()End Sub管理員在此界面可查看系統(tǒng)的用戶的情況，而且能根據(jù)需要進(jìn)行刪除更新。（代碼如下）Private Sub Command1_Click()If = Or = Or = ThenMsgBox (請輸入要修改的用戶完整信息)Else = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=city。Data Source=(local) = adCmdTable = select * from users where 用戶名 = 39。 amp。 Trim() amp。 39。(用戶名) = Trim()(用戶密碼) = Trim()(用戶類型) = Trim() = = = = TrueMsgBox 修改成功End IfEnd SubPrivate Sub Command2_Click()If MsgBox(你確定要刪除該信息嗎？, vbOKCancel + vbDefaultButton2) = vbOK Then = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=city。Data Source=(local) = adCmdTableEnd IfEnd SubPrivate Sub Command3_Click()End Sub 為期二周的數(shù)據(jù)庫實(shí)訓(xùn)終于結(jié)束了，心中不由松了一口氣。我這次實(shí)訓(xùn)的標(biāo)題是招聘應(yīng)聘系統(tǒng)設(shè)計，剛開始拿著這個題目心里非常擔(dān)心，覺得自己的VB不是蠻好，對于開發(fā)系統(tǒng)應(yīng)該還有很大的難度，所以在沒有開始實(shí)訓(xùn)的時候，就借同學(xué)的電腦，把我需要的數(shù)據(jù)結(jié)構(gòu)和數(shù)據(jù)都做出來了。我在真正實(shí)訓(xùn)的時候，我也有少許的改動。 在這兩周中剛開始什么都不會，隨著時間的逐漸推移，不斷的看老師給我們的那份參考的作品，和看一些有關(guān)Vb的知識。第一個界面終于完成了。俗話說開頭難，開了頭就不難了，的確是這樣的。第一個界面完成以后，我就不再感覺那么茫然了，對其他界面的設(shè)計也有了初步的認(rèn)識，但是在其他設(shè)計中我也遇到了很多問題，特別是在調(diào)程序的時候。尤其是在調(diào)試管理員修改的那條命令的時候，調(diào)了很多次，最后通過我調(diào)完之后，再找同學(xué)幫忙看和聽從她的建議才把它調(diào)好了。在調(diào)試的時候，每當(dāng)我調(diào)不好的時候，就非常著急，我的同桌就不斷地在我旁邊提醒我，不要著急，越著急就越調(diào)不出來。我的心，也由她的話而靜了下來。然后全神貫注的調(diào)。為此我非常感謝她對我的幫助，不是她我可能在一個程序上會花上很多時間。最后可能出現(xiàn)我這次任務(wù)完成不了的情況。在這次實(shí)訓(xùn)中，指導(dǎo)老師給我的幫助也很大。她一開始就告訴我們?nèi)绾稳浞輸?shù)據(jù)庫，在后幾天把數(shù)據(jù)庫和VB連接后出現(xiàn)的問題最少，為此我也非常感謝老師的指導(dǎo)。她讓我們有了一個好的開頭。這次實(shí)訓(xùn)讓我認(rèn)識到了自己在以后開發(fā)系統(tǒng)時要注意的問題，也讓我了解到學(xué)以致用才是真正的學(xué)到。學(xué)了不會用是白學(xué)了。還有然我意識到在做任何事的時候，耐心和細(xì)心是必不可少的。說實(shí)在話，在實(shí)訓(xùn)中我學(xué)到的知識，有很多是我在課堂里學(xué)不到的，為此我非分常感謝學(xué)校安排這次實(shí)訓(xùn)?？傊@次實(shí)訓(xùn)讓我獲益匪淺。 6．參考文獻(xiàn)1 . 北京：北京機(jī)械工業(yè)出版社，20052 Basic可視化程序設(shè)計. 北京：中國鐵道出版社，20053 Server 2005 應(yīng)用開發(fā)大全. 北京：清華大學(xué)出版社，2007
公司管理相關(guān)推薦
鄂ICP備17016276號-1