VisualBasic物資管理.doc

源代码请联系QQ:68661508目录第1章 概述21.1 技术综述21.2 项目背景21.3 开发平台2第2章 需求分析32.1 业务需求及功能列表32.2 数据要求3第3章 系统设计3第4章 数据库设计54.1 数据库需求分析54.2 数据库概念结构设计64.3数据库逻辑结构的设计8第5章 数据库结构实现105.1 创建数据库Material115.2 创建视图13第6章 代码设计136.1 物资管理信息系统主窗体的创建136.2 系统用户管理模块的创建166.3 物资基本信息模块的创建206.4 物资入库信息管理模块的创建286.5 物资出库信息管理模块的创建296.6 物资余额信息管理模块的创建29第7章 测试30第8章 结论38第9章 课程设计总结39参考文献39第1章 概述1.1 技术综述本系统所使用的开发语言是Visual Basic6.0(简称VB6.0)。VB6.0在和数据库应用程序的开发中，提供了包括数据窗体控件和数据窗体对象等功能强大的工具，连接数据库文件，并访问其中数据，该语言不仅具有一般数据库语言的特点，而且有可视化的特点，是一种非常优秀的计算机软件开发语言。在屏幕的颜色搭配上突出了整体和协调原则，尽量减少多色调的无序使用，力求模块颜色搭配一致，又有一些变化，但风格统一。在窗体的格式上，基本上采用了统一的标准，命令按钮采用了统一的布局。本系统具有很强的针对性和实用性，主要是面向企业的具体的案例。1.2 项目背景物资管理是一般工业、商业企业生产管理环节中重要的一环，需要对物资基本信息管理、物资调配信息等进行完整的监控。物资入库首先要登记物资的基本信息，包括物资的种类、名称、型号、单位、单价等；然后登记物资入库信息，包括物资基本信息、入库地点、入库人、经办人、数量等；根据物资的入库、出库过程的综合，得到各种物资的余额信息，方便进行后续工作。因此物资管理信息系统需要纪录物资流通的全过程。加强物资管理，不但有算得出、看得到的效益，还可以大大提高管理队伍的素质，加强职工的增产节约意识、爱护财产意识和学习科技的意识，使科学管理形成共识，并可以减少物资设备各个环节上的矛盾。1.3 开发平台硬件环境：服务器端基本要求：P41.8以上+256M内存+10G以上硬盘；客户机端：P4600，40M内存，Win98、Win2000。软件环境：Visual Basic + SQL Server 2000Visual Basic6.0作为Microsoft公司开发的Basic Studio6.0套件的一部分，是一个功能丰富、方便实用的程序开发环境，它的一个很大的特色就是功能强大、编程简单的数据库操作能力。可视化的开发环境、丰富的数据库访问空间的支持使得Visual Basic成为数据库应用程序项目中重要的开发工具。Microsoft SQL Server 2000中文版是基于客户机/服务器模式的新一代大型数据库管理系统，它在电子商务、数据仓库和数据库解决方案等应用中起着重要的核心作用，可为企业的数据管理提供强大的支持，并采取有效的措施来实现数据的安全性、完整性、备份和恢复。是目前广泛使用的关系型数据库。ADO（ActiveX Data Object）是微软提出的数据访问接口，提供访问各种数据类型的连接机制，其集中了DAO和ROD的优点，可以通过简单的变成完成和各种数据结构进行连接。第2章 需求分析2.1 业务需求及功能列表2.1.1 业务需求长期以来，物资管理工作中的信息管理是采用人工的方式，要付出大量人力，填写各种表格、凭证、账册、卡片和文件。由于信息是随着时间不断变化的，各业务部门对信息的使用要求也各不相同，所以要按照不同的分类经常不断地汇总、统计，往往要做许多重复登记和转抄。这种手工操作的管理方式，不仅浪费人力，而且存在许多缺点：（1）处理速度慢，影响信息及时性。（2）易出现错误，影响信息精确性。（3）不便于查询。（4）缺乏综合性，不能起控制作用。由于这些缺点，大大降低了信息的利用价值，显然越来越不适应现代物资管理工作的需要。因此，发展以电子计算机为基础的物资管理信息系统已是十分迫切和必要的了。2.1.2 功能列表 有关物资信息的基本输入、查询和修改，入库物资信息的输入、查询和修改，出库物资信息的输入、查询和修改以及物资余额的查询和浏览。2.2 数据要求创建系统用户表 user_Info1create table dbo.user_Info1(user_ID char (10) collate chinese_PRC_CI_AS NOT NULLuser_PWD char (10) collate chinese_PRC_CI_AS NULLuser_Des char (10) collate chinese_PRC_CI_AS NULL利用SQL Server 2000 数据库系统中的 SQL 查询分析器实现的，通过查询分析器来运行数据库系统。第3章 系统设计系统开发的总体任务是实现物资信息的系统化、规范化、和自动化。系统功能分析是在系统开发的总体任务完成的基础上完成的，本物资管理信息系统需要完成的功能的主要有：l 有关物资信息的基本输入，包括物资编号、物资名称、规格型号、种类和计量单位等。l 物资基本信息的查询。l 物资基本信息的修改。l 入库物资信息的输入。l 入库物资信息的修改。l 入库物资信息的查询。l 出库物资信息的输入。l 出库物资信息的修改。l 出库物资信息的查询。l 物资余额信息的查询。l 物资余额信息的浏览。系统功能模块设计 对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如图1所示的系统功能模块图。系统管理物资基本信息管理物资出库信息管理物资入库信息管理物资余额信息管理用户管理密码管理物资基本信息添加物资基本信息查询物资基本信息修改入库物资信息添加入库物资信息修改入库物资信息查询出库物资信息添加出库物资信息修改出库物资信息查询物资余额信息查询物资余额信息浏览物资管理信息系统图3.1 系统功能模块图第4章 数据库设计设计数据库系统时应该首先了解用户各个方面的需求，包括现有的以及将来可能增加的需求。数据库设计一般包括如下几个步骤：l 数据库需要分析。l 数据库概念结构设计。l 数据库逻辑结构设计。4.1 数据库需求分析4.1.1数据流图用户的需求具体体现在各种信息的提供、保存、更新和查询等方面，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。 仔细分析调查有关物资管理信息需求的基础上，将得到入图1所示的本系统所处理的数据流程出库物资信息管理入库物资信息管理物资余额信息管理物资调配物资基本信息管理基本信息录入物资登记 图4.1 物资管理信息系统数据流程图针对一般物资管理信息系统的需求，通过对物资调配工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：l 物资基本信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位等。l 入库物资信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位、数量、单价、金额、领用时间、领用人、经办人、保管人、仓库、备注等。l 出库物资信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位、数量、单价、金额、领用时间、领用人、经办人、保管人、仓库、备注等。l 物资余额信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位、数量、金额、仓库等。4.2 数据库概念结构设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种试题以及它们之间的关系，为后面的逻辑结构设计打下基础。这些试题包含各种具体信息，通过相互间的作用形成数据的流动。本系统根据上面的设计规划出的实体有：物资基本信息实体、物资入库信息实体、物资出库信息实体、物资余额信息实体。各个实体具体的描述E-R图如下：物资基本信息实体计量单位物资编号物资规格物资名称图4.2 物资基本信息实体E-R图物资入库信息实体保管人物资基本信息经办人入库时间图4.3 物资入库信息实体E-R图物资出库信息实体领用人物资基本信息经办人出库时间图4.4 物资出库信息实体E-R图物资出库信息实体仓库物资基本信息数量金额图4.5 物资余额信息实体E-R图出库物资信息入库物资信息物资余额信息物资调配物资基本信息物资登记物资 图4.6 实体之间关系的E-R图用powerdesigner设计该数据库的概念模型，如下图图4.7 物资出库和入库的概念模型图4.3 数据库逻辑结构的设计4.3.1 powerdesigner设计物理模型利用powerdesigner建立实体，并建立之间的关系。再将概念模型转化为物理模型，如下图所示。图4.8 物资出库和入库的物理模型图现在将上面的数据库概念结构转化为SQL Server 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。4.3.2 表格设计物资管理信息系统数据库中各个表格的设计结果如下面表格所示。每个表格在数据库中的一个表。表4.1 msurplus 物资余额信息表列名数据类型可否为空说明yeidvarcharNOT NULL物资编号yenamevarcharNOT NULL物资名称yespecvarcharNULL规格型号yekindvarcharNULL类别yeunitnumericNULL 计量单位yeaccountnumericNOT NULL数量yevaluenumericNOT NULL金额yebasevarcharNOT NULL仓库yememotextNULL备注表4.2 Material 物资基本信息表列名数据类型可否为空说明wzidvarcharNOT NULL物资编号wznamevarcharNOT NULL物资名称wzspecvarcharNOT NOT规格型号wzkindvarcharNULL类别wzunitvarcharNULL计量单位表4.3 msave 入库物资信息表列名数据类型可否为空说明rknovarcharNOT NULL入库编号rkidvarcharNOT NULL入库物资编号rknamevarcharNULL物资名称rkspecvarcharNULL规格型号rkkindvarcharNULL种类rkunitvarcharNULL单位rkaccountnumericNOT NULL数量rkpricenumericNOT NULL单价rkvaluenumericNOT NULL金额rkdatedatetimeNOT NULL入库时间rkdeal_personvarcharNOT NULL经办人rksave_personvarcharNOT NULL保管人rkbasevarcharNULL仓库rkmemotextNULL备注表4.4 muse 出库物资信息表列名数据类型可否为空说明lynovarcharNOT NULL出库编号lyidvarcharNOT NULL出库物资编号lynamevarcharNULL物资名称lyspecvarcharNULL规格型号lykindvarcharNULL种类lyunitvarcharNULL单位lyaccountnumericNOT NULL数量lypricenumericNULL单价lyvaluenumericNULL金额lydatedatetimeNOT NULL出库时间lyuse_personvarcharNOT NULL经办人lydeal_personvarcharNOT NULL保管人lybasevarcharNULL仓库lymemotextNULL备注4.3.3 数据库关系模式根据关系模式转换规则，把E-R图转换为关系模式，如下所示(有实下划线的为主码)：物资基本信息=(物资编号,物资名称,规格型号,类别，计量单位)入库物资基本信息=(入库编号,入库物资编号，物资名称，规格型号，种类，单位，数量，单价，金额，入库时间，经办人，保管人，仓库)出库物资基本信息=(出库编号,出库物资编号，物资名称，规格型号，种类，单位，数量，单价，金额，入库时间，经办人，保管人，仓库)物资余额信息=(物资编号,物资名称，规格型号，类别，计量单位，数量，金额，仓库)用户=(用户名,密码)第5章 数据库结构实现经过前面的需求分析和概念结构设计以后，得到数据库的逻辑结构。现在就可以在SQL Server 2000 数据库系统中实现该逻辑结构。利用SQL查询分析器实习。5.1创建数据库Material5.1.1建数据库在查询分析器输入以下语言create database Materialon primary( Name= Material _data, Filename= E:物资管理系统（谭卫军） Material.mdf , size=10, Filegrowth=10%, maxsize=unlimited )log on( Name= Material _log, Filename= E:物资管理系统（谭卫军） Material.ldf, size=1, Filegrowth=10%, maxsize=5)5.1.2创建物资基本信息表materialCREATE TABLE dbo.material (wzid char (8) COLLATE Chinese_PRC_CI_AS NOT NULL ,wzname char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,wzspec char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,wzkind char (10) COLLATE Chinese_PRC_CI_AS NULL ,wzunit char (10) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO5.1.3创建入库物资基本信息表msaveCREATE TABLE dbo.msave (rkno char (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,rkid char (8) COLLATE Chinese_PRC_CI_AS NOT NULL ,rkname char (20) COLLATE Chinese_PRC_CI_AS NULL ,rkspec char (20) COLLATE Chinese_PRC_CI_AS NULL ,rkkind char (10) COLLATE Chinese_PRC_CI_AS NULL ,rkunit char (10) COLLATE Chinese_PRC_CI_AS NULL ,rkaccount numeric(5, 0) NOT NULL ,rkprice numeric(8, 2) NOT NULL ,rkvalue numeric(10, 2) NOT NULL ,rkdate datetime NOT NULL ,rkdeal_person char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,rksave_person char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,rkbase char (10) COLLATE Chinese_PRC_CI_AS NULL ,rkmemo text COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARYGO5.1.4创建物资余额信息表msurplusCREATE TABLE dbo.msurplus (yeid char (8) COLLATE Chinese_PRC_CI_AS NOT NULL ,yename char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,yespec char (20) COLLATE Chinese_PRC_CI_AS NULL ,yekind char (10) COLLATE Chinese_PRC_CI_AS NULL ,yeunit char (2) COLLATE Chinese_PRC_CI_AS NULL ,yeaccount numeric(5, 0) NOT NULL ,yevalue numeric(10, 2) NOT NULL ,yebase char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,yememo text COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARYGO5.1.5创建出库物资基本信息表museCREATE TABLE dbo.muse (lyno char (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,lyid char (8) COLLATE Chinese_PRC_CI_AS NOT NULL ,lyname char (20) COLLATE Chinese_PRC_CI_AS NULL ,lyspec char (20) COLLATE Chinese_PRC_CI_AS NULL ,lykind char (10) COLLATE Chinese_PRC_CI_AS NULL ,lyunit char (2) COLLATE Chinese_PRC_CI_AS NULL ,lyaccount numeric(5, 0) NOT NULL ,lyprice numeric(8, 2) NULL ,lyvalue numeric(10, 2) NULL ,lydate datetime NOT NULL ,lyuse_person char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,lydeal_person char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,lybase char (10) COLLATE Chinese_PRC_CI_AS NULL ,lymemo text COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARYGO5.2创建视图5.2.1建立物资基本信息视图CREATE VIEW view_material(wzid,wzname,wzspec,wzkind，wzunit)ASSELECT wzid,wzname, wzspec,wzkind，wzunitFROM material5.2.2建立入库物资信息视图CREATE VIEW view_msaveASSELECT rkno,rkid,rkspec,rkkind,rkunit,rkaccount,rkprice,rkvalue,rkdate,rksave_personrkdeal_person,rksave_person,rkbase,rkmemoFROM msave其它视图依此同理建立第6章 代码设计6.1 物资管理信息系统主窗体的创建6.1.1 创建工程项目Material_MIS 打开Viaual Basic 后，单击File/New Project菜单，在工程摸版中选择Standard EXE,Visual Basic将自动产生一个Form窗体，属性都是却省设置。这里我们删除这个窗体，单击File/Save project菜单，将这个工程命名为Material_MIS。6.1.2创建物资管理信息系统的主窗体 这个项目使用多文挡界面，单击工具栏中的ADD MDI Form按钮，产生一个窗体。在这个窗体上添加所需的控件，然后设置窗体和控件的属性设置。创建好的窗体如图所示：图6.1物资管理系统主窗体在主窗体中加入状态栏控件，可以实时反映系统中的各个状态的变化。状态栏控件需要在通常的属性窗口中设置一般属性，还需要在其特有的弹出式菜单中进行设置。6.1.3创建功用模块在Visual Basic中可以用公用模块来存放整个工程项目的函数、过程和全局变量等。这样可以提高代码的效率。在项目资源管理器中为项目添加一个Module,保存为Module1.bas。 由于系统各个功能模块都将频繁使用数据库中各种数据，因此需要一个公共的数据操作函数，用意执行各种SQL语句。添加函数Execute SQL,代码如下： 传递参数为查询语句和查询信息，返回以数据集对象形式保存的查询结果Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.Recordset执行SQL语句，并返回记录集对象声明一个连接 Dim cnn As ADODB.Connection 声明一个数据集对象 Dim rst As ADODB.Recordset Dim sTokens() As String 异常处理 On Error GoTo ExecuteSQL_Error 用split函数产生一个包含各个子串的数组 sTokens = Split(SQL) 创建一个新连接 Set cnn = New ADODB.Connection 打开连接 cnn.Open ConnectString 判断查询语句是否包含指定内容 If InStr(INSERT,DELETE,UPDATE, _UCase$(sTokens(0) Then执行查询语句cnn.Execute SQL返回查询信息 MsgString = sTokens(0) & _ query successful Else 创建一个数据集对象Set rst = New ADODB.Recordset执行查询语句 rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimisticrst.MoveLast get RecordCount返回记录集对象Set ExecuteSQL = rst返回查询信息 MsgString = 查询到 & rst.RecordCount & _ 条记录 End IfExecuteSQL_Exit: 卸载对象 Set rst = Nothing 中断连接 Set cnn = Nothing Exit Function 错误信息ExecuteSQL_Error: MsgString = 查询错误: & _ 显示错误信息 Err.Description Resume ExecuteSQL_ExitEnd Function使用了connect string 函数，这个函数用来连接数据库Public Function ConnectString() _ As String返回一个数据库连接 ConnectString = FileDSN=wuzi.dsn;UID=sa;PWD=End Function在录入有关信息时，需要回车来进入下一个文本框，这样对软件使用者非常方便。在所有的功能模块都需要这个函数，所以将它放在功用模块，代码如下：Public Sub EnterToTab(Keyasc As Integer)判断是否为回车键If Keyasc = 13 Then转换成Tab键 SendKeys TAB End IfEnd SubKeyasc用来保存当前按键，SendKeys函数用来指定的按键。一旦按下回车键，将返回Tab键，狭义个控件自动获得输入焦点。 添加全局变量，用来记录各个窗体的读写状态，代码如下： Public flagMedit As BooleanPublic flagIedit As BooleanPublic flagLedit As BooleanPublic flagOedit As BooleanPublic gintMmode As IntegerPublic gintImode As IntegerPublic gintLmode As IntegerPublic gintOmode As IntegerGintMmode变量用来记录是添加状态还是修改状态，赋值1为添加，赋值2为修改。FlagMedit变量用来标示是否进入修改的窗体。由于物资管理信息管理系统启动后，需要对用户进行判断。如果登录者是授权用户，将进入系统，否则将停止程序的执行。这个判断需要在系统运行的最初进行，因此代码放在公用模块中。6.2 系统用户管理模块的创建用户管理模块主要实现：l 用户登录l 添加用户l 修改用户密码6.2.1 用户登录窗体的创建图6.2 用户登录窗体其中注意adodc属性的设置。同时应该将文本框的内容通过adodc连接到数据库。代码如下：Private Sub txtUserName_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then txtPassword.SetFocus End IfEnd SubPrivate Sub txtPassword_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find user_ID= & txtUserName.Text & SQL = SELECT user_ID FROM user_Info WHERE user_ID LIKE txtUserName.Text Adodc1.RecordSource = SQL Static i As Integer If Adodc1.Recordset.EOF And i 3 Then MsgBox 用户名错误，请重新输入！, 32, 提示信息 i = i + 1 txtUserName.Text = txtUserName.SetFocus Exit Sub End If Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find user_PWD= & txtPassword.Text & SQL = SELECT user_PWD FROM user_Info WHERE user_ID LIKE txtUserName.Text Adodc1.RecordSource = SQL Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF And i 3 Then MsgBox 密码错误，请重新输入！, 32, 提示信息 i = i + 1 txtPassword.Text = txtPassword.SetFocus Exit Sub End If If i = 3 Then MsgBox 请不起，您无权登录本系统！, 16, 提示信息 Form3.Show Form2.Hide Exit Sub End If Mycon.ConnectionString = Driver=SQL Server;Server=WWW-A0DDA338040;Database=Material Mycon.Open frmMain.Show Unload Me txtUserName.Text = txtPassword.Text = End IfEnd Sub6.2.2 添加用户窗体的创建选择“管理系统/添加用户”菜单，将出现如图所示的窗体图6.3 添加用户窗体代码如下：Private Sub Command1_Click() Dim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As String If Trim(Text1(0).Text) = Then MsgBox 请输入用户名称, vbOKOnly + vbExclamation, 警告 Exit Sub Text1(0).SetFocus Else txtSQL = select * from user_Info Set mrc = ExecuteSQL(txtSQL, MsgText) While (mrc.EOF = False) If Trim(mrc.Fields(0) = Trim(Text1(0) Then MsgBox 用户已经存在，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 Text1(0).SetFocus Text1(0).Text = Text1(1).Text = Text1(2).Text = Exit Sub Else mrc.MoveNext End If Wend End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 两次输入密码不一样，请确认！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Text1(2).Text = Exit Sub Else If Trim(Text1(1).Text) = Then MsgBox 密码不能为空, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Text1(2).Text = Else mrc.AddNew mrc.Fields(0) = Trim(Text1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text) mrc.Update mrc.Close Me.Hide MsgBox 用户添加成功, vbOKOnly + vbExclamation, 添加用户 End If End If End SubPrivate Sub Command2_Click()Me.HideEnd Sub6.2.3 修改密码窗体的创建图6.4 修改密码窗体代码略6.3物资基本信息模块的创建物资基本信息管理模块主要实现如下功能：l 添加物资基本信息。l 修改物资基本信息。l 删除物资基本信息。l 查询物资基本信息。6.3.1 添加物资基本信息窗体的创建选择“物资基本信息管理/添加物资基本信息”菜单，将出现如图所示的窗体。图6.5 添加物资基本信息窗体在载入窗体时，程序首先判断所处状态，代码如下：Private Sub Exit_Click()If mblChange And Save.Enabled Then If MsgBox(保存当前记录的变化吗?, vbOKCancel + vbExclamation, 警告) = vbOK Then 保存 Call Save_Click End IfEnd If卸载Unload MeEnd SubPrivate Sub Form_Load() Dim intCount As Integer Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset 判断是否处于添加状态 If gintMmode = 1 Then Me.Caption = Me.Caption & 添加 ElseIf gintMmode = 2 Then txtItem(0).Text = m_id Me.Caption = Me.Caption & 修改 End If End SubPrivate Sub Save_Click() Dim intCount As Integer Dim sMeg As String Dim MsgText As String 判断文本框内容是否为空 For intCount = 0 To 4 If Trim(txtItem(intCount) & ) = Then Select Case intCount Case 0 sMeg = 物资编号 Case 1 sMeg = 物资名称 Case 2 sMeg = 规格型号 Case 3 sMeg = 类别 Case 4 sMeg = 计量单位 End Select sMeg = sMeg & 不能为空! 提示信息 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 获得输入焦点 txtItem(intCount).SetFocus Exit Sub End If Next intCount 判断是否有相同ID的记录 If gintMmode = 1 Then 组成查询语句 txtSQL = select * from material where wzid= & Trim(txtItem(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) 判断是否有重复记录 If mrc.EOF = False Then MsgBox 已经存在此物资编号的记录!, vbOKOnly + vbExclamation, 警告 获得输入焦点 txtItem(0).SetFocus Exit Sub End If 关闭数据集对象 mrc.Close End If 判断是否有相同内容的记录 txtSQL = select * from material where wzid & Trim(txtItem(0) & and wzname= & Trim(txtItem(1) & and wzspec= & Trim(txt