数据库课程设计——库存销售管理系统.doc
《数据库课程设计——库存销售管理系统.doc》由会员分享,可在线阅读,更多相关《数据库课程设计——库存销售管理系统.doc(15页珍藏版)》请在咨信网上搜索。
1、数据库课程设计 实验报告 姓名:黄世增 班级:计算机1403 学号:14116403051. 实验名称使用Visual Basic 6。0和SQL Server 2014开发库存销售管理系统2。实验目的使用Visual Basic 6。0开发工具开发一个库存销售管理系统,该系统采用SQL Server 2014数据库保存库存货物信息,数据库中包括货物出入库信息和商品销售等信息。该系统包括系统登录、货物出入库管理、商品销售管理和商品统计管理等功能,通过这些功能实现对库存中货物信息和销售信息进行管理。系统主要实现以下目标:l 实现系统登录及修改用户密码的功能.l 对库存货物的出入库信息进行管理.l
2、 对商品的销售信息进行管理。l 根据销售日期统计商品的销售数据。3.实验步骤3.1 设计数据库建立一个名为“DB_KCGL”的数据库,根据前述的主要功能目标,需要建立3个数据表(关系):(1) 货物的出入库信息:保存货物的出入库信息l id:库存货物信息的编号,主码,建议长度为18的numeric类型。l tb_title:库存货物的名称,建议长度为50的varchar类型。l tb_style:库存货物的类型,建议长度为50的varchar类型。l tb_nums:库存货物的数量,建议为整型int。l tb_values:库存货物的价格,实数类型real。l tb_date:库存货物的入库日
3、期,时间日期类型datetime。l tb_mark:库存货物的备注信息,建议长度为50的varchar类型。(2) 商品的销售信息:保存商品的销售信息l id:商品销售信息的编号,主码,建议长度为18的numeric类型。l tb_title:销售商品的名称,建议长度为50的varchar类型。l tb_nums:建议为整型int.l tb_values:销售商品的总价,浮点类型float。l tb_date:商品销售的日期,时间日期类型datetime。(3) 系统用户的信息:保存系统用户的信息l id:用户信息的编号,主码,建议长度为18的numeric类型。l tb_name:用户名称
4、,建议长度为50的varchar类型。l tb_pas:用户的密码信息,建议长度为50的varchar类型。3.2 设计连接数据库的模块需要首先建立一个连接数据库的模块,这样应用程序才能与数据库中的数据表取得连接,将数据信息从数据表中读出到应用程序中或通过应用程序保存到数据表中。为此,建立一个负责数据库连接的模块如下:(1) 选择“工程菜单下的“添加模块命令,在应用程序中添加一个模块Module1。(2) Module1模块的实现如下:数据连接模块Public MyStrs As StringPublic DB_AdoRs As New ADODB。Recordset 后添加一个记录集对象Pu
5、blic DB_AdoRs1 As New ADODB。Recordset 后添加一个记录集对象Public DB_AdoRs2 As New ADODB.Recordset 后添加一个记录集对象Public Function Cnn() As ADODB。Connection 定义连接字符串函数 Set Cnn = New ADODB.Connection Cnn。Open Provider=SQLOLEDB。1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB_KCGL;Data Source=。
6、”End FunctionPublic Sub Main() MyStrs = ”Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB_KCGL;Data Source=. 显示系统登录窗体Form1。ShowEnd Sub(3) 这里需要将程序的入口设置为模块中的Main()函数.选择“工程”菜单下的“工程属性命令,在“通用标签中进行相应设置.3。3 系统登陆模块设计在本库存销售管理系统中,只有授权用户(管理员)可以登录并进行库存和销售信息管理与维护,因此需要一个
7、系统登录界面,防止非法用户登录到系统中,从而保证了应用程序的安全性和可靠性。3.3。1 登录窗体设计设计如下的登录窗体,在窗体中要添加一个ADO控件,命名为Adodc1。(1) 登录窗体启动之后,需要将系统用户的信息数据表中的所有用户名称信息添加到窗体的ComboBox控件的Op_Name属性中,即实现在“操作员名称”下拉列表中可以出现系统当前的操作员信息,供登录用户选择。Private Sub Form_Load()使用代码连接数据库与数据表 Adodc1。ConnectionString = MyStrs Adodc1。RecordSource = ”select from 系统的用户信息
8、 Adodc1.Refresh If Adodc1。Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Op_Name。Clear 在添加数据时,首先清空控件中的内容 Do While Adodc1。Recordset。EOF = False 将操作员信息添加到下拉列表框控件当中 Op_Name.AddItem (Adodc1。Recordset。Fields(”tb_name”)) Adodc1。Recordset.MoveNext Loop End IfEnd Sub(2) 当用户在“操作员名称”下拉列表中选择操作员的名称,并且在
9、“操作员密码”文本框输入正确的密码之后,单击“确定”按钮将登录到系统中,否则将无法登录系统。具体实现如下:Private Sub Cmd_Ok_Click() Adodc1。RecordSource = select * from Tb_User where tb_name = Op_Name。Text & ” Adodc1.Refresh If Adodc1。Recordset。RecordCount 0 Then MPassword = Adodc1。Recordset.Fields(tb_pas”) If Txt_Password。Text = MPassword Then 判断数据的密
10、码是否正确 Name1 = Op_Name。Text Frm_Main.StatusBar1。Panels.Item(2).Text = ”当前操作员: ” + Adodc1.Recordset。Fields(”tb_name”) Frm_Main。Show 通过身份验证则显示主窗体,登录到系统当中 Unload Me Else MsgBox ”密码不正确,请您确认后重新输入”, , 提示信息” Txt_Password.Text = Txt_Password.SetFocus End If Else MsgBox ”对不起 没有此用户的信息, , 提示信息 Op_Name.Text = ”
11、Txt_Password。Text = ” End IfEnd Sub3。4 系统主界面的实现3.4。1 主界面设计(1) 在工程中添加一个窗体,将窗体命名为Frm_main,将窗体Caption属性设置为“库存管理系统”.(2) 添加一个Toolbar控件,工具栏由“修改密码”、“库存管理、“商品销售、“销售统计和“退出系统5个按钮组成.(3) 添加一个StatusBar控件,使得状态栏中能够显示登录操作员姓名和当前系统时间等信息。(4) 在主窗体上添加一个时钟控件,用于显示系统当前日期和时间信息.(5) 在主窗体上添加一个Label标签控件,将其Caption属性设置为“库存管理系统。3.
12、4.2 代码实现(1) 窗体启动时,在窗体的状态栏中将显示当前系统的日期信息:Private Sub Form_Load() StatusBar1.Panels。Item(3)。Text = Format(Now, yyyy年mm月dd日”)End Sub(2)单击窗口工具栏按钮时,将会调用系统的各个子功能模块:Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Frm_Pas。Show 修改密码 Case 2 Frm_Inout。Show 库存
13、管理 Case 3 Frm_Sale。Show 商品销售 Case 4 Frm_Stat.Show 销售统计 Case 5 End 退出系统 End SelectEnd Sub(3) 在时钟控件的Timer事件中添加如下代码,实现在状态栏中显示当前系统时间的功能:Private Sub Timer1_Timer() StatusBar1。Panels.Item(4).Text = TimeEnd Sub(4) 再向状态栏中添加公司名称,操作员和公司网址信息.系统主窗体的运行界面如下图所示:3。5 出入库管理模块的设计与实现该模块主要是记录和维护库存中的货物信息,其中包括对货物信息的删除、修改和
14、保存等方面的功能。3.5。1 窗体界面设计(1) 在工程中添加一个窗体,命名为Frm_Inout,将窗体Caption设置为“出入库管理”。(2) 在窗体上添加相应的控件,如下图所示.(3) 通过“工程菜单下的“部件”命令将DataGrid数据表格控件添加到工具箱中,然后在窗体上添加1个数据表格控件DataGrid1。(4) 在窗体上添加一个ADO控件Adodc1,同时将DataGrid1的数据源属性DataSource设置为Adodc1.3。5。2 程序代码实现(1) 窗口载入时,将数据库中商品表数据读出。Private Sub Form_Load() Adodc1.ConnectionSt
15、ring = MyStrs Adodc1。RecordSource = select from 货物的出入库信息 order by id” Adodc1。Refresh AddTitleEnd Sub其中,AddTitle函数用于向DataGrid1添加表头,实现如下:添加数据库字段标题的事件过程Private Sub AddTitle() DataGrid1.Columns。Item(0)。Caption = 编号 DataGrid1。Columns.Item(1)。Caption = ”名称” DataGrid1.Columns.Item(2)。Caption = ”类型” DataGri
16、d1。Columns.Item(3).Caption = 数量” DataGrid1。Columns.Item(4)。Caption = 单价 DataGrid1。Columns。Item(5).Caption = ”入库日期” DataGrid1。Columns。Item(6)。Caption = ”备注”End Sub(2)点击“添加按钮,清空编辑框,让用户输入新的待添加内容Private Sub Command1_Click()清空文本框中的内容 Text1。Text = ” Text2。Text = ” Text3。Text = ” Text4。Text = ” Text5。Text
17、= ” Text6.Text = ” Text1。SetFocusEnd Sub(3)点击“删除”按钮,删除选中当前记录.Private Sub Command2_Click()删除库存信息 c = MsgBox(确认要删除该信息吗”, 17, ”提示信息”) If c = vbOK Then 如果有错误则执行错误处理 On Error Resume Next Set DB_AdoRs = Cnn。Execute(”Delete from 货物的出入库信息 where id=” + Text1.Text + ”)MsgBox 数据删除成功”, 64, ”提示信息” 删除后刷新数据信息 Adod
18、c1。RecordSource = select from 货物的出入库信息 order by id” Adodc1.Refresh AddTitle End If Text1.Text = ” Text2.Text = ” Text3。Text = Text4.Text = ” Text5。Text = ” Text6。Text = ”End Sub(4)点击“修改”按钮,修改当前的记录信息。Private Sub Command3_Click()修改库存信息 c = MsgBox(”确认修改信息吗”, 33, 提示信息”) If c = vbOK Then On Error Resume
19、Next Set DB_AdoRs = Cnn。Execute(UPDATE 货物的出入库信息 SET tb_title=” + Text2 + ”,tb_style= + Text3 + ”,tb_nums=” + Text4 + ,tb_values=” _ + Text5 + ”,tb_mark= + Text6 + ” where id=” + Text1.Text + ”) MsgBox ”数据修改成功”, 64, ”提示信息 Adodc1。RecordSource = ”select from 货物的出入库信息 order by id” Adodc1。Refresh AddTitl
20、e End IfEnd Sub(5)点击“保存”按钮,将保存文本框中输入的货物信息。Private Sub Command4_Click()If Text1。Text = ” Or Text2。Text = ” Or Text3。Text = ” Or Text4。Text = ” Or Text5。Text = ” Or Text6。Text = ” Then MsgBox 保存的数据信息不能为空, 48, 提示信息” Else DB_AdoRs.Open select * from 货物的出入库信息 where tb_title= + Text2。Text + , Cnn, adOpenK
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 课程设计 库存 销售 管理 系统
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【精***】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【精***】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。