【正文】 Left(rs(0), 4) Left(rs(0), 4) End If Wend = 0 = 0 End If For i = 1 To 12 39。設(shè)置月 i i Next i = 0 = 0End Sub： 圖55 員工調(diào)動(dòng)信息圖相關(guān)代碼如下：Private Sub cmdOK_Click() Dim SQL As String Dim rs As New baddflag = False Call checkinput If baddflag = True Then If flag=1 Then 39。添加記錄 39。Call checkinput SQL = select * from AlterationInfo Set rs = TransactSQL(SQL) (1) = (2) = (3) = (4) = (5) = (6) = (7) = (8) = (9) = SQL = update StuffInfo set SDept=39。 amp。 amp。 39。, SPosition=39。 SQL = SQL amp。 amp。 39。 where SID=39。 amp。 amp。 39。 TransactSQL (SQL) MsgBox 已經(jīng)添加調(diào)動(dòng)信息！, vbOKOnly + vbExclamation, 添加結(jié)果！ SQL = select * from AlterationInfo order by ID = Provider=。Data Source= + + \ = SQL If SQL Then End If Set = 0 Call init 0 Else 39。修改記錄 39。Call checkinput SQL = update StuffInfo set SDept=39。 amp。 amp。 39。, SPosition=39。 SQL = SQL amp。 amp。 39。 where SID=39。 amp。 amp。 39。 TransactSQL (SQL) SQL = update AlterationInfo set AOldDept=39。 amp。 amp。 39。,ANewDept=39。 SQL = SQL amp。 39。,ANewPosition=39。 amp。 amp。 39。,AOutTime= amp。 SQL = SQL amp。 ,AInTime= amp。 amp。 where ID= amp。 ID TransactSQL (SQL) MsgBox 已經(jīng)修改信息！, vbOKOnly + vbExclamation, 修改結(jié)果！ Unload Me With 39。重新設(shè)置記錄集 .RecordSource = SQL .Refresh End With With 39。重新綁定記錄集 .ReBind End With End If End IfEnd SubPrivate Sub Form_Load() Dim SQL As String Dim rs As New Dim firstname As String If flag = 1 Then SQL = select SID,SName,SDept,SPosition from StuffInfo order by SID Set rs = TransactSQL(SQL) If = False Then = rs(1) = rs(2) = rs(3) While Not rs(0) Wend = 0 End If SQL = select distinct SDept from StuffInfo Set rs = TransactSQL(SQL) If = False Then While Not rs(0) Wend = 0 End If = Date = Date End IfEnd SubPrivate Sub init() Dim SQL As String Dim rs As New Dim firstname As String SQL = select SID,SName,SDept,SPosition from StuffInfo order by SID Set rs = TransactSQL(SQL) If = False Then = rs(1) = rs(2) = rs(3) While Not rs(0) Wend = 0 End If SQL = select distinct SDept from StuffInfo Set rs = TransactSQL(SQL) If = False Then While Not rs(0) Wend = 0 End If = Date = Date = End Sub167。 系統(tǒng)運(yùn)行與維護(hù) 初始數(shù)據(jù)的輸入本系統(tǒng)的輸入采用鼠標(biāo)和鍵盤相結(jié)合的輸入方法。 怎樣進(jìn)入系統(tǒng)A、將本系統(tǒng)所在的文件夾拷貝到硬盤，然后執(zhí)行其中的人事管理系統(tǒng)的程序文件即可，應(yīng)注意要將全部文件的屬性變以存檔，消除只讀屬性。B、在隨后出現(xiàn)的登錄界面上輸入正確的用戶名和密碼即可 怎樣使用本系統(tǒng)點(diǎn)擊鼠標(biāo)左鍵即可進(jìn)行相應(yīng)功能的選擇。系統(tǒng)的維護(hù)：系統(tǒng)是個(gè)較復(fù)雜的人機(jī)系統(tǒng)，由于系統(tǒng)外部環(huán)境與內(nèi)部因素的變化，不斷影響系統(tǒng)的運(yùn)行，同時(shí)需要系統(tǒng)不斷地適應(yīng)這些變化，不斷地完善系統(tǒng)，以提高系統(tǒng)運(yùn)行的效率與服務(wù)水平，這就需要自始至終進(jìn)行系統(tǒng)的維護(hù)工作。 系統(tǒng)的主要維護(hù)系統(tǒng)的維護(hù)主要包括四個(gè)方面：（1）程序的維護(hù)：指的是修改部分或全部程序，這種維護(hù)往往是在條件發(fā)生變化或原系統(tǒng)的效率低的情況下進(jìn)行的。（2）數(shù)據(jù)文件的維護(hù)：指的是按照用戶的要求對(duì)數(shù)據(jù)文件進(jìn)行不定期的修改。（3）代碼的維護(hù)：隨著系統(tǒng)的發(fā)展和變化，可能會(huì)出現(xiàn)舊代碼不能適應(yīng)新要求的問題，因此，有必要變更代碼，予以維護(hù)。（4）硬件的維護(hù)：指的是對(duì)系統(tǒng)所使用的設(shè)備進(jìn)行維護(hù)。第六章 性能測(cè)試與分析在做畢業(yè)設(shè)計(jì)以前，我對(duì)人事管理系統(tǒng)開發(fā)的理解還只是停留在理論知識(shí)的水平，沒有實(shí)際經(jīng)驗(yàn)，而通過這次畢業(yè)設(shè)計(jì)，在完成了人事管理系統(tǒng)的開發(fā)設(shè)計(jì)后，對(duì)管理系統(tǒng)與計(jì)算機(jī)系統(tǒng)的結(jié)合才有了真正的了解。首先，在這次畢業(yè)設(shè)計(jì)中，初始的分析就是一個(gè)困難，主要是因?yàn)閷?duì)人事管理系統(tǒng)的了解太少，以及對(duì)企業(yè)的需求所知甚少，但是通過閱讀了許多有關(guān)管理學(xué)科的資料，再加上實(shí)際考查，才能夠完成系統(tǒng)的分析和設(shè)計(jì)。其次，軟件開發(fā)工具的選擇也是一大困難，由于對(duì)軟件開發(fā)工具的不熟悉，所以通過一段時(shí)間的學(xué)習(xí)，以及向同學(xué)和老師的請(qǐng)教，才逐步掌握VB和Access工具。最后，在系統(tǒng)分析、設(shè)計(jì)時(shí)，遇到了很多技術(shù)上的困難，但是經(jīng)過老師的指導(dǎo)和自己不斷的修改與調(diào)試，基本解決了設(shè)計(jì)中的問題。通過畢業(yè)設(shè)計(jì)，達(dá)到了大學(xué)中所學(xué)課程與實(shí)際情況的結(jié)合，是在大學(xué)中所學(xué)知識(shí)的一次綜合應(yīng)用，雖然由于個(gè)人能力的關(guān)系，本系統(tǒng)還有許多不盡如人意之處，但是在畢業(yè)設(shè)計(jì)中，不管是知識(shí)還是能力都得到了很大程度的提高， 而且對(duì)軟件開發(fā)工作有了真正的理解和認(rèn)識(shí)。結(jié)束語由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。這些都有待進(jìn)一步改善。在這緊張的畢業(yè)設(shè)計(jì)階段，雖然每天像爬在顯示屏上的一只蟲子一樣，總是處在問題的圈子之內(nèi)，一個(gè)問題有時(shí)就讓我一個(gè)月內(nèi)也無法破解，深切地感受到知識(shí)水平的不足，但這卻又讓我在緊張而又充實(shí)的時(shí)間段內(nèi)獲益非淺。真切地體會(huì)到了能成功走向程序人生的一個(gè)共同點(diǎn)：耐心 + 信心 + 知識(shí) + 奮斗 = 成功。我想在今后的路上，我會(huì)走得更好，更穩(wěn)，更踏實(shí)。本系統(tǒng)基本上能滿足現(xiàn)代企業(yè)人事管理系統(tǒng)。在畢業(yè)設(shè)計(jì)完成的過程中，不僅充實(shí)了自己的專業(yè)知識(shí)而且在遇到問題的時(shí)候也給自己提供了一個(gè)鍛煉的機(jī)會(huì)。在這里我非常感謝我的指導(dǎo)老師鄭鳳婷，沒有她的指導(dǎo)我的畢業(yè)設(shè)計(jì)就不可能順利的完成。同時(shí)也感謝一直支持幫助我的老師們。 參考文獻(xiàn)【1】 羅朝盛,余文芳. Visual Basic ,2003【2】 田金蘭, 王文娟 . Basic . 黑龍江人民出版社,2004【3】 曾強(qiáng)聰. ,2004【4】 王珊,師宣 . 據(jù)庫系統(tǒng)概論. 教育出版社,200430 / 3