1、 实习报告实 习 题 目: 库存销售管理系统 实习时间实习地点实习学时30实习目的学习使用vb 6.0、sql sever 2008开发数据库应用程序的一般方法及步骤；熟悉数据库，熟练使用数据库程序开发中的相关组件；对前面所学的知识做总结与回顾。实习内容使用Visual Basic 6.0开发工具开发一个库存销售管理系统，该系统采用SQL Server 2008数据库保存库存货物信息，数据库中包括货物出入库信息和商品销售等信息。该系统包括系统登录、货物出入库管理、商品销售管理和商品统计管理等功能，通过这些功能实现对库存中货物信息和销售信息进行管理。实习分工安排 独立完成模块设计、内容搭建以及数
2、据库数据连接实习要求 使用Visual Basic 6.0和SQL Server 2008开发库存销售管理系统实习主要设施设备 Visual Basic 6.0、SQL Server 2008、Win7系统的PC机一台实习成果开发并成功运行了一个简单的库存销售管理系统，该系统采用SQL Server 2008数据库保存库存货物信息，数据库中包括货物出入库信息和商品销售等信息。该系统包括系统登录、货物出入库管理、商品销售管理和商品统计管理等功能，通过这些功能实现对库存中货物信息和销售信息进行管理。实习报告1 引言1.1系统概述使用Visual Basic 6.0开发工具开发一个库存销售管理系统，
3、该系统采用SQL Server 2008数据库保存库存货物信息，数据库中包括货物出入库信息和商品销售等信息。该系统包括系统登录、货物出入库管理、商品销售管理和商品统计管理等功能，通过这些功能实现对库存中货物信息和销售信息进行管理。1.2 需求分析 使用Visual Basic 6.0开发工具开发一个库存销售管理系统，该系统采用SQL Server 2005数据库保存库存货物信息，数据库中包括货物出入库信息和商品销售等信息。该系统包括系统登录、货物出入库管理、商品销售管理和商品统计管理等功能，通过这些功能实现对库存中货物信息和销售信息进行管理。系统主要实现以下目标：l 实现系统登录及修改用户密码
4、的功能。l 对库存货物的出入库信息进行管理。l 对商品的销售信息进行管理。l 根据销售日期统计商品的销售数据。1.3 运行环境win7系统，vb 6.0以及SQL Server 20082 概要设计2.1 设计思路 1.设计数据库2.设计连接数据库的模块3.系统登陆模块设计4.系统主界面的实现5.出入库管理模块的设计与实现6.商品销售模块的设计与实现7.销售统计模块的设计与实现8.修改密码模块的设计与实现2.2 模块功能介绍连接数据库的模块：负责连接数据库系统登陆模块:用来匹配用户名和用户密码出入库管理模块:记录存货信息，储存到数据库商品销售模块:用来贩卖商品后更新数据库销售统计模块:用来对销
5、售出去的货品信息进行统计修改密码模块:提供更改用户密码服务2.3 模块结构图 系统登录模块出入库管理模块 修改密码模块 销售统计模块 商品销售模块2.4 程序流程图3详细设计1 设计数据库；建立一个名为“DB_KCGL”的数据库，根据前述的主要功能目标，需要建立3个数据表（关系）：3NF（1） Tb_InOut：保存货物的出入库信息（2） Tb_Sale：保存商品的销售信息（3） Tb_User：保存系统用户的信息2 设计连接数据库的模块（1）选择“工程”菜单下的“添加模块”命令，在应用程序中添加一个模块Module1。（2）Module1模块的实现如下：数据连接模块Public MyStrs
6、 As StringPublic DB_AdoRs As New ADODB.Recordset 后添加一个记录集对象Public 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;Pers
7、ist Security Info=False;Initial Catalog=DB_KCGL;DataSource=.End FunctionPublic Sub Main() MyStrs = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB_KCGL;Data Source=. 显示系统登录窗体 frm_xtdl.ShowEnd Sub（3）这里需要将程序的入口设置为模块中的Main()函数。选择“工程”菜单下的“工程属性”命令，在“通用”标签中进行相应设
8、置。3 系统登陆模块设计3.1系统登录对话框3.1.1对话框设计，设计图如下：3.1.2窗体设计设计的登录窗体，需要在窗体中要添加一个ADO控件，命名为Adodc1。3.1.3代码解析（1）登录窗体启动之后，我们需要将Tb_User数据表中的所有用户名称信息添加到窗体的ComboBox控件的Op_Name属性中，即实现在“操作员名称”下拉列表中可以出现系统当前的操作员信息，供登录用户选择。具体操作如下：Private Sub Form_Load()使用代码连接数据库与数据表 Adodc1.ConnectionString = MyStrs Adodc1.RecordSource = selec
9、t * from Tb_User 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）当用户在“操作员名称”下拉列表中
10、选择操作员的名称，并且在“操作员密码”文本框输入正确的密码之后，单击“确定”按钮将登录到系统中，否则将无法登录系统。具体实现如下：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
11、Then 判断数据的密码是否正确 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 =
12、Txt_Password.Text = End IfEnd Sub（3）当点击取消时，将所在窗体本身从内存中移除，所实现代码如下：Private Sub Command2_Click()Unload MeEnd Sub4 系统主界面的实现3.2.1对话框设计，设计图如下图：3.2.2窗体设计（1）在工程中添加一个窗体，将窗体命名为Frm_main，将窗体Caption属性设置为“库存管理系统”。（2）添加一个Toolbar控件，工具栏由“修改密码”、“库存管理”、“商品销售”、“销售统计”和“退出系统”5个按钮组成。（3）添加一个StatusBar控件，使得状态栏中能够显示登录操作员姓名和当前
13、系统时间等信息。（4）在主窗体上添加一个时钟控件，用于显示系统当前日期和时间信息。（5）在主窗体上添加一个Label标签控件，将其Caption属性设置为“库存管理系统”。3.2.3代码解析（1）窗体启动时，在窗体的状态栏中将显示当前系统的日期信息，并实时更新时间为当前系统的时间：Private Sub Form_Load() StatusBar1.Panels.Item(3).Text = Format(Now, yyyy年mm月dd日)Timer1.Enabled = TrueEnd Sub（2）单击窗口工具栏按钮时，将会调用系统的各个子功能模块：Private Sub Toolbar1_
14、ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Frm_Pas.Show 修改密码 Case 2 Frm_Inout.Show 库存管理 Case 3 Frm_Sale.Show 商品销售 Case 4 Frm_Stat.Show 销售统计 Case 5 End 退出系统 End SelectEnd Sub（3）在时钟控件的Timer事件中添加如下代码，实现在状态栏中显示当前系统时间的功能：Private Sub Timer1_Timer() StatusBar1.Panels.It
15、em(4).Text = TimeEnd Sub（4）再向状态栏中添加公司名称，操作员和公司网址信息。5 出入库管理模块的设计与实现对话框设计，设计图如下图：3.3.2窗体设计（1） 在工程中添加一个窗体，命名为Frm_Inout，将窗体Caption设置为“出入库管理”。（2） 在窗体上添加相应的控件。（3） 通过“工程”菜单下的“部件”命令将DataGrid数据表格控件添加到工具箱中，然后在窗体上添加1个数据表格控件DataGrid1。（4） 在窗体上添加一个ADO控件Adodc1，同时将DataGrid1的数据源属性DataSource设置为Adodc1。3.3.3代码解析（1）窗口载入
16、时，将数据库中商品表数据读出：Private Sub Form_Load() Adodc1.ConnectionString = MyStrs Adodc1.RecordSource = select * from Tb_InOut order by id Adodc1.Refresh AddTitleEnd Sub（2）其中，AddTitle函数用于向DataGrid1添加表头，实现如下：Private Sub AddTitle() DataGrid1.Columns.Item(0).Caption = 编号 DataGrid1.Columns.Item(1).Caption = 名称Dat
17、aGrid1.Columns.Item(2).Caption = 类型 DataGrid1.Columns.Item(3).Caption = 数量 DataGrid1.Columns.Item(4).Caption = 单价 DataGrid1.Columns.Item(5).Caption = 入库日期 DataGrid1.Columns.Item(6).Caption = 备注End Sub（3）点击“添加”按钮，清空编辑框，让用户输入新的待添加内容：Private Sub Command1_Click()清空文本框中的内容 Text1.Text = Text2.Text = Text3
18、.Text = Text4.Text = Text5.Text = Text6.Text = Text1.SetFocusEnd Sub（4）点击“删除”按钮，删除选中当前记录：Private Sub Command2_Click()删除库存信息 c = MsgBox(确认要删除该信息吗, 17, 提示信息) If c = vbOK Then 如果有错误则执行错误处理 On Error Resume Next Set DB_AdoRs = Cnn.Execute(Delete from Tb_InOut where id= + Text1.Text + ) 删除后刷新数据信息 Adodc1.R
19、ecordSource = select * from Tb_InOut order by id Adodc1.Refresh AddTitle End If Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End Sub（5）点击“修改”按钮，修改当前的记录信息：Private Sub Command4_Click()修改库存信息 c = MsgBox(确认修改信息吗, 33, 提示信息) If c = vbOK Then On Error Resume Next Set DB_Ado
20、Rs = Cnn.Execute(UPDATE Tb_InOut 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 Tb_InOut order by id Adodc1.Refresh AddTitle End IfEnd Sub（6）点击“保存”按钮，将
21、保存文本框中输入的货物信息：Private Sub Command5_Click()If Text1.Text = Or Text2.Text = Then MsgBox 保存的数据信息不能为空, 48, 提示信息 Else DB_AdoRs.Open select * from Tb_InOut where tb_title= + Text2.Text + , Cnn, adOpenKeyset If DB_AdoRs.RecordCount 0 Then 判断要保存的信息是否已经存在 MsgBox 该货物信息信息已经存在, 48, 提示信息 DB_AdoRs.Close Else DB_A
22、doRs.Close c = MsgBox(确认保存信息吗, 33, 提示信息) If c = vbOK Then 如果选择的是确定按钮则保存信息 Set DB_AdoRs = Cnn.Execute(insert into Tb_InOut values( & Text1 & , & Text2 & , & Text3 & , & Text4 & , _ & Text5 & , & Date & , & Text6 & ) MsgBox 信息保存成功, 64, 提示信息 Else End If 保存数据后刷新数据信息 Adodc1.RecordSource = select * from T
23、b_InOut order by id Adodc1.Refresh AddTitle End If End IfEnd Sub（7）点击退出，销毁当前窗口：Private Sub Command6_Click() Unload MeEnd Sub（8）单击DataGrid1中的相应记录，会在窗体左侧的各个编辑框中显示相应的内容：Private Sub DataGrid1_Click()On Error Resume Next If Adodc1.Recordset.RecordCount 0 Then Text1.Text = Adodc1.Recordset.Fields(0) Text2
24、.Text = Adodc1.Recordset.Fields(1) Text3.Text = Adodc1.Recordset.Fields(2) Text4.Text = Adodc1.Recordset.Fields(3) Text5.Text = Adodc1.Recordset.Fields(4) Text6.Text = Adodc1.Recordset.Fields(6) End IfEnd Sub6 商品销售模块的设计与实现对话框设计，设计图如下图：3.4.2窗体设计（1） 在工程中添加一个窗体，命名为Frm_Sale，将Caption属性设置为“商品销售管理”。（2）在窗体上
25、添加相应的控件。（3）通过“工程”菜单下的“部件”命令将DataGrid数据表格控件添加到工具箱中，然后在窗体上添加1个数据表格控件DataGrid1。（4）在窗体上添加2个ADO控件Adodc1和Adodc2，同时将DataGrid1的数据源属性DataSource设置为Adodc2。3.4.3代码解析（1）窗体启动时，将商品库存中的货物名称信息添加到下拉列表中，然后再将商品销售的数据信息显示在DataGrid1控件中：Private Sub Form_Load()使用代码连接数据库与数据表 Adodc1.ConnectionString = MyStrs Adodc1.RecordSour
26、ce = select * from Tb_InOut Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Combo1.ClearDo While Adodc1.Recordset.EOF = False 添加货物名称信息到下拉列表 Combo1.AddItem (Adodc1.Recordset.Fields(tb_title) Adodc1.Recordset.MoveNext Loop End If Adodc2.ConnectionString = MyStrs Adodc2.RecordSource = select * from tb_Sale Adodc2.Refresh AddTitleEnd Sub添加数据库字段标题的事件过程Private Sub AddTitle() DataGrid1.Columns.Item(0).Caption = 编号 DataGrid1.Columns.Item(1).Caption = 货物名称 DataGrid1.Columns.Item(2).Ca
