數(shù)據(jù)庫應(yīng)用設(shè)計(jì)實(shí)習(xí)報(bào)告

西安郵電大學(xué)數(shù)據(jù)庫應(yīng)用系統(tǒng)課程設(shè)計(jì)報(bào)告書（員工薪資管理系統(tǒng)）系部名稱：信息與管理工程系學(xué)生姓名：石林專業(yè)名稱：信息管理與信息系統(tǒng)班級(jí)：信管1101時(shí)間：2013.6.3—2013.6.28目錄TOC\o"1-3"\h\u15373一.《數(shù)據(jù)庫應(yīng)用設(shè)計(jì)》實(shí)習(xí)任務(wù)指導(dǎo)書 一.《數(shù)據(jù)庫應(yīng)用設(shè)計(jì)》實(shí)習(xí)任務(wù)指導(dǎo)書 1.1《數(shù)據(jù)庫應(yīng)用設(shè)計(jì)》的目的：

掌握VB中數(shù)據(jù)庫的使用方法掌握Data數(shù)據(jù)控件和ADO數(shù)據(jù)控件的使用掌握SQL的使用1.2《數(shù)據(jù)庫應(yīng)用設(shè)計(jì)》時(shí)間與地點(diǎn)安排：信管11級(jí)數(shù)據(jù)庫應(yīng)用課程設(shè)計(jì)上機(jī)時(shí)間安排表17-18周上午8:00——12:00下午14:30——16:30地點(diǎn)：圖書館四層實(shí)驗(yàn)室1.3《數(shù)據(jù)庫應(yīng)用設(shè)計(jì)》任務(wù)與要求：本次設(shè)計(jì)，重點(diǎn)在于培養(yǎng)學(xué)生設(shè)計(jì)數(shù)據(jù)庫的能力，為學(xué)生提供在實(shí)際環(huán)境中使用數(shù)據(jù)庫工具開發(fā)軟件的實(shí)踐機(jī)會(huì)。先導(dǎo)課程為：《數(shù)據(jù)庫系統(tǒng)概論》。設(shè)計(jì)環(huán)境和開發(fā)工具：操作系統(tǒng)，Windows2000。數(shù)據(jù)庫管理系統(tǒng)，選用Mircrosoft公司的SqlServer2000。開發(fā)工具，選用vb6.0具體要求：1.3.1設(shè)計(jì)報(bào)告要求設(shè)計(jì)報(bào)告按照以下提綱書寫：摘要。需求分析。數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)。數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)。數(shù)據(jù)庫物理設(shè)計(jì)。數(shù)據(jù)流圖及程序結(jié)構(gòu)框圖。程序原代碼及其說明(電子版)?？偨Y(jié)。1.3.2參考文獻(xiàn)王珊.數(shù)據(jù)庫系統(tǒng)概論(第三版).北京：高等教育出版社，2000。VisualBasic6.0幫助文件。SQLServer2000幫助文件。1.4.《數(shù)據(jù)庫應(yīng)用設(shè)計(jì)》內(nèi)容與步驟：1.4.1設(shè)計(jì)內(nèi)容（不局限于下列內(nèi)容）：1>圖書借閱管理背景資料：圖書室有各種圖書一萬多冊(cè)。每種圖書都有書名、書號(hào)（ISBN）、一名或多名作者（譯者）、出版社、定價(jià)和內(nèi)容簡介。借書證記錄有借閱者的姓名、所在單位、職業(yè)等。憑借書證借書，每次最多能借8本書。借書期限最長為30天。要求：進(jìn)行需求分析，編寫數(shù)據(jù)字典。設(shè)計(jì)E-R圖。實(shí)現(xiàn)新進(jìn)圖書的數(shù)據(jù)錄入。實(shí)現(xiàn)對(duì)所有購進(jìn)圖書的分類查詢和分類統(tǒng)計(jì)。能夠按書名、作者等分類查詢現(xiàn)有圖書的數(shù)量。記錄借閱者的個(gè)人資料和所借圖書的書名、書號(hào)數(shù)據(jù)等。2>員工薪資管理背景資料：某單位現(xiàn)有1000名員工，其中有管理人員、財(cái)務(wù)人員、技術(shù)人員和銷售人員。該單位下設(shè)4個(gè)科室，即經(jīng)理室、財(cái)務(wù)科、技術(shù)科和銷售科。工資由基本工資、福利補(bǔ)貼和獎(jiǎng)勵(lì)工資構(gòu)成，失業(yè)保險(xiǎn)和住房公積金在工資中扣除。每個(gè)員工的基本資料有姓名、性別、年齡、單位和職業(yè)（如經(jīng)理、工程師、銷售員等）。每月個(gè)人的最高工資不超過3000元。工資按月發(fā)放，實(shí)際發(fā)放的工資金額為工資減去扣除。要求：進(jìn)行需求分析，編寫數(shù)據(jù)字典。設(shè)計(jì)E-R圖。實(shí)現(xiàn)按照科室錄入個(gè)人的基本資料、工資和扣除金額的數(shù)據(jù)。計(jì)算個(gè)人的實(shí)際發(fā)放工資。按科室、職業(yè)分類統(tǒng)計(jì)人數(shù)和工資金額。實(shí)現(xiàn)分類查詢。能夠刪除辭職人員的數(shù)據(jù)。3>庫存物資管理背景資料：有一個(gè)存放商品的倉庫，每天都有商品出庫和入庫。每種商品都有名稱、生產(chǎn)廠家、型號(hào)、規(guī)格等。出入庫時(shí)必須填寫出入庫單據(jù)，單據(jù)包括商品名稱、生產(chǎn)廠家、型號(hào)、規(guī)格、數(shù)量、日期、時(shí)間、入庫單位（或出庫單位）名稱、送貨（或提貨）人姓名。要求：進(jìn)行需求分析，編寫數(shù)據(jù)字典。設(shè)計(jì)E-R圖。設(shè)計(jì)出入庫單據(jù)的錄入。實(shí)現(xiàn)按商品名稱、出入庫日期的查詢。實(shí)現(xiàn)分別按日、月和年對(duì)出入庫商品數(shù)量的統(tǒng)計(jì)。1.4.2、設(shè)計(jì)步驟：1、數(shù)據(jù)庫設(shè)計(jì)需求分析，根據(jù)設(shè)計(jì)任務(wù)書給出的背景資料，查找相關(guān)資料，對(duì)數(shù)據(jù)進(jìn)行分析，編寫詳細(xì)的數(shù)據(jù)詞典。概念結(jié)構(gòu)設(shè)計(jì)：在需求分析的基礎(chǔ)上，設(shè)計(jì)E-R模型，詳細(xì)描述實(shí)體的屬性和實(shí)體之間的聯(lián)系，消除冗余。邏輯結(jié)構(gòu)設(shè)計(jì)：實(shí)現(xiàn)E-R圖向關(guān)系模型的轉(zhuǎn)換，特別注意實(shí)體的1:n聯(lián)系，優(yōu)化數(shù)據(jù)模型。詳細(xì)說明實(shí)體、實(shí)體屬性和實(shí)體之間的關(guān)系。2、創(chuàng)建數(shù)據(jù)庫：3、創(chuàng)建表：至少有四個(gè)以上表，每個(gè)表至少有十條以上的紀(jì)錄。4、應(yīng)用程序設(shè)計(jì)要有界面，菜單，工具欄。對(duì)用戶進(jìn)行分級(jí)，不同的用戶擁有不同的權(quán)限，如管理員，普通用戶。添加數(shù)據(jù)，要有下拉組合控件，圖片控件，復(fù)選框，文件列表，驅(qū)動(dòng)器列表，日期控件，Timer控件,盡可能使用更多的控件。查詢，設(shè)置組合查詢，至少三項(xiàng)以上，必須有時(shí)間范圍查詢，并且支持模糊查詢。對(duì)查找的結(jié)果刪除，修改，統(tǒng)計(jì)分析(直方圖，餅圖)，瀏覽支持兩種方式，一為單條瀏覽，二為整體瀏覽，使用datagrid控件。打印預(yù)覽，打印功能。最后要生成安裝程序，并且可以脫離VB環(huán)境運(yùn)行。1.5紀(jì)律與注意事項(xiàng)：1)如果教師認(rèn)定為抄襲，則雙方成績?yōu)?分，并提交管理部門處理。2)文檔統(tǒng)一用WORD格式，命名為“XXXXXXX設(shè)計(jì)文檔.doc”。3)所有程序及文檔必須放在同一目錄下，此目錄名格式為：信管11（班號(hào)）_組號(hào)，例如：“信管1101_01”。4)所有程序及文檔必須保證無病毒，且能正確運(yùn)行，否則扣除一定分?jǐn)?shù)。5)所有文檔及程序必須在2013年7月1日前提交。1.6、成績考核：答辯以抽查形式進(jìn)行?？记?0％數(shù)據(jù)庫設(shè)計(jì)文檔60％程序30％采用五級(jí)評(píng)分制優(yōu)、良、中、及格、不及格。

西安郵電大學(xué)管理工程學(xué)院

2013年

6月1日二.“員工薪資管理系統(tǒng)”程序功能簡介2.1程序概述 “員工薪資管理系統(tǒng)”是選用Mircrosoft公司的SqlServer2000和VB6.0開發(fā)環(huán)境而設(shè)計(jì)的，并且與SQL數(shù)據(jù)庫相連接。能夠很方便的讓員工進(jìn)行信息查詢，以及工資查詢。同時(shí)也方便了管理員對(duì)企業(yè)員工的基本信息和工資信息進(jìn)行管理，實(shí)現(xiàn)對(duì)員工信息進(jìn)行增，刪，改，查。程序界面設(shè)計(jì)簡單明了，容易操作。2.2程序各個(gè)模塊的功能進(jìn)入窗體frmwel：加載界面登錄窗體denglu：學(xué)生和教師實(shí)現(xiàn)用戶名，密碼登錄菜單窗體main：包括相應(yīng)菜單欄，實(shí)現(xiàn)查詢，添加，編輯等查詢窗體chaxun1和chaxun2查詢員工基本信息和薪資信息編輯信息窗體xxbj管理員進(jìn)入，對(duì)員工信息進(jìn)行編輯修改密碼窗體xgmm修改員工和管理員密碼計(jì)算器窗體scientific幫助計(jì)算工資添加窗體tjyh天加用戶關(guān)于窗體about關(guān)于本程序介紹2.3.程序流程設(shè)計(jì)2.3.1程序設(shè)計(jì)各模塊功能分析2.3.2SQL數(shù)據(jù)庫設(shè)計(jì)表設(shè)計(jì)E-R圖各個(gè)表字段名及屬性2.3.3窗體設(shè)計(jì)1)進(jìn)入窗體設(shè)計(jì)frmwel代碼如下：PrivateSubTimer1_Timer()StaticNAsIntegerN=N+1Label3.Caption="正在加載數(shù)據(jù)，請(qǐng)等候"&String(N,".")IfN=2ThenWithdenglu.ShowEndWithdenglu.ShowUnloadMeEndIfEndSub2)登錄窗體denglu設(shè)計(jì)代碼如下OptionExplicitPrivateSubForm_Load()Label5.Width=denglu.ScaleWidthLabel5.Left=denglu.ScaleWidthEndSubPrivateSubCommand2_Click()DimintResultAsInteger'請(qǐng)求用戶確認(rèn)是否真的退出系統(tǒng)登錄intResult=MsgBox("你選擇了退出系統(tǒng)登錄，退出將不能啟動(dòng)員工薪資管理系統(tǒng)！是否真的退出？",vbYesNo,"登錄驗(yàn)證")IfintResult=vbYesThenEnd'根據(jù)用戶選擇結(jié)束應(yīng)用程序EndSubPrivateSubCommand1_Click()IfOption1.Value=TrueThenDimstrAsStringstr="select*from員工表where用戶名='"&Trim(Text1.Text)&"'"Adodc1.RecordSource=strAdodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox"此用戶名不存在，請(qǐng)重試！",vbOKOnly+vbExclamation,"登錄"Text1.Text=""Text1.SetFocusElseIfTrim(Adodc1.Recordset.Fields("密碼"))=Trim(Text2.Text)Thenmain.ShowMe.HideElseMsgBox"密碼不正確，請(qǐng)重試！",vbOKOnly+vbExclamation,"登錄"EndIfEndIfIfOption2.Value=TrueThenDimstr1AsStringstr1="select*from管理員表where用戶名='"&Trim(Text1.Text)&"'"Adodc2.RecordSource=str1Adodc2.RefreshIfAdodc2.Recordset.EOF=TrueThenMsgBox"此用戶名不存在，請(qǐng)重試！",vbOKOnly+vbExclamation,"登錄"Text1.Text=""Text1.SetFocusElseIfTrim(Adodc2.Recordset.Fields("密碼"))=Trim(Text2.Text)Thenmain.ShowMe.HideElseMsgBox"密碼不正確，請(qǐng)重試！",vbOKOnly+vbExclamation,"登錄"EndIfEndIfEndSubPrivateSubTimer1_Timer()IfLabel5.Left+Label5.Width>=0ThenLabel5.Left=Label5.Left-50ElseLabel5.Left=denglu.ScaleWidthEndIfEndSub3)菜單窗體main設(shè)計(jì)代碼：PrivateSubjbxx_Click()Ifdenglu.Option2.Value=TrueThenxxbj.ShowMe.HideElseMsgBox"對(duì)不起，您沒有這個(gè)權(quán)限！",vbOKOnly+vbExclamation,"警告"EndIfEndSubPrivateSubmmxg_Click()xgmm.ShowMe.HideEndSubPrivateSubpc_Click()Me.Hidescientific.ShowEndSubPrivateSubtcxt_Click()Me.Hidedenglu.ShowEndSubPrivateSubtj_Click()Ifdenglu.Option2.Value=TrueThentjyh.ShowMe.HideElseMsgBox"對(duì)不起，您沒有這個(gè)權(quán)限！",vbOKOnly+vbExclamation,"警告"EndIfEndSubPrivateSubxtjj_Click()about.ShowMe.HideEndSubPrivateSubxxcx_Click()chaxun1.ShowMe.HideEndSubPrivateSubxzcx_Click()chaxun2.ShowMe.HideEndSubPrivateSubxzxx_Click()Ifdenglu.Option2.Value=TrueThenxxbj.ShowMe.HideElseMsgBox"對(duì)不起，您沒有這個(gè)權(quán)限！",vbOKOnly+vbExclamation,"警告"EndIfEndSub4)查詢窗體chaxun1和chaxun2設(shè)計(jì)代碼：chuxun1PrivateSubCommand1_Click()Dimstr1AsStringIfText1=vbNullStringThenMsgBox"請(qǐng)輸入所要查詢的員工號(hào)",,"錯(cuò)誤"Text1.SetFocusExitSubIfAdodc1.Recordset.EOF=TrueThenMsgBox"信息庫中沒有你所要查找的員工的信息！",,"結(jié)果"Text1.SetFocusText1=vbNullStringEndIfEndIfstr1="select*from基本表where員工號(hào)='"&Trim(Text1.Text)&"'"Adodc1.RecordSource=str1Adodc1.RefreshEndSubPrivateSubCommand2_Click()UnloadMemain.ShowEndSubPrivateSubCommand3_Click()DimstrAsStringstr="select*from基本表"Adodc1.RecordSource=strAdodc1.RefreshEndSub代碼chuxun2PrivateSubCommand1_Click()DimstrAsStringIfText1=vbNullStringThenMsgBox"請(qǐng)輸入所要查詢的員工號(hào)",,"錯(cuò)誤"Text1.SetFocusExitSubIfAdodc1.Recordset.EOF=TrueThenMsgBox"信息庫中沒有你所要查找的員工的信息！",,"結(jié)果"Text1.SetFocusText1=vbNullStringEndIfEndIfstr="select*from薪資表where員工號(hào)='"&Trim(Text1.Text)&"'"Adodc1.RecordSource=strAdodc1.RefreshEndSubPrivateSubCommand2_Click()UnloadMemain.ShowEndSubPrivateSubCommand3_Click()DimstrAsStringstr="select*from薪資表"Adodc1.RecordSource=strAdodc1.RefreshEndSub5)編輯信息窗體xxbj設(shè)計(jì)代碼：Privatestr1AsStringPrivatestr2AsStringPrivateSubCommand1_Click(IndexAsInteger)DimaskAsIntegerSelectCaseIndexCase0Adodc1.Recordset.AddNewAdodc2.Recordset.AddNewCase1ask=MsgBox("刪除否？",vbYesNo)Ifask=6ThenAdodc1.RecordSource=str1Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastAdodc2.RecordSource=str2Adodc2.Recordset.DeleteAdodc2.Recordset.MoveNextIfAdodc2.Recordset.EOFThenAdodc2.Recordset.MoveLastEndIfCase2Adodc1.Recordset.UpdateAdodc2.Recordset.UpdateMsgBox"更新成功！",vbOKOnly+vbExclamation,"提示"EndSelectEndSubPrivateSubCommand2_Click()UnloadMemain.ShowEndSubPrivateSubCommand5_Click()IfText14=vbNullStringThenMsgBox"請(qǐng)輸入所要查詢的員工號(hào)",,"錯(cuò)誤"Text14.SetFocusExitSubEndIfstr1="select*from基本表where員工號(hào)='"&Trim(Text14.Text)&"'"Adodc1.RecordSource=str1Adodc1.Refreshstr2="select*from薪資表where員工號(hào)='"&Trim(Text14.Text)&"'"Adodc2.RecordSource=str2Adodc2.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox"信息庫中沒有你所要查找的員工的信息！",,"結(jié)果"Text14.SetFocusText14=vbNullStringElseText1.Text=Adodc1.Recordset.Fields("員工號(hào)")Text2.Text=Adodc1.Recordset.Fields("姓名")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.Recordset.Fields("基本工資")Text9.Text=Adodc2.Recordset.Fields("福利補(bǔ)貼")Text10.Text=Adodc2.Recordset.Fields("獎(jiǎng)勵(lì)工資")Text11.Text=Adodc2.Recordset.Fields("失業(yè)保險(xiǎn)")Text12.Text=Adodc2.Recordset.Fields("住房基金")Text6.Text=Adodc2.Recordset.Fields("員工號(hào)")Text16.Text=Adodc2.Recordset.Fields("姓名")Text13.Text=Val(Text8.Text)+Val(Text9.Text)+Val(Text10.Text)-Val(Text11.Text)-Val(Text12.Text)EndIfEndSub6)修改密碼窗體xgmm設(shè)計(jì)代碼PrivateSubCommand1_Click()IfTrim(Text1.Text)<>Trim(Text2.Text)ThenMsgBox"兩次密碼不一致，請(qǐng)重新輸入!",vbOKOnly+vbExclamation,"信息提示"Text1.SetFocusText1.Text=""Text2.Text=""ElseIfdenglu.Option1.Value=TrueThenAdodc1.RecordSource="select*from員工表where用戶名='"&denglu.Text1.Text&"'"Adodc1.RefreshAdodc1.Recordset.Fields("密碼")=Text1.TextAdodc1.Recordset.UpdateMsgBox"密碼修改成功！",vbOKOnly+vbExclamation,"修改密碼"ElseIfdenglu.Option2.Value=TrueThenAdodc1.RecordSource="select*from管理員表where用戶名='"&denglu.Text1.Text&"'"Adodc1.RefreshAdodc1.Recordset.Fields("密碼")=Text1.TextAdodc1.Recordset.UpdateMsgBox"密碼修改成功！",vbOKOnly+vbExclamation,"修改密碼"EndIfEndSubPrivateSubCommand2_Click()UnloadMemain.ShowEndSub7)計(jì)算器窗體scientific設(shè)計(jì)代碼省略8)添加窗體tjyh設(shè)計(jì)代碼PrivateSubCommand1_Click()Adodc1.RefreshAdodc1.Recordset.AddNewEndSubPrivateSubCommand2_Click()Adodc1.Recordset.UpdateMsgBox"添加成功！",vbOKOnly+vbExclamation,"提示"EndSubPrivateSubCommand3_Click()UnloadMemain.ShowEndSub9)關(guān)于窗體about設(shè)計(jì)三.實(shí)習(xí)小結(jié)4.1遇到的問題及解決方案主要問題：如何建立SQL數(shù)據(jù)庫，數(shù)據(jù)庫建立后無法與