201210121123access 簡單的人事管理系統自製方法(2003)
access 簡單的人事管理系統自製方法
step 1 : 進入access 資料表中建立資料庫的欄位例: 編號、姓名、地址、大哥大…
編號: 可設數字(長整數)可自動跳號，也可設文字…欄位可設 10 位元 (bits)
一個中文字等於2個位元，數字是1個位元，全形字是2個位元。
step2: 按管理系統進入資料表欄位設定如下圖
上圖為資料表的欄位
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
----------------------------------------------------------------------------------------------
兒童中級英文閱讀、聽力練習程式按鍵:
適合國小、國中生練習。
連接程式碼:
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
-----------------------------------------------------------------------------------------
有時間再祥細的介紹其他的功能…
