下载 >  开发技术 >  Java > MSADODC.OCX
5

MSADODC.OCX

只要将这个MSADODC.OCX插件放在系统盘的system32中,有的系统有提示缺失这个的就可以运行了
2010-12-27 上传大小:115KB
分享
收藏 举报
MSADODC.ocx

MSADODC.ocx是windows系统下的一个控件,一、如果您的系统提示"找不到MSADODC.ocx"或"MSADODC.ocx缺失" 或者"MSADODC.ocx错误"等等,请不用担心,请把MSADODC.ocx下载到本机。 二、直接拷贝该文件到系统目录里:    1、Windows 95/98/Me系统,将MSADODC.ocx复制到C:/Windows/System目录下。    2、Windows NT/2000系统,将MSADODC.ocx复制到C:/WINNT/System32目录下。    3、Windows XP/WIN7系统,将MSADODC.ocx复制到C:/Windows/System32目录下。 三、然后打开"开始-运行-输入regsvr32 MSADODC.ocx",回车即可解决错误提示!

立即下载
Component'MSADODC.OCX' or one of its dependencies nt correctly

Component'MSADODC.OCX' or one of its dependencies nt correctly

立即下载
MSADODC.OCX和MSDATGRD.OCX

Visual Studio 2010中插入ADO Data Control控件和ADO Data Grid控件,将MSADODC.OCX和MSDATGRD.OCX放在C:\Windows\System32目录下,然后在VS中注册

立即下载
ADO DATA控件(msadodc.ocx和msdatgrd.ocx)

若vc或者vs缺省Microsoft ADO data control 6.0,可以安装这两个东西获取。 用cmd运行"regsvr32 msadodc.ocx"和"regsvr32 msdatgrd.ocx"。(也可以在运行里直接运行这两条命令)。 打开vs,工具箱右键-〉选择项……-〉com组件-〉选Microsoft ADO data control 6.0。

立即下载
vb常用插件

MSADODC.OCX MSCOMCT2.OCX MSDATGRD.OCX MSDATLST.OCX TABCTL32.OCX 插件

立即下载
MSADODC.OCX控件

ADODC控件,在西门子组态软件Wincc中有应用

立即下载
masdodc_52798

一般来说,msadodc.ocx这个系统文件是很难丢失或损坏的,可由于大部分用户们的操作问题,无缘无故就导致电脑提示“找不到msadodc.ocx”或“msadodc.ocx缺失”等问题,让用户在使用电脑时也非常的头痛。

立即下载
mscomct2.ocx等ocx,dll控件集

包含: cdlg32.ocx、 msadodc.ocx、 mscomct2.ocx、 msdatgrd.ocx MSDATLST.OCX、 MSDBRPT.DLL、 MSDE.DLL、 mshflxgd.ocx

立即下载
ADO DATA控件

解决方法: 没有这个控件的,需要注册,步骤如下: 1. 先到C:\WINDOWS\system32目录下看看你的系统里是否已经有了MSADODC.ocx和MSDATGRD.ocx这两个文件(多半是没有的),没有就去下载; 2.在VC++ 6.0中注册MSADODC.ocx和MSDATGRD.ocx这两个控件。 打开运行输入CMD ,然后运行: regsvr32 msadodc.ocx regsvr32 msdatgrd.ocx

立即下载
msadodc控件

下载解压到C盘system32目录下,然后注册然后注册msadodc.OCX

立即下载
数据库编程必备四大控件

VC编程必备的四大控件,注册方法:regsvr32 msadodc.ocx,也就是regsvr32 "注册名".

立即下载
VB医院药房信息系统

SQL数据库+vb编写的医院信息系统 VERSION 5.00 Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"

立即下载
vb ado 三个 ocx

MSDATLST.ocx MSDATGRD.ocx MSADODC.ocx<br>最近在做vb的小项目,这三个ocx在我的vb6 中文企业版里面找不到,可能你们也需要就发上来也当作备份~~~

立即下载
大量dll组件下载

大量dll组件下载,mf3216.dll\mfc40.dll\mfc40loc.dll\mfc40u.dll\mfc42.dll\mfc42CHS.dll\mfc42D.dll\mfc42loc.dll\mfc42u.dll\comdlg32.dll\comdlg32.ocx\commdlg.dll\MSCOMM32.OCX\mswinsck.OCX\MSDATLST.OCX\msadodc.ocx\MSCHRT20.OCX\msdatgrd.ocx\mscomct2.ocx\comctl32.ocx\TABCTL32.OCX

立即下载
51个VB6 OCX控件 打包

51个VB6 OCX控件 打包 控件列表: AniGIFV6.ocx asAssistantPopup.ocx asBubbleForm.ocx asctrls.ocx chklsb26.ocx ComboBox.ocx COMCT232.OCX comctl32.ocx COMDLG32.OCX CurtButton.ocx daxctle.ocx DBGRID32.OCX DBLIST32.OCX Desktop.ini Digital.ocx dmview.ocx Flash.ocx fldrvw71.ocx Gif89.dll GifPlayer.ocx GKTube.ocx hhctrl.ocx JwldButn2b.ocx LeftMenu.ocx list.txt MoveLabel.ocx MovingChar.ocx MSADODC.OCX MSCOMCT2.OCX mscomctl.ocx MSDATGRD.OCX MSDATLST.OCX msdxm.ocx MSFLXGRD.OCX MSHFLXGD.OCX msscript.ocx MSWINSCK.OCX NewCombo.ocx prjXTab.ocx proctexe.ocx RICHTX32.OCX SBLIST.OCX SmartXpButton.ocx SpltrBar.ocx sysmon.ocx TABCTL32.OCX vbalExpBar6.ocx vbalIml6.ocx VBOCX.OCX wmp.ocx wshom.ocx YFSkins.ocx

立即下载
身份证信息查询

程序名称: 身份证信息查询<br>文件个数: 3<br>文件名称: 身份证查询.exe;sfzq6.mdb;数据导入.exe<br><br>附: msvbvm60.dll;msadodc.ocx;comdlg32.ocx<br><br>压缩包大小:730K(747,978 字节)<br><br>功能:<br> 简单的把身份证信息读出来包括 身份证归属地(省,地,县),出生年月日,性别<br> 附带的可以把 15位身份证信息转为 18位身份证信息

立即下载
VB6软件支持包

VB6软件支持包,集成了最新版本的运行库和精选控件,为VB6编写的绿色软件提供运行支持。基于微软的VB6SP6运行库(2004年)和最近的组件更新(2009年KB957924)制作,主要收录了以下组件: ----- VB6 Runtime and Controls ----- MSVBVM60.DLL - VB6 Runtime - 6,0,98,15 COMDLG32.OCX - Microsoft Common Dialog Control 6.0 (SP6) - 6,1,98,16 MSCOMCTL.OCX - Microsoft Windows Common Controls 6.0 (SP6) - 6,1,98,16 ListView, TreeView, StatusBar, ToolBar MSCOMCT2.OCX - Microsoft Windows Common Controls-2 6.0 (SP6) - 6,1,98,16 DTPicker, MonthView, Animation, UpDown COMCT332.OCX - Microsoft Windows Common Controls-3 6.0 (SP5) - 6,7,0,9816 Coolbar COMCTL32.OCX - Microsoft Windows Common Controls 5.0 (SP2) - 6,0,98,16 (VB5) COMCT232.OCX - Microsoft Windows Common Controls-2 5.0 (SP2) - 6,0,98,16 (VB5) TABCTL32.OCX - Microsoft Tabbed Dialog Control 6.0 (SP6) - 6,1,98,16 SSTab RICHTX32.OCX - Microsoft Rich Textbox Control 6.0 (SP6) - 6,1,98,16 MSFLXGRD.OCX - Microsoft FlexGrid Control 6.0 (SP6) - 6,1,98,14 (VB5) MSHFLXGD.OCX - Microsoft Hierarchical FlexGrid Control 6.0 (SP4) (OLEDB) - 6,1,98,16 MSCHRT20.OCX - Microsoft Chart Control 6.0 (SP4) (OLEDB) - 6,1,98,16 MSMASK32.OCX - Microsoft Masked Edit Control 6.0 (SP3) - 6,1,98,16 MCI32.OCX - Microsoft Multimedia Control 6.0 (SP6) - 6,1,98,16 MSADODC.OCX - Microsoft ADO Data Control 6.0 (SP6) (OLEDB) - 6,1,98,16 MSDATGRD.OCX - Microsoft DataGrid Control 6.0 (SP6) (OLEDB) - 6,1,98,16 MSDATLST.OCX - Microsoft DataList Control 6.0 (SP3) (OLEDB) - 6,1,98,16 MSDATREP.OCX - Microsoft DataRepeater Control 6.0 (OLEDB) - 6,1,98,16 MSWINSCK.OCX - Microsoft Winsock Control 6.0 (SP6) - 6,1,98,16 MSINET.OCX - Microsoft Internet Transfer Control 6.0 (SP6) - 6,1,98,16 MSMAPI32.OCX - Microsoft MAPI Controls 6.0 - 6,1,98,16 MSCOMM32.OCX - Microsoft Comm Control 6.0 - 6,1,98,16

立即下载
VBCli/VBC6

VB控件“许可证信息没有找到”问题解决方案 到微软主页上下载如下文件:http://download.microsoft.com/download/vb60ent/sample30/1/w9xnt4/en-us/vb6cli.exe 或下载本文件 解压目录下点击运行VBC6.EXE 即可 对于VFP来说同样适用,前提是安装过VB才行 附: VB6Cli.exe 是一种实用工具,它用于修复随 Microsoft Visual Basic 6.0 一起发行的 ActiveX 控件中的设计阶段许可证问题。此工具不会修复第三方控件以及 Microsoft Visual Basic 6.0 通常情况下不予安装的控件,也不允许使用 Visual Basic 6.0 专业版中的远程数据对象 (RDO) 对象。 下面是 VB6Cli.exe 可以修复的 ActiveX 控件的列表: ActiveX 控件 文件名 版本号 版本类型 ----------------------------------------------------------- ADO Data Control 6.0 MSADODC.OCX 6.00.8171 L,P,E Chart Control 6.0 MSCHRT20.OCX 6.00.8177 P,E Comm Control 6.0 MSCOMM32.OCX 6.00.8169 P,E Common Dialog Control 6.0 COMDLG32.OCX 6.00.8169 L,P,E Data Bound List Controls 6.0 DBLIST32.OCX 6.00.8169 L,P,E DataGrid Control 6.0 MSDATGRD.OCX 6.00.8169 L,P,E DataList Controls 6.0 MSDATLST.OCX 6.00.8169 L,P,E DataRepeater Control 6.0 MSDATREP.OCX 6.00.8169 P,E FlexGrid Control 6.0 MSFLXGRD.OCX 6.00.8169 L,P,E Hierarchical FlexGrid Control 6.0 MSHFLXGD.OCX 6.00.3005 L,P,E Internet Transfer Control 6.0 MSINET.OCX 6.00.8169 P,E MAPI Controls 6.0 MSMAPI32.OCX 6.00.8169 P,E Masked Edit Control 6.0 MSMASK32.OCX 6.00.8169 P,E Multimedia Control 6.0 MCI32.OCX 6.00.8169 P,E PictureClip Control 6.0 PICCLP32.OCX 6.00.8169 P,E RemoteData Control 6.0 MSRDC20.OCX 6.00.8169 E Rich Textbox Control 6.0 RICHTX32.OCX 6.00.8169 L,P,E SysInfo Control 6.0 SYSINFO.OCX 6.00.8169 P,E Tabbed Dialog Control 6.0 TABCTL32.OCX 6.00.8169 L,P,E Windows Common Controls-3 6.0 COMCT332.OCX 6.00.8169 P,E Windows Common Controls 5.0 (SP2) COMCTL32.OCX 6.00.8022 L,P,E Windows Common Controls 6.0 MSCOMCTL.OCX 6.00.8177 L,P,E Windows Common Controls-2 5.0 (SP2) COMCT232.OCX 6.00.8022 L,P,E Windows Common Controls-2 6.0 MSCOMCT2.OCX 6.00.8177 L,P,E Winsock Control 6.0 MSWINSCK.OCX 6.00.8169 P,E L = 标准版 P = 专业版 E = 企业版

立即下载
发廊管理系统 ,sql+vb

VERSION 5.00 Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "Msadodc.OCX" Begin VB.Form FrmLogin BackColor = &H00FFFFFF& BorderStyle = 0 'None Caption = "学生信息管理系统" ClientHeight = 10005 ClientLeft = 1575 ClientTop = 1290 ClientWidth = 12045 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False Picture = "login.frx":0000 ScaleHeight = 10005 ScaleWidth = 12045 ShowInTaskbar = 0 'False Begin VB.CommandButton Command3 BackColor = &H00C0FFFF& Caption = "新会员注册" BeginProperty Font Name = "隶书" Size = 15.75 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 855 Left = 2040 MaskColor = &H00FFFFFF& Style = 1 'Graphical TabIndex = 9 Top = 6120 Width = 1215 End Begin MSAdodcLib.Adodc Adodc1 Height = 735 Left = 1200 Top = 7680 Visible = 0 'False Width = 3255 _ExtentX = 5741 _ExtentY = 1296 ConnectMode = 0 CursorLocation = 3 IsolationLevel = -1 ConnectionTimeout= 15 CommandTimeout = 30 CursorType = 2 LockType = 3 CommandType = 2 CursorOptions = 0 CacheSize = 50 MaxRecords = 0 BOFAction = 0 EOFAction = 0 ConnectStringType= 1 Appearance = 1 BackColor = -2147483643 ForeColor = -2147483640 Orientation = 0 Enabled = -1 Connect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=发廊会员表;Data Source=." OLEDBString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=发廊会员表;Data Source=." OLEDBFile = "" DataSourceName = "" OtherAttributes = "" UserName = "" Password = "" RecordSource = "发廊会员表" Caption = "Adodc1" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "宋体" Size = 9 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty _Version = 393216 End Begin VB.Timer Timer1 Interval = 100 Left = 6240 Top = 4800 End Begin VB.Frame Frame1 BackColor = &H00C0FFFF& Caption = "用户信息" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 1695 Left = 480 TabIndex = 3 Top = 2760 Width = 4575 Begin VB.TextBox Text1 BackColor = &H0080FFFF& DataSource = "Adodc1" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF8080& Height = 495 Left = 1920 TabIndex = 5 Top = 360 Width = 1815 End Begin VB.TextBox Text2 BackColor = &H0080FFFF& DataSource = "Adodc1" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF8080& Height = 495 IMEMode = 3 'DISABLE Left = 1920 PasswordChar = "*" TabIndex = 4 Top = 960 Width = 1815 End Begin VB.Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "用户名" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF00FF& Height = 285 Left = 840 TabIndex = 7 Top = 480 Width = 855 End Begin VB.Label Label3 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "密 码" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF00FF& Height = 285 Left = 840 TabIndex = 6 Top = 960 Width = 870 End End Begin VB.CommandButton Command2 BackColor = &H00C0FFFF& Caption = "退出" BeginProperty Font Name = "隶书" Size = 15.75 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 3000 Style = 1 'Graphical TabIndex = 2 Top = 5280 Width = 1215 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "登录" BeginProperty Font Name = "隶书" Size = 15.75 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 1080 Style = 1 'Graphical TabIndex = 1 Top = 5280 Width = 1215 End Begin VB.Label Label4 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "欢迎使用唯美发廊系统" BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF00FF& Height = 210 Left = 7200 TabIndex = 8 Top = 240 Width = 2100 End Begin VB.Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "发廊系统" BeginProperty Font Name = "宋体" Size = 36 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 720 Left = 1200 TabIndex = 0 Top = 1320 Width = 2880 End End Attribute VB_Name = "FrmLogin" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Public a As String Private Sub Command1_Click() Adodc1.Recordset.MoveFirst Do Until Adodc1.Recordset.EOF If Text1.Text <> Adodc1.Recordset.Fields(0) Then Adodc1.Recordset.MoveNext ElseIf Text2.Text <> Adodc1.Recordset.Fields(5) Then MsgBox "密码错误" Text2.Text = "" Text2.SetFocus Exit Sub Else: a = Text1.Text Unload Me Form2.Show Exit Sub End If Loop MsgBox "用户名错误", vbOKOnly, "消息" Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Adodc1.Recordset.Update Adodc1.Refresh Unload Me Form6.Show End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" End Sub Private Sub Timer1_Timer() Label4.Left = Label4.Left - 50 If Label4.Left + Label4.Width <= 0 Then Label4.Left = FrmLogin.Width End Sub

立即下载
商品销售源码

VERSION 5.00 Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX" Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX" Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX" Begin VB.Form main_jbxx_kh BackColor = &H00C0C0C0;& BorderStyle = 1 'Fixed Single Caption = "基本信息管理-【客户信息管理】" ClientHeight = 6165 ClientLeft = 1515 ClientTop = 2385 ClientWidth = 9195 Icon = "main_jbxx_kh.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 6165 ScaleWidth = 9195 StartUpPosition = 1 '所有者中心 Begin VB.Frame Frame3 Caption = "Frame6" Height = 690 Left = -1545 TabIndex = 11 Top = 2115 Visible = 0 'False Width = 2820 Begin MSAdodcLib.Adodc Adodc1 Height = 330 Left = 930 Top = 225 Width = 1590 _ExtentX = 2805 _ExtentY = 582 ConnectMode = 0 CursorLocation = 3 IsolationLevel = -1 ConnectionTimeout= 15 CommandTimeout = 30 CursorType = 3 LockType = 3 CommandType = 1 CursorOptions = 0 CacheSize = 50 MaxRecords = 0 BOFAction = 0 EOFAction = 0 ConnectStringType= 1 Appearance = 1 BackColor = -2147483643 ForeColor = -2147483640 Orientation = 0 Enabled = -1 Connect = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=XSGL" OLEDBString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=XSGL" OLEDBFile = "" DataSourceName = "" OtherAttributes = "" UserName = "" Password = "" RecordSource = "select * from 客户信息表" Caption = "Adodc1" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "宋体" Size = 9 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty _Version = 393216 End End Begin VB.Frame Frame4 BackColor = &H80000004;& Caption = "请选择查询条件" Height = 660 Left = 105 TabIndex = 6 Top = 15 Width = 8970 Begin VB.ComboBox Combo1 Height = 300 ItemData = "main_jbxx_kh.frx":000C Left = 120 List = "main_jbxx_kh.frx":000E Style = 2 'Dropdown List TabIndex = 9 Top = 225 Width = 2580 End Begin VB.CommandButton CmdFind Caption = "查询" Height = 330 Left = 7170 TabIndex = 8 Top = 225 Width = 1710 End Begin VB.TextBox Text1 Height = 300 Left = 2715 TabIndex = 7 Top = 225 Width = 4380 End End Begin TabDlg.SSTab SSTab1 Height = 4785 Left = 90 TabIndex = 12 Top = 690 Width = 9030 _ExtentX = 15928 _ExtentY = 8440 _Version = 393216 Style = 1 Tabs = 2 TabsPerRow = 2 TabHeight = 520 BackColor = 12632256 TabCaption(0) = "客户基本信息" TabPicture(0) = "main_jbxx_kh.frx":0010 Tab(0).ControlEnabled= -1 'True Tab(0).Control(0)= "Frame1" Tab(0).Control(0).Enabled= 0 'False Tab(0).ControlCount= 1 TabCaption(1) = "客户列表" TabPicture(1) = "main_jbxx_kh.frx":002C Tab(1).ControlEnabled= 0 'False Tab(1).Control(0)= "DataGrid1" Tab(1).ControlCount= 1 Begin MSDataGridLib.DataGrid DataGrid1 Bindings = "main_jbxx_kh.frx":0048 Height = 4215 Left = -74910 TabIndex = 34 Top = 420 Width = 8820 _ExtentX = 15558 _ExtentY = 7435 _Version = 393216 AllowUpdate = 0 'False HeadLines = 1 RowHeight = 15 FormatLocked = -1 'True BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "宋体" Size = 9 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "宋体" Size = 9 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ColumnCount = 16 BeginProperty Column00 DataField = "客户编号" Caption = "客户编号" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column01 DataField = "客户全称" Caption = "客户全称" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column02 DataField = "简称" Caption = "简称" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column03 DataField = "地址" Caption = "地址" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column04 DataField = "所属地区" Caption = "所属地区" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column05 DataField = "邮政编码" Caption = "邮政编码" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column06 DataField = "电话" Caption = "电话" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column07 DataField = "传真" Caption = "传真" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column08 DataField = "联系人" Caption = "联系人" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column09 DataField = "联系人电话" Caption = "联系人电话" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column10 DataField = "开户银行" Caption = "开户银行" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column11 DataField = "银行账号" Caption = "银行账号" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column12 DataField = "纳税人登记" Caption = "纳税人登记" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column13 DataField = "网址邮箱" Caption = "网址邮箱" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column14 DataField = "应收金额" Caption = "应收金额" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty BeginProperty Column15 DataField = "实际欠款" Caption = "实际欠款" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 2052 SubFormatType = 0 EndProperty EndProperty SplitCount = 1 BeginProperty Split0 BeginProperty Column00 ColumnWidth = 810.142 EndProperty BeginProperty Column01 ColumnWidth = 2085.166 EndProperty BeginProperty Column02 ColumnWidth = 494.929 EndProperty BeginProperty Column03 ColumnWidth = 1184.882 EndProperty BeginProperty Column04 ColumnWidth = 780.095 EndProperty BeginProperty Column05 ColumnWidth = 764.787 EndProperty BeginProperty Column06 ColumnWidth = 720 EndProperty BeginProperty Column07 ColumnWidth = 555.024 EndProperty BeginProperty Column08 ColumnWidth = 585.071 EndProperty BeginProperty Column09 ColumnWidth = 1005.165 EndProperty BeginProperty Column10 ColumnWidth = 810.142 EndProperty BeginProperty Column11 ColumnWidth = 810.142 EndProperty BeginProperty Column12 ColumnWidth = 1035.213 EndProperty BeginProperty Column13 ColumnWidth = 794.835 EndProperty BeginProperty Column14 ColumnWidth = 794.835 EndProperty BeginProperty Column15 ColumnWidth = 989.858 EndProperty EndProperty End Begin VB.Frame Frame1 Height = 4380 Left = 75 TabIndex = 13 Top = 315 Width = 8865 Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 15 Left = 5100 TabIndex = 41 Text = "0.00" Top = 3960 Width = 3615 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 14 Left = 1350 TabIndex = 40 Text = "0.00" Top = 3960 Width = 2550 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 10 Left = 1350 TabIndex = 27 Top = 3105 Width = 4125 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 11 Left = 6735 TabIndex = 26 Top = 3105 Width = 1965 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 12 Left = 1350 TabIndex = 25 Top = 3540 Width = 2550 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 13 Left = 5100 TabIndex = 24 Top = 3540 Width = 3615 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 270 Index = 9 Left = 6735 TabIndex = 23 Top = 2745 Width = 1965 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 270 Index = 7 Left = 6735 TabIndex = 22 Top = 2325 Width = 1950 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 8 Left = 1335 TabIndex = 21 Top = 2670 Width = 4185 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 5 Left = 6750 TabIndex = 20 Top = 1860 Width = 1950 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 6 Left = 1335 TabIndex = 19 Top = 2280 Width = 4185 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 4 Left = 1350 TabIndex = 18 Top = 1845 Width = 4185 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 3 Left = 1350 TabIndex = 17 Top = 1455 Width = 7350 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 2 Left = 1350 TabIndex = 16 Top = 1020 Width = 7350 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 1 Left = 1350 TabIndex = 15 Top = 585 Width = 7350 End Begin VB.TextBox kh Appearance = 0 'Flat Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 0 Left = 1350 TabIndex = 14 Top = 165 Width = 7335 End Begin VB.Label Label7 Caption = "应收金额: 实际欠款:" BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 195 TabIndex = 39 Top = 4050 Width = 6075 End Begin VB.Label Label5 Caption = "开户银行: 银行账号: " BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 Left = 195 TabIndex = 33 Top = 3135 Width = 6510 End Begin VB.Label Label6 Caption = "纳税人登记: 网址邮箱:" BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 195 TabIndex = 32 Top = 3570 Width = 6075 End Begin VB.Label Label2 Caption = "联系人:" BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 195 TabIndex = 31 Top = 2685 Width = 1185 End Begin VB.Label Label4 BackStyle = 0 'Transparent Caption = "传真: 联系人电话:" BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 690 Left = 5565 TabIndex = 30 Top = 2340 Width = 1260 End Begin VB.Label Label3 Caption = "邮政编码:" BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 270 Left = 5580 TabIndex = 29 Top = 1905 Width = 1020 End Begin VB.Label Label1 Caption = "客户编号: 客户全称: 客户简称: 客户地址: 所属地区: 电话: " BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 2400 Left = 195 TabIndex = 28 Top = 210 Width = 1200 End End End Begin VB.Frame Frame2 BackColor = &H00C0C0C0;& Height = 645 Left = 60 TabIndex = 0 Top = 5475 Width = 9105 Begin VB.CommandButton CmdMD BackColor = &H00FFC0C0;& BeginProperty Font Name = "宋体" Size = 12 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 360 Index = 3 Left = 2670 Picture = "main_jbxx_kh.frx":005D Style = 1 'Graphical TabIndex = 38 Top = 195 Width = 800 End Begin VB.CommandButton CmdMD BackColor = &H00FFC0C0;& BeginProperty Font Name = "宋体" Size = 12 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 360 Index = 2 Left = 1860 Picture = "main_jbxx_kh.frx":160A Style = 1 'Graphical TabIndex = 37 Top = 195 Width = 800 End Begin VB.CommandButton CmdMD BackColor = &H00FFC0C0;& BeginProperty Font Name = "宋体" Size = 12 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 360 Index = 1 Left = 1065 Picture = "main_jbxx_kh.frx":2B0E Style = 1 'Graphical TabIndex = 36 Top = 195 Width = 800 End Begin VB.CommandButton CmdMD BackColor = &H00FFC0C0;& BeginProperty Font Name = "宋体" Size = 12 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 360 Index = 0 Left = 270 Picture = "main_jbxx_kh.frx":4040 Style = 1 'Graphical TabIndex = 35 Top = 195 Width = 800 End Begin VB.CommandButton CmdModify BackColor = &H00C0C0C0;& Caption = "[M]修改" Height = 360 Left = 5025 Style = 1 'Graphical TabIndex = 5 Top = 195 Width = 800 End Begin VB.CommandButton CmdExit BackColor = &H00C0C0C0;& Caption = "[X]退出" Height = 360 Left = 8205 Style = 1 'Graphical TabIndex = 4 Top = 195 Width = 800 End Begin VB.CommandButton CmdEsc BackColor = &H00C0C0C0;& Caption = "[E]取消" Height = 360 Left = 7410 Style = 1 'Graphical TabIndex = 3 Top = 195 Width = 800 End Begin VB.CommandButton CmdDelete BackColor = &H00C0C0C0;& Caption = "[D]删除" Height = 360 Left = 5820 Style = 1 'Graphical TabIndex = 2 Top = 195 Width = 800 End Begin VB.CommandButton CmdAdd BackColor = &H00C0C0C0;& Caption = "[A]添加" Height = 360 Left = 4215 Style = 1 'Graphical TabIndex = 1 Top = 195 Width = 800 End Begin VB.CommandButton CmdSave BackColor = &H00C0C0C0;& Caption = "[S]保存" Enabled = 0 'False Height = 360 Left = 6615 Style = 1 'Graphical TabIndex = 10 Top = 195 Width = 800 End End End Attribute VB_Name = "main_jbxx_kh" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim i As Integer '定义整型变量 Dim rs1 As New ADODB.Recordset '定义数据集对象 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 i End Sub Private 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 Sub Private Sub Form_Unload(Cancel As Integer) frm_main.Enabled = True End Sub Private Sub kh_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn And Index < 13 Then kh(Index + 1).SetFocus '回车获得焦点 If KeyCode = vbKeyReturn And Index = 13 Then CmdSave.SetFocus If KeyCode = vbKeyUp And Index > 1 Then kh(Index - 1).SetFocus End Sub Private Sub SSTab1_Click(PreviousTab As Integer) If Adodc1.Recordset.RecordCount > 0 Then If SSTab1.Tab = 1 And CmdAdd.Enabled = False Then MsgBox ("您正在处理数据,请取消数据处理,在执行本操作!") SSTab1.Tab = 0 End If End If End Sub Private Sub CmdFind_Click() '查询客户信息 Adodc1.RecordSource = "select * from 客户信息表 where (客户信息表." & Combo1.Text & " like + '" + Text1.Text + "'+'%')" Adodc1.Refresh Call view_data '调用函数 SSTab1.Tab = 1 End Sub Private Sub CmdMD_Click(Index As Integer) Select Case Index Case Is = 0 '移到第一条记录 If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Case Is = 1 '移到上一条记录 If Adodc1.Recordset.RecordCount > 0 Then If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirst End If Case Is = 2 '移到下一条记录 If Adodc1.Recordset.RecordCount > 0 Then If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast End If Case Is = 3 '移到最后一条记录 If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveLast End Select Call view_data '调用函数 End Sub Private Sub CmdAdd_Click() '自动创建客户编号 Dim bh As Integer rs1.Open "select * from 客户信息表 order by 客户编号", Cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount > 0 Then If Not rs1.EOF Then rs1.MoveLast If rs1.Fields("客户编号") <> "" Then bh = Right(Trim(rs1.Fields("客户编号")), 4) + 1 kh(0).Text = "kh" & Format(bh, "0000") End If Else kh(0).Text = "kh0001" End If rs1.Close '关闭数据集对象 For i = 1 To 13 kh(i).Enabled = True kh(i).Text = "" Next i '设置控件状态 CmdSave.Enabled = True: CmdEsc.Enabled = True: CmdAdd.Enabled = False CmdModify.Enabled = False: CmdDelete.Enabled = False For i = 0 To 3 CmdMD(i).Enabled = False Next i SSTab1.Tab = 0 kh(1).SetFocus End Sub Private Sub CmdModify_Click() '允许用户修改 If Adodc1.Recordset.RecordCount > 0 Then For i = 0 To 13 kh(i).Enabled = True Next i CmdSave.Enabled = True: CmdEsc.Enabled = True: CmdAdd.Enabled = False CmdModify.Enabled = False: CmdDelete.Enabled = False For i = 0 To 3 CmdMD(i).Enabled = False Next i Else MsgBox ("没有要修改的数据!") End If End Sub Private Sub CmdDelete_Click() '删除客户信息 If Adodc1.Recordset.RecordCount > 0 Then a = MsgBox("您确实要删除这条数据吗?", vbYesNo) If a = vbYes Then '打开错误处理程序 On Error GoTo ErrorHandler Adodc1.Recordset.Delete Adodc1.Refresh For i = 0 To 13 If Adodc1.Recordset.Fields(i) <> "" Then kh(i).Text = Adodc1.Recordset.Fields(i) Next i CmdSave.Enabled = False: CmdEsc.Enabled = False: CmdAdd.Enabled = True CmdModify.Enabled = True: CmdDelete.Enabled = True For i = 0 To 3 CmdMD(i).Enabled = True Next i End If Exit Sub '退出程序,以避免进入错误处理程序 ErrorHandler: '错误处理程序 If Err.Number = -2147217900 Then MsgBox "此客户与商家已存在往来关系,系统不允许删除!" Resume Next '从紧随产生错误的语句的下个语句恢复运行 End If End If End Sub Private Sub CmdSave_Click() '保存客户信息 rs1.Open "select * from 客户信息表 where 客户编号='" & Trim(kh(0).Text) & "'order by 客户编号", Cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount > 0 Then Dim a As String a = MsgBox("您确实要修改这条数据吗?", vbYesNo) If a = vbYes Then For i = 1 To 13 If kh(1).Text <> "" Then rs1.Fields(i) = Trim(kh(i).Text) kh(i).Enabled = False Next i rs1.Update Adodc1.Refresh End If Else If kh(1).Text <> "" And kh(2).Text <> "" Then '添加客户信息 rs1.AddNew For i = 0 To 13 rs1.Fields(i) = Trim(kh(i).Text) kh(i).Enabled = False Next i rs1.Update '更新数据库 Adodc1.Refresh Else MsgBox "请填写完整的信息" End If End If rs1.Close '关闭数据集对象 '设置控件状态 CmdSave.Enabled = False: CmdEsc.Enabled = False: CmdAdd.Enabled = True CmdModify.Enabled = True: CmdDelete.Enabled = True For i = 0 To 3 CmdMD(i).Enabled = True Next i End Sub Private Sub CmdEsc_Click() '取消操作 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) '赋值给kh(i) kh(i).Enabled = False Next i End If <li

立即下载
关闭
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

MSADODC.OCX

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
为了良好体验,不建议使用迅雷下载
VIP和C币套餐优惠
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载
您还未下载过该资源
无法举报自己的资源

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可返还被扣除的积分

  • 举报人:
  • 被举报人:
  • *类型:
    • *投诉人姓名:
    • *投诉人联系方式:
    • *版权证明:
  • *详细原因: