201210121123access 簡單的人事管理系統自製方法(2003)

access 簡單的人事管理系統自製方法

step 1 : 進入access 資料表中建立資料庫的欄位例: 編號、姓名、地址、大哥大…

           編號: 可設數字(長整數)可自動跳號,也可設文字…欄位可設 10 位元 (bits)

                   一個中文字等於2個位元,數字是1個位元,全形字是2個位元。

 

step2: 按管理系統進入資料表欄位設定如下圖

 





可在欄位大小設定為8 bits, 在欄位名稱輸入"編號"

 




上圖為資料表的欄位

step 2 : 在表單的位置上建立控制的程序(程式),在啟動的地方設立啟動此程式,可依下列的控制方式一一

的輸入程式碼來控制access 的資料庫。

 


此上圖為本系統的所有結構圖但巳進入可編輯的位置,combo106為"行業"欄位,可在下拉式的方塊拉下來編輯,

在資料來源處輸入:"公";"士";"農";"工";…可做為下拉式的選擇:"公";"士";"農";"工";其之之一。

全系統的資料表單檔:(如下圖)

 



------------------------------------------------------------------------------------

 "新增" 指旨圖 



 程式碼如下: 在新增的圖上按下右鍵進入屬性在事件上輸入即可

Private Sub 新增記錄_Click()
On Error GoTo Err_新增記錄_Click


    DoCmd.GoToRecord , , acNewRec

Exit_新增記錄_Click:
    Exit Sub

Err_新增記錄_Click:
    MsgBox Err.Description
    Resume Exit_新增記錄_Click
   
End Sub

--------------------------------------------------------------------------------

"刪除" 指旨圖 



 程式碼如下:

Private Sub 刪除記錄_Click()
On Error GoTo Err_刪除記錄_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_刪除記錄_Click:
    Exit Sub

Err_刪除記錄_Click:
    MsgBox Err.Description
    Resume Exit_刪除記錄_Click
   
End Sub

---------------------------------------------------------------------------------

"儲存" 指旨圖 



 程式碼如下:

Private Sub 儲存記錄_Click()
On Error GoTo Err_儲存記錄_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_儲存記錄_Click:
    Exit Sub

Err_儲存記錄_Click:
    MsgBox Err.Description
    Resume Exit_儲存記錄_Click
   
End Sub

--------------------------------------------------------------------------------------

"結束" 指旨圖 



 程式碼如下:

Private Sub 結束應用程式_Click()
On Error GoTo Err_結束應用程式_Click


    DoCmd.Quit

Exit_結束應用程式_Click:
    Exit Sub

Err_結束應用程式_Click:
    MsgBox Err.Description
    Resume Exit_結束應用程式_Click
   
End Sub

--------------------------------------------------------------------------------------

"首筆" 指旨圖 



 程式碼如下:

Private Sub 至最前一筆_Click()
On Error GoTo Err_至最前一筆_Click


    DoCmd.GoToRecord , , acFirst

Exit_至最前一筆_Click:
    Exit Sub

Err_至最前一筆_Click:
    MsgBox Err.Description
    Resume Exit_至最前一筆_Click
   
End Sub

------------------------------------------------------------------------------------

"未筆" 指旨圖 



 程式碼如下:

Private Sub 至最後一筆記錄_Click()
On Error GoTo Err_至最後一筆記錄_Click


    DoCmd.GoToRecord , , acLast

Exit_至最後一筆記錄_Click:
    Exit Sub

Err_至最後一筆記錄_Click:
    MsgBox Err.Description
    Resume Exit_至最後一筆記錄_Click
   
End Sub

------------------------------------------------------------------------------------

"上筆" 指旨圖 



 程式碼如下:

Private Sub 前一筆記錄_Click()
On Error GoTo Err_前一筆記錄_Click


    DoCmd.GoToRecord , , acPrevious

Exit_前一筆記錄_Click:
    Exit Sub

Err_前一筆記錄_Click:
    MsgBox Err.Description
    Resume Exit_前一筆記錄_Click
   
End Sub

------------------------------------------------------------------------------------

"下筆" 指旨圖 



 程式碼如下:

Private Sub 下一筆記錄_Click()
On Error GoTo Err_下一筆記錄_Click


    DoCmd.GoToRecord , , acNext

Exit_下一筆記錄_Click:
    Exit Sub

Err_下一筆記錄_Click:
    MsgBox Err.Description
    Resume Exit_下一筆記錄_Click
   
End Sub

-----------------------------------------------------------------------------------

列印全部的資料可自訂欄位選項:

 

此按鍵從印表機列印出全部的資料出來。

程式碼:

Private Sub 列印報表_all__Click()
On Error GoTo Err_列印報表_all__Click

    Dim stDocName As String

    stDocName = "前甲玉皇宮信徒事管理系統"
    DoCmd.OpenReport stDocName, acNormal

Exit_列印報表_all__Click:
    Exit Sub

Err_列印報表_all__Click:
    MsgBox Err.Description
    Resume Exit_列印報表_all__Click
   
End Sub

-------------------------------------------------------------------------------------

預覽全部的資料於screen 上

 

可以在電腦上預覽全部資料

程式碼:

Private Sub 預覽檔案_Click()
On Error GoTo Err_預覽檔案_Click

    Dim stDocName As String

    stDocName = "前甲玉皇宮信徒事管理系統"
    DoCmd.OpenReport stDocName, acPreview

Exit_預覽檔案_Click:
    Exit Sub

Err_預覽檔案_Click:
    MsgBox Err.Description
    Resume Exit_預覽檔案_Click
   
End Sub

----------------------------------------------------------------------------------------

可即時尋找個人資料

 

此按鍵可即時尋找個人資料

程式碼:

Private Sub 尋找記錄_Click()
On Error GoTo Err_尋找記錄_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_尋找記錄_Click:
    Exit Sub

Err_尋找記錄_Click:
    MsgBox Err.Description
    Resume Exit_尋找記錄_Click
   
End Sub

------------------------------------------------------------------------------------------

 列印全部的資料

 

 全部的資料所印出來。

------------------------------------------------------------------------------------------

程式碼:

Private Sub 列印表單_簡要__Click()
On Error GoTo Err_列印表單_簡要__Click


    DoCmd.PrintOut

Exit_列印表單_簡要__Click:
    Exit Sub

Err_列印表單_簡要__Click:
    MsgBox Err.Description
    Resume Exit_列印表單_簡要__Click
   
End Sub

-------------------------------------------------------------------------------------------

一個人整頁(page)印出個人的資料列印如圖下:

 

 

程式碼如下:

Private Sub 列印記錄_Click()
On Error GoTo Err_列印記錄_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.PrintOut acSelection

Exit_列印記錄_Click:
    Exit Sub

Err_列印記錄_Click:
    MsgBox Err.Description
    Resume Exit_列印記錄_Click
   
End Sub

-----------------------------------------------------------------------------------------

遊戲程式按鍵及功能表單:

按入後就進入了遊戲程式的表單如下

 

 

 -------------------------------------------------------------------------------------------

可按國農曆進入此程式:



 連接應用軟體

即可進入國農曆程式如下圖

 

可由新國曆換算農曆的日子。

程式碼如下:

Private Sub Command37_Click()
On Error GoTo Err_國農曆_Click

    Dim stAppName As String

    stAppName = "D:\前甲玉皇宮問事管理系統\pCalendar.exe"
    Call Shell(stAppName, 1)

Exit_國農曆_Click:
    Exit Sub

Err_國農曆_Click:
    MsgBox Err.Description
    Resume Exit_國農曆_Click

End Sub

--------------------------------------------------------------------------------------------

按五子球的程式按鍵可進入此程式玩:



 連接應用軟體

五子球的遊戲畫面:

 

程式碼如下:

Private Sub 五子球_Click()
On Error GoTo Err_五子球_Click

    Dim stAppName As String

    stAppName = "D:\前甲玉皇宮問事管理系統\game\五子球\WINLINEZ.EXE"
    Call Shell(stAppName, 1)

Exit_五子球_Click:
    Exit Sub

Err_五子球_Click:
    MsgBox Err.Description
    Resume Exit_五子球_Click
End Sub

----------------------------------------------------------------------------------------------

兒童中級英文閱讀、聽力練習程式按鍵:

 

 本程式由本人自已開發的程式,有4000個單及例子

 



適合國小、國中生練習。

連接程式碼:

Private Sub Command42_Click()
On Error GoTo Err_Command42_Click

    Dim stAppName As String

    stAppName = "C:\AMIGO\VB_PROGRAM\lee\兒童中級英文復健聽力練習程式.exe"
    Call Shell(stAppName, 1)

Exit_Command42_Click:
    Exit Sub

Err_Command42_Click:
    MsgBox Err.Description
    Resume Exit_Command42_Click
End Sub

 

-----------------------------------------------------------------------------------------
 




 



 

 有時間再祥細的介紹其他的功能…

回應

 

我是Amigo 是大家的朋友,我較熱衷台灣的宗教文化,希望有興趣的朋友可以一同研究與探討,我屬於道教文化,但不排斥其他宗教文化。 I am Amigo who is your friend, I 'm  interested in the  religious culture of Taiwan, I wish to  discuss with those are also interested in this topic.  I prefer to  (beliece) in  Taoism's culture, but I  don't  repel other religious .

關鍵字
    沒有新回應!