数据库课程设计库存销售管理系统Word文件下载.docx

1、库存货物的价格，实数类型real。tb_date：库存货物的入库日期，时间日期类型datetime。tb_mark：库存货物的备注信息，建议长度为50的varchar类型。（2）商品的销售信息：保存商品的销售信息商品销售信息的编号，主码，建议长度为18的numeric类型。销售商品的名称，建议长度为50的varchar类型。建议为整型int。销售商品的总价，浮点类型float。商品销售的日期，时间日期类型datetime。（3）系统用户的信息：保存系统用户的信息用户信息的编号，主码，建议长度为18的numeric类型。tb_name：用户名称，建议长度为50的varchar类型。tb_pas：

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

3、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=.End FunctionPublic Sub Main（） MyStrs = 显示系统登录窗体

4、Form1.ShowEnd Sub（3）这里需要将程序的入口设置为模块中的Main（）函数。选择“工程”菜单下的“工程属性”命令，在“通用”标签中进行相应设置。3.3 系统登陆模块设计在本库存销售管理系统中，只有授权用户（管理员）能够登录并进行库存和销售信息管理与维护，因此需要一个系统登录界面，防止非法用户登录到系统中，从而保证了应用程序的安全性和可靠性。3.3.1 登录窗体设计设计如下的登录窗体，在窗体中要添加一个ADO控件，命名为Adodc1。（1）登录窗体启动之后，需要将系统用户的信息数据表中的所有用户名称信息添加到窗体的ComboBox控件的Op_Name属性中，即实现在“操作员名称”

5、下拉列表中能够出现系统当前的操作员信息，供登录用户选择。Private Sub Form_Load（）使用代码连接数据库与数据表 Adodc1.ConnectionString = MyStrs Adodc1.RecordSource = select * from 系统的用户信息 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Op_Name.Clear 在添加数据时，首先清空控件中的内容 Do While Adodc1.Recordset.EOF = False 将操作员信息添

6、加到下拉列表框控件当中 Op_Name.AddItem （Adodc1.Recordset.Fields（tb_name） Adodc1.Recordset.MoveNext Loop End If（2）当用户在“操作员名称”下拉列表中选择操作员的名称，而且在“操作员密码”文本框输入正确的密码之后，单击“确定”按钮将登录到系统中，否则将无法登录系统。具体实现如下：Private Sub Cmd_Ok_Click（）select * from Tb_User where tb_name = & Op_Name.Text & MPassword = Adodc1.Recordset.Fields（

7、tb_pas） If Txt_Password.Text = MPassword Then 判断数据的密码是否正确 Name1 = Op_Name.Text Frm_Main.StatusBar1.Panels.Item（2）.Text = 当前操作员： + Adodc1.Recordset.Fields（ Frm_Main.Show 经过身份验证则显示主窗体，登录到系统当中 Unload Me Else MsgBox 密码不正确,请您确认后重新输入, , 提示信息 Txt_Password.Text = Txt_Password.SetFocus对不起 没有此用户的信息 Op_Name.Te

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

9、系统的日期信息： StatusBar1.Panels.Item（3）.Text = Format（Now, yyyy年mm月dd日（2）单击窗口工具栏按钮时，将会调用系统的各个子功能模块：Private Sub Toolbar1_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 E

10、nd 退出系统 End Select（3）在时钟控件的Timer事件中添加如下代码，实现在状态栏中显示当前系统时间的功能：Private Sub Timer1_Timer（） StatusBar1.Panels.Item（4）.Text = Time（4）再向状态栏中添加公司名称，操作员和公司网址信息。系统主窗体的运行界面如下图所示：3.5 出入库管理模块的设计与实现该模块主要是记录和维护库存中的货物信息，其中包括对货物信息的删除、修改和保存等方面的功能。3.5.1 窗体界面设计（1）在工程中添加一个窗体，命名为Frm_Inout，将窗体Caption设置为“出入库管理”。（2）在窗体上添加相

11、应的控件，如下图所示。（3）经过“工程”菜单下的“部件”命令将DataGrid数据表格控件添加到工具箱中，然后在窗体上添加1个数据表格控件DataGrid1。（4）在窗体上添加一个ADO控件Adodc1，同时将DataGrid1的数据源属性DataSource设置为Adodc1。3.5.2 程序代码实现（1）窗口载入时，将数据库中商品表数据读出。select * from 货物的出入库信息 order by id AddTitle其中，AddTitle函数用于向DataGrid1添加表头，实现如下：添加数据库字段标题的事件过程Private Sub AddTitle（） DataGrid1.C

12、olumns.Item（0）.Caption = 编号 DataGrid1.Columns.Item（1）.Caption = 名称 DataGrid1.Columns.Item（2）.Caption = 类型 DataGrid1.Columns.Item（3）.Caption = 数量 DataGrid1.Columns.Item（4）.Caption = 单价 DataGrid1.Columns.Item（5）.Caption = 入库日期 DataGrid1.Columns.Item（6）.Caption = 备注（2）点击“添加”按钮，清空编辑框，让用户输入新的待添加内容Private

13、 Sub Command1_Click（）清空文本框中的内容 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text1.SetFocus（3）点击“删除”按钮，删除选中当前记录。Private Sub Command2_Click（）删除库存信息 c = MsgBox（确认要删除该信息吗, 17, If c = vbOK Then如果有错误则执行错误处理 On Error Resume Next Set DB_AdoRs = Cnn.Execute（Delete from 货物的出入库

14、信息 where id= + Text1.Text + MsgBox 数据删除成功, 64, 删除后刷新数据信息（4）点击“修改”按钮，修改当前的记录信息。Private Sub Command3_Click（）修改库存信息确认修改信息吗, 33, UPDATE 货物的出入库信息 SET tb_title= + Text2 + ,tb_style= + Text3 + ,tb_nums= + Text4 + ,tb_values= _ + Text5 + ,tb_mark= + Text6 + where id=数据修改成功（5）点击“保存”按钮，将保存文本框中输入的货物信息。Private

15、Sub Command4_Click（）If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = Then保存的数据信息不能为空, 48, DB_AdoRs.Open select * from 货物的出入库信息 where tb_title= + Text2.Text + , Cnn, adOpenKeyset If DB_AdoRs.RecordCount 0 Then 判断要保存的信息是否已经存在该货物信息信息已经存在 DB_AdoRs.Close确认保存

16、信息吗 If c = vbOK Then 如果选择的是“确定”按钮则保存信息insert into 货物的出入库信息 values（ Text1 &, Text2 & Text3 &, Text4 & Text5 & Date & Text6 &）信息保存成功保存数据后刷新数据信息End Sub（6）点击退出，销毁当前窗口。Private Sub Command6_Click（）（7）单击DataGrid1中的相应记录，会在窗体左侧的各个编辑框中显示相应的内容。Private Sub DataGrid1_Click（）On Error Resume Next Text1.Text = Adod

17、c1.Recordset.Fields（0） Text2.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） 窗体的运行界面如下图所示：3.6 商品销售模块的设计与实现在“商品销售管理”窗口中的“销售商品”下拉列表中选择要销售的商品之后，该商品的基本信息将显示在窗

18、体中相应的文本框中，在输入销售数量和实收金额后，单击“确认销售”按钮完成销售商品的操作。3.6.1 窗体界面设计（1）在工程中添加一个窗体，命名为Frm_Sale，将Caption属性设置为“商品销售管理”。（4）在窗体上添加2个ADO控件Adodc1和Adodc2，同时将DataGrid1的数据源属性DataSource设置为Adodc2。3.6.2 程序代码实现（1）窗体启动时，将商品库存中的货物名称信息添加到下拉列表中，然后再将商品销售的数据信息显示在DataGrid1控件中。 Adodc2.ConnectionString = MyStrs Adodc2.RecordSource =

19、select * from 商品的销售信息 order by id Adodc2.Refreshselect * from 货物的出入库信息 Combo1.Clear 将货物出入库信息添加到下拉列表框控件当中 Combo1.AddItem （Adodc1.Recordset.Fields（tb_title销售数量销售总价销售日期（2）选择下拉列表中的商品之后，该商品的详细信息将显示在窗体中相对应的文本框中。商品详细信息Private Sub Combo1_Click（）Adodc1.RecordSource = select * from 货物的出入库信息 where tb_title = C

20、ombo1.Text & Text1.Text = Adodc1.Recordset.Fields（id Text2.Text = Adodc1.Recordset.Fields（tb_style Text3.Text = Adodc1.Recordset.Fields（tb_nums Text4.Text = Adodc1.Recordset.Fields（tb_values Text5.Text = Adodc1.Recordset.Fields（tb_mark Text7.Text = Text8.Text = Text9.Text = （3）单击“确认销售”按钮，将完成销售商品的操作。

21、（4）当用户输入销售数量后并将输入焦点移开后，需要实时更新商品详细信息中的数量信息，即在原有数量的基础上减去用户输入的销售数量。（3）和（4）的代码： Dim a As Integer Dim b As Integer a = Val（Text7.Text） b = Val（Text4.Text * Text6.Text） If Text6.Text = Or Text7.Text = 请补全信息！ If a b Then信息输入有误，请重新输入！ Text8.Text = Text4.Text * Text6.Text Text9.Text = Text7.Text - Text8.Text Text3.Te