數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告(人事管理系統(tǒng))(編輯修改稿)
2024-08-31 00:09 本頁面
【文章內(nèi)容簡介】 ere sname=@sname else print 39。查無此人39。 p2 39。劉39。 4. 創(chuàng)建觸發(fā)器： create trigger tr1 on 基本職工信息表 for insert as print 39。任何人不得添加數(shù)據(jù)39。 rollbackselect * from s四，創(chuàng)建人事管理系統(tǒng)訪問鍵面：（VB部分）1，創(chuàng)建鍵面的實(shí)現(xiàn)代碼：(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。這僅對多用戶應(yīng)用程序才是需要的 End SubPrivate Sub cmdUpdate_Click() = End SubPrivate
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1