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

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

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

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

3、tb_mark :库存货物的备注信息，建议长度为50的varchar类列名允许Null? idnumericfia, Ojtbjitlevarchar(50)tb_stylevarchar(50)tb riuinEinttb_valu&srealtbjJatedatetimetbmarkv0rchar(5O)口ESKTQP-OOLL.bs幽的出难信息 XDESKTOP-OOUZ.dbc(2) 商品的销售信息：保存商品的销售信息id:商品销售信息的编号，主码，建议长度为18的numeric类型。tb_title :销售商品的名称，建议长度为50的varchar类型。tb_nums :建议为整型i

4、nt。tb_values:销售商品的总价，浮点类型float。tb_date ：商品销售的日期，时间日期类型datetime。DESKTOP-&OU7.dbo.品芝提兰写导 x* idtb titletb runnsnumeric(1&, 0) va rchsr(SO) irrt允许Null值tb valuertb d睥datetime(3) 系统用户的信息：保存系统用户的信息id:用户信息的编号，主码，建议长度为18的numeric类型tb_name :用户名称，建议长度为 50的varchar类型。tb_pas:用户的密码信息，建议长度为 50的varchar类型。DESKTOLOOU乙M

5、b。萦毓用户的信.泉X允许Null gtb namenumeric(18, 0) varchar(50)vardiarCI) n3.2设计连接数据库的模块需要首先建立一个连接数据库的模块，这样应用程序才能与数 据库中的数据表取得连接，将数据信息从数据表中读出到应用程 序中或经过应用程序保存到数据表中。为此，建立一个负责数据库连接的模块如下：(1) 选择“工程”菜单下的“添加模块”命令，在应用程序中 添加一个模块 Module1。(2) Module1模块的实现如下：数据连接模块Public MyStrs As StringPublic DB_AdoRs As New ADODB.Records

6、et启添加一个记录集对象Public DB_AdoRs1 As New ADODB.Recordset后添加一个记录集对象Public DB_AdoRs2 As New ADODB.Recordset后添加一个记录集对象Public Function Cnn() As ADODB.Connection 定义连接字符串函数Set Cnn = New ADODB.ConnectionCnn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecurity Info=False;Initial Catalog=DB_KCGL;Data

7、 Source=.End FunctionPublic Sub Main()MyStrs = Provider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecurity Info=False;Initial Catalog=DB_KCGL;Data Source=.显示系统登录窗体Form1.ShowEnd Sub(3) 这里需要将程序的入口设置为模块中的Main()函数。选择“工程”菜单下的“工程属性”命令，在“通用”标签中进行相 应设置。3.3系统登陆模块设计在本库存销售管理系统中，只有授权用户(管理员)能够登录 并进行库存和销售信息管理与维护

8、，因此需要一个系统登录界 面，防止非法用户登录到系统中，从而保证了应用程序的安全性 和可靠性。3.3.1登录窗体设计设计如下的登录窗体，在窗体中要添加一个ADO控件，命名为 Adodcl。(1)登录窗体启动之后，需要将系统用户的信息数据表中的所有 用户名称信息添加到窗体的ComboBox控件的Op_Name属性中,即实现在“操作员名称”下拉列表中能够出现系统当前的操作员 信息，供登录用户选择。Private Sub Form_Load()使用代码连接数据库与数据表Adodc1.ConnectionString = MyStrsAdodcI.RecordSource = select * fro

9、m 系统的用户信息”AdodcI.RefreshIf Adodcl.Recordset.RecordCount 0 ThenAdodcl.Recordset.MoveFirstOp_Name.Clear在添加数据时，首先清空控件中的内容Do While Adodc1.Recordset.EOF = False将操作员信息添加到下拉列表框控件当中Op_Name.AddItem (Adodc1.Recordset.Fields(tb_name)Adodc1.Recordset.MoveNextLoopEnd IfEnd Sub(2)当用户在“操作员名称”下拉列表中选择操作员的名称，而且在“操作员密码”文本框输入正确的密码之后，单击“确定”按钮将登录到系统中，否则将无法登录系统。具体实现如下：Private Sub Cmd_Ok_Click()Adodc1.RecordSource = select * from Tb_User where tb_name = &Op_Name.Text & ”Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 ThenMPassword = Adodc1.Recordset.Fields(tb_pas)5