精選文檔圖書管理系統(tǒng)實(shí)驗(yàn)報(bào)告

上海電力學(xué)院信息網(wǎng)絡(luò)技術(shù)課程設(shè)計(jì)報(bào)告題目:圖書館借閱系統(tǒng)姓名：白志強(qiáng)學(xué)號(hào)：20111946院系：電子與信息工程學(xué)院專業(yè)年級(jí)：電子信息工程2011級(jí)2014年12月5日

摘要在大學(xué)生活中，圖書館是我們常去的一個(gè)地方，因而圖書館的管理無疑是我們需要關(guān)注的一個(gè)問題?，F(xiàn)在很多學(xué)校圖書館的借閱工作部分還是手工管理，工作效率很低并且不能及時(shí)了解圖書的種類和學(xué)生們比較需求的圖書等，不能更好的適應(yīng)當(dāng)前學(xué)生的借閱要求。計(jì)算機(jī)信息化管理有著存儲(chǔ)量大，速度快等許多優(yōu)點(diǎn)，提供給我們的處理信息及時(shí)快捷，因此利用計(jì)算機(jī)提供給我們的信息使學(xué)生們的借閱過程形成一整套動(dòng)態(tài)的管理，能夠極大提高圖書館理的效率，這也是學(xué)校的科學(xué)化，正規(guī)化管理。圖書借閱管理系統(tǒng)是一種信息管理系統(tǒng),本系統(tǒng)采用數(shù)據(jù)庫系統(tǒng)和VB平臺(tái)，以VB.NET為編程語言開發(fā)一個(gè)適合學(xué)校圖書管理所需要的數(shù)據(jù)庫管理軟件。其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的數(shù)據(jù)庫。而對(duì)于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。實(shí)驗(yàn)?zāi)康谋菊n程設(shè)計(jì)的目的是綜合應(yīng)用VB.NET軟件以及SQL數(shù)據(jù)庫設(shè)計(jì)實(shí)現(xiàn)圖書借閱系統(tǒng)。設(shè)計(jì)環(huán)境軟件：VS2008，SQLServer2008設(shè)計(jì)內(nèi)容基本要求：通過編程軟件使系統(tǒng)可以進(jìn)行管理員模塊和用戶使用模塊。管理員模塊：添加圖書，查詢圖書，查詢用戶，添加用戶。使用者模塊：借閱圖書，歸還圖書。設(shè)計(jì)流程圖圖書管理系統(tǒng)圖書管理系統(tǒng)歸還圖書用戶界面借閱圖書查詢用戶添加用戶查詢圖書添加圖書管理者界面歸還圖書用戶界面借閱圖書查詢用戶添加用戶查詢圖書添加圖書管理者界面設(shè)計(jì)步驟建立數(shù)據(jù)庫，新建表如圖所示打開表如圖啟動(dòng)VS2008，新建項(xiàng)目BOOK，添加13個(gè)Windows窗體,如圖:初始界面主要代碼:PublicClass初始PrivateSub初始_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load'初始化準(zhǔn)備頁面窗體中的各個(gè)控件Timer2.Interval=1000ProgressBar1.Maximum=10ProgressBar1.Visible=TrueTimer2.Enabled=TrueTimer1.Interval=5000Timer1.Enabled=TrueEndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickTimer1.Enabled=FalseDimfrm2AsNew總登錄界面Me.Hide()frm2.Show()EndSubPrivateSubTimer2_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer2.TickDimiAsIntegeri=ProgressBar1.ValueIfi<ProgressBar1.MaximumTheni=i+2ProgressBar1.Value=iEndIfEndSub添加label，Button控件，引導(dǎo)進(jìn)入總登錄界面雙擊管理員登陸按鈕編寫如下代碼跳轉(zhuǎn)到管理員功能選項(xiàng)界面：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimfrm1AsNew管理員功能選項(xiàng)Me.Hide()frm1.Show()進(jìn)入管理員管理選項(xiàng)界面點(diǎn)擊管理用戶信息按鈕跳轉(zhuǎn)到管理用戶界面進(jìn)入添加用戶信息界面管理員輸入用戶學(xué)號(hào)姓名等信息確認(rèn)按鈕代碼：PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickIfTextBox1.Text=""OrTextBox2.Text=""OrTextBox3.Text=""ThenMessageBox.Show("請(qǐng)完整填寫用戶信息！")ElseSqlConnection1.Open()SqlCommand1.Connection=SqlConnection1SqlCommand1.CommandText="insertintoyonghu1(姓名,學(xué)號(hào),卡號(hào))values('"&TextBox1.Text&"','"&TextBox2.Text&"','"&TextBox3.Text&"')"SqlCommand1.ExecuteNonQuery()SqlConnection1.Close()TsqDataSet1.Clear()SqlDataAdapter1.Fill(TsqDataSet1)SqlConnection1.Close()MsgBox("添加成功")EndIfEndSub進(jìn)入查看用戶信息界面查找按鈕代碼：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickSqlConnection1.Open()SqlDataAdapter1.SelectCommand.CommandText="select*fromyonghu1where學(xué)號(hào)='"&TextBox1.Text&"'"SqlConnection1.Close()TsqDataSet2.Clear()SqlDataAdapter1.Fill(TsqDataSet2)DataGridView1.Update()DataGridView1.Refresh()EndSub點(diǎn)擊管理圖書信息按鈕跳轉(zhuǎn)到管理圖書界面點(diǎn)擊查看圖書信息按鈕跳轉(zhuǎn)到查看圖書界面查詢按鈕代碼：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickSqlDataAdapter1.SelectCommand.CommandText="select*fromtushuwhere編號(hào)='"&TextBox1.Text&"'"SqlConnection1.Close()TsqDataSet.Clear()SqlDataAdapter1.Fill(TsqDataSet)DataGridView1.Update()DataGridView1.Refresh()EndSub進(jìn)入添加圖書界面確認(rèn)按鈕代碼如下：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfTextBox1.Text=""OrTextBox3.Text=""OrTextBox4.Text=""OrTextBox5.Text=""OrTextBox6.Text=""ThenMessageBox.Show("請(qǐng)完整填寫注冊(cè)信息！")ElseSqlConnection1.Open()SqlCommand1.Connection=SqlConnection1SqlCommand1.CommandText="insertintotushu(書名,編號(hào),出版日期,出版社,庫存量)values('"&TextBox1.Text&"','"&TextBox3.Text&"','"&TextBox5.Text&"','"&TextBox4.Text&"','"&TextBox6.Text&"')"SqlCommand1.ExecuteNonQuery()SqlConnection1.Close()TsqDataSet1.Clear()SqlDataAdapter1.Fill(TsqDataSet1)SqlConnection1.Close()MsgBox("添加成功")EndIfEndSub進(jìn)入用戶登錄界面，輸入姓名，學(xué)號(hào)確認(rèn)按鈕代碼：PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickIfTextBox1.Text.Length<>0OrTextBox2.Text.Length<>0ThenSqlConnection1.Open()SqlCommand1.Connection=SqlConnection1TsqDataSet1.Clear()SqlDataAdapter1.SelectCommand.CommandText="select*fromyonghu1where姓名='"&TextBox1.Text&"'and學(xué)號(hào)='"&TextBox2.Text&"'"SqlDataAdapter1.Fill(TsqDataSet1)IfTsqDataSet1.yonghu1.Rows.Count=1ThenDimfrm19AsNew用戶選擇Me.Hide()frm19.Show()ElseMsgBox("姓名或?qū)W號(hào)錯(cuò)誤",MsgBoxStyle.Critical)EndIfTsqDataSet1.Clear()SqlConnection1.Close()ElseMessageBox.Show("姓名和學(xué)號(hào)不能為空")EndIf進(jìn)入用戶選擇界面用戶借閱界面確認(rèn)借閱按鈕代碼：PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickSqlConnection1.Open()SqlCommand1.Connection=SqlConnection1SqlCommand1.CommandText="updatetushuset庫存量=庫存量-1where書名='"&TextBox1.Text&"'"SqlCommand1.ExecuteNonQuery()TsqDataSet1.Clear()SqlDataAdapter1.Fill(TsqDataSet1)SqlConnection1.Close()MsgBox("借閱成功")EndSub用戶歸還界面確認(rèn)歸還按鈕代碼：PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickSqlConnection1.Open()SqlCommand1.Connection=SqlConnection1SqlCommand1.CommandText=