企業(yè)人事管理系統(tǒng)報(bào)告(參考版)
2024-12-20 10:01本頁(yè)面
【正文】 這些問(wèn)題都是因?yàn)樽约簩?duì)現(xiàn)實(shí)問(wèn)題了解的不深導(dǎo)致的，我明白在以后的系統(tǒng)設(shè)計(jì)中需要 多 加強(qiáng)理論與實(shí)踐的結(jié)合， 這樣才能使以后開 發(fā)出來(lái)的軟件實(shí)用。 但本系統(tǒng)沒(méi)有使用到觸發(fā)器和存儲(chǔ)過(guò)程，在形式上，顯得有些單調(diào)。 例如，學(xué)會(huì)正確的在 VB 中 使用 ADO 連接數(shù)據(jù)庫(kù)的兩種方法：使用 ADO 控件和較靈活的 ADO 對(duì)象編程，學(xué)會(huì) MSFlexGrid 控件和數(shù)據(jù)庫(kù)的連接，學(xué)會(huì)數(shù)據(jù)環(huán)境的應(yīng)用。 總結(jié)與體會(huì) 做完這個(gè)企業(yè)人事管理系統(tǒng)后，我深有感觸。 39。 amp。如： connectstring strsql = select 職工號(hào) ,姓名 ,性別 ,出生日期 ,參加工作時(shí)間 , ,職稱名稱 ,崗位 from zgb,zcb where = strsql, n, adOpenStatic, adLockOptimistic ???? cc = Trim() strsql = select 職工號(hào) ,姓名 ,性別 ,出生日期 ,參加工作時(shí)間 , ,職稱名稱 ,崗位 from zgb,zcb where = and = amp。 Set rst = (strsql) ???? .TextMatrix(0, 5) = 學(xué)歷類別 .TextMatrix(0, 6) = 學(xué)歷 ???? 按職稱查詢 圖 按學(xué)歷查詢到學(xué)歷類別 為“ 2”的職工信息 企業(yè)人事管理系統(tǒng) 17 測(cè)試數(shù)據(jù)：輸入 職稱級(jí)別 “ 3”并單擊“查詢 ” 按鈕或在組合框了選“ 3” 即可查詢職工信息，如圖 所示。 cc amp。 39。 大部分代碼可參照按部門查詢界面代碼，個(gè)別地方需稍作修改。設(shè)置各列的對(duì)齊方式 .ColAlignment(i) = 4 Next i .TextMatrix(0, 0) = 職工號(hào) .TextMatrix(0, 1) = 姓名 ?? ?? .TextMatrix(0, 7) = 崗位 .FixedRows = 1 39。 End Select Next i Loop End With End Sub Private Sub ShowTitle() ???? With MSglist .Cols = 8 39。 Set rst = (strsql) ???? = = rst(部門名 ) ???? End Sub Private Sub ShowData() ???? With MSglist .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To 企業(yè)人事管理系統(tǒng) 15 Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i 1) = Format((i 1) amp。 cc amp。 39。 39。 amp。 部分代碼： Private Sub Form_Load() connectstring strsql = select 職工號(hào) ,姓名 ,性別 ,出生日期 ,參加工作時(shí)間 , ,部門名 ,崗位 from zgb,bmb where = strsql, n, adOpenStatic, adLockOptimistic strsql0 = select 部門號(hào) from bmb strsql0, n, adOpenStatic, adLockOptimistic = (5) = (6) 圖 按部門 號(hào) 查詢 到部門號(hào)為“ 1”部門的職工信息 企業(yè)人事管理系統(tǒng) 14 ShowTitle ShowData strsql, n, adOpenStatic, adLockOptimistic ???? End Sub Private Sub Combo1_Click() Dim cc As String cc = Trim() strsql = select 職工號(hào) ,姓名 ,性別 ,出生日期 ,參加工作時(shí)間 , ,部門名 ,崗位 from zgb,bmb where = and = amp。Data Source=.
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1