小型企业进销存管理系统

小型企业进销存管理系统摘要：随着我国市场经济的蓬勃发展和人们对计算机的普遍应用，批发、零售行业正处在一个高速发展的时期。行业的快速发展必然导致竞争的加剧，要想在激烈的市场竞争中谋求发展，客观上要求企业必须加强内部管理，提高运营效率。而我国大部分小型批发、零售企业在信息机制上还没有摆脱原有的手工模式，企业内部没有形成完善的、有效的信息化管理机制，企业发展的动力不足，从而影响企业的持续、稳定、快速的发展。本文介绍了笔者编写的一个用于小型企业进销存管理系统。其中拥有功能比较全面的进销存管理系统。该系统包括用户注册和登录、口常业务管理、库存管理、查询统计管理、应收应付管理、统计报表管理、基础信息管理和系统设置几个模块。Abstract:关键字:进销存管理 查询信息管理口常业务一、引言随着计算机的普遍应用，企业对内部机制形成完善的、有效的信息化管理机制，是使企业的各项管理实现现代化，在确定了本系统的设计目标之后，特开发了本管理系统，来完善企业内部的管理机制。二、开发和运行的环境开发工具：VisualBasic中文版，后台所用数据库是SQL2000,同时建立ODBC数据库接口。运行环境:1、运行Intel或兼容的PentiumVPentiumPro或PentiumII处理器的计算机上运作。处理器必须以最低166MHz的速度运行。内存要求最低64MB。2,SQLServer2000,VisualBasic三、正文1、流程分析2、数据库的设计(1)E-R图：商品出入库：商品销售、退货,（2）关系模型（数据库的结构）本单位信息表:字段名称数据类型字段大小公司简称Char10公司电话Char20公司全称Char50公司地址Char50税务登记号Char20开户银行及账号Char60备注Char50仓库信息表：（仓库代码为主键）字段名称数据类型字段大小仓库代码Char10仓库名称Char20库营贝Char10仓库说明Char100员工信息表：（员工编号为主键）字段名称数据类型字段大小员工编号Char10员工姓名Cha16性别Cha10出生年月Datetime文化程度Cha20所属部门Cha30职务Cha30身份证号Varchar30联系电话Varchar20联系地址Cha50聘用口期Datetime薪金Money商品信息表：（商品编号为主键）字段名称数据类型字段大小商品编号Char8商品名称Char100简称Char10规格Char40产地Char50单位Char6进价Money批发价Money零售价Money供货信息Char200备注Char200

权限设置信息表:字段名称数据类型字段大小商品入库Bit退货返厂Bit商品销售Bit销售退货Bit库存查询Bit库存盘点Bit入库查询Bit退货返厂查询Bit销售查询Bit销售退货查询Bit收款单Bit付款单Bit应收款查询Bit应付款查询Bit销售口报表Bit销售月报表Bit客户销售报表Bit职员销售报表Bit商品信息管理Bit员工信息管理Bit仓库信息管理Bit供应商信息管理Bit客户信息管理Bit本单位定义Bit操作员编号及密码设置Bit权限设置Bit系统初始化Bit操作员编号Char10操作员名称Cha10密码Cha10供应商信息表：（供应商编号为主键）字段名称数据类型字段大小供应商编号Char20供应商全称Char50简称Char10地址Char30所属地区Char20邮政编码Char10电话Char30传真Char10联系人Char30联系人电话Char30开户银行Char20纳税人登记Char30

网址邮箱Char20客户信息表：（客户编号为主键）字段名称数据类型字段大小客户编号Char20客户全称Char50简称Char10地址Char30所属地区Char20邮政编码Char10电话Char30传真Char30联系人Char10联系人电话Char30开户银行Char30银行账号Char20纳税人登记Char30网址邮箱Char20库存商品信息表：（商品编号为主键）字段名称数据类型字段大小商品编号Char8商品名称Char100规格Char40产地Char50单位Char6进价Money库存数量Number18库存金额Money仓库Char10商品入库信息表：（商品编号为主键）字段名称数据类型字段大小商品编号Char8商品名称Char100规格Char40产地Char50单位Char6进价Money数量Numeric18金额Money仓库Char10供应商Char50操作员Char10经手人Char10口期Datetime票号Char30

供货退货信息表：（商品编号为主键）字段名称数据类型字段大小商品编号Char8商品名称Char100规格Char40产地Char50单位Char6进价Money数量Numeric18金额Money仓库Char10供应商全称Char50操作员Char10经手人Char10口期Datetime票号Char30供应商账款往来信息表：（供应商全称为主键）字段名称数据类型字段大小口期Datetime时间Datetime摘要Varchar200数量Numeric18单位Char10单价Money金额小计Money欠款记账Money付款合计Money累计金额Money供应商全称Char50票号Char30备注Char60销售信息表：（商品编号为主键）字段名称数据类型字段大小商品编号Char8商品名称Char100简称Char10规格Char40产地Char50单位Char6进价Money数量Numeric18金额Money仓库Char10客户全称Char50操作员Char10经手人Char10口期Datetime票号Char30销售退货信息表：（商品编号为主键）字段名称数据类型字段大小商品编号Char8商品名称Char100规格Char40产地Char50单位Char6单价Money数量Numeric18金额Money仓库Char10客户全称Char50操作员Char10经手人Char10口期Datetime票号Char30客户往来账款信息表：（客户全称为主键）字段名称数据类型字段大小口期Datetime时间Datetime摘要Varchar200数量Numeric18单位Char10单价Money金额小计Money欠款记账Money收款合计Money累计金额Money客户全称Char50票号Char30备注Char60

3、总体设计■小型企业进销存管理系统 版本:：VI.0.04、主要功能模块分析一）、系统登录模块小型企业进销存管理系统版本；VI.0.0版权所有违者必兖 ♦确认小型企业进销存管理系统版本；VI.0.0版权所有违者必兖 ♦确认X退比区)功能：用户登录验证成功后进入进销存管理系统。如是第一次直接进入系统设置操作员及密码。说明:在窗体中需要Adodc和DataCombo控件,则需要加载uMicrosoftADODataControl(SP4)(0LEDB)”和"MicrosoftDataListControl(SP3)(OLEDB)W部件,将控件添加到工具箱。二)、口常业务管理(一)、商品入库、出库商品入库商品出库(二人商品销售、退货商品销售销售退货功能：完成商品入库工作，付供应商货款方式可采用现金和支票，并可挂帐。说明：入库采用智能化表单录入，可一次录入多种商品，在“商品名称”栏内输入商品名称或简称的前几个字或找〈PageDown〉键，系统将自动利用表格显示相关商品信息。使用方向键〈t〉、〈I〉选择商品，接回车键，该商品信息将自动录入到表

格中，只需输入如哭数量（系统自动计算商品金额），回车后即可入库下一商品。系统自动生成入库票号，可利用组合键选择供应商信息、经手人、仓库。自动统计商品入库功能：完成退还给供应商货物的工作。说明：同商品入库工作相似，同商品入库成正反关系。㈡、㈡、功能：完成商品销售工作，客户货款方式可采用现金和支票，并可挂帐。说明：销售采用录入方式同商品入库录入方式，自动生成销售票号，自动统计商品销售品种、数量、金额、计算折扣、税率。但如果销售商品数量大于库存商品数量时，此笔交易将被取消，所以在商品销售模中销售的商品数量一定要小于等于该商品的库存数量。功能：完成客户退货的工作。说明：退货采用录入方式同商品销售。功能：四）、库存管理（一）、库存商品杳询用存金理一【庄存且词】三卜。M0006商品倒号退出三卜。M0006商品倒号退出功能：查询商品库中所有商品的信息。说明：可选择不同字段杳询商品库存信息，并支持模糊杳询和键盘操作。（二）、库存盘点号座在官理【庄乔靠点】 保作员：系统律科员S030C0131自命彳标 现格C6MoiXPffS030C0131自命彳标 现格C6MoiXPff吨1303678C0《7但10:“不二>-":-*：•:76*45必吧"SOJ0LO15Z030C017£。。0匚。/104001ZC0D12C0D23mo活选择仓库瓯 3 代二矍直二二a 退出4F尢无无无sODOCOCO工字锅 泛相sODOCOCO工字锅 泛相吨14501014EOO国库sOJOCOlOsOJOLOUSO3OCO12莒管无无无情初MomsOJOiOOSsOJOCOCB0SWLQ36叫。«6工sOJOCOlOsOJOLOUSO3OCO12莒管无无无情初MomsOJOiOOSsOJOCOCB0SWLQ36叫。«6工5♦102DAX-IC*X⑸3⑸得KfflW通纲12OT因屋西庄功能：查询各仓库中商品库存情况。说明：选择仓库名称、杳询该仓库中库存商品的情况。五）、查询统计管理（一）、入库查询功能：查询商品入库信息。说明：选择字段查询商品入库信息，支持模糊查询，按任意时间段查询商品入库信息，统计入库品种、入库数量、入库金额。（二）、出库查询

功能：查询退供应商货物信息。说明：选择字段查询商品入库信息，支持模糊查询，按任意时间段查询商品入库信息，统计入库品种、入库数量、入库金额。（三）、销售查询功能：查询商品销售信息。说明：选择任意字段、不同条件查询商品销售信息，也可按任意时间段查询商品销售信息,支持模糊查询和精确查询，可统计销售品种、数量、金额。（四）、销售退货功能：查询客户退货信息。说明：选择任意字段、不同条件查询商品销售信息，也可按任意时间段查询商品销售信息,支持模糊查询和精确查询，可统计销售品种、数量、金额。六）、应收应付管理（一）、付款单府收后忖龄碑【忖我里】7小者理男付凯省百冢炫警贩用材弱物普硒公司一三］碘却:|】的 ，叫|x-出|—务曹 .[-11_1:7 1X01914。可卜必卜9俳色|1800hyWB卜皿胆®&♦附：0*1-)(01力3iCCij-13X工-1X012ICC WvTrOWn Q5-S-1JrJxCvl17ZOT 招相5m他幺•日 05-encMCW1818 种饱爱有限公4 Q5TT3比0162】皿 材料均耳巾侬OS-4-BeHCMIVICO 相附因酗公3 书水。佛—1•刈JKOTOOTM19Xr9CC“ ♦，皿卜帆一1SO3^tfia-2218 公胃 05-C-]3rXCCT2COX 利器飒脚智日 05-4-J3rHCM♦发18 冏的附附公司 *05-4-10^« ,—1•刈JTOIJ9OT口卜900卜的0ISO?-L9：CZ4ox) 加利物Hft愚公a 05-eur)icre38 利f惘盟硒公司 05-4-13cHCMRBBh^KO- 。|1功能：实现向供应商付款的功能。说明：可查询与供应商之间的往来帐款信息，提供供应商列表选择，并计算欠供应商的累计余额。（二）、收款单

功能：实现向客户收款的功能。说明：可杳询与客户之间的往来帐款信息，提供客户列表选择、并计算应收客户累计余额。（三）、应收款查询功能：查询客户付款信息。说明：杳询任意时间段内与客户往来帐款信息，输入或选择客户名称查询应收款，统计欠款金额，尚欠余额。（四，应付款查询功能：查询向供应商付款信息。说明：杳询任意时间段内与供应商之间的往来帐款信息，提供供应商列表供用户选择、支持键盘操作，统计欠款余额，付款金额，尚欠余额。七）、统计报表管理（一）、销售日报表功能：查询当天的商品销售口报，同时统计商品销售品种、销售数量、销售金额。

（二八销售月报表功能：查询任意一个月或任意时间段的商品销售报表，统计销售品种、销售数量、销售余额。（三）、客户销售报表功能：统计所有客户销售商品的情况。说明：可以按商品名称、仓库、职员或任意时间段统计所有客户销售商品的情况，采用组合式查询方法。（四）、职员销售报表功能：统计公司所有职员销售商品的情况。说明：可以按商品名称、仓库或客户名称或任意时间段统计所有职员销售商品的情况。八）、基础信息管理（一）、商品信息管理■基注优幺管感一【向品管理】 加比管理员v8srara»f7I点fi积j 31 I匚一工汨一二148力0Z不m9K0X»J?无湖a7310cy>»【g1>»；'»□皿功248力0Z不m9K0X»J?无湖a7310cy>»【g1>»；'»□皿功2工字烟心必3工字汨48必由^0X05irtflsJJXUXK殷黑»WEW・K3XW诵曾【疾瞰|aa|mr~•iic勿应&O：«A1990smo■0♦必14503a»。2?»口赧依■£niMoiwi汕R吨吨吨qoMI13）。J2001100>r4*『4»J.♦Jj. 从雨》j■班逊L【d福歌fgjjjn］—［口］♦出功能：完成商品基本信息的录入、保存、修改、删除，支持键盘操作，选择字段查询商品基本信息，并可列表浏览商品信息。说明：录入时单击“登记”按钮，将自动生成8位商品编号，在处理数据时，列表浏览商品信息不可用。（二）、职员信息管理功能：完成职员基本信息的录入、保存、修改、删除，可按任意字段查询职员基本情况,支持列表浏览职员信息。说明：登记职员信息时自动生成职员编号。（三）、仓库信息管理

功能：完成仓库基本信息的录入、保存、修改、删除，可按列表方式查询仓库信息。（四）、供应商信息管理功能：完成供应商基本信息的录入、保存、修改、删除，可以按任意字段查询供应商基本信息。（五八客户信息管理

功能：完成客户基本信息的录入、保存、修改、删除，可以按任意字段查询客户基本信息。九）、系统设置（一）、本单位定义系统初始设计一【本单付定义】操作员；系筑管理员 系统初始设计一【本单付定义】操作员；系筑管理员 区）公司简称阿 公司电话|2760840公司全称|长春市明日科技部密任公司公司地址落丽税每登记号TiTm开户银行及帐号333234324备注一功能：定义本单位的基本信息，可以修改。（二）、操作员及密码功能：操作员信息的添加、修改、删除、密码的修改及操作员信息浏览。（三）、权限设置

功能：定义本单位的基本信息，可以修改。（二）、操作员及密码功能：操作员信息的添加、修改、删除、密码的修改及操作员信息浏览。（三）、权限设置南4£设笠一［权限设表］锋作£蜕管,日功能：对操作员进行不同的权限设置。（四，系统初始化功能：对系统数据库进行清空记录说明：第一次进入系统时清空测试数据，可以选择初始化对象。十）、帮助（一）、帮助・帮助出您知道吗…管自信OH南4£设笠一［权限设表］锋作£蜕管,日功能：对操作员进行不同的权限设置。（四，系统初始化功能：对系统数据库进行清空记录说明：第一次进入系统时清空测试数据，可以选择初始化对象。十）、帮助（一）、帮助・帮助出您知道吗…管自信OH:的辕圈点加，石方信£未M的曾霜津于注能块果信准管库为萦户模形的息、：®|UE信快货急、品要万个依管管的货茬,18理萋管空，作包的省出加的核息.效存蔓效.凯-箱追右然户以处费能了用点二<可业蚤井.目让两。擒户企从蔓•一，的拿用理生息户W要放。样小件面信用万亘尸高这4款方据生了用性，Bis下一条提示如I …福定功能：帮助提示信息。（二）、关于关千小型企业进转存管理豕统原 小型企业迸销存管理系统版本1.0.0悌作环愤：开发环筑：”6.0显示方式：1024*763警告：战权所有假者必究1……磅定:东莱信息(£).•・功能：版权说明及查看计算机系统信息。四、各个重要模块的程序简介.公用模块OptionExplicitPublicFunctioncnn()AsStringcnn="Provider三PersistSecuritylnfo=False;UserID=sa;DataSource=Gcgl;lnitialCatalog=Gcgr,EndFunctionPublicSubEnter(KeyCodeAsInteger)IfKeyCode=vbKeyReturnThenSendKeys"{Tab}"EndIfEndSub.系统登录模块DimTIMAsInteger'声明一个整型变量DimrslAsNew 定义一个数据集对象DimmyvalAsStringPrivateSubForm_Activate()'显示软件名称及版本信息=&"版本：V"&&&Hselect*fromqxsz",cnn,adOpenKeyset,adLockOptimistic'打开数据库If=0Thenmyval=MsgBox("进入系统后先设置操作员和操作员权限！”,0”)Loadfrm_mainUnloadMeElseEndIfEndSubPrivateSubDataCombol_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenEndSubPrivateSubtext2_KeyDown（KeyCodeAsInteger,ShiftAsInteger）IfKeyCode=vbKeyReturnThen=TrueEndIfEndSubPrivateSubcmdl_Click（）"select*fromqxszwhere操作员名称="'&&cnn,adOpenKeyset,adLockOptimisticIf>0Then=（"商品入库”）=（"商品入库”）=（"商品销售"）=（"商品销售"）=（“退货返厂”）=（"销售退货”）=（"销售退货”）=（“库存查询”）=（“库存查询”）=（“库存盘点”）=（"入库查询”）=（"入库查询”）=（“退货返厂查询”）=（"销售查询”）=（“销售查询”）=（"销售退货查询”）=（“付款单”）=（“付款单”）=（“收款单”）=（"收款单”）=（”应收款查询"）=（"应付款查询”）=（"销售日报表”）=（“销售月报表”）=（“客户销售报表”）=（"职员销售报表”）=（“商品信息管理”）=（"员工信息管理”）=（“仓库信息管理”）=（"1供应商信息管理”）=（"1供应商信息管理”）=（"客户信息管理”）=（“客户信息管理”）=（“本单位定义”）=（"操作员及密码”）=（"权限设置”）=（"系统初始化”）DimMESSAGEAsString=TIM="select*fromqxszwhere操作员名称="'++If<>""And=Trim”密码"））ThenLoadfrm_main=TrimUnloadMeElselfTIM=3ThenMESSAGE=MsgBox（"密码输入错误，请向系统管理员查询!",0,""）IfMESSAGE=vbOKThenEndEndIfIf=""ThenMsgBox（"请输入操作员门ElseIfTrim<>Trim"操作员名称"））ThenMsgBox（“查无此操作员，请重新输入操作员巧ElseIf<>"密码"）ThenMsgBox（"密码错误，请重新输入密码厂）TIM=TIM+1EndIfEndIfEndIfEndIfEndIfEndSubPrivateSubcmd2_Click（）EndEndSub.主程序模块PrivateSubckcx_Click（）Loadmain_cxtj_ckcx=FalseEndSubPrivateSubForm_Load()=&"版本：V"&&&DimiAsIntegerFori=OTolLabell(i).Caption=Nexti="版本：V"&& &EndSubPrivateSubToolbarl_ButtonClick(ByValButtonAsSelectCaseCasels="rk"rkd_ClickCasels="kc"kccx_ClickCaseIs=,lxscx,1xscx_ClickCaseIs="rkcx11rkcx_ClickCaseIs="fkd"fkd_ClickCasels="kh"khinf_ClickCaseIs="gys"gysinf_ClickCasels="bz"bzl_ClickCaseIs=“xs”spxs_ClickCaseIs=,,xsthHxsth_ClickCaseIs="skd"skd_ClickCaseIs=Mtc"EndEndSelectEndSubPrivateSubTimerl_Timer()(2).Text=Format(Date,Hlongdate11)&" "&TimeEndSubPrivateSubrkd_Click()Loadmain_rcyw_rk=FalseEndSubPrivateSubrktd_Click()Loadmain_rcyw_rktd=FalseEndSubPrivateSubkccx_Click()Loadmain_kcgl_kccx=FalseEndSubPrivateSubkcpd_Click()Loadmain_kcgl_kcpd=FalseEndSubPrivateSubxscx_Click()Loadmain_cxtj_xscx=FalseEndSubPrivateSubrkcx_Click()Loadmain_cxtj_rkcx=FalseEndSubPrivateSubfkd_Click()Loadmain_ysyf_fkd=FalseEndSubPrivateSubskcx_Click()Loadmain_ysyf_skcx=FalseEndSubPrivateSubfkcx_Click()Loadmain_ysyf_fkcx=FalseEndSubPrivateSubxsrbb_Click()Loadmain_tjbb_xsrbb=FalseEndSubPrivateSubxsthcx_Click()Loadmain_cxtj_xsthcxEndSubPrivateSubxsybb_Click()Loadmain_tjbb_xsybb=FalseEndSubPrivateSubkhxsbb_Click()Loadmain_tjbb_khxsbb=FalseEndSubPrivateSubzyxsbb_Click()Loadmain_tjbb_zyxsbb=FalseEndSubPrivateSubspinf_Click()Loadmainjbxx_spinf=FalseEndSubPrivateSubyginf_Click()Loadmainjbxx_yginf=FalseEndSubPrivateSubckinf_Click()Loadmainjbxx_ckinf=FalseEndSubPrivateSubgysinf_Click()Loadmainjbxx_gys=FalseEndSubPrivateSubkhinf_Click()Loadmainjbxx_kh=FalseEndSubPrivateSubbdwdy_Click()Loadmain_bdwdy=FalseEndSubPrivateSubczysz_Click()Loadmain_xtsz_czysz=FalseEndSubPrivateSubqxsz_Click()Loadmain_xtsz_qxsz=FalseEndSubPrivateSubxtcsh_Click()Loadmain_xtsz_xtcsh=FalseEndSubPrivateSubbzl_Click()LoadfrmTip=FalseEndSubPrivateSubgy_Click()LoadfrmAbout=FalseEndSubPrivateSubspxs_Click()Loadmain_rcyw_xs=FalseEndSubPrivateSubxsth_Click()Loadmain_rcyw_xsth=FalseEndSubPrivateSubskd_Click()Loadmain_ysyf_skdEndSubPrivateSubexit_Click()EndEndSub.商品入库模块定义数据集对象DimrslAsNewDimrs2AsNewDimrs3AsNewDimrs4AsNewDimrs5AsNewPublicSubyfje_exp()=Format((Val*(Vai/10))+(Vai*(Val/100))J")EndSubPrivateSubForm_Activate()=Date(”现金"):("转帐支票”)(“汇票")：=0=&”操作员：&SubPrivateSubForm_Load()=102:=9s=八询险。。11,⑵。。"''15007'765'',”1200,”1200”「管。。"y=Array(“xh”,”商品名称”，“商品编号“规格”产地"单位"进价"数量"金额”)Fori=0To8(i)=s(i):(0zi)=y(i)Nexti=1:=1Fori=1To101(i,0)=iNexti=DateEndSubPrivateSubForm_Unload(CancelAsInteger)=TrueEndSubPrivateSubck_Change()=TrimEndSubPrivateSubck_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThen=1:=1=TrueEndIfEndSubPrivateSubgys_Change（）="select*fromgyswhere供应商全称like+Trim+'"+'%'or简称like+Trim+'"+If<>,lnAnd>0Then=TrueEndSubPrivateSubgys_KeyDown（KeyCodeAsInteger,ShiftAsInteger）IfKeyCode=vbKeyReturnThen=FalseEndIfIfKeyCode=vbKeyPageDownThen=TrueEndIfEndSubPrivateSubgridl_KeyDown（KeyCodeAsInteger,ShiftAsInteger）IfKeyCode=vbKeyReturnThenWithIf.RecordCount>0ThenIf.Fields（"商品名称"）<>""ThenIf.Fields（"商品名称"）<>""Then,1）=THm（.Fields（"商品名称”））If.Fields（“商品编号"）<>""Then,2）=Trim（.Fields（"商品编号”））If.Fields（"规格"）<>""Then,3）=Trim（.Fields（"规格"））If.Fields（"产地"）<>""Then,4）=Trim（.Fields（“产地”））If.Fields（"单位"）<>""Then,5）=Trim（.Fields（"单位"））If.Fields（"进价"）<>""Then,6）=.Fields（"进价”）=6=FalseElseMsgBox（"无数据选择!!广）=FalseEndIfEndIfEndWithEndIfIfKeyCode=vbKeyEscapeThen=FalseEndIfEndSubPrivateSubDataListl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThen=Trim=FalseEndIfEndSubPrivateSubjsr_Change()=TrimEndSubPrivateSubjsr_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenEndSubPrivateSubMSl_Click()If>=1And-1,7)<>,n,Then=TrueEndIfEndSubPrivateSubMSl_entercell()DimXAsString,yAsString,pAsStringIf<=0Or<=0ThenExitSubX=,:y=,0)Ifyom,ThenIf-<=3Then=+1If>0And>OThen=+:=+EndIfX=,:y=,0)p二，=0=LenEndIfEndSubPrivateSubMSl_RowColChange()Fori=1To101If(i,1)<>""Then,6)=Format,6),“#“),8)=Val,7))*Vai,6)),8)=Format,8),“#“)EndIfNextiEndSubPrivateSubsf_Change()=Format((Val-Val),"")EndSubPrivateSubsl_Change()Callyfje_expEndSubPrivateSubsl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenEndSubPrivateSubzk_Change()Callyfje_expEndSubPrivateSubzk_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenEndSubPrivateSubhjje_Change()Callyfje_exp=Format((Val-Val)/,,H)EndSubPrivateSubCombol_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenEndSubPrivateSubsf_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenEndSubPrivateSubTextl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenIf=IThenWithIf>0ThenIf.Fields("商品名称”)<>""Then,1)=Trim(.Fields("商品名称”))If.Fields("商品编号")<>""Then,2)=Trim(.Fields("商品编号”))If.Fields("l规格")<>""Then,3)=Trim(.Fields("规格”))If.Fields("产地")<>""Then,4)=Trim(.Fields(“产地”))If.Fields(“单位“)<>,H,Then,5)=Trim(.Fields(“单位”))If.Fields。进价")<>,uiThen,6)=.Fields。进价")=False=5EndIfEndWithEndIfIf=8Then=+1=1ElseIf+1<=-1Then=+1ElseIf+1<=-1Then=+1=1EndIfEndIfEndIfEndIfIfKeyCode=vbKeyUpThenIf>lThen=-1EndIfIfKeyCode=vbKeyDownThenIf<99Then=+1EndIfIfKeyCode=vbKeyLeftThenIf<>""Then=0=LenEndIfIf-8<=+1Then=-1If=OThen=1ElseIf+1<=-IThen=+1=1EndIfEndIfEndIfIfKeyCode=vbKeyRightThenIf<>,M,Then=0=LenEndIfIf+1<=-1Then=+1ElseIf+1<=-IThen=+1=1EndIfEndIfEndIfIfKeyCode=vbKeyPageDownAnd=1Then=nselect*fromspinf"=TrueEndIfEndSubPrivateSubTextl_Change()If=IThenIf=""Then=FalseElse「select*fromspinfwhere(商品名称like++"'+'%')or(简称likeIf>0Then=TrueEndIfEndIfEndIfIf=3Thenlfzl)=""ThenMsgBox(“无商品名称，请重新输入!!!”)=1EndIfEndIfIf=6Then,8)=Vai7))*Vai,6))If=7Then,8)=VaL7))*Vai,6))Dima,bAsSingleFori=1To101If(i,1)<>,,nAnd(i,7)<>,,HThen=ia=Val(iz8))+ab=Val(iz7))+bEndIfNexti=b:=Format(a,,,H)EndSubPrivateSubComdj_Click()=+:=+=TrueDimIsphAsIntegerHselect*fromrkdorderby票号)cnn,adOpenKeyset,adLockOptimisticIf>0ThenIfNotThenlf("票号")<>""Thenlsph=Right(Trim("票号”)),4)+1=Date&,,rkH&Format(lsphz"OOOO'1)EndIfElse=Date&"rk"&"0001"EndIf=True:=True:=True=True:=False=True:=TrueFori=1To100Forj=lTo8(i，j)=""NextjNexti=,H,：="0"：="O"="0":="0":="0"EndSubPrivateSubCombc_Click()Hselect*fromrkd11,cnn,adOpenKeyset,adLockOptimisticIf(1,1)<>""And(1,7)<>""ThenFori=1To100If(L1)<>""And(i,7)<>""ThenIf(i,1)<>""Then(“商品名称”)=Trimfi,1))If(i,2)<>,H,Then(“商品编号”)=Trim(i,2))If(i,3)<>""Then("规格”卜Trim(i,3))If(i,4)<>""Then("产地”卜Trim。,4))If(i,5)<>""Then("单位")=Trim(i,5))lf(i,6)<>""Then(“进价“hVal(i,6))lf(i,7)<>""Then("&!：")=Val(i,7))If(i,8)<>""Then("金额")=Val(i,8))If<>""Then("供应商")=Trim(“操作员")=If<>""Then("经手人")=TrimIf<>""Then("□^J")=TrimIf<>""Then("M?")=TrimIf<>""Then("仓库")=Trim"select*fromkcwhere商品编号='"&Trim(i,2))&"'and仓库=""&Trim&cnn,adOpenKeyset,adLockOptimisticIf>OThenIf("商品名称")<>""Then("库存数量")=("库存数量")+TrimfValfL7)))(“库存金额")=Vai("库存数量"))*Val(“进价"))EndIfElseIf(i,1)<>""Then("商品名称>=(i,1)If(i,2)<>""Then('W品编号")=(i,2)lf(i,3)<>""Thenf'l规格")=(i,3)If(i,4)<>""Then("产地")=(i,4)If(i,5)<>""Then("单位")=(i,5)lf(i,6)<>""Then(“进价")=Val(i,6))If(i,7)<>""Then("库存数量")=Val(i,7))If(i,8)<>""Then(“库存金额")=Val(i,8))If<>"'Then("仓库")=EndIf"select*fromgysmx",cnn,adOpenKeyset,adLockOptimisticIf=FalseThenIf<>""Then("n^")=(“时间")=TimeIflf(i,7)<>Then("数量")=(i,7)lf(i,8)<>""Then("金额小计”)=(i,8)lf(i,6)<>""Then(“单价”)=(i,6)If(i,5)<>""Then("单位")=(i,5)If"'"TheM”供应商“上If<>,,HThen(“摘要。=”进货:从，&&“］购进,,&T&(i,1)&&(i,3)&”］等”EndIfNexti="select*fromgysmxwhere供应商全称="'++'"and累计余额>0orderbyH期,时间”If=FalseThenIf>0ThenIf”累计余额")<>""Then=”累计余额”)EndIf="select*fromgysmxwhere供应商全称="'++'"orderby□期,时间“If=FalseThenIf>0Then“欠款记账")=Val"累计余额")=Vai+VaiEndIf=False:=True:=False=False:=False=False:=False:=FalseElseMsgBox("填写数据不完整，请核实，再保存”)=1:=1=FalseEndIfEndSubPrivateSubComqx_Click()Fori=1To101Forj=lTo8(i，j)=”“NextjNexti=False:=True:=False=False:=False="0":="0":="0"=“0“：二“0"：=,H,EndSubPrivateSubComend_Click()=TrueUnloadMeEndSub.商品销售定义数据集对象DimrslAsNewDimrs2AsNewDimrs3AsNewDimrs4AsNewDimrs5AsNewPrivateSubCommandl_Click()EndSubPrivateSubForm_Activate()=Date("现金)("转帐支票”)(“汇票")：=0=&”操作员：”&SubPrivateSubForm_Load()=102:=9s=Array("300"z"2100","1200","1800","1500","765","1200","1200'；"1200")y=Array(“xh”,”商品名称”，“商品编号“规格”产地丁单位"零售价，"数量","金额”)Fori=0To8(i)=s(i):(0zi)=y(i)Nexti=1:=1Fori=1To101(i，0)=iNexti=DateEndSubPrivateSubForm_Unload(CancelAsInteger)=TrueEndSubPrivateSubck_Change()=TrimEndSubPrivateSubck_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThen=1:=1=TrueEndIfEndSubPrivateSubjsr_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenEndSubPrivateSubkh_Change（）="select*fromkhwhere客户全称like"'+Trim+"'+'%'or简称likeTrim+'"+'%'"If<>,lnAnd>0Then=TrueEndSubPrivateSubkh_KeyDown（KeyCodeAsInteger,ShiftAsInteger）IfKeyCode=vbKeyReturnThen=FalseEndIfIfKeyCode=vbKeyPageDownThen=TrueEndIfEndSubPrivateSubgridl_KeyDown（KeyCodeAsInteger,ShiftAsInteger）IfKeyCode=vbKeyReturnThenWithIf.RecordCount>0ThenIf.Fields（"商品名称"）<>""ThenIf.Fields（"商品名称”）<>""Then,1）=Trim（.Fields（"商品名称”））If.Fields（“商品编号"）<>""Then,2）=Trim（.Fields（"商品编号”））If.Fields（"规格"）<>""Then,3）=Trim（.Fields（"规格”））If.Fields（"产地"）<>""Then,4）=Trim（.Fields（"产地”））If.Fields（"单位"）<>""Then,5）=Trim（.Fields（"单位”））If.Fields（“零售价"）<>""Then,6）=.Fields（"零售价"）=6=FalseElseMsgBox（"无数据选择!!!"）=FalseEndIfEndIfEndWithEndIfIfKeyCode=vbKeyEscapeThen=FalseEndIfEndSubPrivateSubDataListl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThen=Trim=FalseEndIfEndSubPrivateSubjsr_Change()=TrimEndSubPrivateSubMSl_Click()If>=1And-1,7)<>,H,Then=TrueEndIfEndSubPrivateSubMSl_entercell()DimXAsString,yAsString,pAsStringIf<=0Or<=0ThenExitSubx二,y=zO)Ify<>,n,ThenIf-<=3Then=+1EndIfIf>0And>OThen=+:=+EndIfx=，:y=,0)p二，=0:=LenEndIfEndSubPrivateSubMSl_RowColChange()Fori=1To101If(i,1)<>""Then,6)=Format,6),“#“)z8)=Val,7))*Vai,6)),8)=Format,8),“#“)EndIfNextiEndSubPrivateSubsf_Change()=Format((Val-Val),"")EndSubPrivateSubsf_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenEndSubPrivateSubsl_Change()=Format((Val*(Val/10))+(Vai*(Vai/100)),"")EndSubPrivateSubsl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenEndSubPrivateSubzk_Change()sl_ChangeEndSubPrivateSubhjje_Change()sl_Change=Format((Val-Vai),,n,)EndSubPrivateSubzk_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenEndSubPrivateSubCombol_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenEndSubPrivateSubTextl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThen=FalseIf=IThenWithIf>0ThenIf.Fields("商品名称”)<>""Then,1)=Trim(.Fields("商品名称”))If.Fields(“商品编号")<>""Then,2)=Trim(.Fields("商品编号”))If.Fields("l规格")<>""Then,3)=Trim(.Fields("规格"))If.Fields("产地")<>""Then,4)=Trim(.Fields(“产地”))If.Fields("单位")<>""Then,5)=Trim(.Fields("单位”))If.Fields("零售价")<>""Then,6)=.Fields("零售价")=False=5EndIfEndWithEndIfIf=8Then=+1=1ElseIf+1<=-1Then=+1ElseIf+1<=-1Then=+1=1EndIfEndIfEndIfEndIfIfKeyCode=vbKeyUpThenIf>lThen=-1EndIfIfKeyCode=vbKeyDownThenIf<99Then=+1EndIfIfKeyCode=vbKeyLeftThenIf<>""Then=0=LenEndIfIf-8<=+1Then=-1If=OThen=1ElseIf+1<=-IThen=+1=1EndIfEndIfEndIfIfKeyCode=vbKeyRightThenIf<>""Then=0=LenEndIfIf+1<=-1Then=+1ElseIf+1<=-IThen=+1=1EndIfEndIfEndIfIfKeyCode=vbKeyPageDownAnd=1Then=nselect*fromspinf"=TrueEndIfEndSubPrivateSubTextl_Change()If=1ThenIf=""Then=FalseElse「select*fromspinfwhere(商品名称like++"'+'%')or(简称likeIf>0Then=TrueEndIfEndIfEndIfIf=3ThenIf,1)="“And<=0ThenMsgBox(“无商品名称，请重新输入!!广)=1EndIfEndIfIf=6Then,8)=Val〃))*Val,6))If=7Then,8)=Val〃))*Val,6))Dima,bAsSingleFori=1To101If(i,1)<>""And(i,7)<>""Then=ia=Val(i,8))+ab=Val(i,7))+bEndIfNexti=b:=Format(a,,,n)EndSubPrivateSubComdj_Click()**•=+:=+=TrueDimIsphAsIntegerHselect*fromxsdorderby票号”，cnn,adOpenKeyset,adLockOptimisticIf>0ThenIfNotThenIf("票号")<>""ThenIsph=Val(Right(THm(“票号”)),4))+1=Date&"xs"&Format(lsph,"0000H)EndIfElse=Date&"xs"&"0001"EndIf=True:=True:=True=True:=False=True:=TrueFori=1To100Forj=lTo8(i，j)=”“NextjNexti=,H,： ="O"： ="O"="0":="0":="0"EndSubPrivateSubCombc_Click()If(1,1)<>""And(1,7)<>""ThenFori=1To100If(i,1)<>""And(i,7)<>""Then"select*fromkcwhere商品编号='''&Trimfl2))&"'and仓库='"&Trim& ,cnn,adOpenKeyset,adLockOptimisticIf<=0ThenMsgBox("库存无此商品,请核实后重新登记门Elself>0And(i,7)<("库存数量")ThenTrim(i,1))<>""("库存数量")=("库存数量")-TrimfValtL7)))("库存金额")=Vai("库存数量"))*Val(“进价”))ElseMsgBox(“库存数量不足，请核实后重新登记!”)EndIf"select*fromxsd",cnn,adOpenKeyset,adLockOptimisticIf(i,1)<>Then("商品名称")=Trim。，1))If(i,2)<>Then("商品编号”)=Trim。,2))If(i,3)<>Then("规格")=Trim(i,3))If(i,4)<>Then("产地")=Trim(i,4))If(i,5)<>""Then("单位")=Trim。,5))If(i,6)<>Then("单价")=Val(i,6))lf(L7)<>""Then(“数量”)=Val(i,7))lf(i,8)<>“"Then(“金额”)=Val(i,8))If<>""Then(“客户全称")=Trim("操作员")= If<>""Then(“经手•人。=TrimIf<>""Then(“口期”)=TrimIf<>""Then?TrimIf<>""Then("仓库")=Trim"select*fromkhmx",cnn,adOpenKeyset,adLockOptimisticIf=FalseThenIf<>""Then(“口期”)=("时间")=TimeIf<>皿Then(“票号”)=lf(L7)<>""Then("^M")=(l7)lf(i,8)<>“"Then(“金额小计”)=(i,8)lf(i,6)<>““Then("单价”)=(i,6)lf(i,5)<>“"Then("单位")=(i,5)If<>""Then(“客户全称”)=If<>,M,Then(“摘要”)=”销售：「&&。的“&T&(b1)& &(i,3)&。等”EndIfNexti="select*fromkhmxwhere(khmx.客户全称like++"'andkhmx.累计余额>0)”If=FalseThenIf>0ThenIf"累计余额”)<>""Then=”累计余额“)EndIf="select*fromkhmxwhere(khmx.客户全称likeM'+If>OThenIf=FalseThen “欠款记账”)=Vai”累计余额")=Val+ValEndIf=False:=True=False:=False=False:=False:=FalseElseMsgBox("填写数据不完整，请核实，再保存”)=1:=1=FalseEndIfEndSubPrivateSubComqx_Click()Fori=1To101Forj=lTo8(i，j)=""NextjNexti=False:=True:=False=False="0":="0":="0"="O":="0"：=,H,EndSubPrivateSubComend_Click()=TrueUnloadMeEndSub.库存商品查询模块PrivateSubForm_Activate()(嘀品编号”)("商品名称”)(呛库”)=1=&"操作员："&SubPrivateSubForm_Unload(CancelAsInteger)=TrueEndSubPrivateSubComfind_Click()="select*fromkcwhere(kc.M&&"like+”'++EndSubPrivateSubComend_Click()=TrueUnloadMeEndSub.销售查询模块PrivateSubForm_Activate()("商品编号”)("商品名称”)(喀户”)("票号”)=1("like")/II||\=0="selectcount(*)as品种,sum(数量)as数量1,sum(金额)as金额lfromxsd”If<>,H,Then=Else=0If<>,H,Then=Else=0If<>""Then=Format"")Else=""=&"操作员："& =Date-30:=DateEndSubPrivateSubForm_Unload(CancelAsInteger)=TrueEndSubPrivateSubComfind_Click()IfCheckl(0).Value=0AndCheckl(l).Value=1ThenSelectCaseCaseIs="like"="select*fromxsdwhere(xsd."&&"like'%'+=Mselectcount(*)aspz,sum(数量)as数量l’sum(金额)as金额1fromxsdwhere(xsd."&&"like+'%'+CaseIs="="="select*fromxsdwhere(xsd."&&”="'++=Mselectcount(*)aspz,sum(数量)as数量l’sum(金额)as金额1fromxsdwhere(xsd."&+.MJMEndSelectEndIfIfCheckl(0).Value=1AndCheckl(l).Value=0Then=nselect*fromxsdwherexsd.□期between1,1+Str+,HAND,n+Str+,,,M="selectcount(*)aspz,sum(数量)as数量1,sum(金额)as金额1fromxsdwherexsd,日期betweenM,+Str+,HANDH,+Str+EndIfIfCheckl(O).Value=1AndCheckl(l).Value=1ThenSelectCaseCaseIs="like"="select*fromxsdwhere(xsd."&&"like'%'+++",+'%'andxsd.□期between""+Str+“'AND"'+Str+“')”="selectcount(*)aspz/sum(数量)as数量Lsum(金额)as金额1fromxsdwhere(xsd."&&"like+'%'+"'++*"+'%,andxsd.□期between"'+Str+"'AND+Str+CaseIs="="="select*fromxsdwhere(xsd."&&"="'++'"andxsd.eubetween+Str+'"AND+Str+"')"="selectcount(*)aspz/sum(数量)as数量Lsum(金额)as金额1fromxsdwhere(xsd."&&"=++"'andxsd.□期between+Str+"'AND"'+Str+EndSelectEndIfIf<>,H,Then=Else=0If<>,H,Then=Else=0If<>""Then=Format"")Else=""EndSubPrivateSubComend_Click()=TrueUnloadMeEndSub.付款单模块PrivateSubForm_Activate()=&" 操作员："&SubPrivateSubForm_Unload(CancelAsInteger)=TrueEndSubPrivateSubDataCombol_Change()=Trim=nselect*fromgysmxwheregysmx.供应商全称like,H+Trim+H,+'%'orderby□期,时间“If=FalseThenSubPrivateSubCommandl_Click()=nselect*fromgysmxwhere供应商二”'++"'andabs(累计余额)>0orderby□期,时间"If>0ThenIf=FalseThenIfAbs(Val”累计余额")))>0Then=”累计余额”)If=FalseThenEndIf="select*fromgysmxwhere供应商』"++"'orderby口期，时间”If=FalseThen "口期")=Date“时间"hTimeIf<>""仆6鼠，供应商全称")=”摘要")="付款:付「&&T&&"元"”付款合计")=Format(Valz"")”累计余额')=Format((Val-Vai),"")EndSubPrivateSubCommand2_Click()=TrueUnloadMeEndSub.应付款查询模块PublicSubStat_qk_fk_ye()If>0ThenIf<>,H,Then=Else=0If<>,H,Then=Else=0=Vai-VaiEndIfEndSubPrivateSubForm_Activate()=Date-30:=Date="selectsum(欠款计帐)as欠款,sum(付款合计)as付款fromgysmx"CallStat_qk_fk_ye=&"操作员："&SubPrivateSubForm_Unload(CancelAsInteger)=TrueEndSubPrivateSubDataCombol_Change()=TrimEndSubPrivateSubComfind_Click()="select*fromgysmxwhere供应商全称="'++'"and口期between+Str+And+Str+"'orderby□期耐间"="selectsum(欠款计帐)as欠款,sum(付款合计)as付款fromgysmxwhere供应商全称="'++'"andgysmx.□期between,H+Str+And+Str+,,M,CallStat_qk_fk_yeEndSubPrivateSubComExit_