工資管理系統(tǒng)vb(編輯修改稿)
2024-09-07 12:07 本頁面
【文章內(nèi)容簡介】 的應(yīng)用程序, 每個人設(shè)計 2個以上的模塊，一個組完成一個完整的系統(tǒng),數(shù)據(jù)庫訪問，存儲過程調(diào)用等作重點闡述) Private Sub Command1_Click()If = admin And = 123 Then Else = 密碼或用戶名輸入錯誤，請重新確認(rèn)并輸入！ End IfEnd SubPrivate Sub Command2_Click() = = End Sub，如：進(jìn)入基本信息管理子系統(tǒng)Private Sub Command1_Click()End Sub，如：添加員工信息Private Sub Command1_Click()End SubPrivate Sub Command1_Click()(編號) = Text1(0).Text(姓名) = Text1(1).Text(性別) = Text1(2).Text(民族) = Text1(3).Text(籍貫) = Text1(4).Text(出生日期) = Text1(5).Text(電話) = Text1(6).Text(地址) = Text1(7).Text(部門) = Text1(8).Text(職位) = Text1(9).Text(職稱) = Text1(10).Text(學(xué)歷) = Text1(11).Text(入職日期) = Text1(12).Text(基本工資) = Text1(13).TextEnd Sub，如：刪除員工的基本信息Private Sub Command5_Click()If MsgBox(確定刪除當(dāng)前記錄？ , vbQuestion + vbYesNo, 刪除？) = vbYes Then If Then If 0 Then End If End IfEnd IfEnd Sub，如：修改員工基本信息Private Sub Command4_Click()(編號) = Text1(0).Text(姓名) = Text1(1).Text(性別) = Text1(2).Text(民族) = Text1(3).Text(籍貫) = Text1(4).Text(出生日期) = Text1(5).Text(電話) = Text1(6).Text(地址) = Text1(7).Text(部門) = Text1(8).Text(職位) = Text1(9).Text(職稱) = Text1(10).Text(學(xué)歷) = Text1(11).Text(入職日期) = Text1(12).Text(基本工資) = Text1(13).TextMsgBox (修改成功！)End Sub，如：查詢某個員工的基本信息Private Su
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1