物流管理系统毕业设计论文范文.doc

物流管理系统毕业设计论文范文 物流管理系统学 院专 业班 级学 号姓 名指导教师教师职称年月日摘要摘要随着市场经济的高速发展制造业商业企业逐步接受着第三方物流服务越来越多的企业认识到物流企业外包是降低成本提高服务水平的有效渠道物流管理的特点是以客户为核心构建面向客户的业务流程支持各种形式各种需求的现在企业中的业务模式系统支持多形式客户的数据共享提高作业效率监控整个流程提供完整的货品进行订单跟踪并且特别关注对各环节业务的监控及例外情况的监控关键词 客户 物流 物流管理系统目录摘要1目录1引言11 系统分析211 需求分析212 可行性分析22 总体设计221 项目规划222 系统功能结构图33 详细设计331 系统登录设计332 车辆调度安排633 托运申请单管理834 货物托运管理1135 在途跟踪管理1736 信息查询20附录A 参考文献30附录B 数据表结构31附录C 文件架构图37引言在当今高速发展的信息社会现代物流行业突飞猛进发展伴随着我国国民经济连续多年的高速增长为现代物流发展创造了良好的条件目前我国各类物流企业有14万家左右展望整个21世纪可以说现代物流业还将有更大的发展在发达国家物流理论促使物流实践快速发展经济全球化及现代物流业发展的系统化信息化仓储运输的现代化和综合化等趋势对我国物流业的发展提出了全方位的挑战传统物流行业的操作模式已经不适应现代的物流行业如何缩短物流过程降低产品库存加速对市场的反应这是所有企业所面对的问题本系统就是针对这些问题根据中小型企业的实际需求而开发的一套物流管理系统系统的开发能够帮助企业实现对物流全过程的优化调度和动态控制高效整合企业的物流业务以全面提高经济效益和效率为目的提供高效实用技术的物流管理系统和运营手段物流管理系统是集现代运输仓储配送搬运调度跟踪为一体的网络系统系统的开发实现了商品从原料供应商制造商分销商到零售商再到消费者的各个环节的有机结合1 系统分析11 需求分析通过市场调查要求本系统具有以下功能统一友好的操作界面能保证系统的易用性规范完善的基础信息设置灵活的报表设计及打印功能实现货物申请托运跟踪与验收的全过程全方位的信息查询功能系统日志详细记录各种操作提供追查的有力依据完善的权限管理增强系统的安全性强大的数据备份及恢复功能保证系统数据的安全性12 可行性分析由于传统物流行业操作过程复杂手续繁多业务信息多围绕这些信息的处理也很纷杂而且物流行业竞争激烈这种竞争一方面表现在发展客户的市场开拓上另一方面也存在于收集处理信息的速度广度和深度以及在业务操作中对业务数据处理的准确性和严密性而更高层次上还牵涉到公司决策层对整体业务的控制和协调物流管理系统从物流行业的实际需求出发参照先进的物流理念和多家领先的物流公司实际的运营流程开发而成系统从完善的基础信息设置到货物的托运管理在线跟踪信息查询到最后各种报表的生成清晰的业务流程使操作人员能够按照流程清晰的进行实际的操作保证物流运作有序而高效的进行2 总体设计21 项目规划物流管理系统是一个典型的数据库管理系统系统由基本信息设置货物托运管理信息查询报表管理系统管理等模块组成规划系统功能模块如下基本信息设置模块该模块主要负责完成部门资料设置职务信息设置公司资料设置员工资料设置客户资料设置司机资料设置和车辆资料设置货物托运管理模块该模块主要由车辆调度安排托运申请单管理货物托运单管理货物验收单管理和车辆配送跟踪记录单管理几部分组成信息查询模块该模块由货物申请单查询车辆调度信息查询货物托运信息查询货物托运验收查询和车辆在途跟踪查询几部分组成报表管理模块包括货物申请单报表货物托运单报表和货物验收单报表3部分系统管理模块包括查看日志删除日志用户管理数据备份数据恢复和系统数据清理几部分22 系统功能结构图物流管理系统的系统功能结构图如图1所示图1 系统功能结构图3 详细设计31 系统登录设计系统登录主要用于对登录物流管理系统的用户进行安全性检查以防止非法用户登录该系统根据给管理员分配的权限登录用户可以根据自己所具有的权限操作系统中相应的功能在登录系统时验证操作员及其密码主要通过ADO控件中记录集RecordSet对象结合If语句判断用户选定的操作员及其输入的密码与数据库中的操作员和密码是否相同来实现如果相同则允许登录并给予相应的权限否则将不允许用户登录系统登录的运行结果如图2所示图2 系统登录窗体的运行结果1窗体设计1在工程中新建1个窗体将窗体的名称设置为frm_xtdlBorderStyle属性设置为0-None通过设置Picture属性为窗体添加图片2在窗体上添加Adodc控件由于该控件属于ActiveX控件在使用之前必须从部件对话框中添加到工具箱添加方法如下在工程部件对话框中勾选Microsoft Ado Data Controls 60 SP4 列表项单击确定按钮之后即可将Ado控件添加到工具箱当中3在窗体中添加1个ComboBox控件和文本框控件分别设置名称为Name属性为Cbx_Name和txt_Password设置BorderStyle属性为0-None将ComboBox控件的Text属性设置为MR4在窗体中添加2个CommandButton控件分别将Name属性设置为Cmd_Ok和Cmd_CancelCaption属性设置为登录和取消登录窗体的设计结果如图3所示图3 系统登录窗体的设计界面2代码设计在代码窗口的声明部分定义如下变量Dim itmX As ListItem 定义一个ListItem对象Dim key As String 定义字符串变量在窗体装载事件中通过ADO控件的ConnectionString属性建立数据库连接同时将所有操作员的姓名添加到Cbx_Name控件当中代码如下Private Sub Form_Load Call WHScreen 调用获取屏幕分辨率的过程函数使用代码连接数据库与数据表 Adodc1ConnectionString PublicStr Adodc1RecordSource select from tb_user Adodc1Refresh If Adodc1RecordsetRecordCount 0 Then Adodc1RecordsetMoveFirst Cbx_NameClear 在添加数据时首先清空控件中的内容 Do While Adodc1RecordsetEOF False 将操作员信息添加到ListView控件当中 Cbx_NameAddItem Adodc1RecordsetFields user_name Adodc1RecordsetMoveNext Loop End If If TWidth 800 Or THeigth 600 Then 判断屏幕分辨率的大小 Exit Sub Else ChangeScreen 调整屏幕分辨率 End IfEnd Sub单击确定按钮如果输入的操作员姓名和口令正确则通过身份验证登录到系统当中设计思路通过SQL语句查询输入的用户名和密码信息在数据库中是否存在如果查询到符合条件的记录信息则显示系统主窗体登录到系统当中实现的程序代码如下Private Sub Cmd_Ok_Click Dim MPassword As StringIf Cbx_NameText MR And Txt_PasswordText mingrisoft Then 判断是否使用的是超级口令登录 Frm_MainStatusBar1PanelsItem 2 Text 当前操作员 MR Name1 Cbx_NameText 将操作员姓名信息赋予全局变量Name1 Unload Me Frm_MainShow 显示系统主窗体Else Adodc1RecordSource select from tb_user where user_name Cbx_NameText Adodc1Refresh If Adodc1RecordsetRecordCount 0 Then MPassword Adodc1RecordsetFields user_mm If Txt_PasswordText MPassword Then 判断数据的密码是否正确 Name1 Cbx_NameText Frm_MainStatusBar1PanelsItem 2 Text 当前操作员 Adodc1RecordsetFields user_name Frm_MainShow 通过身份验证则显示主窗体登录到系统当中 Unload Me Else MsgBox 密码不正确请您确认后重新输入 提示信息 Txt_PasswordText Txt_PasswordSetFocus End If Else MsgBox 对不起 没有此用户的信息 提示信息 Cbx_NameText Txt_PasswordText End If End IfEnd Sub如果在输入密码的文本框中按下Enter键则将调用确定按钮的单击事件判断登录用户是否合法代码如下所示Private Sub Txt_Password_KeyDown KeyCode As Integer Shift As Integer If KeyCode 13 Then Call Cmd_Ok_Click 调用确定按钮的单击事件代码 End IfEnd Sub32 车辆调度安排车辆调度安排是物流管理过程中的重要环节物流公司在接到托运货物信息之后首要的问题是安排托运货物的车辆在本系统当中通过车辆调度安排填写安排托运车辆的信息然后打印出车辆调度通知单并将通知单发放到托运司机的手中司机根据调度通知单上的信息执行托运任务通过单击窗体中的Cmd_Select按钮选择车牌号码然后输入其他一些辅助的信息最后保存车辆调度安排信息车辆调度安排模块的运行结果如图4所示图4 车辆调度安排窗体的运行结果1窗体设计1在工程中新建1个窗体将窗体的名称设置为frm_ClddBorderStyle属性设置为1-Fixed SingleButton属性设置False2在窗体上添加1个Toolbar控件和1个ImageList控件3在窗体的Toolbar控件上单击鼠标右键在弹出的快捷菜单中选择属性项在弹出的属性页对话框中设置窗体的工具栏设计完成的工具栏如图5所示4在窗体中添加1个Frame控件在Frame控件上添加1个文本框控件数组并为每个文本框控件配置1个标签控件并且设置相应的Caption属性值如图5所示5在窗体上添加1个DTPicker控件命名为DT1用于输入或显示托运司机执行任务的日期时间6在窗体上添加1个Ado控件和1个DataGrid控件将DataGrid控件的名称设置为Dgr_SjllDataSource属性设置为Adodc1AllowUpdate属性值设置为False7在窗体中添加1个标签控件命名为Lbl_Num8在窗体上添加1个时钟控件Timer1在属性窗口中将控件的Interval属性值设置为60车辆调度安排窗体的设计结果如图5所示图5 车辆调度安排窗体的设计结果2代码设计工具栏中的控制按钮控制着窗体的各项操作在Toolbar控件Tbr_xxcz的ButtonClick事件当中通过选择Select Case语句的索引值单击工具栏中的按钮执行相应的索引值调用相应的过程来完成添加删除修改和保存等操作的功能保存过程事件的代码如下Private Sub Saves 保存信息的过程 If Text1 0 Text Or Text1 3 Text Then MsgBox 重要信息不能为空值 48 提示信息 Else AdoRsOpen select from tb_Goods_cldd where cldd_cphm Text1 0 Text Cnn adOpenKeyset If AdoRsRecordCount 0 Then MsgBox 该信息已经存在 48 提示信息 AdoRsClose 关闭记录集对象 Else AdoRsClose 关闭记录集对象 c MsgBox 确认保存信息吗 33 提示信息 If c vbOK Then Set AdoRs CnnExecute insert into tb_Goods_cldd values Txt_id Text1 0 Text1 1 Text1 2 Text1 3 Str DT1Value Text1 4 Text1 5 Txt_bz MsgBox 数据保存成功 64 提示信息 Else End If Adodc1RecordSource select from tb_Goods_cldd order by cldd_id Adodc1Refresh Call DBGCon End If Call Tbr_cortrol Tbr_xxcz True End IfEnd Sub用户自定义修改信息过程事件的代码如下Private Sub Edits 修改信息的过程 c MsgBox 确认修改信息吗 33 提示信息 If c vbOK Then Set AdoRs CnnExecute UPDATE tb_Goods_cldd SET cldd_id Txt_id cldd_cphm Text1 0 cldd_czxm Text1 1 cldd_sjxm Text1 2 cldd_rwsj Str DT1Value cldd_phmc Text1 4 cldd_shdd Text1 5 cldd_bz Txt_bz where cldd_id Txt_idText MsgBox 数据修改成功 64 提示信息 Adodc1RecordSource select from tb_Goods_cldd order by cldd_id Adodc1Refresh StrId Txt_idText StrTitle Text1 0 Text Call joinRZ 添加修改信息日志 Call DBGCon Else End IfEnd Sub用户自定义删除信息过程事件的代码如下Private Sub Deletes 删除信息 c MsgBox 确认删除该信息吗 17 提示信息 If c vbOK Then On Error Resume Next 执行错误处理 Set AdoRs CnnExecute Delete tb_Goods_cldd from tb_Goods_cldd where cldd_id Txt_idText Adodc1Refresh 刷新数据信息 End If For i 0 To 5 Text1 i Text Next i Txt_bzText End Sub33 托运申请单管理在正式托运货物之前需要进行托运货物申请在进行托运货物申请时需要填写托运货物申请单托运申请单经过核对之后才可以填写货物托运单进行托运货物在托运申请单中记录的托运货物的详细信息以便托运货物时进行核对货物托运申请管理模块的运行结果如图6所示图6 货物托运申请管理模块运行结果1窗体设计1在工程中新建1个窗体将窗体的名称设置为frm_TysqBorderStyle属性设置为1-Fixed SingleButton属性设置False2在窗体上添加1个Toolbar控件和1个ImageList控件为窗体设计工具栏3在窗体中添加1个Frame控件在Frame控件上添加1个文本框控件数组并为每个文本控件配置1个标签控件设置相应的Caption属性值如图7所示4在Frame控件上添加2个DTPicker控件分别名称命名为DT1和DT2用于输入或显示出货日期时间和开票日期5在窗体上添加1个Ado控件6在窗体中添加1个标签控件命名为Lbl_Num7在窗体上添加1个时钟控件Timer1在属性窗口中将控件的Interval属性值设置为60货物托运申请单管理窗体的设计结果如图7所示图7 货物托运管理窗体的设计结果2代码设计当窗体启动时锁定窗体中文本框禁止输入字符信息同时通过Ado控件的ConnectionString属性连接到数据库实现代码如下Private Sub Form_Load Call LoadFile 在窗体加载的时候显示数据信息 For i 1 To 20 Text1 i Locked True 锁定文本框禁止输入字符信息 Next i Adodc1ConnectionString PublicStr 通过代码连接到数据库 Adodc1RecordSource select from tb_Goods_sqd order by sqd_lszh Adodc1Refresh DT1Value Date Call Tbr_cortrol Tbr_xxcz True End Sub单击窗体中的工具栏按钮完成相应的添加删除修改保存和打印的操作Toolbar控件Tbr_xxcz的ButtonClick事件代码如下所示Private Sub Tbr_xxcz_ButtonClick ByVal Button As MSComctlLibButton Select Case ButtonIndex Case 1 添加信息 Call Tbr_cortrol Tbr_xxcz False For i 0 To 20 Text1 i Locked False Text1 i Text Next i Text1 0 SetFocus AdoRsOpen select from tb_Goods_sqd where sqd_lszh like Format Date yyyymmdd order by sqd_lszh Cnn adOpenKeyset 根据日期产生流水账号 If AdoRsRecordCount 0 Then AdoRsMoveLast Txt_idText Val AdoRsFields sqd_lszh 1 Else Txt_idText Format Date yyyymmdd 0000001 End If AdoRsClose Case 2 删除信息 Call Deletes Case 3 修改信息 Call Edits Case 4 保存信息 Call Saves Case 5 Call Tbr_cortrol Tbr_xxcz True For i 1 To 20 Text1 i Text Text1 1 SetFocus Next i Case 6 打印信息 Unload Me End SelectEnd Sub通过文本框的Change事件来实现在另一个文本框中自动计算合计金额的功能实现的具体代码如下所示Private Sub Text1_Change Index As Integer If Index 7 Then Text1 15 Text Val Text1 7 Text Val Text1 11 Text ElseIf Index 11 Then Text1 15 Text Val Text1 7 Text Val Text1 11 Text ElseIf Index 15 Then Text1 15 Text Val Text1 7 Text Val Text1 11 Text End IfEnd Sub34 货物托运管理货物托运管理是本系统的核心在货物托运申请完成之后就可以填写货物托运单托运司机根据货物托运单将货物托运到客户手中对于同一张货物托运单可以托运多种不同的货物在托运管理窗体中可以添加或删除托运货物还可以通过ListView控件浏览货物托运单信息货物托运管理模块的运行结果如图8所示单击工具栏中的添加货物按钮将弹出增加托运货物窗体如图9所示图8 货物托运管理模块的运行结果图9 增加托运货物窗体1货物托运窗体及增加托运货物窗体的设计1在工程中新建一个窗体将窗体的名称设置为frm_HptyBorderStyle属性设置为1-Fixed SingleButton属性设置False2在窗体上添加Toolbar控件根据前面所介绍的方法为窗体设计工具栏3在窗体中添加2个ImageList控件4在窗体上添加1个ListView控件5在ListView控件上单击鼠标右键在弹出的快捷菜单中选择属性项在弹出的属性页对话框中选择通用选项卡在该选项卡中选取整行选择网格行和热跟踪等复选框在查看旁的列表框中选择3-lvwReport如图10所示图10 设置控件的显示模式6在ListView控件上单击鼠标右键在弹出的快捷菜单中选择属性项在弹出属性页对话框中选择列首选项卡在该选项卡中单击插入列按钮然后在文本文本框中输入插入列的标题名称在宽度文本框中输入插入列的宽度如图11所示图11 设置插入列的属性7在ListView控件上单击鼠标右键在弹出的快捷菜单中选择属性项在弹出的属性页对话框中选择图像列表选项卡在该选项卡中的普通和列标头列表框中分别选择ImageList2如图12所示图12 连接ImageList2控件8在窗体上添加1个Ado控件9在窗体中添加3个Frame控件分别在Frame控件中添加文本框控件和DataGrid控件将DataGrid控件的名称设置为Dgr_SjllDataSource属性设置为Adodc1BackColor属性值设置为H00FFFFC0设计完成的界面如图13所示10在窗体中添加1个标签控件名称命名为Lbl_Num11在窗体上添加1个时钟控件Timer1在属性窗口中将控件的Interval属性值设置为60货物托运管理窗体的设计结果如图13所示图13 货物托运管理窗体的设计界面12在工程中添加1个窗体将窗体命名为Frm_Tyhwgl该窗体作为货物托运管理的子窗体用于为完成为货物托运单添加托运货物的操作13将该窗体的BorderStyle属性设置为1-Fixed Single14在该窗体上添加1个Ado控件15在该窗体中添加1个Frame控件在Frame控件中添加文本框控件和标签控件16在该窗体中添加1个DataGrid控件将DataGrid控件的名称设置为Dgr_SjllDataSource属性设置为Adodc1设计完成的界面如图14所示17在窗体上添加4个CommandButton控件分别将控件的名称命名为Cmd_AddCmd_SaveCmd_DelCmd_CancelCaption属性设置为添加保存删除取消图14 托运货物管理窗体的设计界面2货物托运管理窗体的代码设计在窗体启动时通过调用LoadFile过程在窗体上显示数据同时利用Ado对象计算出当前数据库中数据记录的条数代码如下Private Sub Form_Load Call RefreshData Call LoadFile For i 1 To 21 锁定文本框禁止输入内容 Text1 i Locked True Next i AdoRsOpen select from tb_Goods_tyd order by tyd_tydh Cnn adOpenKeyset If AdoRsRecordCount 0 Then Lbl_NumCaption 当前数据表中共有 AdoRsRecordCount 条记录 End If AdoRsClose Call Tbr_cortrol Tbr_xxcz True End Sub单击工具栏中的控制按钮通过Select Case语句控制工具栏中的按钮完成添加删除修改保存添加货物和删除货物等操作实现的代码如下Private Sub Tbr_xxcz_ButtonClick ByVal Button As MSComctlLibButton Select Case ButtonIndex Case 1 Call Tbr_cortrol Tbr_xxcz False For i 0 To 21 Text1 i Locked False Text1 i Text Next i Text1 0 SetFocus 根据日期产生流水账号 AdoRsOpen select from tb_Goods_tyd where tyd_tydh like Format Date yyyymmdd order by tyd_tydh Cnn adOpenKeyset If AdoRsRecordCount 0 Then AdoRsMoveLast Txt_idText Val AdoRsFields tyd_tydh 1 Else Txt_idText Format Date yyyymmdd 00001 End If AdoRsClose Case 2 删除信息 Call Deletes Case 3 修改信息 Call Edits Case 4 保存信息 Call Saves Case 5 Call Tbr_cortrol Tbr_xxcz True For i 1 To 21 Text1 i Text Text1 1 SetFocus Next i Case 6 添加货物 TStrs Txt_idText Frm_TyhwglCmd_DelEnabled False 使添加货物窗体中的删除按钮不可用 Frm_TyhwglShow 1 Case 7 删除货物 TStrs Txt_idText Frm_TyhwglCmd_AddEnabled False Frm_TyhwglCmd_SaveEnabled False Frm_TyhwglShow 1 Case 8 Unload Me End SelectEnd Sub通过单击选择ListView控件中的元素托运单号然后调用DataLoad过程在窗体上显示相对应托运单号的数据信息同时查询该记录是否被修改过如果修改过则将修改时间及修改人信息显示在窗体的Txt_ysrq和Txt_ysr文本框当中代码如下所示Private Sub ListView1_Click AdoRsOpen select from tb_Goods_tyd where tyd_tydh ListView1SelectedItem order by tyd_tydh Cnn adOpenKeyset If AdoRsRecordCount 0 Then Call DataLoad 调用显示数据的过程 End If AdoRsClose 关闭数据集对象 AdoRs1Open select from tb_Goods_khys where khys_tydh ListView1SelectedItem Cnn adOpenKeyset If AdoRs1RecordCount 0 Then Txt_ysrqText AdoRs1Fields khys_ysrq Txt_ysrText AdoRs1Fields khys_ysr Else Txt_ysrqText Txt_ysrText End If AdoRs1Close Call ShowData 调用数据刷新的过程 Call DBGConEnd Sub通过时钟控件将当前数据库中的记录条数显示在标签控件Lbl_Num当中实现的代码如下所示Private Sub Timer1_Timer On Error Resume Next 执行错误处理的语句 Lbl_NumCaption 当前数据表中共有 AdoRsRecordCount 条记录End Sub3添加托运货物信息窗体的代码设计在增加托运货物窗体中单击添加按钮清空窗体中文本框的信息代码如下Private Sub Cmd_Add_Click For i 1 To 4 Text1 i Text Next i Text1 1 SetFocusEnd Sub在窗体中单击保存按钮在确认该货物信息没有被保存之后保存所添加的货物信息同时刷新窗体中的数据信息代码如下Private Sub Cmd_Save_Click If Text1 0 Text Then MsgBox 托运单号不能为空 64 提示信息 Else AdoRsOpen select from tb_Goods_hwzx where hwzx_hwid Text1 1 Cnn adOpenKeyset If AdoRsRecordCount 0 Then MsgBox 该货物已经添加过 64 提示信息 Else c MsgBox 确认保存信息吗 33 提示信息 If c vbOK Then Set AdoRs CnnExecute insert into tb_Goods_hwzx values Text1 1 Text1 2 Text1 0 Text1 3 Text1 4 MsgBox 数据保存成功 64 提示信息 Adodc1RecordSource select from tb_Goods_hwzx where hwzx_sqdh Text1 0 order by hwzx_hwid Adodc1Refresh Call DBGCon Cmd_AddSetFocus End If End If AdoRsClose End IfEnd Sub35 在途跟踪管理在途跟踪是对正在托运的货物信息进行管理托运司机在托运货物的过程中每到一个地方或者在托运过程中出现某些异常情况就会给托运公司反馈一个信息托运公司将反馈回来的信息进行记录并且对反馈回来的异常情况进行处理这个过程就是在途跟踪在途跟踪管理模块的运行结果如图15所示图15 在途跟踪管理模块运行结果1窗体设计1在工程中新建1个窗体将窗体的名称设置为Frm_ZtgzBorderStyle属性设置为1-Fixed SingleButton属性设置False2在窗体上添加1个Toolbar控件和1个ImageList控件3在窗体上添加1个ListView控件4在窗体上添加1个Ado控件5在窗体中添加3个Frame控件在Frame控件中添加文本框控件并设置控件的相关属性6在窗体上添加DataGrid控件将DataGrid控件的名称设置为Dgr_SjllDataSource属性设置为Adodc1在途跟踪管理窗体的设计结果如图16所示图16 在途跟踪管理窗体的设计2代码设计通过单击选择ListView控件中的元素托运单号在窗体中即可以显示相对应托运单号的数据信息同时查询tb_Goods_ztgzlx数据表从中检索出该托运单号的跟踪路线信息将其显示在窗体的Txt_lx文本框当中实现的代码如下所示Private Sub ListView1_Click AdoRsOpen select from tb_Goods_ztgz where ztgz_cydh ListView1SelectedItem order by ztgz_cydh Cnn adOpenKeyset If AdoRsRecordCount 0 Then Text1 0 Text AdoRsFields ztgz_id Text1 1 Text AdoRsFields ztgz_cydh Text1 2 Text AdoRsFields ztgz_sjxm Text1 3 Text AdoRsFields ztgz_cphm DT1Value AdoRsFields ztgz_dasj Text1 4 Text AdoRsFields ztgz_sjsj Text1 5 Text AdoRsFields ztgz_dadd Text1 6 Text AdoRsFields ztgz_bz End If AdoRsClose 关闭记录集对象 AdoRs1Open select from tb_Goods_ztgzlx where ztgzlx_tydh ListView1SelectedItem Cnn adOpenKeyset If AdoRs1RecordCount 0 Then Txt_lxText AdoRs1Fields ztgzlx_lx End If AdoRs1Close 关闭记录集对象 Adodc1RecordSource select from tb_Goods_ztgz