数据库商品销售管理系统课程设计.doc

课 程 设 计课程设计名称： 数据库应用课程设计 专 业 班 级 ： 计算机应用与技术 学 生 姓 名 ： 学 号 ： 指 导 教 师 ： 课程设计时间：2011.12.20-2010.12.24 计算机应用技术专业课程设计任务书学生姓名专业班级学号题 目商品销售管理系统课题性质A工程设计课题来源D自拟课题指导教师同组姓名何亚伟主要内容主要内容：商品销售系统是用来帮助使用者管理商品销售流程的软件。使用者通过对销售过程中所涉及到的商品、订单、销售商等信息的录入，便可以提供给不同的用户能够轻松实现商品销售流程的管理。系统开发的目的是在节省人力的基础上更加快捷方便的为顾客服务并为公司盈利。任务要求 前台开发工具用的是vb，后台数据库采用的SQL SERVER.在所设计的软件中必须向使用者提供商品基本的录入、删除、编辑等功能。能对各种商品的基础信息进行维护和管理。能够完成商品信息的添加修改和删除，也可以按照一定的条件查询商品信息。参考文献1 龚沛曾、杨志强、袁科萍 数据库技术与应用【M】 北京：高等教育出版社，20082 宣小平.ASP.NET数据库系统开发实例导航.上海:人民邮电出版社,2003.P.121-130.3 金银秋.数据库原理与设计.北京:科学出版社,2003.P.201-230.4 张海藩. 软件工程.北京:人民邮电出版社,2002.P.75-80.5 沃尔森. ASP.NET2.0揭秘（卷1）. 谭振林.北京:人民邮电出版社. 2007-10-1.P.132-138.6 朱晔. ASP.NET 第一步基于C#和ASP.NET2.0.北京:清华大学出版社,.2007-7-1.P.301-310. 审查意见指导教师签字：教研室主任签字： 2010年 12月 20 日 一、 需求分析1 系统需求分析销售管理是企业管理的一个重要管理环节，它的特点是信息量大，要求信息反馈迅速，对企业经济效益能够产生直接的影响。同时，它与他的其他管理环节如库存管理销售账务管理等关系十分密切。采用传统的手工管理模式，其工作效率管理质量和管理水平已不能满足当今经营管理发展的要求，也无法和国外的企业进行竞争。只有采用先进的计算机管理技术，把一些科学管理的技术及管理方式融入到企业销售管理中，才能提高工作效率和企业的管理水平，使企业能够随着市场的动态变化而随时调整自身的销售业务流程，在瞬息万变的市场竞争中脱颖而出。商品销售系统是用来帮助使用者管理商品销售流程的软件。使用者通过对销售过程中所涉及到的商品、订单、销售商等信息的录入，便可以提供给不同的用户能够轻松实现商品销售流程的管理。因此该系统必须向使用者提供一下如下的一些具体功能：1、 在所设计的软件中必须向使用者提供商品基本的录入、删除、编辑等功能。2、 由于商品具有不同的销售方式（可分为订单销售和代理商销售这两种形式），所以软件必须得向使用者提供商品销售这个环节中的基本管理功能，所以必须要有订单分销模块和代理商分销模块。3、 软件必须得向使用者提供最基本的查询功能。4、 由于是销售管理软件，所以系统安全性必须是考虑的问题。因此，必须实现以下两点：（1）系统操作员机制。对系统的使用者，按等级开房管理权限，这样可以在一定程度上保证数据库系统的安全性，避免数据被泄漏，非法更改等。（2）销售数据直接反映了一个销售单位的盈亏状况，鉴于销售的数据的重要性，所以必须对这些数据加以保护，在系统崩溃时或者误操作等情况下，可以对数据进行恢复。这需要系统提供备份功能。5、 对于销售数据不能只存储在计算机中，而是需要到处步骤，最后以印刷品的形式出现在使用者面前，该软件设计的最终目的才能以具体的实现。所以，打印功能是必不可少的系统功能之一。2 数据库需求分析数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。数据库技术是由传统的文件系统发展而来的，从层次模型、网状模型发展到关系模型。数据库技术是数据管理的最新技术，是计算机科学的一个重要分支，它能指导我们正确地设计数据库系统，它的出现极大地促进了计算机应用的发展。采用数据库技术的原理和方法可以有效地设计实用的数据库系统。一个完整的数据库系统包括数据库管理系统（DBMS），数据库管理员（DBA）、数据库（DB）、应用程序和相应的硬件设施。目前许多数据库管理系统都基于关系模型，关系模型的主要特点是用表格结构表达实体，用键表示实体与实体之间的联系。与层次模型和网状模型相比，关系模型比较简单，容易为初学者接受。关系模型是由若干个关系模式组成的集合，关系模式相当于记录类型，它的实例称为关系。每个关系是一张表格。表格简单，用户易懂，用户只需用简单的查询语句就可以对数据库进行数据操作，并不涉及到存储结构，访问技术等细节。关系模型是数学化的模型，要用到集合论，离散数学等知识。SQL语言是关系数据库的代表性语言，已经得到广泛应用。在设计数据库时，应注意数据的安全性，保证数据的安全，防止非法用户访问数据库，以免泄露重要信息，同时也能51防A止s非px法用户的蓄意破坏，有许多保护数据的方法，如采用用户标识，口令和密码或访问控制等方法。一个成功的数据库应用系统应具有用户标识，每一个合法用户具有一个用户名和相应的口令，进入数据库应用系统前必须输入正确的口令，否则无法进入系统，这就保证了只有合法的用户才能操作数据库系统。为了保证数据的合法语义，必须对数据库的数据进行完整性约束，即防止用户输入不合语义的数据。在设计应用软件时，应严格按照软件工程学的方法进行设计，传统的方法采用瀑布模型，从问题定义、可行性分析、需求分析、概念设计、总体设计、系统实现、编码和软件测试、运行和维护等软件生命周期内，每一阶段均在前一阶段的基础上进行设计，并在每一阶段有相应的文档资料。设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。数据库设计一般包括如下几个步骤：数据库需要分析，数据库概念结构设计，数据库逻辑结构设计。二、概要设计1概述商品销售管理的主要任务是用计算机对商品销售信息进行日常的管理，如销售开单销售收款销售退货，迅速准确地完成各种销售信息的统计计算和汇总工作，并快速打印商品销售报表。我们针对系统服务对象的具体要求，设计了本商品销售管理系统。本商品销售管理系统主要有以下几大功能： 1、对各种商品的基础信息进行维护和管理。能够完成商品信息的添加修改和删除，也可以按照一定的条件查询商品信息。 2、对商品的批量销售进行处理。顾客购买商品可能是一种也可能是多种，如果能够处理批量销售，就会大大提高工作效率。因此，设计系统时应考虑到这些情况。 3、客户欠款管理。在销售收款中，记录客户欠款信息和客户还款信息。 4、库存商品查看。随时监控库存商品品种和数量。 5、 查询统计功能。要求可以按日期查询和可以按用户选择的字段和输入的内容查询，并在查询过程中统计销售数量和销售金额。6、销售汇总功能。分别按客户商品和销售员汇总销售品种销售数量和销售金额。2. 项目研究的意义和立项依据1、项目研究的意义 一般来说,网上购物系统是由前台系统和后台系统两部分构成的。前台系统是供商品销售使用的浏览器界面,在这里可以注册会员、浏览商品、购物、留言及选择支付。后台系统主要是进行商品信息的管理、发布和修改,同时要进行会员管理、管理员账号管理。 目前,电子商务中的网上购物已是日渐成熟的技术。网上商品购物系统的特点是经营商品类别与百货商店相比较为单一、便于在网上展示商品特征。商品体积与质地适合于快速配送。简而言之,网上商城中的商品应是易于被广大网络用户所接受的那种类型。 本文就是设计一个网上商品系统并在多方面都运用电子网络信息化管理的手段，从根本上使传统的商务活动转变成为一种低成本、高效率的商务活动。2、立项依据 本公司存在的问题：信息化不足，公司知名度底，大量的日常销售工作皆是人工处理，因此工作效率低落，企业经济效率低下等等问题很难克服。要提升企业竞争力，降低企业运营成本，企业销售的信息化是不可缺少的一个步骤。使用先进的网上销售系统，实现企业销售信息管理、共享及交流，才能让企业在竞争激烈的21世纪取得先机。3系统目标初步分析了当前公司销售方面存在的问题，联系实际情况设计实现了一个以网上商品销售为主的网上交易平台。该系统实现了部分ERP的功能，尽力做到降低实施成本，减少实施风险 ，加快实施进度 ，增加投资回报。企业的销售管理往往是很复杂，繁琐的，由于掌握的种类商品众多，订货，管理，发放的渠道各有差异，各个企业之间的管理体制不尽相同，各类统计计划报表繁多，因此商品销售管理必须实现信息化，而且必须根据企业的具体情况制定以便提高工作效率。根据当前的企业管理体制，一般的销售系统，总是根据所掌握的商品类别，进行商品的上架，订货，发货，根据用户的需要来发送商品，并随时进行商品盘点，定单管理，根据自身管理的需要进行统计分析，为了加强关键商品管理，要定期掌握其储备消耗情况，根据计划定额和实际消耗定额的比较，进行定额管理。所以一个完整的电子商务网站应包括商品信息查询，网上购物，新品及特价商品管理，后台管理等模块。4、项目的可行性研究商业企业在运营过程中，经常会受到以下一些条件的限制：产品的宣传受到限制，采购商或顾客只能通过上门咨询、电话沟通等方式进行各种信息的获取，受一定的时间与物理空间的局限并且成本较高。庞大的商业经济周转。复杂的产品周转渠道。从看样品、谈价格到支付货款等一系列的产品周转渠道过于复杂，企业与顾客之间缺乏全面的沟通与快捷运营的平台。商业企业中根据季节的变化，热销商品在销售高峰到来时货源紧张，企业需要实时了解商品的销售情况，保证热销商品的要货满足率。因此，企业需要重新认识市场、消费者以及自身市场定位，正确认识电子商务技术在企业中的重要地位，以少量的时间和资金建立企业信息门户网站并架设一定范围的商务网络，以此来制定长远发展战略，使企业与顾客间的经济活动变得更有效、更灵活、更主动。可行性分析研究的目的，就是用最小的代价在尽可能短的时间内确定问题是否能够解决。一般来说可行性分析至少应该从下述三方面研究每种解法的可行性，即技术可行性、经济可行性、操作可行性。三、详细设计1用户登录窗体 本窗体的任务是通过用户输入密码判断用户是否是合法的用户.它用于管理员按照用户名和密码进行登录。以免不相关得人进入系统进行不良的操作，而对系统进行破坏，导致整个系统进行瘫痪。 所应用的程序为：Dim Tim As Integer 定义一个整型变量Dim rs1 As New ADODB.Recordset 定义一个数据集对象Dim myval As String 定义一个单精度浮点型变量Private Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus text2获得焦点End SubPrivate Sub Form_Activate() DataCombo1.SetFocusEnd SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Cmd1.Visible = True Cmd1.SetFocus End IfEnd SubPrivate Sub Cmd1_Click() rs1.Open select * from 操作员信息表 where 操作员名称= & DataCombo1.BoundText & , Cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount 0 Then If DataCombo1.Text = Then MsgBox (请选择操作员！), vbOKOnly DataCombo1.SetFocus Exit Sub End If 验证操作员及密码 Dim MESSAGE As String Textime.Text = Tim If Text2.Text = rs1.Fields(密码) Then Load frm_main frm_main.Show czy = DataCombo1.Text Unload Me Else If Tim = 3 Then MESSAGE = MsgBox(密码输入错误,请向系统管理员查询!, 0, ) If MESSAGE = vbOK Then End End If If Text2.Text rs1.Fields(密码) Then MsgBox (密码错误,请重新输入密码!) Tim = Tim + 1 Text2.SetFocus End If End If Else Unload Me End If rs1.CloseEnd SubPrivate Sub cmd2_Click() EndEnd Sub 2 主窗体该窗体是本系统的统筹界面。它是系统的结构匡架，便于对整个系统的观摩、管理.应用程序：Private Sub Form_Load() 在标题栏上显示软件名称及版本 Me.Caption = App.Title & 版本： V & App.Major & . & App.Minor & . & App.Revision Dim i As Integer 定义整型变量 For i = 0 To 1 Label1(i).Caption = App.Title Next i Label2.Caption = 版本： V & App.Major & . & App.Minor & . & App.RevisionEnd SubPublic Sub updateStatusBar(ByVal PanelNum As Integer, ByVal StringVal As String, ByVal Bitmap As Boolean) If Not Bitmap Then St1.Panels(panelnume).Text = StringVal Else End If End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) St1.Panels(1).Text = updateStatusBar(1, frm_main.jcxxgl.Caption, True)End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case Is = xs 调入销售窗口 xskd_Click Case Is = xsth 调入销售退货窗口 xsth_Click Case Is = xscx 调入销售查询窗口 xscx_Click Case Is = xsbb 调入客户销售汇总窗口 khxshzb_Click Case Is = xssk 调入销售收款窗口 xssk_Click Case Is = kh 调入客户信息管理窗口 khxxgl_Click Case Is = xsy 调入销售员信息管理窗口 xsyxxgl_Click Case Is = help 调入帮助窗口 myhelp_Click End SelectEnd SubPrivate Sub Timer1_Timer() 设置时间 St1.Panels(1).Text = Format(Date, long date) & & TimeEnd SubPrivate Sub xskd_Click() 调入销售窗口 Load main_rcyw_xs main_rcyw_xs.Show frm_main.Enabled = FalseEnd SubPrivate Sub xssk_Click() 调入销售收款窗口 Load main_rcyw_xssk main_rcyw_xssk.Show frm_main.Enabled = FalseEnd SubPrivate Sub xsth_Click() 调入销售退货窗口 Load main_rcyw_xsth main_rcyw_xsth.Show frm_main.Enabled = FalseEnd SubPrivate Sub xscx_Click() 调入销售查询窗口 Load main_cxtj_xscx main_cxtj_xscx.Show frm_main.Enabled = FalseEnd SubPrivate Sub xsthcx_Click() 调入销售退货查询窗口 Load main_cxtj_xsthcx main_cxtj_xsthcx.Show frm_main.Enabled = FalseEnd SubPrivate Sub skcx_Click() 调入应收款查询窗口 Load main_cxtj_skcx main_cxtj_skcx.Show frm_main.Enabled = FalseEnd SubPrivate Sub kccx_Click() 调入库存商品查询窗口 Load main_cxtj_kccx main_cxtj_kccx.Show frm_main.Enabled = FalseEnd SubPrivate Sub khxshzb_Click() 调入客户销售汇总表 Load main_xsbb_khxshzb main_xsbb_khxshzb.Show frm_main.Enabled = FalseEnd SubPrivate Sub khxsmxb_Click() 调入客户销售明细表 Load main_xsbb_khxsmxb main_xsbb_khxsmxb.Show frm_main.Enabled = FalseEnd SubPrivate Sub spxshzb_Click() 调入商品销售汇总表 Load main_xsbb_spxshzb main_xsbb_spxshzb.Show frm_main.Enabled = FalseEnd SubPrivate Sub spxsmxb_Click() 调入商品销售明细表 Load main_xsbb_spxsmxb main_xsbb_spxsmxb.Show frm_main.Enabled = FalseEnd SubPrivate Sub ywyxshzb_Click() 调入业务员销售汇总表 Load main_xsbb_xsyxshzb main_xsbb_xsyxshzb.Show frm_main.Enabled = FalseEnd SubPrivate Sub ywyxsmxb_Click() 调入业务员销售明细表 Load main_xsbb_ywyxsmxb main_xsbb_ywyxsmxb.Show frm_main.Enabled = FalseEnd SubPrivate Sub spxxgl_Click() 调入商品信息管理窗口 Load main_jbxx_spll main_jbxx_spll.Show frm_main.Enabled = FalseEnd SubPrivate Sub xsyxxgl_Click() 调入销售员信息管理窗口 Load main_jbxx_xsrycx main_jbxx_xsrycx.Show frm_main.Enabled = FalseEnd SubPrivate Sub khxxgl_Click() 调入客户信息管理窗口 Load main_jbxx_kh main_jbxx_kh.Show frm_main.Enabled = FalseEnd SubPrivate Sub czysz_Click() 调入操作员及密码管理窗口 Load main_xtsz_czysz main_xtsz_czysz.Show frm_main.Enabled = FalseEnd SubPrivate Sub qxsz_Click() 调入权限设置 Load main_xtsz_qxsz main_xtsz_qxsz.Show frm_main.Enabled = FalseEnd SubPrivate Sub xtcsh_Click() 调入初始化窗口 Load main_xtsz_xtcsh main_xtsz_xtcsh.Show frm_main.Enabled = FalseEnd SubPrivate Sub myhelp_Click() 调入帮助窗口 Load frmTip frmTip.Show frm_main.Enabled = FalseEnd SubPrivate Sub about_Click() 调入关于窗口 Load frmAbout frmAbout.Show frm_main.Enabled = FalseEnd SubPrivate Sub exit_Click() EndEnd SubPrivate Sub 退出_Click() EndEnd Sub3 日常业务（1）销售开票在这个窗口能看到已经销售所开的票 商品登记所用程序： If KeyCode = vbKeyReturn Then With Adodc2.Recordset If .RecordCount 0 Then 判断是否有记录 If .Fields(商品名称) Then 赋值给MS1表格 If .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.Text 赋值给text1 text1.SetFocus text1获得焦点 MS1.Col = 6 grid1.Visible = False grid1不可见 Else MsgBox (无数据选择!) grid1.Visible = False text1.SetFocus End If End If End With text1.SetFocus End If If KeyCode = vbKeyEscape Then 按ESC键grid1不可见 grid1.Visible = False text1.SetFocus text1获得焦点 End IfEnd Sub （2） 销售退货在这里可以添加自己想退的商品的。退货信息所用程序：Private Sub Command1_Click() Dim r As Integer For i = 0 To 12 DataGrid1.Col = i MS1.TextMatrix(MS1.Rows - 1, i) = DataGrid1.Text Next i MS1.AddItem (1)End SubPrivate Sub Command2_Click() Dim r, c As Integer rs1.Open select * from 销售退货信息表, Cnn, adOpenKeyset, adLockOptimistic 打开数据库 For r = 1 To MS1.Rows - 2 添加新记录到销售信息表表中 rs1.AddNew For c = 0 To 12 rs1.Fields(c) = Trim(MS1.TextMatrix(r, c) Next c rs1.Fields(退货日期) = Date Next r rs1.Update rs1.Close MsgBox 退货成功！, , 明日软件End SubPrivate Sub Command3_Click() Call CmdEnd(Me)End SubPrivate Sub DataCombo1_Click(Area As Integer) Adodc1.RecordSource = select * from 销售信息表 where 票号= + Trim(DataCombo1.Text) + Adodc1.RefreshEnd SubPrivate Sub DataGrid1_Click()End Sub4 客户销售汇总表客户销售汇总：Private Sub Form_Activate() 向combo1添加查询项目列表 Combo1.AddItem (商品编号) Combo1.AddItem (商品名称) Combo1.AddItem (客户全称) Combo1.AddItem (票号) Combo1.ListIndex = 1 向combo2中添加查询条件列表 Combo2.AddItem (like) Combo2.AddItem (=) Combo2.ListIndex = 0 汇总记录、数量、金额 Adodc2.RecordSource = select count(*)as 品种,sum(数量)as 数量1,sum(金额)as 金额1 from 销售信息表 Adodc2.Refresh If Adodc2.Recordset.Fields(0) Then Labpz.Caption = Adodc2.Recordset.Fields(0) Else Labpz.Caption = 0 If Adodc2.Recordset.Fields(1) Then Labsl.Caption = Adodc2.Recordset.Fields(1) Else Labsl.Caption = 0 If Adodc2.Recordset.Fields(2) Then Labje.Caption = Format(Adodc2.Recordset.Fields(2), 0.00) Else Labje.Caption = 0.00 DTP1.Value = Date - 30 DTP2.Value = DateEnd Sub5 基本信息管理（1）客户信息管理显示客户的详细信息，能够方便的找到客户客户信息列表程序：Public Sub view_data() 定义显示数据的函数 For i = 0 To 13 If Adodc1.Recordset.RecordCount 0 Then kh(i).Text = Adodc1.Recordset.Fields(i) Else kh(i).Text = Next iEnd SubPrivate Sub Form_Activate() 向combo1中添加查询项目列表 Combo1.AddItem (客户编号) Combo1.AddItem (客户全称) Combo1.ListIndex = 1 打开客户信息表 rs1.Open select * from 客户信息表 order by 客户编号, Cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount 0 Then For i = 0 To 13 If rs1.Fields(i) Then kh(i).Text = rs1.Fields(i) Next i End If rs1.Close 关闭数据集对象End SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub kh_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn And Index 1 Then kh(Index - 1).SetFocusEnd Sub（2）商品信息管理在这里方便对商品进行管理商品基本信息程序：Private Sub Form_Load() 向cboOperators组合框中加入查询所需要使用的运算符号 cboOperators CboOp 通过传递进来的SQL语句，取得表的各个字段的结构 Dim rs As New ADODB.Recordset rs.Open select * from 商品信息表, Cnn, adOpenKeyset, adLockReadOnly 将字段填入到字段列表中 Dim fld For Each fld In rs.Fields CboFields.AddItem fld.Name Next fld rs.Close CboFields.ListIndex = 0End SubPrivate Sub CmdAdd_Click() Dim bh As Long Dim rs1 As New ADODB.Recordset rs1.Open select * from 商品信息表 order by 商品编号, Cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount 0 Then If rs1.EOF = False Then rs1.MoveLast bh = Val(rs1.Fields(商品编号) + 1 main_jbxx_spinf.Text1(0).Text = Format(bh, 00000) Else main_jbxx_spinf.Text1(0).Text = 00001 End If Load main_jbxx_spinf main_jbxx_spinf.ShowEnd SubPrivate Sub CmdFind_Click() If CboOp.Text = Like Then Adodc1.RecordSource = select * from 商品信息表 where & CboFields.Text & & CboOp.Text & % & TxtExpression.Text & % Adodc1.Refresh Else Adodc1.RecordSource = select * from 商品信息表 where & CboFields.Text & & CboOp.Text & & TxtExpression.Text & Adodc1.Refresh End IfEnd SubPrivate Sub CmdModify_Click() For i = 0 To 7 对应列 DataGrid1.Col = i main_jbxx_spinf.Text1(i) = DataGrid1.Text Next i Load main_jbxx_spinf main_jbxx_spinf.ShowEnd SubPrivate Sub CmdDelete_Click() Dim a As String If Adodc1.Recordset.RecordCount 0 Then a = MsgBox(您确实要删除这条数据吗?, vbYesNo) If a = vbYes Then Adodc1.Recordset.Delete Adodc1.Refresh End If Else MsgBox (没有要删除的数据!) End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) Call CmdEnd(Me)End Sub6商品信息商品的简介商品简介：Private Sub Form_Activate() Text1(1).SetFocusEnd SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn And Index 1 Then Text1(Index - 1).SetFocusEnd SubPrivate Sub CmdSave_Click() Dim a As String rs1.Open select * from 商品信息表 where 商品编号= & Text1(0).Text & order by 商品编号, Cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount 0 Then a = MsgBox(您确实要修改这条数据吗?, vbYesNo) If a = vbYes Then For i = 1 To 7 If Text1(1).Text Then rs1.Fields(i) = Trim(Text1(i).Text) Next i rs1.Update main_jbxx_spll.Adodc1.Refresh End If Else If Text1(1).Text And Text1(2).Text Then 添加商品信息 rs1.AddNew For i = 0 To 6 rs1.Fields(i) = Trim(Text1(i).Text) Next i rs1.Fields(7) = Val(Text1(7).Text) 更新数据库 rs1.Update main_jbxx_spll.Adodc1.Refresh Else MsgBox 请填写完整的信息 End If End If 关闭数据集对象 rs1.Close Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub CmdEnd_Click() Unload MeEnd Sub7 销售人员信息这里显示的是销售员的信息，方便记账，分清个人的销售业绩。 销售人员的个人信息：Private Sub Form_Load() 向cboOp组合框中加入查询所需要使用的运算符号 cboOperators CboOp 通过传递进来的SQL语句，取得表的各个字段的结构 Dim rs As New ADODB.Recordset rs.Open select * from 销售人员信息表, Cnn, adOpenKeyset, adLockReadOnly 将字段填入到字段列表中 Dim fld For Each fld In rs.Fields CboFields.AddItem fld.Name Next fld rs.Close CboFields.ListIndex = 0End SubPrivate Sub CmdAdd_Click() Dim bh As Long Dim rs1 As New ADODB.Recordset rs1.Open select * from 销售人员信息表 order by 销售员编号, Cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount 0 Then If rs1.EOF = False The