精選文檔圖書管理系統(tǒng)實驗報告

上海電力學院信息網(wǎng)絡技術課程設計報告題目:圖書館借閱系統(tǒng)姓名：白志強學號：20111946院系：電子與信息工程學院專業(yè)年級：電子信息工程2011級2014年12月5日

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