工資管理系統(tǒng)說明書(編輯修改稿)
2025-05-14 04:27 本頁面
【文章內(nèi)容簡介】 FROM ygshuju 。（3）員工登陸查詢 SELECT * FROM denglu WHERE 用戶名 = 。（4）員工工資號查詢 SELECT ID FROM gzshuju WHERE工資號= Trim(txtId)。（5） 員工部門查詢 SELECT 姓名,員工號,基本工資 FROM ygshuju WHERE 部門 like Trim(cboItem(0))。（6）員工考勤查詢 SELECTkqpay,kqdeduct RROM checkin WHERE kqid = (0) 。（7）初始化部門名稱查詢SELECTDISTINCT ygdept FROM manrecord。 SQL插入語句（1） 員工姓名添加 INSERE INTO ygshuju (ame) VALUES(‘曹操’)。（2） 員工編號增加 INSERE INTO ygshuju ID VALUES(‘20060001’)。 SQL刪除語句（1）員工姓名刪除 DELECT FROM ygshuju WHERE ame=’曹操’；（2）員工編號刪除 DELECT FROM ygshuju WHERE ID=’20060001’；（3） 員工工資刪除 DELETE FROM gzshuju WHERE 工資號=Trim(txtId) ； SQL修改語句（1）員工姓名修改 UPDATE ygshuju SET ame=’曹操’ WHERE ame=‘劉備’；（2）員工編號修改 UPDATE ygshuju SET ID=’20060001’；工資管理系統(tǒng)員工資料登記料員工資料查詢個(gè)人工資查詢員工號部部門姓姓名 崗位工資等級基本設(shè)定工資用戶密碼修改查詢員工號新密碼舊密碼用戶名工齡工資工資等級相應(yīng)工資福利名稱福利費(fèi)用工齡 7 系統(tǒng)實(shí)現(xiàn) Private Sub Command1_Click()Dim db As DatabaseDim res As RecordsetDim user As StringDim passw As StringSet db = OpenDatabase( + \)39。res = (denglu) If Trim( = ) Then MsgBox 沒有這個(gè)用戶，請重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from denglu where 用戶名 = 39。 amp。 amp。 39。 Set res = (txtSQL) If = True Then MsgBox 沒有這個(gè)用戶，請重新輸入用戶名!, vbOKOnly + vbExclamation, 警告 Else If Trim((2)) = Trim() Then OK = True 39。UserName = Trim() Else MsgBox 輸入密碼不正確，請重新輸入！, vbOKOnly + vbExclamation, 警告 = End If End If End IfEnd SubPrivate Sub cboItem_Click(Index As Integer) Dim MsgText As String Dim intCount As Integer 39。Dim mrcc As 39。Dim mrcctxt As String Dim db As Database Dim res As Recordset Dim strsql As String Set db = OpenDatabase( + \) strsql = select 姓名,員工號,基本工資 from ygshuju where 部門 like 39。* amp。 Trim(cboItem(0)) amp。 *39。 Set res = (strsql) 39。 If gintMode = 1 Then 39。初始化員工名稱和ID If Index = 0 Then cboItem(1).Clear 39。txtSQL = select ygid,ygname from manrecord where ygdept=39。 amp。 Trim(cboItem(0)) amp。 39。 39。Set mrc = ExecuteSQL(txtSQL, MsgText) 39。 Set db = OpenDatabase( + \) 39。 Set res = (ygshuju) If Not Then With cboItem(1) Do While Not .AddItem Trim(res!姓名) Loop .ListIndex = 0 End With 39。 Else 39。 MsgBox 請先建立員工檔案！, vbOKOnly + vbExclamation, 警告 39。 = False 39。 Exit Sub End If End If cboItem(1).ListIndex txtId = (1) amp。 Format(Now, yymm) txtItem(0) = (2） 39。mrcctxt = select kqpay,kqdeduct from checkin where kqid=39。 amp。 (0) amp。
公司管理相關(guān)推薦
鄂ICP備17016276號-1