产品进销存管理系统论文

产品进销存管理系统论文内容摘要：

建当日期 日期 /时间 备注 文本 100 4. 进货单 jinhuodan 进货单 jinhuodan用来保存产品入库的详细情况，结构见表。 表 表 jinhuodan的结构 字段名称 数据类型 字段大小 产品名称 文本 50 产品编号 文本 25 数量 数字 双精度型 进价 货币 金额 货币 备注 文本 100 供货商名称 文本 50 进货日期 日期 /时间 经手人 文本 25 进货单号 文 本 25 5. 客户 kehu 客户 kehu用来保存客户基础信息，结构见表。 产品进销存管理系统 19 表 表 kehu的结构 字段名称 数据类型 字段大小 客户名称 文本 50 客户编号 文本 25 负责人 文本 25 联络人 文本 25 地址 文本 50 电话 文本 25 传真 文本 25 EMail 文本 50 邮编 文本 25 付款方式 文本 25 付款天数 文本 50 客户类别 文本 10 建当日期 日期 /时间 备注 文本 100 6. 登陆 login 登陆 login用来保存用户名 基于密码，结构见表。 表 表 login的结构 字段名称 数据类型 字段大小 用户名 文本 25 密码 文本 6 7. 权限设置 quanxianshezhi 权限设置 quanxianshezhi用来保存用户的权限，结构见表 所示。 表 表 quanxianshezhi的结构 字段名称 数据类型 字段大小 用户管理 是 /否 1 初期建账 是 /否 1 数据备份 是 /否 1 数据恢复 是 /否 1 进货单 是 /否 1 出货单 是 /否 1 客户 是 /否 1 产品进销存管理系统 20 （续） 字段名称 数 据类型 字段大小 供货商 是 /否 1 入库查询 是 /否 1 出库查询 是 /否 1 库存账查询 是 /否 1 用户名 文本 25 密码 文本 6 产品进销存管理系统 21 第四章 关键技术 167。 如何实现数据备份与数据恢复 数据对一个单位是至关重要的。 数据库的失效常常导致一个单位的瘫痪。 任何系统总不可能不出故障。 数据备份对数据库的安全来说是一个重要的措施。 数据备份是指在某种介质（磁带、磁盘等）上存储数据库的拷贝。 数据恢复是指及时将数据库返回到原来的状态。 这里，用拷贝文件的原理来实现数据备份与数据恢复，所以在程序中用 到了 FileCopy语句。 其语法如下： FileCopy source , destination FileCopy语句含有以下这些命令参数，见表。 表 FileCopy语句的参数 参 数 描 述 source 必要参数。 字符串表达式，用来表示要被复制的文件名。 source可以包含目录或文件夹以及驱动器 destination 必要参数。 字符串表达式，用来表示要复制的目的文件名。 destination可以包含目录或文件夹以及驱动器 167。 如何实现权限设置 为了能达到 依不同的 用户给与不同的运行权限 的目标，在这个系统中作了权限设置的模块。 首先要在数据库 db1中建一个表 quanxianshezhi用来保存每个用户的运行权限。 在权限设置模块中可修改各个用户的权限。 当用户登陆进入系统后，其用户名将显示在主界面的 StatusBar控件的第四个窗格内，被激活的主界面窗体就可根据所显示的用户名在表 quanxianshezhi中查找相应的用户权限，根据各个字段的值来设置菜单可否使用。 从而实现权限设置。 167。 如何在 MSFlexGrid中灵活地输入数据 文本方式数据录入简单方便，但在录 入大量数据事就很麻烦了。 表单方式数据录入可解决这方面的问题，而且在输入数据失误时也容易修改。 在程序设计时，当批量录入数据，此种方法就很有优势，在这个系统的进货单和出货单部分我都使用了产品进销存管理系统 22 MSFlexGrid控件来实现。 MSFlexGrid控件是一种 Active控件，该控件提供了表格式界面，处理数据相当灵活，具有只读数据绑定、对表格数据进行显示和操作、数据分组排序、 Data控件赋值、文本自动换行等功能。 唯一缺憾的是 MSFlexGrid控件不允许动态输入数据，但这里我们可以利用 MSFlexGrid控建的文本换行功 能和 MSFlexGrid控件的一些属性、方法，结合 Text控件来实现向 MSFlexGrid控件中输入数据。 由于在进货单和出货单部分都使用了 MSFlexGrid控件，故在窗体 amainform中可以使用公用函数来代替在多个程序中频繁使用的代码（如 entercell、 moveright、 moveleft、 movereturn），只需调用所需的函数即可。 程序运行后，单击任一单元格， Text控件将移到该单元格，向 Text控件输入数据，按回车键后数据将保存到 MSFlexGrid控件单元格中。 在 MSFlexGrid控件 单元格内按回车键， Text控件移到下一单元格， Text控件可自动获得所在单元格的值。 167。 如何保存表格中的数据 运用循环语句，将表格中的数据一条一条地保存。 这里注意，再不知道循环内需要值信多少次语句时，可以用 Do循环。 但是，再知道要执行多少次时，则最好使用 For„ Next循环。 与 Do循环不同， For循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量地值就会增加或减少。 下面是以进货单为例的保存入库数据的一段代码。 Dim As New Dim rs1 As New Dim rs2 As New Set = New Set rs1 = New Provider=。 Data Source= amp。 amp。 \ select * from jinhuodan, , adOpenStatic, adLockOptimistic For i = 1 To 100 If (i, 1) And (i, 3) Then 39。 添加入库商品信息到 jinhuodan表中 If (i, 1) Then (产品名称 ) = (i, 1) If (i, 2) Then (产品编号 ) = (i, 2) 产品进销存管理系统 23 If (i, 3) Then (数量 ) = (i, 3) If (i, 4) Then (进价 ) = (i, 4) If (i, 5) Then (金额 ) = (i, 5) If (i, 6) Then (备注 ) = (i, 6) If Then (供货商名称 ) = If Then (经手人 ) = If Then (进货日期 ) = If Then (进货单号 ) = 39。 更新表 End If Next i : : For i = 1 To 100 For j = 1 To 6 (i, j) = Next j Next i 167。 如何动态统计表格中的求和项 在进行进货单、出货单的数据录入时，经常需要系统自动计算合计数量、合计金额（即整个单据的所有产品的合计数量、合计金额）。 这里还是利用循环语句。 下面是以进货单为例的计算合计入库数量、合计入库金额的一段代码。 Dim A, B As Single For i = 1 To 31 A = Val((i, 5)) + A B = Val((i, 3)) + B If (i,1)And (i,3)Then = i Next i = A: = B 39。 计算合计金额，合计数量 167。 如何实现数据的模糊查询 模糊查询时多种查询方式的一种，也是比较常用的一种查询方式。 在模糊查询中我们用到了 Like语句进行模式匹配。 产品进销存管理系统 24 第五 章 模块设计 167。 主程序界面设计 1. 实现目标 程序启动后，在登陆界面验证操作员密码后，将进入主程序界面。 主程序界面主要实现如下功能： ① 选择主界面的菜单或工具栏，调用相应程序，进行相应操作。 ② 显示日期、时间及登陆的用户名。 主程序界面如图。 图 主程序界面 2. 程序代码 Public Sub entercell() 39。 公共函数 Dim x, y As String If = 1 Then Set myform = jinhuodan If = 2 Then Set myform = chuhuodan If = 0 Or = 0 Then Exit Sub x = (, ) y = (, 0) If y Then If = 3 Then 产品进销存管理系统 25 = + 1 End If If 0 And 0 Then = = = + = + End If x = (, ) y = (, 0) p = (, ) = = 0 = Len() End If End Sub Public Sub moveright() 39。 公共函数 If = 1 Then Set myform = jinhuodan If = 2 Then Set myform = chuhuodan If Then = 0 = Len() End If If + 1 = 1 Then = + 1 Else If + 1 = 1 Then = + 1 = 1 End If End If End Sub Public Sub moveleft() 39。 公共函数 If = 1 Then Set myform = jinhuodan If = 2 Then Set myform = chuhuodan If Then = 0 产品进销存管理系统 26 = Len() End If If 11 = + 1 Then = 1 If = 0 Then = 1 Else If + 1 = 1 Then = + 1 = 1 End If End If End Sub Public Sub movereturn() 39。 公共函数 If = 1 Then Set myform = jinhuodan If = 2 Then Set myform = chuhuodan If = 10 Then = + 1 = 1 Else If + 1 = 1 Then = + 1 Else If + 1 = 1 Then = + 1 = 1 End If End If End If End Sub Private Sub Form_Load() = amp。 \ 39。 自动识别数据库路径 End Sub Private Sub Form_Activate() 39。 设置操作员权限 With If .BOF = False Then .MoveFirst 产品进销存管理系统 27 .FindFirst 用户名 like + Chr(34) + (4).Text + Chr(34) + If .NoMatch Then Else .Enabled = .Fields(用户管理 ) .Enabled = .Fields(初期建账 ) .Enabled = .Fields(数据备份 ) .Enabled = .Fields(数据恢复。