數(shù)據(jù)庫實驗七

1、數(shù)據(jù)庫應用設計設計報告題目名稱：_員工薪資管理_ _設計環(huán)境：_ Oracle 11g_ _指導教師：_張世玲_專業(yè)班級：_計科1401_姓 名：_董嗣川_學 號：_513543543_聯(lián)系電話： _電子郵件：_224354354354_設計日期： 2015年 10月25日至 2015年11月15 日設計報告日期：  2015   年   11 月    18 日參考文獻1 中國計算機科學與技術學科教程2002研究組.中國計算機科學與技術學科教程2002.清華大學出版社，2002

2、2 Tony Greening.21世紀計算機科學教育.高等教育出版社3 王珊，薩師煊.數(shù)據(jù)庫系統(tǒng)概論（第四版）.高等教育出版社，20064 楊冬青，唐世渭.數(shù)據(jù)庫系統(tǒng)概念（第三版）.機械工業(yè)出版社，20035 Hector Garcia-Molina，Jeffrey D.Ullman.數(shù)據(jù)庫系統(tǒng)全書.機械工業(yè)出版社，20036 宋振會.SQL Server 2000中文版基礎教程.清華大學出版社，20057 鄭阿奇. SQL Server實用教程.電子工業(yè)出版社，20028 劉自偉.管理信息系統(tǒng)開發(fā)技術.武漢理工大學出版社，20031. “員工薪資管理系統(tǒng)”程序功能簡介2.1程序概述“員工薪

3、資管理系統(tǒng)”是選用Mircrosoft 公司的Sql Server 2000和VB6.0開發(fā)環(huán)境而設計的，并且與SQL數(shù)據(jù)庫相連接。能夠很方便的讓員工進行信息查詢，以及工資查詢。同時也方便了管理員對企業(yè)員工的基本信息和工資信息進行管理，實現(xiàn)對員工信息進行增，刪，改，查。程序界面設計簡單明了，容易操作。2.2程序各個模塊的功能進入窗體frmwel：加載界面登錄窗體denglu：學生和教師實現(xiàn)用戶名，密碼登錄菜單窗體main：包括相應菜單欄，實現(xiàn)查詢，添加，編輯等查詢窗體chaxun1和chaxun2 查詢員工基本信息和薪資信息編輯信息窗體xxbj 管理員進入，對員工信息進行編輯修改密碼窗體xgm

4、m 修改員工和管理員密碼計算器窗體 scientific 幫助計算工資添加窗體tjyh 天加用戶關于窗體about 關于本程序介紹2.3.程序流程設計2.3.1程序設計各模塊功能分析2.3.2SQL數(shù)據(jù)庫設計表設計E-R圖各個表字段名及屬性2.3.3窗體設計1)進入窗體設計frmwel代碼如下：Private Sub Timer1_Timer()Static N As Integer N = N + 1 Label3.Caption = "正在加載數(shù)據(jù)，請等候" & String(N, ".") If N = 2 Then With denglu

5、 .Show End With denglu.Show Unload Me End IfEnd Sub2)登錄窗體denglu設計代碼如下Option ExplicitPrivate Sub Form_Load() Label5.Width = denglu.ScaleWidth Label5.Left = denglu.ScaleWidth End SubPrivate Sub Command2_Click() Dim intResult As Integer '請求用戶確認是否真的退出系統(tǒng)登錄 intResult = MsgBox("你選擇了退出系統(tǒng)登錄，退出將不能啟動員

6、工薪資管理系統(tǒng)！是否真的退出？", vbYesNo, "登錄驗證") If intResult = vbYes Then End '根據(jù)用戶選擇結(jié)束應用程序End SubPrivate Sub Command1_Click()If Option1.Value = True Then Dim str As String str = "select* from 員工表 where 用戶名='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = s

7、tr Adodc1.Refresh If Adodc1.Recordset.EOF = True Then MsgBox "此用戶名不存在，請重試！", vbOKOnly + vbExclamation, "登錄" Text1.Text = "" Text1.SetFocus ElseIf Trim(Adodc1.Recordset.Fields("密碼") = Trim(Text2.Text) Then main.Show Me.Hide Else MsgBox "密碼不正確，請重試！", v

8、bOKOnly + vbExclamation, "登錄" End IfEnd IfIf Option2.Value = True Then Dim str1 As String str1 = "select* from 管理員表 where 用戶名='" & Trim(Text1.Text) & "'" Adodc2.RecordSource = str1 Adodc2.Refresh If Adodc2.Recordset.EOF = True Then MsgBox "此用戶名不存在，請

9、重試！", vbOKOnly + vbExclamation, "登錄" Text1.Text = "" Text1.SetFocus ElseIf Trim(Adodc2.Recordset.Fields("密碼") = Trim(Text2.Text) Then main.Show Me.Hide Else MsgBox "密碼不正確，請重試！", vbOKOnly + vbExclamation, "登錄" End IfEnd IfEnd SubPrivate Sub Timer

10、1_Timer() If Label5.Left + Label5.Width >= 0 Then Label5.Left = Label5.Left - 50 Else Label5.Left = denglu.ScaleWidth End IfEnd Sub3)菜單窗體main設計代碼：Private Sub jbxx_Click()If denglu.Option2.Value = True Then xxbj.Show Me.HideElse MsgBox "對不起，您沒有這個權限！", vbOKOnly + vbExclamation, "警告&q

11、uot;End IfEnd SubPrivate Sub mmxg_Click()xgmm.ShowMe.HideEnd SubPrivate Sub pc_Click()Me.Hidescientific.ShowEnd SubPrivate Sub tcxt_Click()Me.Hidedenglu.ShowEnd SubPrivate Sub tj_Click()If denglu.Option2.Value = True Then tjyh.Show Me.HideElse MsgBox "對不起，您沒有這個權限！", vbOKOnly + vbExclamatio

12、n, "警告"End IfEnd SubPrivate Sub xtjj_Click()about.ShowMe.HideEnd SubPrivate Sub xxcx_Click()chaxun1.ShowMe.HideEnd SubPrivate Sub xzcx_Click()chaxun2.ShowMe.HideEnd SubPrivate Sub xzxx_Click()If denglu.Option2.Value = True Then xxbj.Show Me.HideElse MsgBox "對不起，您沒有這個權限！", vbOKOnl

13、y + vbExclamation, "警告"End IfEnd Sub4)查詢窗體chaxun1和chaxun2設計代碼：chuxun1Private Sub Command1_Click()Dim str1 As StringIf Text1 = vbNullString Then MsgBox "請輸入所要查詢的員工號", , "錯誤" Text1.SetFocus Exit Sub If Adodc1.Recordset.EOF = True Then MsgBox "信息庫中沒有你所要查找的員工的信息！"

14、, , "結(jié)果" Text1.SetFocus Text1 = vbNullString End IfEnd Ifstr1 = "select* from 基本表 where 員工號='" & Trim(Text1.Text) & "'"Adodc1.RecordSource = str1Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Unload Memain.ShowEnd SubPrivate Sub Command3_Click()Dim str

15、 As String str = "select * from 基本表 " Adodc1.RecordSource = str Adodc1.RefreshEnd Sub代碼chuxun2Private Sub Command1_Click()Dim str As StringIf Text1 = vbNullString Then MsgBox "請輸入所要查詢的員工號", , "錯誤" Text1.SetFocus Exit Sub If Adodc1.Recordset.EOF = True Then MsgBox "

16、信息庫中沒有你所要查找的員工的信息！", , "結(jié)果" Text1.SetFocus Text1 = vbNullString End IfEnd If str = "select * from 薪資表 where 員工號 = '" & Trim(Text1.Text) & "'" Adodc1.RecordSource = str Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Unload Memain.ShowEnd SubPrivate

17、 Sub Command3_Click()Dim str As String str = "select * from 薪資表 " Adodc1.RecordSource = str Adodc1.RefreshEnd Sub5)編輯信息窗體xxbj設計代碼：Private str1 As StringPrivate str2 As StringPrivate Sub Command1_Click(Index As Integer) Dim ask As Integer Select Case Index Case 0 Adodc1.Recordset.AddNew Ado

18、dc2.Recordset.AddNew Case 1 ask = MsgBox("刪除否？", vbYesNo) If ask = 6 Then Adodc1.RecordSource = str1 Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Adodc2.RecordSource = str2 Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext IfAdodc

19、2.Recordset.EOF ThenAdodc2.Recordset.MoveLast End If Case 2 Adodc1.Recordset.Update Adodc2.Recordset.Update MsgBox "更新成功！", vbOKOnly + vbExclamation, "提示" End SelectEnd SubPrivate Sub Command2_Click() Unload Me main.ShowEnd SubPrivate Sub Command5_Click()If Text14 = vbNullString

20、Then MsgBox "請輸入所要查詢的員工號", , "錯誤" Text14.SetFocus Exit SubEnd Ifstr1 = "select* from 基本表 where 員工號='" & Trim(Text14.Text) & "'"Adodc1.RecordSource = str1Adodc1.Refreshstr2 = "select* from 薪資表 where 員工號='" & Trim(Text14.Text) &

21、amp; "'"Adodc2.RecordSource = str2Adodc2.RefreshIf Adodc1.Recordset.EOF = True Then MsgBox "信息庫中沒有你所要查找的員工的信息！", , "結(jié)果" Text14.SetFocus Text14 = vbNullString Else Text1.Text = Adodc1.Recordset.Fields("員工號") Text2.Text = Adodc1.Recordset.Fields("姓名&quo

22、t;) Text3.Text = Adodc1.Recordset.Fields("性別") Text4.Text = Adodc1.Recordset.Fields("年齡") Text5.Text = Adodc1.Recordset.Fields("職業(yè)") Text15.Text = Adodc1.Recordset.Fields("單位") Text7.Text = Trim(Adodc1.Recordset.Fields("備注") Text8.Text = Adodc2.Recor

23、dset.Fields("基本工資") Text9.Text = Adodc2.Recordset.Fields("福利補貼") Text10.Text = Adodc2.Recordset.Fields("獎勵工資") Text11.Text = Adodc2.Recordset.Fields("失業(yè)保險") Text12.Text = Adodc2.Recordset.Fields("住房基金") Text6.Text = Adodc2.Recordset.Fields("員工號&

24、quot;) Text16.Text = Adodc2.Recordset.Fields("姓名") Text13.Text = Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text) - Val(Text11.Text) - Val(Text12.Text)End IfEnd Sub6)修改密碼窗體xgmm設計代碼Private Sub Command1_Click()If Trim(Text1.Text) <> Trim(Text2.Text) Then MsgBox "兩次密碼不一致，請重新輸入!", vbOKOnly + vbExclamation, "信息提示" Text1.SetFocus Text1.Text = "" Text2.Text = ""ElseIf denglu.Option1.Value = True Then Adodc1.RecordSource = "select * from 員工表 where 用戶名='" & denglu.Text1.Text & " '" Adodc1.Refresh Ado