人事管理系統(tǒng)說(shuō)明書(shū)(編輯修改稿)
2025-05-12 22:24 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 驅(qū)動(dòng)機(jī)制等特點(diǎn)?？梢暬绦蛟O(shè)計(jì)是指開(kāi)發(fā)圖形用戶界面的一種方法，使用這種方法，編程人員不必編寫(xiě)大量的代碼去描述用戶界面上元素的位置和外觀，比如命令按鈕、文本框、組合框等元素，編程人員只需在“可視”的編程環(huán)境下，用鼠標(biāo)將VB中預(yù)先建立的界面元素拖放到用戶圖形界面的適應(yīng)位置上，并且用鼠標(biāo)還可直接修改用戶界面上元素的外觀等特性。采用可視化程序設(shè)計(jì)方法，大大的減少了編程人員的編碼工作量，并能輕松快捷地設(shè)計(jì)出友好的用戶界面，從而提高應(yīng)用程序的開(kāi)發(fā)效率。Visual Basic是一種面向圖形用戶界面的、交互性講的可視編程工具。 事件驅(qū)動(dòng)的應(yīng)用程序Visual Basic使用的是一種“事件驅(qū)動(dòng)”機(jī)制。所謂“事件驅(qū)動(dòng)”機(jī)制是指Windows應(yīng)用程序是通過(guò)事件來(lái)驅(qū)動(dòng)運(yùn)行的，當(dāng)用戶或者系統(tǒng)觸發(fā)對(duì)象的某個(gè)事件時(shí)，系統(tǒng)自動(dòng)地執(zhí)行與該事件相關(guān)的一段代碼來(lái)響應(yīng)，完成特定的功能。例如，用戶界面上有一個(gè)命令按鈕，當(dāng)用戶單擊該按鈕時(shí)，命令按鈕將觸發(fā)事件，而當(dāng)該事件發(fā)生時(shí)，由系統(tǒng)自動(dòng)執(zhí)行一段與該事件相應(yīng)的代碼，完成指定的操作，當(dāng)該操作完成后，應(yīng)用程序?qū)和?，等待狹義事件的發(fā)生。在“事件驅(qū)動(dòng)”機(jī)制下，應(yīng)用程序的執(zhí)行過(guò)程完全由對(duì)象事件驅(qū)動(dòng)實(shí)現(xiàn)，與傳統(tǒng)的面向過(guò)程的應(yīng)用程序的執(zhí)行過(guò)程完全不同。Visual Basic采用面向?qū)ο蠹夹g(shù)，利用對(duì)象的屬性、事件和方法進(jìn)行程序設(shè)計(jì)，從而 實(shí)現(xiàn)應(yīng)用程序的特定需要。在Visual Basic中，對(duì)象無(wú)處不在，窗體、命令按鈕、文本框、組合框等用于設(shè)計(jì)用戶圖形界面的元素都是對(duì)象。利用Visual Basic的對(duì)象編程技術(shù)，就好像在一塊空白的畫(huà)布上，通過(guò)設(shè)置對(duì)象的屬性，使用對(duì)象的方法，編程對(duì)象的事件過(guò)程，將系統(tǒng)預(yù)先建立的對(duì)象，按照設(shè)計(jì)要求將它們有機(jī)地組合起來(lái)，勾畫(huà)出一幅完美的圖畫(huà)，從而完成用戶需求。在本系統(tǒng)中有六個(gè)模塊組成。它們分別是員工基本信息模塊、員工工資管理模塊、工資統(tǒng)計(jì)模塊的實(shí)現(xiàn)、部門(mén)查詢(xún)模塊的實(shí)現(xiàn)、特殊查詢(xún)模塊的實(shí)現(xiàn)、報(bào)表查詢(xún)模塊的實(shí)現(xiàn)，下面就開(kāi)發(fā)這幾個(gè)模塊的過(guò)程及所遇到的問(wèn)題分別加以介紹。. 1人事檔案信息模塊 履歷表該模塊主要完成員工基本信息的錄入、查詢(xún)、統(tǒng)計(jì)及打印功能。 () 源文件 主文件更新模塊 更新文件 計(jì)算機(jī)打印模塊人事變動(dòng)資料 人事系統(tǒng)檔案信息系統(tǒng)流程圖該模塊部分功能源代碼如下：Option ExplicitPrivate Declare Function GetMenu Lib user32 (ByVal hwnd As Long) As LongPrivate Declare Function GetSubMenu Lib user32 (ByVal hMenu As Long, ByVal nPos As Long) As LongPrivate Declare Function SetMenuItemBitmaps Lib user32 (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As LongConst myflag = amp。H800amp。Dim add, alert As IntegerPrivate Sub aa()…Private Sub Combo6_Click()Select Case Case 生產(chǎn)部 經(jīng)理 主管 職員 = (0)…Case 總經(jīng)理室 總經(jīng)理 秘書(shū) = (0)End SelectEnd SubPrivate Sub Combo7_Change()End Sub…Private Sub Data1_Reposition()If = 0 ThenElseIf = 生產(chǎn)部 Then 經(jīng)理 主管 職員 = (職務(wù))Else… 經(jīng)理 主管 職員 = (職務(wù))End If…End If…End SubPrivate Sub Timer1_Timer() = timeEnd Sub該模塊是完成對(duì)員工的工資信息的輸入、查詢(xún)、并以此進(jìn)行統(tǒng)計(jì)獲得“職工實(shí)發(fā)工資”。此模塊主要包括工資錄入、職工實(shí)發(fā)工資統(tǒng)計(jì)和職工工資總額信息，后兩者是通過(guò)點(diǎn)擊匯總和統(tǒng)計(jì)工資按鈕獲得。()扣款單工資單 主文件更新模塊上月主文件本月主文件 計(jì)算機(jī)打印模塊工資表 人事系統(tǒng)工資信息系統(tǒng)流程圖 此窗口“職工工資統(tǒng)計(jì)表”的數(shù)據(jù)源均是從數(shù)據(jù)庫(kù)EMPOYEE_SAL表。該模塊部分功能源代碼如下：Private Sub Command1_Click()Dim a(1 To 15) As DoubleOn Error GoTo a0If = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End IfIf = “” Then = “”End Ifa(1) = CDbl()a(2) = CDbl()a(3) = CDbl()a(4) = CDbl()a(5) = CDbl()a(6) = CDbl()a(7) = CDbl()a(8) = CDbl()a(9) = CDbl()a(10) = CDbl()a(11) = CDbl()a(12) = CDbl()a(13) = CDbl()a(14) = a(1) + a(2) + a(3) + a(4) + a(5) + a(6) – a(7) – a(8) – a(9) – a(10) + a(11) + a(12) + a(13) = a(14)Exit Suba0:MsgBox “工資各項(xiàng)數(shù)值不能為字符串”, vbOKOnly, “提示信息”End SubPrivate Sub Command10_Click()On Error GoTo a0Dim a As String, b As String, c As String, ww As String If = “” ThenMsgBox “請(qǐng)輸入查找條件”Exit SubEnd If a = b = c = a amp。 “ Like ‘” amp。 b amp。 “’” cIf ThenMsgBox “找不到與條件相符的記錄”, vbOKOnly, “提示信息”Elseww = (“職工編號(hào)”)ww = “職工編號(hào) like ‘” amp。 ww amp。 “’” wwEnd IfIf Or ThenEnd IfExit Suba
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1