数据库课程设计-库存销售管理系统

数据库课程设计实验报告姓名：黄世增班级：计算机1403学号：05实验名称使用VisualBasic和SQLServer2014开发库存销售管理系统实验目的使用VisualBasic开发工具开发一个库存销售管理系统，该系统采用SQLServer2014数据库保存库存货物信息，数据库中包括货物进出库信息和商品销售等信息。该系统包括系统登录、货物进出库管理、商品销售管理和商品统计管理等功能，经过这些功能实现对库存中货物信息和销售信息进行管理。系统主要实现以下目标：实现系统登录及更正用户密码的功能。对库存货物的进出库信息进行管理。对商品的销售信息进行管理。依照销售日期统计商品的销售数据。实验步骤设计数据库建立一个名为“DB_KCGL”的数据库，依照前述的主要功能目标，需要建立（关系）：（1）货物的进出库信息：保存货物的进出库信息

3个数据表id：库存货物信息的编号，主码，建议长度为18的numeric种类。tb_title：库存货物的名称，建议长度为50的varchar种类。tb_style：库存货物的种类，建议长度为50的varchar种类。tb_nums：库存货物的数量，建议为整型int。tb_values：库存货物的价格，实数种类real。tb_date：库存货物的入库日期，时间日期种类tb_mark：库存货物的备注信息，建议长度为

datetime。50的varchar

种类。（2）商品的销售信息：保存商品的销售信息id：商品销售信息的编号，主码，建议长度为18的numeric种类。tb_title：销售商品的名称，建议长度为50的varchar种类。tb_nums：建议为整型int。tb_values：销售商品的总价，浮点种类float。tb_date

：商品销售的日期，时间日期种类

datetime

。（3）系统用户的信息：保存系统用户的信息id：用户信息的编号，主码，建议长度为tb_name：用户名称，建议长度为50的

18的varchar

numeric种类。

种类。tb_pas：用户的密码信息，建议长度为50的varchar种类。设计连接数据库的模块需要第一建立一个连接数据库的模块，这样应用程序才能与数据库中的数据表获取连接，将数据信息从数据表中读出到应用程序中或经过应用程序保存到数据表中。为此，建立一个负责数据库连接的模块以下：（1）选择“工程”菜单下的“增加模块”命令，在应用程序中增加一个模块Module1。2）Module1模块的实现以下：数据连接模块PublicMyStrsAsStringPublicDB_AdoRsAsNew'后增加一个记录集对象PublicDB_AdoRs1AsNew'后增加一个记录集对象PublicDB_AdoRs2AsNew'后增加一个记录集对象PublicFunctionCnn( )As'定义连接字符串函数SetCnn=New"Provider=;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=DB_KCGL;DataSource=."EndFunctionPublicSubMain( )MyStrs="Provider=;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=DB_KCGL;DataSource=."'

显示系统登录窗体EndSub（3）这里需要将程序的入口设置为模块中的

Main( )

函数。选择“工程”菜单下的“工程属性”命令，在“通用”标签中进行相应设置。系统登陆模块设计在本库存销售管理系统中，只有授权用户（管理员）能够登录并进行库存和销售信息管理与保护，因此需要一个系统登录界面，防范非法用户登录到系统中，从而保证了应用程序的安全性和可靠性。登录窗体设计设计以下的登录窗体，在窗体中要增加一个ADO控件，命名为Adodc1。1）登录窗体启动此后，需要将系统用户的信息数据表中的所适用户名称信息增加到窗体的ComboBox控件的Op_Name属性中，即实现在“操作员名称”下拉列表中能够出现系统当前的操作员信息，供登录取户选择。PrivateSubForm_Load( )使用代码连接数据库与数据表MyStrs="select*from系统的用户信息"If>0Then'在增加数据时，第一清空控件中的内容DoWhile=False'将操作员信息增加到下拉列表框控件中间"tb_name"))LoopEndIfEndSub2）当用户在“操作员名称”下拉列表中选择操作员的名称，并且在“操作员密码”文本框输入正确的密码此后，单击“确定”按钮将登录到系统中，否则将无法登录系统。详细实现以下：PrivateSubCmd_Ok_Click( )="select*fromTb_Userwheretb_name='"&&"'"If>0ThenMPassword="tb_pas")If=MPasswordThenName1=="当前操作员：

'"+"tb_name")

判断数据的密码可否正确'

经过身份考据则显示主窗体，登录到系统中间UnloadMeElseMsgBox"

密码不正确

,请您确认后重新输入

",,"

提示信息

"=""EndIfElseMsgBox"对不起没有此用户的信息",,"提示信息"""""EndIfEndSub系统主界面的实现主界面设计（1）在工程中增加一个窗体，将窗体命名为Frm_main，将窗体Caption属性设置为“库存管理系统”。2）增加一个Toolbar控件，工具栏由“更正密码”、“库存管理”、“商品销售”、“销售统计”和“退出系统”5个按钮组成。3）增加一个StatusBar控件，使得状态栏中能够显示登录操作员姓名和当前系统时间等信息。4）在主窗体上增加一个时钟控件，用于显示系统当前日期和时间信息。5）在主窗体上增加一个Label标签控件，将其Caption属性设置为“库存管理系统”。代码实现（1）窗体启动时，在窗体的状态栏中将显示当前系统的日期信息：PrivateSubForm_Load( )=Format(Now,"yyyy年mm月dd日")EndSub（2）单击窗口工具栏按钮时，将会调用系统的各个子功能模块：PrivateSubToolbar1_ButtonClick(ByValButtonAsSelectCaseCase1'更正密码Case2'库存管理Case3'商品销售Case4'销售统计Case5End'退出系统EndSelectEndSub（3）在时钟控件的Timer事件中增加以下代码，实现在状态栏中显示当前系统时间的功能：PrivateSubTimer1_Timer( )TimeEndSub（4）再向状态栏中增加公司名称，操作员和公司网址信息。系统主窗体的运行界面以以下图所示：进出库管理模块的设计与实现该模块主若是记录和保护库存中的货物信息，其中包括对货物信息的删除、更正和保存等方面的功能。窗体界面设计1）在工程中增加一个窗体，命名为Frm_Inout，将窗体Caption设置为“进出库管理”。2）在窗体上增加相应的控件，以以下图所示。3）经过“工程”菜单下的“部件”命令将DataGrid数据表格控件增加到工具箱中，尔后在窗体上增加1个数据表格控件DataGrid1。（4）在窗体上增加一个ADO控件Adodc1，同时将DataGrid1的数据源属性DataSource设置为Adodc1。程序代码实现（1）窗口载入时，将数据库中商品表数据读出。PrivateSubForm_Load( )=MyStrs="select*from货物的进出库信息orderbyid"AddTitleEndSub其中，AddTitle函数用于向DataGrid1增加表头，实现以下：增加数据库字段标题的事件过程PrivateSubAddTitle( )"编号""名称""种类""数量""单价""入库日期""备注"EndSub（2）点击“增加”按钮，清空编写框，让用户输入新的待增加内容PrivateSubCommand1_Click( )'清空文本框中的内容=""=""=""=""=""=""EndSub（3）点击“删除”按钮，删除选中当前记录。PrivateSubCommand2_Click( )'删除库存信息c=MsgBox("确认要删除该信息吗

",17,"

提示信息

")Ifc=vbOKThen'若是有错误则执行错误办理OnErrorResumeNextSetDB_AdoRs=("Deletefrom货物的进出库信息whereid='"++"'")MsgBox"数据删除成功",64,"提示信息"删除后刷新数据信息="select*from货物的进出库信息orderbyid"AddTitleEndIf""""""""""""EndSub（4）点击“更正”按钮，更正当前的记录信息。PrivateSubCommand3_Click( )更正库存信息c=MsgBox("确认更正信息吗",33,"提示信息")Ifc=vbOKThen'OnErrorResumeNextSetDB_AdoRs=("UPDATE货物的进出库信息SETtb_title='"+Text2+"',tb_style='"+Text3+"',tb_nums='"+Text4+"',tb_values='"_+Text5+"',tb_mark='"+Text6+"'whereid='"++"'")MsgBox"数据更正成功",64,"提示信息"="select*from货物的进出库信息orderbyid"AddTitleEndIfEndSub（5）点击“保存”按钮，将保存文本框中输入的货物信息。PrivateSubCommand4_Click( )If=""Or=""Or=""Or=""Or=""Or=""ThenMsgBox"保存的数据信息不能够为空",48,"提示信息"Else"select*from货物的进出库信息wheretb_title='"++"'",Cnn,adOpenKeysetIf>0Then'判断要保存的信息可否已经存在MsgBox"该货物信息信息已经存在",48,"提示信息"Elsec=MsgBox("

确认保存信息吗

",33,"

提示信息

")Ifc=vbOKThen

'

若是选择的是“确定”按钮则保存信息SetDB_AdoRs=("insertinto货物的进出库信息values("&Text1&",'"Text2&"','"&Text3&"',"&Text4&","_Text5&",'"&Date&"','"&Text6&"')")MsgBox"信息保存成功",64,"提示信息"ElseEndIf保存数据后刷新数据信息="select*from货物的进出库信息orderbyid"AddTitleEndIfEndIfEndSub（6）点击退出，销毁当前窗口。PrivateSubCommand6_Click( )UnloadMeEndSub（7）单击DataGrid1中的相应记录，会在窗体左侧的各个编写框中显示相应的内容。PrivateSubDataGrid1_Click( )'OnErrorResumeNextIf>0Then======EndIfEndSub窗体的运行界面以以下图所示：商品销售模块的设计与实现在“商品销售管理”窗口中的“销售商品”下拉列表中选纲要销售的商品此后，该商品的基本信息将显示在窗体中相应的文本框中，在输入销售数量和实收金额后，单击“确认销售”按钮完成销售商品的操作。窗体界面设计1）在工程中增加一个窗体，命名为Frm_Sale，将Caption属性设置为“商品销售管理”。2）在窗体上增加相应的控件，以以下图所示。3）经过“工程”菜单下的“部件”命令将DataGrid数据表格控件增加到工具箱中，尔后在窗体上增加1个数据表格控件DataGrid1。4）在窗体上增加2个ADO控件Adodc1和Adodc2，同时将DataGrid1的数据源属性DataSource设置为Adodc2。程序代码实现1）窗体启动时，将商品库存中的货物名称信息增加到下拉列表中，尔后再将商品销售的数据信息显示在DataGrid1控件中。PrivateSubForm_Load( )=MyStrs="select*from商品的销售信息orderbyid"AddTitle使用代码连接数据库与数据表=MyStrs="select*from

货物的进出库信息

"If>0Then'在增加数据时，第一清空控件中的内容DoWhile=False'将货物进出库信息增加到下拉列表框控件当中"tb_title"))LoopEndIfEndSubPrivateSubAddTitle( )"编号""名称""销售数量""销售总价""销售日期"EndSub2）选择下拉列表中的商品此后，该商品的详细信息将显示在窗体中相对应的文本框中。商品详细信息PrivateSubCombo1_Click( )="select*from货物的进出库信息wheretb_title='"&&"'"If>0Then"id")"tb_style")"tb_nums")"tb_values")"tb_mark")EndIf清空文本框中的内容""""""""EndSub3）单击“确认销售”按钮，将完成销售商品的操作。4）当用户输入销售数量后并将输入焦点移开后，需要实时更新商品详细信息中的数量信息，即在原有数量的基础上减去用户输入的销售数量。3）和（4）的代码：PrivateSubCommand1_Click( )=MyStrs="select*from货物的进出库信息wheretb_title='"&&"'"DimaAsIntegerDimbAsIntegera=Valb=Val*If=""Or=""ThenMsgBox"请补全信息！ElseIfa<bThen

",64,"

提示信息

"MsgBox"信息输入有误，请重新输入！",64,"提示信息"Else*--SetDB_AdoRs=("insertinto+1&"','"&&"','"&Text6&"',"&Text8&",'"&Date&"')")SetDB_AdoRs=("UPDATE货物的进出库信息whereid='"&Text1&"'")MsgBox"销售成功！",64,"提示信息"="select*from商品的销售信息"

商品的销售信息SETtb_nums='"

values('"&&Text3&"'AddTitleEndIfEndIfEndSub窗体的运行结果以以下图所示：销售统计模块的设计与实现该模块主要实现统计商品销售信息的功能。选择商品的销售日期和销售商品的名称之后，在下面的DataGrid数据表格控件中就会显示盘问的数据结果信息，同时统计出销售商品的总数量和总价格。窗体界面设计1）增加一个窗体，命名为Frm_Stat，将窗体的Caption属性设置为“销售统计”。2）在窗体上增加控件情况如后图。4）在窗体上增加2个ADO控件Adodc1和Adodc2，同时将DataGrid1的数据源属性DataSource设置为Adodc2。销售统计窗体的设计界面以以下图所示。程序代码实现1）在启动窗体时，将货物的名称信息增加到下拉列表控件中，尔后再将商品销售的数据信息显示在表格控件中。2）在日期时间控件DTPicker1的Change事件下增加以下的程序代码，实现依照选择条件统计商品销售信息的功能。3）在日期Combo1控件的Click事件下增加以下的程序代码，实现依照选择条件统计商品销售信息的功能。PrivateSubCombo1_Click( )="select*from商品的销售信息wheretb_title='"&&"'andtb_date='"&&"'"AddTitleDimn,mAsIntegern=0m=0DoWhileNotn=n+m=m+LoopnmEndSubPrivateSubDTPicker1_Change( )="select*from商品的销售信息wheretb_title='"&&"'andtb_date='"&&"'"AddTitleDimn,mAsIntegern=0m=0DoWhileNotn=n+m=m+LoopnmEndSubPrivateSubForm_Load( )=MyStrs="select*from

商品的销售信息

wheretb_title='"&&"'andtb_date='"&&"'orderbyid"AddTitle使用代码连接数据库与数据表MyStrs="select*from货物的进出库信息"If>0Then'在增加数据时，第一清空控件中的内容DoWhile=False'将商品销售信息增加到下拉列表框控件中间"tb_title"))LoopEndIfEndSubPrivateSubAddTitle( )"编号""名称""销售数量""销售总价""销售日期"EndSub窗体的运行结果以下：更正密码模块的设计与实现窗体界面设计1）增加一个窗体，命名为Frm_Pas，将Caption属性设置为“密码更正”。2）在窗体上加入一个ADO控件Adodc1。3）设计窗体的界面以以下图。程序代码实现（1）载入窗口时连接操作员信息数据表PrivateSubForm_Load( )使用代码连接数据库与数据表MyStrs="select*from系统用户的信息"EndSub2）当点击“确定”按钮时，第一判断用户输入的用户名和原密码信息可