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

《数据库课程设计——库存销售管理系统》由会员分享，可在线阅读，更多相关《数据库课程设计——库存销售管理系统（47页珍藏版）》请在金锄头文库上搜索。

1、数据库课程设计一一库存销售 管理系统数据库课程设计实验报告姓名：黄世增班级：计算机1403算-学号：14116403051. 实验名称使用 Visual Basic 60 和 SQL Server 2014 开发库存销售管理系统2. 实验目的使用Visual Basic 6.0开发工具开发一个库存 销售管理系统，该系统采用SQL Server 2014数 据库保存库存货物信息，数据库中包括货物出入 库信息和商品销售等信息。该系统包括系统登liiJ录、货物出入库管理、商品销售管理和商品统计 管理等功能，通过这些功能实现对库存中货物信 息和销售信息进行管理。系统主要实现以下目标：实现系统登录及修改

2、用户密码的功能。对库存货物的出入库信息进行管理。对商品的销售信息进行管理。根据销售日期统计商品的销售数据。3. 实验步骤3.1设计数据库建立一个名为“ DB_KCGL ”的数据库，根据 前述的主要功能目标，需要建立3个数据表（关系): (1)货物的出入库信息：保存货物的出入库信 id:库存货物信息的编号，主码，建议长度为18 的 numeric 类型。 tb_title:库存货物的名称，建议长度为50的 varchar 类型。 tb_style:库存货物的类型，建议长度为50的 varchar 类型。 tb_nums：库存货物的数量，建议为整型into tb_values:库存货物的价格，实数

3、类型real。 tb_date :库存货物的入库日期，时间日期类 型 datetime o tb_mark:库存货物的备注信息，建议长度为50 的 varchar 类型。(2)商品的销售信息：保存商品的销售信息 id：商品销售信息的编号，主码，建议长度为 18 的 numeric 类型。 tb_title:销售商品的名称，建议长度为50的 varchar 类型。 tb_nums :建议为整型int。 tb_values :销售商品的总价，浮点类型float。 tb_date :商品销售的日期，时间日期类型 datetime。列名允许Null值TidnumericflS, 0)tb_tittle

4、va rchar(50tb_nuim&inttb_value&floattb_dste-datetimeDESKTOP-OU7.db&,jDEKTOP-OOU7.dbQ,的销售信息 x（3）系统用户的信息：保存系统用户的信息 id：用户信息的编号，主码，建议长度为18 的numeric类型。 tb_name：用户名称，建议长度为50的varchar 类型。 tb_pas：用户的密码信息，建议长度为50的 varchar 类型。口&。尸-001.,6吴.户的倩皂x列名渤Null值idnum-erk:(1S 0)tb_namevsrchsr50tb_pa&varchar503.2设计连接数据库的模

5、块liii需要首先建立一个连接数据库的模块，这样应 用程序才能与数据库中的数据表取得连接，将数 据信息从数据表中读出到应用程序中或通过应 用程序保存到数据表中。为此，建立一个负责数据库连接的模块如下：（1）选择“工程”菜单下的“添加模块”命 令，在应用程序中添加一个模块Modulel。（2）Modulel模块的实现如下：数据连接模块Public MyStrs As StringPublic DB_AdoRs As New ADODB.Recordset 后添加一个记录集对象Public DB_AdoRs1 As New ADODB.Recordset 后添加一个记录集对象Public DB_A

6、doRs2 As New ADODB.Recordset 后添加一个记录集对象Public Function Cnn（） As ADODB.Connection定义连接字符串函数Set Cnn = New ADODB.ConnectionCnn.OpenProvider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;Initial Catalog=DB_KCGL;DataSource=.”End FunctionPublic Sub Main()MyStrs=Provider=SQLOLEDB.1;Integrated

7、 Security=SSPI;PersistSecurityInfo=False;Initial Catalog=DB_KCGL;DataSource=.”显示系统登录窗体Form1.ShowEnd Sub(3)这里需要将程序的入口设置为模块中的 Main()函数。选择“工程”菜单下的“工程属性” 命令，在“通用”标签中进行相应设置。3.3系统登陆模块设计在本库存销售管理系统中，只有授权用户（管 护，因此需要一个系统登录界面，防止非法用户 登录到系统中，从而保证了应用程序的安全性和 可靠性。3.3.1登录窗体设计设计如下的登录窗体，在窗体中要添加一个 ADO控件，命名为Adodcl。氏库存管理

8、系统-登录操作员信息二操作员名称I3操作员密码 I|小I小登录I 取消I（1）登录窗体启动之后，需要将系统用户的信 息数据表中的所有用户名称信息添加到窗体的ComboBox控件的Op_Name属性中，即实现在 “操作员名称”下拉列表中可以出现系统当前的 操作员信息，供登录用户选择。Private Sub Form_Load()使用代码连接数据库与数据表Adodcl.ConnectionString = MyStrsAdodc1.RecordSource = select * from 系统的用户信息”Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0

9、 Then Adodc1.Recordset.MoveFirst Op_Name.Clear在添加数据时，首先清空控件中的内容Do While Adodc1.Recordset.EOF = False 将操作员信息添加到下拉列表框控件当中Op_Name.AddItem (Adodc1.Recordset.Fields(tb_name) Adodc1.Recordset.MoveNextLoop End If End Sub（2）当用户在“操作员名称”下拉列表中选择 操作员的名称，并且在“操作员密码”文本框输 入正确的密码之后，单击“确定”按钮将登录到 系统中，否则将无法登录系统。具体实现如下：

10、Private Sub Cmd_Ok_Click()AdodcLRecordSource = select * from Tb_User where tb_name = & Op_Name.Text & ”Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 ThenMPassword=Adodc1.Recordset.Fields(tb_pas)If Txt_Password.Text = MPasswordThen判断数据的密码是否正确Name1 = Op_Name.TextFrm_Main.StatusBar1.Panels.Item(2).Te

11、xt = 当前操作员： ”+Adodc1.Recordset.Fields(tb_name) Frm_Main.ShowliiJ通过身份验证则显示主窗体，登录到系统当中Unload MeElseMsgBox ”密码不正确，请您确认后重新输入七，”提示信息”Txt_Password.Text =Txt_Password.SetFocusEnd IfElseMsgBox 对不起没有此用户的信息 ,”提示信息”Op_Name.Text =Txt_Password.Text =End IfEnd Sub3.4系统主界面的实现3.4.1主界面设计（1）在工程中添加一个窗体，将窗体命名为Frm_main，

12、将窗体Caption属性设置为“库存 管理系统”。（2）添加一个Toolbar控件，工具栏由“修改 密码”、“库存管理”、“商品销售”、“销售统计” 和“退出系统” 5个按钮组成。（3）添加一个StatusBar控件，使得状态栏中 能够显示登录操作员姓名和当前系统时间等信息。(4) 在主窗体上添加一个时钟控件，用于显示 系统当前日期和时间信息。(5) 在主窗体上添加一个Label标签控件，将 其Caption属性设置为库存管理系统”。3.4.2代码实现(1) 窗体启动时，在窗体的状态栏中将显示当 前系统的日期信息：Private Sub Form_Load()StatusBar1.Panels

13、.Item(3).Text=Format(Now, yyyy 年 mm 月 dd 日”)End Sub(2)单击窗口工具栏按钮时，将会调用系统的 各个子功能模块：Private Sub Toolbar1_ButtonClick(ByValButton As MSComctlLib.Button)Select Case Button.IndexCase 1Frm_Pas.Show修改密码Case 2Frm_Inout.Show 库存管理 Case 3Frm_Sale.Show 商品销售 Case 4Frm_Stat.Show销售统计Case 5End退出系统End SelectEnd Sub(3

14、) 在时钟控件的Timer事件中添加如下代 码，实现在状态栏中显示当前系统时间的功能:Private Sub Timer1_Timer()StatusBar1.Panels.Item(4).Text = TimeEnd Sub(4)再向状态栏中添加公司名称，操作员和公 司网址信息。系统主窗体的运行界面如下图所示:3.5出入库管理模块的设计与实现该模块主要是记录和维护库存中的货物信息，其中包括对货物信息的删除、修改和保存等方面in的功能。3.5.1窗体界面设计（1）在工程中添加一个窗体，命名为Frm_Inout，将窗体Caption设置为“出入库管（2）在窗体上添加相应的控件，如下图所示。(3)通过“工程”菜单下的“部件”命令将DataGrid数据表格控件添加到工具箱中，然后 在窗体上添加1个数据表格控件DataGridl。(4)在窗体上添加一个ADO控件Adodcl，同 时将DataGridl的数据源属性DataSource设置 为 Adodcl。3.5.2程序代码实现(1)窗口载入时，将数据库中商品表数据读出。Private Sub Form_Load()Adodcl.ConnectionStr