數(shù)據(jù)庫管理系統(tǒng)企業(yè)員工信息管理(編輯修改稿)
2025-05-14 22:03 本頁面
【文章內(nèi)容簡介】 部門CharNchangereason變動原因CharNchangetime變動時間DatetimeN字段名稱標識名稱數(shù)據(jù)類型空否字段說明pid員工編號CharN主碼pay基本工資FloatNprize獎金FloatN三、物理設(shè)計查詢模塊對在職員工進行查詢查詢包括按編號或者姓名或者身份證號等位關(guān)鍵字查詢對離職員工進行查詢同上操作模塊對員工的基本信息進行錄入，修改。員工信息應(yīng)該包括：學(xué)號、姓名、年齡、學(xué)歷（不多于3個）、地址、身份證號碼（不多于19個）、部分、職務(wù)、籍貫、名族、政治身份。照片錄入。員工的調(diào)動和升降職位對員工進行離職操作維護模塊員工信息的修改，員工信息的刪除。查看數(shù)據(jù)庫看是否有此員工編號存在 = adCmdText = select * from employermessege where eid=39。 amp。 Trim() amp。 39。 If = False Then MsgBox 此員工編號已經(jīng)存在，不能進行登記！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If第五章 界面設(shè)計一、登陸窗口如下所示：在企業(yè)員工管理系統(tǒng)中主窗臺界面中包括用戶登錄管理，管理員登錄.。在企業(yè)員工信息管理系統(tǒng)中單擊用戶登錄模塊可以進行、。在企業(yè)員工信息管理系統(tǒng)中登錄用戶管理進入此模塊，此模塊主要完成對產(chǎn)品登錄界面，信息查詢，部門/職務(wù)的管理，密碼修改，退出的詳細信息的管理。在企業(yè)員工信息管理系統(tǒng)中登錄管理員管理進入此模塊，此模塊主要完成員工信息管理，員工工資管理，員工部門/職務(wù)的管理，用戶管理，退出的詳細信息的管理。在企業(yè)員工信息管理系統(tǒng)中登錄管理員管理進入員工信息管理模塊，此模塊主要完成員工信息編號，姓名，出生年月，現(xiàn)任職務(wù)，所屬部門，開始工作時間，進單位時間，身份證號，聯(lián)系電話，家庭住址，填表時間等。第六章 代碼與注釋一、登錄代碼Option ExplicitPublic OK As BooleanDim miCount As IntegerPrivate Sub Form_Load()OK = FalsemiCount = 0End SubPrivate Sub cmdOK_Click()Dim txtsql As StringDim mrc As Dim MsgText As StringUserName = If Trim( = ) ThenMsgBox 沒有這個用戶，請重新輸入用戶名！, vbOKOnly + vbExclamation, 警告Elsetxtsql = select * from user_Info where user_ID=39。39。39。amp。 amp。39。39。39。Set mrc = ExecuteSQL(txtsql, MsgText)If = True ThenMsgBox 沒有這個用戶，請重新輸入用戶名！, vbOKOnly + vbExclamation, 警告ElseIf Trim((1)) = Trim() ThenOK = TrueUserName = Trim()ElseMsgBox 輸入密碼不正確，請重新輸入！, vbOKOnly + vbExclamation, 警告 = End IfEnd IfEnd IfmiCount = miCount + 1If miCount = 3 ThenEnd IfExit Sub二、員工部門/職務(wù)代碼Private Sub Command1_Click()39。判斷員工編號是否為空If = Then MsgBox 員工編號不能為空！, vbOKOnly + vbExclamation, 警告 Exit SubEnd If39。查看數(shù)據(jù)庫看是否有此編號的員工存在 = adCmdText = select * from employermessege where eid=39。 amp。 Trim() amp。 39。If = True Then MsgBox 此員工不存在，不能進行登記，請先填寫正確員工編號！, vbOKOnly + vbExclama
公司管理相關(guān)推薦
鄂ICP備17016276號-1