人事信息管理系統(tǒng)-文庫(kù)吧在線文庫(kù)
【正文】 前臺(tái)功能實(shí)現(xiàn)（Visual Basic ） 登錄窗體的實(shí)現(xiàn) 登錄窗口 5 數(shù)據(jù)庫(kù)應(yīng)用開發(fā) 連接數(shù)據(jù)庫(kù)通過(guò)ADO控件來(lái)連接數(shù)據(jù)庫(kù)：1）添加ADO控件，如圖 ADO控件2)更改ADO控件屬性 如圖 設(shè)置AD0控件屬性 通過(guò)前臺(tái)對(duì)后臺(tái)操作 人員信息查詢 人員信息查詢界面人員信息查詢代碼：Private Sub Command1_Click()If i = 1 Thenstr1 = select * from 員工信息表 where 編號(hào)=39。If = 1 ThenEnd If str1, , 1, 1If Then MsgBox 該編號(hào)不存在 Else Set = rs End If End If If i = 3 Then str1 = select * from 科研信息表 where 編號(hào)=39。 and 編號(hào)=39。If = 1 Then End If str1, , 1, 3If Thenrs(姓名) = rs(編號(hào)) = rs(性別) = rs(學(xué)歷) = rs(畢業(yè)學(xué)校) = rs(職務(wù)) = rs(基本工資) = rs(崗位津貼) = str1 = select * from 員工信息表 If = 1 Then End If str1, , 1, 1Set = rsMsgBox 添加成功！, 64, 信息提示 = = = Else MsgBox 該課程已存在，請(qǐng)重新輸入！, 16, 警告End IfElse MsgBox 課程編號(hào)或名稱輸入不正確，請(qǐng)重新輸入！, 16, 警告End IfEnd SubPrivate Sub DataGrid1_Click()str1 = select * from 教師信息表 If = 1 ThenEnd If str1, , 1, 1Set = rs End SubPrivate Sub DataGrid1_Click()str1 = select * from 科研信息表 If = 1 ThenEnd If str1, , 1, 1Set = rs End Sub 人員信息修改1）員工信息修改 修改員工信息2）教師信息修改 修改教師信息3）科研人員信息修改 修改科研人員信息人員信息修改代碼：Private Sub Command2_Click()strsql = select * from 員工信息表 where 姓名=39。If = 1 ThenEnd If strsql, , 1, 3If Then (update 員工信息表 set 畢業(yè)學(xué)校=39。 where 編號(hào)=39。and 編號(hào)=39。,論文=39。 where 編號(hào)=39。把學(xué)到的知識(shí)應(yīng)用到實(shí)踐中去，多做多練，才可以把理論的精華發(fā)揮出來(lái)。7 參考文獻(xiàn) [1] 徐鵬，滿娜，于艷杰主編。[6] 李彥強(qiáng)，尹建偉，蔡銘，周忠信，董金祥，面向網(wǎng)絡(luò)化制造的項(xiàng)目管理系統(tǒng)研究與實(shí)現(xiàn)[J]，計(jì)算機(jī)應(yīng)用研究，2009年10期。電子工業(yè)出版社，2011。在這其中
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1