數據庫課程設計報告人事管理系統(編輯修改稿)
2025-08-31 00:00 本頁面
【文章內容簡介】 ere sname=@sname else print 39。查無此人39。 p2 39。劉39。 4. 創(chuàng)建觸發(fā)器： create trigger tr1 on 基本職工信息表 for insert as print 39。任何人不得添加數據39。 rollbackselect * from s四，創(chuàng)建人事管理系統訪問鍵面：（VB部分）1，創(chuàng)建鍵面的實現代碼：(1)基本職工信息查詢：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()With Text1(0) = .Fields(姓名)Text1(1) = .Fields(編號)Text1(2) = .Fields(性別)Text1(3) = .Fields(籍貫)End WithEnd SubPrivate Sub Form_Load() = = = = strsql1 = select *from 基本職工信息表 = conn = strsql1Set = Adodc1With = .Fields(姓名) = .Fields(編號) = .Fields(性別) = .Fields(籍貫)End WithEnd Sub（2） 基本的職工工資：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()With Text1(0) = .Fields(姓名)Text1(1) = .Fields(編號)Text1(2) = .Fields(性別)Text1(3) = .Fields(籍貫)End WithEnd SubPrivate Sub Form_Load() = = = = strsql1 = select *from 基本職工信息表 = conn = strsql1Set = Adodc1With = .Fields(姓名) = .Fields(編號) = .Fields(性別) = .Fields(籍貫)End WithEnd Sub（3） 職工部門：Private Sub cmdAdd_Click() End SubPrivate Sub cmdDelete_Click() 39。如果刪除記錄集的最后一條記錄 39。記錄或記錄集中唯一的記錄 End SubPrivate Sub cmdRefresh_Click() 39。這僅對多用戶應用程序才是需要的 End SubPrivate Sub cmdUpdate_Click() = End SubPrivate
職業(yè)教育相關推薦
鄂ICP備17016276號-1