VB油库设计说明书文档格式.docx
- 文档编号:17915035
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:10
- 大小:108.58KB
VB油库设计说明书文档格式.docx
《VB油库设计说明书文档格式.docx》由会员分享,可在线阅读,更多相关《VB油库设计说明书文档格式.docx(10页珍藏版)》请在冰豆网上搜索。
二、最终提交设计说明书,内容包括作业内容,总体分析,实现方案,数据库设计,功能模块设计,运行结果,主要源程序。
三、每个学生必须独立完成课程设计报告,课程设计报告书写规范、文字通顺、图表清晰、数据完整、结论明确。
四、课程设计必须在规定的时间内完成并上交。
目录
第一章绪论…………………………………………………………………………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
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Form2.ShowDialog()
PrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.Click
Me.Close()
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
DimzAsString
z=InputBox("
请输入要查询人的[编号]或[姓名]或[单位名称]"
"
查询条件输入"
DimsqlstrAsString="
select*fromryxxbwhere序号='
"
z&
'
objCom.CommandText=sqlstr
DimobjDsAsNewDataSet
objDataAdapter.Fill(objDs,"
ryxxb"
Me.DataGridView1.DataSource=objDs.Tables("
PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click
DimobjAsNewOleDbConnection("
provider=microsoft.jet.oledb.4.0;
datasource="
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,"
Me.DataGridView1.DataSource=data.Tables("
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
PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.Click
delete*fromryxxb"
数据已清空!
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
IfCheckBox1.CheckedThen
PageSetupDialog1.ShowDialog()
IfCheckBox2.CheckedThen
PrintPreviewDialog1.ShowDialog()
EndClass
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 油库 设计 说明书
![提示](https://static.bdocx.com/images/bang_tan.gif)