小型企业进销存管理系统设计

小型企业进销存管理系统摘要：随着我国市场经济的蓬勃发展和人们对计算机的普遍应用，批发、零售行业正处在一个高速发展的时期。

行业的快速发展必然导致竞争的加剧，要想在激烈的市场竞争中谋求发展，客观上要求企业必须加强部管理，提高运营效率。

而我国大部分小型批发、零售企业在信息机制上还没有摆脱原有的手工模式，企业部没有形成完善的、有效的信息化管理机制，企业发展的动力不足，从而影响企业的持续、稳定、快速的发展。

本文介绍了笔者编写的一个用于小型企业进销存管理系统。

其中拥有功能比较全面的进销存管理系统。

该系统包括用户注册和登录、日常业务管理、库存管理、查询统计管理、应收应付管理、统计报表管理、基础信息管理和系统设置几个模块。

Abstract:关键字：进销存管理查询信息管理日常业务一、引言随着计算机的普遍应用，企业对部机制形成完善的、有效的信息化管理机制，是使企业的各项管理实现现代化，在确定了本系统的设计目标之后，特开发了本管理系统，来完善企业部的管理机制。

二、开发和运行的环境开发工具：Visual Basic 6.0中文版，后台所用数据库是SQL2000，同时建立ODBC数据库接口。

运行环境：1、运行 Intel 或兼容的 Pentium、Pentium Pro 或 Pentium II 处理器的计算机上运作。

处理器必须以最低 166 MHz 的速度运行。

存要求最低 64 MB。

2、SQL Server 2000，Visual Basic 6.0三、正文1、流程分析.. ..... . .... . ....2、数据库的设计（1）E-R图:商品出入库：商品销售、退货：... . .（2）关系模型(数据库的结构)本单位信息表：员工信息表：（员工编号为主键）权限设置信息表：供应商信息表：（供应商编号为主键）商品入库信息表：（商品编号为主键）供货退货信息表：（商品编号为主键）供应商账款往来信息表：（供应商全称为主键）.. ..3、总体设计4、 主要功能模块分析一）、系统登录模块.F..T.Start选择用户名并输入密码符合条件吗？End进入系统在数据库中验证用户的密码。

功能：用户登录验证成功后进入进销存管理系统。

如是第一次直接进入系统设置操作员及密码。

说明：在窗体中需要Adodc和DataCombo控件，则需要加载“Microsoft ADO Data Control6.0(SP4)(OLEDB)”和“Microsoft DataList Control 6.0(SP3) (OLEDB)”部件，将控件添加到工具箱。

二）、日常业务管理(一)、商品入库、出库商品入库商品出库(二)、商品销售、退货商品销售销售退货 (一)、商品入库、出库流程图：.F..T..F..T.功能：完成商品入库工作，付供应商货款方式可采用现金和支票，并可挂帐。

说明：入库采用智能化表单录入，可一次录入多种商品，在“商品名称”栏输入商品名称或简称的前几个字或找〈PageDown 〉键，系统将自动利用表格显示相关商品信息。

使用方向键〈↑〉、〈↓〉 选择商品，按回车键，该商品信息将自动录入到表格中，Start 登记选择供应商，经手人，入库仓号，商品信息等 信息是否输入完整？End 是否保存？只需输入如哭数量（系统自动计算商品金额），回车后即可入库下一商品。

系统自动生成入库票号，可利用组合键选择供应商信息、经手人、仓库。

自动统计商品入库功能：完成退还给供应商货物的工作。

说明：同商品入库工作相似，同商品入库成正反关系。

(二)功能：完成商品销售工作，客户货款方式可采用现金和支票，并可挂帐。

说明：销售采用录入方式同商品入库录入方式，自动生成销售票号，自动统计商品销售品种、数量、金额、计算折扣、税率。

但如果销售商品数量大于库存商品数量时，此笔交易将被取消，所以在商品销售模中销售的商品数量一定要小于等于该商品的库存数量。

功能：完成客户退货的工作。

说明：退货采用录入方式同商品销售。

功能：四）、库存管理（一）、库存商品查询功能：查询商品库中所有商品的信息。

说明：可选择不同字段查询商品库存信息，并支持模糊查询和键盘操作。

（二）、库存盘点功能：查询各仓库中商品库存情况。

说明：选择仓库名称、查询该仓库中库存商品的情况。

五）、查询统计管理（一）、入库查询功能：查询商品入库信息。

说明：选择字段查询商品入库信息，支持模糊查询，按任意时间段查询商品入库信息，统计入库品种、入库数量、入库金额。

（二）、出库查询功能：查询退供应商货物信息。

说明：选择字段查询商品入库信息，支持模糊查询，按任意时间段查询商品入库信息，统计入库品种、入库数量、入库金额。

（三）、销售查询功能：查询商品销售信息。

说明：选择任意字段、不同条件查询商品销售信息，也可按任意时间段查询商品销售信息，支持模糊查询和精确查询，可统计销售品种、数量、金额。

（四）、销售退货功能：查询客户退货信息。

说明：选择任意字段、不同条件查询商品销售信息，也可按任意时间段查询商品销售信息，支持模糊查询和精确查询，可统计销售品种、数量、金额。

六）、应收应付管理（一）、付款单功能：实现向供应商付款的功能。

说明：可查询与供应商之间的往来帐款信息，提供供应商列表选择，并计算欠供应商的累计余额。

（二）、收款单功能：实现向客户收款的功能。

说明：可查询与客户之间的往来帐款信息，提供客户列表选择、并计算应收客户累计余额。

（三）、应收款查询功能：查询客户付款信息。

说明：查询任意时间段与客户往来帐款信息，输入或选择客户名称查询应收款，统计欠款金额，尚欠余额。

（四）、应付款查询功能：查询向供应商付款信息。

说明：查询任意时间段与供应商之间的往来帐款信息，提供供应商列表供用户选择、支持键盘操作，统计欠款余额，付款金额，尚欠余额。

七）、统计报表管理（一）、销售日报表功能：查询当天的商品销售日报，同时统计商品销售品种、销售数量、销售金额。

（二）、销售月报表功能：查询任意一个月或任意时间段的商品销售报表，统计销售品种、销售数量、销售余额。

（三）、客户销售报表功能：统计所有客户销售商品的情况。

说明：可以按商品名称、仓库、职员或任意时间段统计所有客户销售商品的情况，采用组合式查询方法。

（四）、职员销售报表功能：统计公司所有职员销售商品的情况。

说明：可以按商品名称、仓库或客户名称或任意时间段统计所有职员销售商品的情况。

八）、基础信息管理（一）、商品信息管理功能：完成商品基本信息的录入、保存、修改、删除，支持键盘操作，选择字段查询商品基本信息，并可列表浏览商品信息。

说明：录入时单击“登记”按钮，将自动生成8位商品编号，在处理数据时，列表浏览商品信息不可用。

（二）、职员信息管理功能：完成职员基本信息的录入、保存、修改、删除，可按任意字段查询职员基本情况，支持列表浏览职员信息。

说明：登记职员信息时自动生成职员编号。

（三）、仓库信息管理功能：完成仓库基本信息的录入、保存、修改、删除，可按列表方式查询仓库信息。

（四）、供应商信息管理功能：完成供应商基本信息的录入、保存、修改、删除，可以按任意字段查询供应商基本信息。

（五）、客户信息管理功能：完成客户基本信息的录入、保存、修改、删除，可以按任意字段查询客户基本信息。

九）、系统设置（一）、本单位定义功能：定义本单位的基本信息，可以修改。

（二）、操作员及密码功能：操作员信息的添加、修改、删除、密码的修改及操作员信息浏览。

（三）、权限设置功能：对操作员进行不同的权限设置。

（四）、系统初始化功能：对系统数据库进行清空记录说明：第一次进入系统时清空测试数据，可以选择初始化对象。

十）、帮助（一）、帮助功能：帮助提示信息。

（二）、关于功能：说明及查看计算机系统信息。

四、各个重要模块的程序简介1.公用模块Option ExplicitPublic Functionn() As Stringn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Gcgl;Initial Catalog=Gcgl"End FunctionPublic Sub Enter(KeyCode As Integer)If KeyCode = vbKeyReturn ThenSendKeys "{Tab}"End IfEnd Sub2.系统登录模块Dim TIM As Integer '声明一个整型变量Dim rs1 As New ADODB.Recordset 定义一个数据集对象Dim myval As StringPrivate Sub Form_Activate()'显示软件名称及版本信息Me.Caption = App.Title & "版本： V" & App.Major & "." & App.Minor & "." & App.Revision rs1.Open "select * from qxsz ",n, adOpenKeyset, adLockOptimistic '打开数据库If rs1.RecordCount = 0 Thenmyval = MsgBox("进入系统后先设置操作员和操作员权限！",0")Load frm_mainfrm_main.ShowUnload MeElseDataCombo1.SetFocusEnd Ifrs1.CloseEnd SubPrivate Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Text2.SetFocusEnd SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn ThenCmd1.Visible = TrueCmd1.SetFocusEnd IfEnd SubPrivate Sub cmd1_Click()rs1.Open "select * from qxsz where 操作员名称='" & DataCombo1.BoundText & "'",n, adOpenKeyset, adLockOptimisticIf rs1.RecordCount > 0 Thenfrm_main.rkd.Enabled = rs1.Fields("商品入库")frm_main.Toolbar1.Buttons(1).Enabled = rs1.Fields("商品入库")frm_main.spxs.Enabled = rs1.Fields("商品销售")frm_main.Toolbar1.Buttons(8).Enabled = rs1.Fields("商品销售")frm_main.rktd.Enabled = rs1.Fields("退货返厂")frm_main.xsth.Enabled = rs1.Fields("销售退货")frm_main.Toolbar1.Buttons(10).Enabled = rs1.Fields("销售退货")frm_main.kccx.Enabled = rs1.Fields("库存查询")frm_main.Toolbar1.Buttons(5).Enabled = rs1.Fields("库存查询")frm_main.kcpd.Enabled = rs1.Fields("库存盘点")frm_main.rkcx.Enabled = rs1.Fields("入库查询")frm_main.Toolbar1.Buttons(3).Enabled = rs1.Fields("入库查询")frm_main.ckcx.Enabled = rs1.Fields("退货返厂查询")frm_main.xscx.Enabled = rs1.Fields("销售查询")frm_main.Toolbar1.Buttons(12).Enabled = rs1.Fields("销售查询")frm_main.xsthcx.Enabled = rs1.Fields("销售退货查询")frm_main.fkd.Enabled = rs1.Fields("付款单")frm_main.Toolbar1.Buttons(15).Enabled = rs1.Fields("付款单")frm_main.skd.Enabled = rs1.Fields("收款单")frm_main.Toolbar1.Buttons(16).Enabled = rs1.Fields("收款单")frm_main.skcx.Enabled = rs1.Fields("应收款查询")frm_main.fkcx.Enabled = rs1.Fields("应付款查询")frm_main.xsrbb.Enabled = rs1.Fields("销售日报表")frm_main.xsybb.Enabled = rs1.Fields("销售月报表")frm_main.khxsbb.Enabled = rs1.Fields("客户销售报表")frm_main.zyxsbb.Enabled = rs1.Fields("职员销售报表")frm_main.spinf.Enabled = rs1.Fields("商品信息管理")frm_main.yginf.Enabled = rs1.Fields("员工信息管理")frm_main.ckinf.Enabled = rs1.Fields("仓库信息管理")frm_main.gysinf.Enabled = rs1.Fields("¹供应商信息管理")frm_main.Toolbar1.Buttons(21).Enabled = rs1.Fields("¹供应商信息管理")frm_main.khinf.Enabled = rs1.Fields("客户信息管理")frm_main.Toolbar1.Buttons(19).Enabled = rs1.Fields("客户信息管理")frm_main.bdwdy.Enabled = rs1.Fields("本单位定义")frm_main.czysz.Enabled = rs1.Fields("操作员及密码")frm_main.qxsz.Enabled = rs1.Fields("权限设置")frm_main.xtcsh.Enabled = rs1.Fields("系统初始化")Dim MESSAGE As StringTextime.Text = TIMAdodc1.RecordSource = "select * from qxsz where 操作员名称='" + DataCombo1.BoundText + "'"Adodc1.RefreshIf DataCombo1.BoundText <> "" And Text2.Text = Trim(Adodc1.Recordset.Fields("密码")) ThenLoad frm_mainfrm_main.Showfrm_main.St1.Panels(3).Text = Trim(DataCombo1.Text)Unload MeElseIf TIM = 3 ThenMESSAGE = MsgBox("密码输入错误,请向系统管理员查询!", 0, "")If MESSAGE = vbOK Then EndEnd IfIf DataCombo1.BoundText = "" ThenMsgBox ("请输入操作员!")DataCombo1.SetFocusElseIf Trim(DataCombo1.BoundText) <> Trim(Adodc1.Recordset.Fields("操作员名称")) ThenMsgBox ("查无此操作员,请重新输入操作员!")DataCombo1.SetFocusElseIf Text2.Text <> Adodc1.Recordset.Fields("密码") ThenMsgBox ("密码错误,请重新输入密码!")TIM = TIM + 1Text2.SetFocusEnd IfEnd IfEnd IfEnd IfEnd Ifrs1.CloseEnd SubPrivate Sub cmd2_Click()EndEnd Sub3.主程序模块Private Sub ckcx_Click()Load main_cxtj_ckcxmain_cxtj_ckcx.Showfrm_main.Enabled = FalseEnd SubPrivate Sub Form_Load()Me.Caption = App.Title & " 版本： V" & App.Major & "." & App.Minor & "." & App.RevisionDim i As IntegerFor i = 0 To 1Label1(i).Caption = App.TitleNext iLabel2.Caption = "版本： V" & App.Major & "." & App.Minor & "." & App.Revision End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.KeyCase Is = "rk"rkd_ClickCase Is = "kc"kccx_ClickCase Is = "xscx"xscx_ClickCase Is = "rkcx"rkcx_ClickCase Is = "fkd"fkd_ClickCase Is = "kh"khinf_ClickCase Is = "gys"gysinf_ClickCase Is = "bz"bz1_ClickCase Is = "xs"spxs_ClickCase Is = "xsth"xsth_ClickCase Is = "skd"skd_ClickCase Is = "tc"EndEnd SelectEnd SubPrivate Sub Timer1_Timer()St1.Panels(2).Text = Format(Date, "long date") & " " & Time End SubPrivate Sub rkd_Click()Load main_rcyw_rkmain_rcyw_rk.Showfrm_main.Enabled = FalseEnd SubPrivate Sub rktd_Click()Load main_rcyw_rktdmain_rcyw_rktd.Showfrm_main.Enabled = FalseEnd SubPrivate Sub kccx_Click()Load main_kcgl_kccxmain_kcgl_kccx.Showfrm_main.Enabled = FalseEnd SubPrivate Sub kcpd_Click()Load main_kcgl_kcpdmain_kcgl_kcpd.Showfrm_main.Enabled = FalseEnd SubPrivate Sub xscx_Click()Load main_cxtj_xscxmain_cxtj_xscx.Showfrm_main.Enabled = FalseEnd SubPrivate Sub rkcx_Click()Load main_cxtj_rkcxmain_cxtj_rkcx.Showfrm_main.Enabled = FalseEnd SubPrivate Sub fkd_Click()Load main_ysyf_fkdmain_ysyf_fkd.Showfrm_main.Enabled = FalseEnd SubPrivate Sub skcx_Click()Load main_ysyf_skcxmain_ysyf_skcx.Showfrm_main.Enabled = FalseEnd SubPrivate Sub fkcx_Click()Load main_ysyf_fkcxmain_ysyf_fkcx.Showfrm_main.Enabled = False End SubPrivate Sub xsrbb_Click() Load main_tjbb_xsrbbmain_tjbb_xsrbb.Showfrm_main.Enabled = False End SubPrivate Sub xsthcx_Click() Load main_cxtj_xsthcxmain_cxtj_xsthcx.ShowEnd SubPrivate Sub xsybb_Click() Load main_tjbb_xsybbmain_tjbb_xsybb.Showfrm_main.Enabled = False End SubPrivate Sub khxsbb_Click() Load main_tjbb_khxsbbmain_tjbb_khxsbb.Showfrm_main.Enabled = False End SubPrivate Sub zyxsbb_Click() Load main_tjbb_zyxsbbmain_tjbb_zyxsbb.Showfrm_main.Enabled = False End SubPrivate Sub spinf_Click() Load main_jbxx_spinfmain_jbxx_spinf.Showfrm_main.Enabled = False End SubPrivate Sub yginf_Click() Load main_jbxx_yginfmain_jbxx_yginf.Showfrm_main.Enabled = False End SubPrivate Sub ckinf_Click() Load main_jbxx_ckinfmain_jbxx_ckinf.Showfrm_main.Enabled = FalseEnd SubPrivate Sub gysinf_Click() Load main_jbxx_gysmain_jbxx_gys.Showfrm_main.Enabled = FalseEnd SubPrivate Sub khinf_Click() Load main_jbxx_khmain_jbxx_kh.Showfrm_main.Enabled = FalseEnd SubPrivate Sub bdwdy_Click() Load main_bdwdymain_bdwdy.Showfrm_main.Enabled = FalseEnd SubPrivate Sub czysz_Click() Load main_xtsz_czyszmain_xtsz_czysz.Showfrm_main.Enabled = FalseEnd SubPrivate Sub qxsz_Click() Load main_xtsz_qxszmain_xtsz_qxsz.Showfrm_main.Enabled = FalseEnd SubPrivate Sub xtcsh_Click() Load main_xtsz_xtcshmain_xtsz_xtcsh.Showfrm_main.Enabled = FalseEnd SubPrivate Sub bz1_Click()Load frmTipfrmTip.Showfrm_main.Enabled = FalseEnd SubPrivate Sub gy_Click()Load frmAboutfrmAbout.Showfrm_main.Enabled = FalseEnd SubPrivate Sub spxs_Click() Load main_rcyw_xsmain_rcyw_xs.Showfrm_main.Enabled = FalseEnd SubPrivate Sub xsth_Click()Load main_rcyw_xsthmain_rcyw_xsth.Showfrm_main.Enabled = FalseEnd SubPrivate Sub skd_Click()Load main_ysyf_skdmain_ysyf_skd.ShowEnd SubPrivate Sub exit_Click()EndEnd Sub4.商品入库模块'定义数据集对象Dim rs1 As New ADODB.RecordsetDim rs2 As New ADODB.RecordsetDim rs3 As New ADODB.RecordsetDim rs4 As New ADODB.RecordsetDim rs5 As New ADODB.RecordsetDim s, y, i, jPublic Sub yfje_exp()yfje.Text = Format((Val(hjje.Text) * (Val(zk.Text) / 10)) + (Val(yfje.Text) * (Val(sl.Text) / 100)), "0.00")End SubPrivate Sub Form_Activate()rq.Text = DateCombo1.AddItem ("现金"): Combo1.AddItem ("转帐支票")Combo1.AddItem ("汇票"): Combo1.ListIndex = 0Me.Caption = Me.Caption & "操作员： & frm_main.St1.Panels(3).TextEnd SubPrivate Sub Form_Load()MS1.Rows = 102: MS1.Cols = 9s = Array("300", "2100", "1200", "1800", "1500", "765", "1200", "1200", "1200") y = Array("xh", "商品名称", "商品编号", "规格", "产地", "单位", "进价", "数量", "金额")For i = 0 To 8MS1.ColWidth(i) = s(i): MS1.TextMatrix(0, i) = y(i)Next iMS1.FixedRows = 1: MS1.FixedCols = 1For i = 1 To 101MS1.TextMatrix(i, 0) = iNext irq.Text = DateEnd SubPrivate Sub Form_Unload(Cancel As Integer)frm_main.Enabled = TrueEnd SubPrivate Sub ck_Change()ck.Text = Trim(ck.BoundText)End SubPrivate Sub ck_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn ThenMS1.Row = 1: MS1.Col = 1Text1.Visible = TrueText1.SetFocusEnd IfEnd SubPrivate Sub gys_Change()DataList1.ReFillAdodc1.RecordSource = "select * from gys where 供应商全称 like '" + Trim(gys.Text) + "'+ '%'or 简称 like '" + Trim(gys.Text) + "'+ '%'"Adodc1.RefreshIf gys.Text <> "" And Adodc1.Recordset.RecordCount > 0 Then DataList1.Visible = TrueEnd SubPrivate Sub gys_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn ThenDataList1.Visible = Falsejsr.SetFocusEnd IfIf KeyCode = vbKeyPageDown ThenDataList1.ReFillDataList1.Visible = TrueDataList1.SetFocusEnd IfEnd SubPrivate Sub grid1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn ThenWith Adodc2.RecordsetIf .RecordCount > 0 ThenIf .Fields("商品名称") <> "" ThenIf .Fields("商品名称") <> "" Then MS1.TextMatrix(MS1.Row, 1) = Trim(.Fields("商品名称"))If .Fields("商品编号") <> "" Then MS1.TextMatrix(MS1.Row, 2) = Trim(.Fields("商品编号"))If .Fields("规格") <> "" Then MS1.TextMatrix(MS1.Row, 3) = Trim(.Fields("规格"))If .Fields("产地") <> "" Then MS1.TextMatrix(MS1.Row, 4) = Trim(.Fields("产地"))If .Fields("单位") <> "" Then MS1.TextMatrix(MS1.Row, 5) = Trim(.Fields("单位"))If .Fields("进价") <> "" Then MS1.TextMatrix(MS1.Row, 6) = .Fields("进价") Text1.Text = MS1.TextText1.SetFocusMS1.Col = 6grid1.Visible = FalseElseMsgBox ("无数据选择!!!")grid1.Visible = FalseText1.SetFocusEnd IfEnd IfEnd WithText1.SetFocusEnd IfIf KeyCode = vbKeyEscape Thengrid1.Visible = FalseText1.SetFocusEnd IfEnd SubPrivate Sub DataList1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Thengys.Text = Trim(DataList1.BoundText)DataList1.Visible = FalseEnd IfEnd SubPrivate Sub jsr_Change()jsr.Text = Trim(jsr.BoundText)End SubPrivate Sub jsr_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then ck.SetFocusEnd SubPrivate Sub MS1_Click()If MS1.Row >= 1 And MS1.TextMatrix(MS1.Row - 1, 7) <> "" ThenText1.Visible = TrueText1.SetFocusEnd IfEnd SubPrivate Sub MS1_entercell()Dim X As String, y As String, p As StringIf MS1.CellWidth <= 0 Or MS1.CellHeight <= 0 Then Exit SubX = MS1.TextMatrix(MS1.FixedRows, MS1.Col): y = MS1.TextMatrix(MS1.Row, 0)If y <> "" ThenIf MS1.Col - MS1.LeftCol <= 3 Then MS1.LeftCol = MS1.LeftCol + 1If MS1.CellWidth > 0 And MS1.CellHeight > 0 ThenText1.Width = MS1.CellWidth: Text1.Height = MS1.CellHeightText1.Left = MS1.CellLeft + MS1.Left: Text1.Top = MS1.CellTop + MS1.TopEnd IfX = MS1.TextMatrix(MS1.FixedRows, MS1.Col): y = MS1.TextMatrix(MS1.Row, 0)p = MS1.TextMatrix(MS1.Row, MS1.Col)Text1.Text = MS1.TextText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End IfEnd SubPrivate Sub MS1_RowColChange()For i = 1 To 101If MS1.TextMatrix(i, 1) <> "" ThenMS1.TextMatrix(MS1.Row, 6) = Format(MS1.TextMatrix(MS1.Row, 6), "#0.00")MS1.TextMatrix(MS1.Row, 8) = Val(MS1.TextMatrix(MS1.Row, 7)) * Val(MS1.TextMatrix(MS1.Row, 6))MS1.TextMatrix(MS1.Row, 8) = Format(MS1.TextMatrix(MS1.Row, 8), "#0.00")End IfNext iEnd SubPrivate Sub sf_Change()wf.Text = Format((Val(yfje.Text) - Val(sf.Text)), "0.00")End SubPrivate Sub sl_Change()Call yfje_expEnd SubPrivate Sub sl_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Combo1.SetFocusEnd SubPrivate Sub zk_Change()Call yfje_expEnd SubPrivate Sub zk_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then sl.SetFocusEnd SubPrivate Sub hjje_Change()Call yfje_expwf.Text = Format((Val(yfje.Text) - Val(sf.Text)), "0.00")End SubPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then sf.SetFocusEnd SubPrivate Sub sf_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Combc.SetFocusEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn ThenIf MS1.Col = 1 ThenWith Adodc2.RecordsetIf Adodc2.Recordset.RecordCount > 0 ThenIf .Fields("商品名称") <> "" Then MS1.TextMatrix(MS1.Row, 1) = Trim(.Fields("商品名称"))If .Fields("商品编号") <> "" Then MS1.TextMatrix(MS1.Row, 2) = Trim(.Fields("商品编号"))If .Fields("¹规格") <> "" Then MS1.TextMatrix(MS1.Row, 3) = Trim(.Fields("规格"))If .Fields("产地") <> "" Then MS1.TextMatrix(MS1.Row, 4) = Trim(.Fields("产地"))If .Fields("单位") <> "" Then MS1.TextMatrix(MS1.Row, 5) = Trim(.Fields("单位"))If .Fields("进价") <> "" Then MS1.TextMatrix(MS1.Row, 6) = .Fields("进价") Text1.SetFocusText1.Text = MS1.Textgrid1.Visible = FalseMS1.Col = 5End IfEnd WithEnd IfIf MS1.Col = 8 ThenMS1.Row = MS1.Row + 1MS1.Col = 1ElseIf MS1.Col + 1 <= MS1.Cols - 1 ThenMS1.Col = MS1.Col + 1ElseIf MS1.Row + 1 <= MS1.Rows - 1 ThenMS1.Row = MS1.Row + 1MS1.Col = 1End IfEnd IfEnd IfEnd IfIf KeyCode = vbKeyUp ThenIf MS1.Row > 1 Then MS1.Row = MS1.Row - 1End IfIf KeyCode = vbKeyDown ThenIf MS1.Row < 99 Then MS1.Row = MS1.Row + 1 End IfIf KeyCode = vbKeyLeft ThenIf Text1.Text <> "" ThenText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End IfIf MS1.Col - 8 <= MS1.Cols + 1 ThenMS1.Col = MS1.Col - 1If MS1.Col = 0 Then MS1.Col = 1ElseIf MS1.Row + 1 <= MS1.Row - 1 ThenMS1.Row = MS1.Row + 1MS1.Col = 1End IfEnd IfEnd IfIf KeyCode = vbKeyRight ThenIf Text1.Text <> "" ThenText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End IfIf MS1.Col + 1 <= MS1.Cols - 1 ThenMS1.Col = MS1.Col + 1ElseIf MS1.Row + 1 <= MS1.Rows - 1 ThenMS1.Row = MS1.Row + 1MS1.Col = 1End IfEnd IfEnd IfIf KeyCode = vbKeyPageDown And MS1.Col = 1 Then Adodc2.RecordSource = "select * from spinf " Adodc2.Refreshgrid1.Visible = Truegrid1.SetFocusEnd IfEnd SubPrivate Sub Text1_Change()MS1.Text = Text1.TextIf MS1.Col = 1 ThenIf Text1.Text = "" Thengrid1.Visible = FalseElseAdodc2.RecordSource = "select * from spinf where (商品名称 like '" + Text1.Text + "'+ '%')or( 简称 like '" + Text1.Text + "'+'%')"Adodc2.RefreshIf Adodc2.Recordset.RecordCount > 0 Thengrid1.Visible = TrueText1.SetFocusEnd IfEnd IfEnd IfIf MS1.Col = 3 ThenIf MS1.TextMatrix(MS1.Row, 1) = "" ThenMsgBox ("无商品名称，请重新输入!!!")MS1.Col = 1End IfEnd IfIf MS1.Col = 6 Then MS1.TextMatrix(MS1.Row, 8) = Val(MS1.TextMatrix(MS1.Row, 7)) * Val(MS1.TextMatrix(MS1.Row, 6))If MS1.Col = 7 Then MS1.TextMatrix(MS1.Row, 8) = Val(MS1.TextMatrix(MS1.Row, 7)) * Val(MS1.TextMatrix(MS1.Row, 6))Dim a, b As SingleFor i = 1 To 101If MS1.TextMatrix(i, 1) <> "" And MS1.TextMatrix(i, 7) <> "" Thenpz.Text = ia = Val(MS1.TextMatrix(i, 8)) + ab = Val(MS1.TextMatrix(i, 7)) + bEnd IfNext ihjsl.Text = b: hjje.Text = Format(a, "0.00")End SubPrivate Sub Comdj_Click()Text1.Width = MS1.CellWidth: Text1.Height = MS1.CellHeightText1.Left = MS1.CellLeft + MS1.Left: Text1.Top = MS1.CellTop + MS1.TopMS1.Enabled = TrueDim lsph As Integerrs2.Open "select * from rkd order by 票号",n, adOpenKeyset, adLockOptimistic If rs2.RecordCount > 0 ThenIf Not rs2.EOF Then rs2.MoveLastIf rs2.Fields("票号") <> "" Thenlsph = Right(Trim(rs2.Fields("票号")), 4) + 1ph.Text = Date & "rk" & Format(lsph, "0000")End IfElseph.Text = Date & "rk" & "0001"End Ifrs2.Closegys.Enabled = True: sf.Enabled = True: Combc.Enabled = TrueComqx.Enabled = True: Comdj.Enabled = FalseText1.Enabled = True: sf.Enabled = TrueFor i = 1 To 100For j = 1 To 8MS1.TextMatrix(i, j) = ""Next jNext igys.Text = "": pz.Text = "0": hjsl.Text = "0"hjje.Text = "0": sf.Text = "0": wf.Text = "0"gys.SetFocusEnd SubPrivate Sub Combc_Click()rs3.Open "select * from rkd",n, adOpenKeyset, adLockOptimisticIf MS1.TextMatrix(1, 1) <> "" And MS1.TextMatrix(1, 7) <> "" ThenFor i = 1 To 100If MS1.TextMatrix(i, 1) <> "" And MS1.TextMatrix(i, 7) <> "" Thenrs3.AddNewIf MS1.TextMatrix(i, 1) <> "" Then rs3.Fields("商品名称") = Trim(MS1.TextMatrix(i, 1))If MS1.TextMatrix(i, 2) <> "" Then rs3.Fields("商品编号") = Trim(MS1.TextMatrix(i, 2))If MS1.TextMatrix(i, 3) <> "" Then rs3.Fields("规格") = Trim(MS1.TextMatrix(i, 3))If MS1.TextMatrix(i, 4) <> "" Then rs3.Fields("产地") = Trim(MS1.TextMatrix(i, 4))If MS1.TextMatrix(i, 5) <> "" Then rs3.Fields("单位") = Trim(MS1.TextMatrix(i, 5))If MS1.TextMatrix(i, 6) <> "" Then rs3.Fields("进价") = Val(MS1.TextMatrix(i, 6))If MS1.TextMatrix(i, 7) <> "" Then rs3.Fields("数量") = Val(MS1.TextMatrix(i, 7))If MS1.TextMatrix(i, 8) <> "" Then rs3.Fields("金额") = Val(MS1.TextMatrix(i, 8))If gys.Text <> "" Then rs3.Fields("供应商") = Trim(gys.Text)rs3.Fields("操作员") = frm_main.St1.Panels(3).TextIf jsr.Text <> "" Then rs3.Fields("经手人") = Trim(jsr.Text)If rq.Text <> "" Then rs3.Fields("日期") = Trim(rq.Text)If ph.Text <> "" Then rs3.Fields("票号") = Trim(ph.Text)If ck.Text <> "" Then rs3.Fields("仓库") = Trim(ck.Text)rs3.Updaters4.Open "select * from kc where 商品编号='" & Trim(MS1.TextMatrix(i, 2)) & "'and 仓库='" & Trim(ck.Text) & "'",n, adOpenKeyset, adLockOptimisticIf rs4.RecordCount > 0 ThenIf rs4.Fields("商品名称") <> "" Thenrs4.Fields("库存数量") = rs4.Fields("库存数量") + Trim(Val(MS1.TextMatrix(i, 7)))rs4.Fields("库存金额") = Val(rs4.Fields("库存数量")) * Val(rs4.Fields("进价"))rs4.UpdateEnd IfElsers4.AddNewIf MS1.TextMatrix(i, 1) <> "" Then rs4.Fields("商品名称") = MS1.TextMatrix(i, 1)If MS1.TextMatrix(i, 2) <> "" Then rs4.Fields("商品编号") = MS1.TextMatrix(i, 2)If MS1.TextMatrix(i, 3) <> "" Then rs4.Fields("¹规格") = MS1.TextMatrix(i, 3)If MS1.TextMatrix(i, 4) <> "" Then rs4.Fields("产地") = MS1.TextMatrix(i, 4)If MS1.TextMatrix(i, 5) <> "" Then rs4.Fields("单位") = MS1.TextMatrix(i, 5)If MS1.TextMatrix(i, 6) <> "" Then rs4.Fields("进价") = Val(MS1.TextMatrix(i, 6))If MS1.TextMatrix(i, 7) <> "" Then rs4.Fields("库存数量") = Val(MS1.TextMatrix(i, 7))If MS1.TextMatrix(i, 8) <> "" Then rs4.Fields("库存金额") = Val(MS1.TextMatrix(i, 8))If ck.Text <> "" Then rs4.Fields("仓库") = ck.Textrs4.UpdateEnd Ifrs4.Closers5.Open "select * from gysmx",n, adOpenKeyset, adLockOptimisticIf rs5.EOF = False Then rs5.MoveLastrs5.AddNewIf rq.Text <> "" Then rs5.Fields("日期") = rq.Textrs5.Fields("时间") = TimeIf ph.Text <> "" Then rs5.Fields("票号") = ph.TextIf MS1.TextMatrix(i, 7) <> "" Then rs5.Fields("数量") = MS1.TextMatrix(i, 7) If MS1.TextMatrix(i, 8) <> "" Then rs5.Fields("金额小计") = MS1.TextMatrix(i, 8)If MS1.TextMatrix(i, 6) <> "" Then rs5.Fields("单价") = MS1.TextMatrix(i, 6)If MS1.TextMatrix(i, 5) <> "" Then rs5.Fields("单位") = MS1.TextMatrix(i, 5) If gys.Text <> "" Then rs5.Fields("供应商") = gys.TextIf gys.Text <> "" Then rs5.Fields("摘要") = "进货：从[" & gys.Text & "]购进" & "[" & MS1.TextMatrix(i, 1) & "," & MS1.TextMatrix(i, 3) & "]等"rs5.Updaters5.CloseAdodc5.RefreshEnd IfNext iAdodc5.RecordSource = "select * from gysmx where 供应商全称='" + gys.Text + "'and 累计余额>0 order by 日期,时间"Adodc5.RefreshIf Adodc5.Recordset.EOF = False Then Adodc5.Recordset.MoveLastIf Adodc5.Recordset.RecordCount > 0 ThenIf Adodc5.Recordset.Fields("累计余额") <> "" Then gysye.Text = Adodc5.Recordset.Fields("累计余额")End IfAdodc5.RecordSource = "select * from gysmx where 供应商全称='" + gys.Text + "'order by日期,时间"Adodc5.RefreshIf Adodc5.Recordset.EOF = False Then Adodc5.Recordset.MoveLastIf Adodc5.Recordset.RecordCount > 0 ThenAdodc5.Recordset.Fields("欠款记账") = Val(wf.Text)Adodc5.Recordset.Fields("累计余额") = Val(gysye.Text) + Val(wf.Text)End IfAdodc5.Recordset.Update' Combc.Enabled = False: Comdj.Enabled = True: Comqx.Enabled = FalseMS1.Enabled = False: sf.Enabled = FalseText1.Visible = False: grid1.Visible = False: DataList1.Visible = FalseElseMsgBox ("填写数据不完整,请核实, 再保存")MS1.Col = 1: MS1.Row = 1grid1.Visible = FalseEnd Ifrs3.CloseEnd SubPrivate Sub Comqx_Click()For i = 1 To 101For j = 1 To 8MS1.TextMatrix(i, j) = ""Next jNext iMS1.Enabled = False: Comdj.Enabled = True: sf.Enabled = FalseText1.Visible = False: DataList1.Visible = False。