VB油库设计说明书.docx
- 文档编号:4961676
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:10
- 大小:108.58KB
VB油库设计说明书.docx
《VB油库设计说明书.docx》由会员分享,可在线阅读,更多相关《VB油库设计说明书.docx(10页珍藏版)》请在冰豆网上搜索。
VB油库设计说明书
VB.NET程序设计说明书
姓名:
学号:
班级:
指导教师:
完成日期:
2010.7.10
设计要求
考核
目的
通过课程设计的实现,考查学生对开发VB.NET程序所涉及的开发工具及运行环境、VB.NET程序设计基础知识等有关内容的理解和应用,以求让学生进一步深入掌握使用VB.NET开发.NET应用程序所需的知识和技能,具备利用VB.NET开发.NET应用程序的能力。
考核
项目
要求
一、设计并实现**油库出入证管理软件,要求至少数据添加、删除、更新、查询四项基本功能,可扩展考虑数据统计分析、报表打印、数据备份和恢复等功能。
二、最终提交设计说明书,内容包括作业内容,总体分析,实现方案,数据库设计,功能模块设计,运行结果,主要源程序。
三、每个学生必须独立完成课程设计报告,课程设计报告书写规范、文字通顺、图表清晰、数据完整、结论明确。
四、课程设计必须在规定的时间内完成并上交。
目录
第一章绪论…………………………………………………………………………4
1.1概述…………………………………………………………………………4
1.1.1开发背景…………………………………………………………….4
1.1.2黄岛油库出入证管理软件介绍……………………………………4
1.1.3油库出入证管理软件的设计分析…………………………………..4
第二章黄岛油库出入证系统的发展…………………………………………6
2.1发展前景……………………………………………………………………6
2.1.1存在的不足...…………………………………………………………..6
2.1.2.开发价值……………………………………………………………….6
小结………………………………………………………………………………… 6
参考文献…………………………………………………………………………… 6
附录表格代码……………………………………………………………………… 7
黄岛油库出入证管理软件设计说明书
第一章绪论
1.1概述
1.1.1开发背景
随着社会信息化水平日益提高,计算机在生活中的应用也愈来愈多,不断地深入人们生活的各个方面。
油库出入管理工作是一项较复杂的工作,为了避免人工管理难度较大的现象,油库出入证管理软件的设计是非常必要的。
这样可以大大提高高人员出入管理的效率。
1.1.2黄岛油库出入证管理软件的介绍
黄岛油库出入证管理软件是在VisualBasic.NET平台下开发制作,是计算机管理与人工智能科学的结合,同时也大大提高了管理的效率与科学,例如,计算机能够长时间的保留数据方便以后的查询、检索效率大大提高、能够存储大量的信息、大大节约了人工费……避免的人工管理的失误。
任何事物都有两面性,在以后的运行中会不断的得以改善,使得更加的完善,使黄岛油库出入证管理软件系统向信息化、网络化迈进。
1.1.3油库出入证管理软件的设计分析
此管理软件是利用与sql相关知识结合access数据库设计开发的。
首先,要设计系统的窗口,根据企业人员的出入存储企业员工的基本信息(创建access数据库中),利用窗口输入数据信息,实现功能添加、修改、删除、查询、打印、显示查询人员信息,创建窗口form1、form2、form3如下图所示:
黄岛油库出入证人员添加界面
未添加序号警告信息
通过DATAGRIDVIEW控件来进行数据的删除修改
第二章黄岛油库出入证系统的发展
2.1黄岛油库出入证管理软件的发展前景
2.1.1存在的不足:
1.在设计的过程中考虑问题的不周到,以致使在以后的运行中会出现不同的问题。
2.在录入数据时可定会录入信息不准确。
2.1.2.开发价值
1.在以后的发展过程中想着信息化,网络化,办公无纸化
2.保密性,信息存储量大,安全性好
3.提高查找速度;节约时间
小结
在此次设计的过程中,自己学到了很多知识及查阅相关的资料,丰富了头脑。
此次设计过程中也培养了自己独立思考的能力。
虽然此次没有全部完成该系统的全部功能,但是自己一定会独立完成,达到该系统的完整性。
参考文献
【1】唐爱红、刘凯、刘雪梅程序设计实用教程清华大学出版社2008年版
【2】案例开发集锦电子工业出版社出版
附录:
部分代码
Importssystem.data.OleDb
PublicClassForm1
DimobjconnAsOleDbConnection
PrivateSubDataGridView1_CellContentClick(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.DataGridViewCellEventArgs)HandlesDataGridView1.CellContentClick
IfMe.DataGridView1.Rows.Count=0ThenExitSub
Me.Label1.Text=Me.DataGridView1.CurrentRow.Cells
(1).Value.ToString
Me.Label2.Text=Me.DataGridView1.CurrentRow.Cells
(2).Value.ToString
Me.Label3.Text=Me.DataGridView1.CurrentRow.Cells(3).Value.ToString
Me.Label4.Text=Me.DataGridView1.CurrentRow.Cells(4).Value.ToString
Me.Label5.Text=Me.DataGridView1.CurrentRow.Cells(6).Value.ToString
Me.Label6.Text=Me.DataGridView1.CurrentRow.Cells(7).Value.ToString
Me.Label7.Text=Me.DataGridView1.CurrentRow.Cells(8).Value.ToString
Me.Label8.Text=Me.DataGridView1.CurrentRow.Cells(9).Value.ToString
Me.PictureBox2.Image=Image.FromFile(Application.StartupPath+"\"+Me.DataGridView1.CurrentRow.Cells(11).Value.ToString)
EndSub
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
DimobjconnAsNewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Application.StartupPath&"\db1.mdb")
objconn.Open()
DimobjComAsNewOleDbCommand
objCom.Connection=objconn
objCom.CommandType=CommandType.Text
objCom.CommandText="select*fromryxxb"
DimobjDataAdapterAsNewOleDbDataAdapter
objDataAdapter.SelectCommand=objCom
DimobjDsAsNewDataTable
objDataAdapter.Fill(objDs)
Me.DataGridView1.DataSource=objDs
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Form2.ShowDialog()
EndSub
PrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.Click
Me.Close()
EndSub
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
DimobjconnAsNewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Application.StartupPath&"\db1.mdb")
objconn.Open()
DimobjComAsNewOleDbCommand
objCom.Connection=objconn
objCom.CommandType=CommandType.Text
objCom.CommandText="select*fromryxxb"
DimobjDataAdapterAsNewOleDbDataAdapter
objDataAdapter.SelectCommand=objCom
DimobjDsAsNewDataTable
objDataAdapter.Fill(objDs)
Me.DataGridView1.DataSource=objDs
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
DimzAsString
DimobjconnAsNewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Application.StartupPath&"\db1.mdb")
objconn.Open()
z=InputBox("请输入要查询人的[编号]或[姓名]或[单位名称]","查询条件输入")
DimsqlstrAsString="select*fromryxxbwhere序号='"&z&"'"
DimobjComAsNewOleDbCommand
objCom.Connection=objconn
objCom.CommandType=CommandType.Text
objCom.CommandText=sqlstr
DimobjDataAdapterAsNewOleDbDataAdapter
objDataAdapter.SelectCommand=objCom
DimobjDsAsNewDataSet
objDataAdapter.Fill(objDs,"ryxxb")
Me.DataGridView1.DataSource=objDs.Tables("ryxxb")
EndSub
PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click
DimobjAsNewOleDbConnection("provider=microsoft.jet.oledb.4.0;datasource="&Application.StartupPath&"\db1.mdb")
Dimsqlstr1,sqlstr2AsString
obj.Open()
IfMessageBox.Show("真的要删除所有已添加的人员信息吗?
","确认框",MessageBoxButtons.OKCancel)Then
IfMe.DataGridView1.CurrentRow.Cells(0).Value=TrueThen
sqlstr1="delete*fromryxxbwhere序号='"&Me.Label1.Text&"'"
DimobjdataadapterAsNewOleDbDataAdapter
DimobjcomAsOleDbCommand=NewOleDbCommand(sqlstr1,obj)
objcom.CommandType=CommandType.Text
objcom.ExecuteNonQuery()
sqlstr2="select*fromryxxb"
Dimobjcom1AsNewOleDbCommand
objcom1.Connection=obj
objcom1.CommandType=CommandType.Text
objcom1.CommandText=sqlstr2
objdataadapter.SelectCommand=objcom1
DimdataAsNewDataSet
objdataadapter.Fill(data,"ryxxb")
Me.DataGridView1.DataSource=data.Tables("ryxxb")
MessageBox.Show("记录已删除!
","消息框",MessageBoxButtons.OK)
Me.Label1.Text=""
Me.Label2.Text=""
Me.Label3.Text=""
Me.Label4.Text=""
Me.Label5.Text=""
Me.Label6.Text=""
Me.Label7.Text=""
Me.Label8.Text=""
Me.PictureBox2.Image=Nothing
Else
MsgBox("当前没有选择要删除人员,请重新选择!
",MsgBoxStyle.Critical,"信息框")
EndIf
EndIf
EndSub
PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.Click
DimobjAsNewOleDbConnection("provider=microsoft.jet.oledb.4.0;datasource="&Application.StartupPath&"\db1.mdb")
Dimsqlstr1,sqlstr2AsString
obj.Open()
IfMessageBox.Show("真的要删除所有已添加的人员信息吗?
","确认框",MessageBoxButtons.OKCancel)Then
sqlstr1="delete*fromryxxb"
DimobjdataadapterAsNewOleDbDataAdapter
DimobjcomAsOleDbCommand=NewOleDbCommand(sqlstr1,obj)
objcom.CommandType=CommandType.Text
objcom.ExecuteNonQuery()
sqlstr2="select*fromryxxb"
Dimobjcom1AsNewOleDbCommand
objcom1.Connection=obj
objcom1.CommandType=CommandType.Text
objcom1.CommandText=sqlstr2
objdataadapter.SelectCommand=objcom1
DimdataAsNewDataSet
objdataadapter.Fill(data,"ryxxb")
Me.DataGridView1.DataSource=data.Tables("ryxxb")
Me.Label1.Text=""
Me.Label2.Text=""
Me.Label3.Text=""
Me.Label4.Text=""
Me.Label5.Text=""
Me.Label6.Text=""
Me.Label7.Text=""
Me.Label8.Text=""
Me.PictureBox2.Image=Nothing
MessageBox.Show("数据已清空!
","消息框",MessageBoxButtons.OK)
EndIf
EndSub
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
IfCheckBox1.CheckedThen
PageSetupDialog1.ShowDialog()
EndIf
IfCheckBox2.CheckedThen
PrintPreviewDialog1.ShowDialog()
EndIf
EndSub
EndClass
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 油库 设计 说明书