freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

酒店人事工資管理系統(tǒng)—免費(fèi)畢業(yè)設(shè)計(jì)論文(參考版)

2024-12-07 16:51本頁面
  

【正文】 QuanXian End Sub Private Sub Men_Llbmxx_Click() 瀏覽部門信息 .Height = 5715 瀏覽部門信息 .Width = 7510 瀏覽部門信息 .Show 瀏覽部門信息 .SetFocus (1).Text = 狀態(tài):瀏覽部門信息 amp。 QuanXian End Sub Private Sub Men_Bjkqxx_Click() 編輯考勤信息 .Height = 8685 編輯考勤信息 .Width = 10290 編輯考勤信息 .Show 編輯考勤信息 .SetFocus (1).Text = 狀態(tài):編輯考勤信息 amp。 Dim Cmdsize As Integer 39。 39。 amp。 39。 amp。39。 39。 amp。 39。 amp。39。39。39。 39。 amp。39。 ) (SQL) End Sub Private Sub DataFind() 39。 39。 amp。 SQL = SQL amp。 DLYongHuMing amp。 ,39。 39。 amp。 SQL = SQL amp。 Date amp。 39。 ) SQL = SQL amp。 ,用戶名 SQL = SQL amp。 登陸日期 SQL = SQL amp。 Space$(1) SQL = SQL amp。檢測輸入口令的次數(shù) Dim DLYongHuMing As String Dim DLQuanXian As String Private Sub DataSave() 39。 圖 29 酒店人事工資管理系統(tǒng) 第 29 頁 源代碼: 1 用戶登陸 Dim rc As New 39。 圖 4 數(shù)據(jù)恢復(fù) 數(shù)據(jù)恢復(fù)就是將數(shù)據(jù)庫備份文件復(fù)制到當(dāng)前數(shù)據(jù)庫上,一面在數(shù)據(jù)庫遇到意外破壞的時(shí)候能夠恢復(fù)數(shù)據(jù)庫,從而減少破壞造成的損失。 3 數(shù)據(jù)備份 數(shù)據(jù)備 份就是復(fù)制數(shù)據(jù)庫的數(shù)據(jù)文件到其他地方,一面在數(shù)據(jù)庫遇到意外破壞的時(shí)候能夠恢復(fù)數(shù)據(jù)庫,從而減少破壞造成的損失。 2 用戶管理 28 酒店人事工資管理系統(tǒng) 第 28 頁 該功能只針對管理員有效,用于對所有權(quán)限用戶口令的管理。 1 密碼設(shè)置 該界面比較簡單,能讓登陸的用戶修改自己的密碼,但不能更改用戶名,此項(xiàng)對所有權(quán)限的用戶都適用。用戶管理功能只對管理員開放,管理員能在用戶管理窗體中添加新的用戶,對已有的用戶進(jìn)行用戶名和密碼修改,或者將原有用戶刪除。并能根據(jù)部門名稱、 工資計(jì)發(fā) 日期進(jìn)行職工 工資 信息查詢。對職工 工資進(jìn)行按月分組,計(jì)算職工各種工資項(xiàng)目和個(gè)人所得稅款等一些信息。并能根據(jù)部門名稱、考勤日期進(jìn)行職工考勤信息查詢。對職工進(jìn)行按月考勤,考核職工出勤、加班、遲到和早退等一些信息。并能根據(jù)部門名稱、出生日期、來到公司工作的時(shí)間進(jìn)行職工信息查詢。在此窗體中輸入的信息都進(jìn)過合法性檢測,判斷職工編號是否出現(xiàn)重復(fù),位數(shù)是否為 6 位(前兩位為部門編號,后四位為職工自25 酒店人事工資管理系統(tǒng) 第 25 頁 身編號)等。 1編輯職工信息 作為編輯職工信息這一項(xiàng),所實(shí)現(xiàn)的功能是對 公司職工資料信息的存儲(chǔ)與編輯,方便對職工的分類與管理。 清空輸入信息代碼: Private Sub CmdClear_Click() ChangeCheck = False Call TxtKong Dim n As Integer For n = 0 To 1 (n, 0) = End Sub 2瀏覽部門信息 此窗體主要針對一般用戶,只有瀏覽功能,因?yàn)橐话阌脩糁挥袨g覽的權(quán)限。 DelSQL (DelSQL) Call DataFresh( select * from 部門基本情況 ) Call TxtKong End If Else Call DataFresh( select * from 部門基本情況 ) End If End If 24 酒店人事工資管理系統(tǒng) 第 24 頁 End Sub (5)清空 清空按鈕的作用可使所有文本框清空,方便用戶進(jìn)行其它操作。39。 39。 amp。 If Then DelSQL = DelSQL amp。 Trim() amp。 and 部門名稱 =39。 39。 amp。數(shù)據(jù)刪除 Dim DelSQL As String Dim YesNo As Integer Dim SQL As String SQL = select * from 部門基本情況 If = 1 Then SQL, Cnndb, 3, 2 If 0 Then YesNo = MsgBox(真的要?jiǎng)h除表格里滿足條件的所有記錄嗎? , vbYesNo + vbQuestion) If YesNo = vbYes Then DelSQL = If Then DelSQL = DelSQL amp。由于刪除記錄不可能在大量的數(shù)據(jù)中盲目的尋找,因此數(shù)據(jù)刪除也有數(shù)據(jù)查找功能,先在對應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)刪除的條件,再按刪除按鈕,系統(tǒng)便會(huì)列出滿足刪除條件的部門記錄,并提示是否刪除滿足條件的全部部門記錄,也可以一條一條刪除部門記錄,只要在數(shù)據(jù)表格中選中要?jiǎng)h除的部門記錄,在按一下刪除按鈕即可刪除數(shù)據(jù)。清除表格控件最左邊的選定當(dāng)前行標(biāo)志 √ For n = 0 To 1 (n, 0) = Next n ChangeCheck = False = FBmbh 39。向表格控件輸入數(shù)據(jù) PrintSQL = SQL If = 1 Then SQL, Cnndb, 3, 2 If 0 Then = + 1 i = 1 Do Until = i For j = 1 To 3 22 酒店人事工資管理系統(tǒng) 第 22 頁 = j = amp。寫入表頭標(biāo)題 = 1: = 部門編號 = 2: = 部 門 名 稱 = 3: = 備 注 SQL = SQL amp。進(jìn)行數(shù)據(jù)表格控件的修改 Dim i As Integer Dim j As Integer Dim FBmbh As String Dim FBmmc As String Dim FBz As String FBmbh = Trim() 39。由于修改記錄不可能在大量的數(shù)據(jù)中盲目的尋找,因此數(shù)據(jù)修改應(yīng)該與數(shù)據(jù)添加按鈕結(jié)合使用,先用查詢功能進(jìn)行對要修改記錄的搜索,再在數(shù)據(jù)表格中選中要修改的部門記錄,便把21 酒店人事工資管理系統(tǒng) 第 21 頁 此部門記錄讀入文本框中,只需在文本框中直接進(jìn)行數(shù)據(jù)修改便可,修改完后按修改按鈕進(jìn)行確定,系統(tǒng)并對修改后的數(shù)據(jù)進(jìn)行合法性檢測,合法則修改成功。 amp。 If SQL Then SQL = select * from 部門基本情況 where 部門編號 39。 Trim() amp。 and 備注 =39。 39。 amp。 If Then SQL = SQL amp。 Trim() amp。 and 部門編號 =39。 查詢代碼: Private Sub DataFind() 39?;謴?fù)當(dāng)前各個(gè)輸入框的值 = FBmmc = FBz 20 酒店人事工資管理系統(tǒng) 第 20 頁 (2)數(shù)據(jù)查詢 當(dāng)操作員需要對某個(gè)部門進(jìn)行查詢時(shí),可以在編輯部門信息窗體下部中找到查詢按鈕。 rc(j 1) = 1 Next j i = i + 1 Loop Else = 1 End If Dim n As Integer 39。 order by 部門編號 asc 39。保存當(dāng)前各個(gè)輸入框的值 FBmmc = Trim() FBz = Trim() = 0 39。 添加代碼設(shè)置如下: Private Sub DataFresh(SQL As String) 39。 18 酒店人事工資管理系統(tǒng) 第 18 頁 (1)數(shù)據(jù)添加 當(dāng)操作員進(jìn)入系統(tǒng),根據(jù)設(shè)計(jì)要求,需要添加新的 部門信息 時(shí),在編輯部門信息窗體上按添加按鈕,便進(jìn)入添加狀態(tài),文本框自動(dòng)清空,添加按鈕變?yōu)榇_定按鈕,光標(biāo)會(huì)停留在部門編號文本框上,此時(shí)系統(tǒng)已自動(dòng)生成一個(gè)新的部門編號,只需輸入部門名稱和備注信息即可完成部門信息編輯操作,在按窗體上的確定按鈕即可檢查該部門信息是否合法并存入數(shù)據(jù)庫,否則按取消按鈕。部門編號與部門名稱都具有唯一性,不能重復(fù)。當(dāng)不同權(quán)限的用戶登錄到該界面時(shí)功能有所不同,其控制由“用戶登錄”界面控制。 根據(jù)系統(tǒng)模塊結(jié)構(gòu),建立系統(tǒng)主界面。當(dāng)?shù)卿浾呤枪芾韱T身份時(shí),他可以使用系統(tǒng)提供的所有功能,并能對所有用戶15 酒店人事工資管理系統(tǒng) 第 15 頁 進(jìn)行管理。只有用戶名和密碼相對應(yīng)才能進(jìn)入系統(tǒng)。確定數(shù)據(jù)庫位置 Dim rc As New 39。 amp。定義記錄集變量 provider=。 在程序模塊中定義記錄集,并在各個(gè)窗體中定義記錄集變量,使輸入數(shù)據(jù)能與數(shù)據(jù)庫連接,并都用程序進(jìn)行控制,這樣不用數(shù)據(jù)控件都用代碼控制大大提高了程序運(yùn)行效率。這 5 個(gè)數(shù)據(jù)表的結(jié)構(gòu)如下各表: (1)部門基本情況表 字段名稱 數(shù)據(jù)類型 長度 主鍵 允許空 部門編號 文本 6 True 否 部門 名稱 文本 30 是 備注 文本 255 是 (2)職工基本信息表 字段名稱 數(shù)據(jù)類型 長度 主鍵 允許空 職工編號 文本 6 否 職工姓名 文本 10 否 性別 文本 2 是 出生日期 日期 /時(shí)間 短日期 否 民族 文本 10 是 政治
點(diǎn)擊復(fù)制文檔內(nèi)容
公司管理相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號-1