自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

ecz00的专栏

欢迎阁下苙临本博客! 如有空请移步我的个人论坛www.ok510.com!

  • 博客(1)
  • 资源 (28)
  • 论坛 (1)
  • 问答 (1)
  • 收藏
  • 关注

原创 VB速查大全(数据库、表格及报表编程) ★ VB错误处理,ado常见错误,VB数据类型等,网上有很多教程是错的,强烈建议看此文

VB异常处理 (很重要) ado常见错误 ado游标及锁定介绍 免费报表控件 免费表格控件 vb数据类型(很多程序出问题出在这个,一定要看,VB msdn说的不太对) VB可用的AES加密sqlite_odbc 及 cairo_sqlite (VBRichClient自带的非odbc连接) 有vbRichClient代替winsock、实现vb多线程及远程调用activeX等

2016-05-19 18:41:21 3964 3

sqlite3.6.15管理器,可加密码带ODBC。

之前发的sqlite3.6.15可加密码的源码及动态连接库,必须使用本版本创建的数据库,才能加密,原版本无管理器,所以制作了这个版本专用的管理器,如有问题请在此反馈!

2011-12-04

firebird2.5带嵌入版带odbc驱动带interbase指南手册

firebird2.5 for win32 嵌入版 及 安装版 含odbc驱动 interbase指南手册 创建数据库时使用None字符集,支持中文模糊查询 中文排序。

2011-11-22

超漂亮VB6开源码表格控件,支持打印预览。

解压密码:1 极少见的完全开源源码,可打印,支持打印预览的第三方表格控件。 由VB6开发的超漂亮表格控件ocx. 说见压缩包内说明

2011-11-22

sqlite3语法大全

sqlite3语法大全中文版,含取sqlite所有表名,字段名,等。

2011-11-23

支持VB的sqlite3,可加密码修改密码带odbc。附中文资料大全。

内带sqlite3.6.151 风铃夜思雨 修改版的 sqlite.dll,支持odbc,可加密,可用sql语句修改密码 另有,2011年11月为止最新的sqlite3.7.9版(含odbc0.93驱动exe安装版) 外带VB用API模块,及VB用api封装dll。 附:sqlite语法大全html和word两种版本,sqlite权威指南中文版(不完全版)

2011-11-21

sqlite_odbc0.93 for sqlite2.8-3.7.9

sqlite odbc 0.93版 2011年11月最新版 for sqlite3.X

2011-11-21

福州地税服务业统一发票开票软件

地税新版电脑版发票开具打印及客户资料管理软件

2010-02-04

屏幕亮度调节控制软件

windows7 XP win10屏幕亮度调节控制软件,VB6源代码 及 exe

2019-02-06

7个开源VB基础控件,tab控件 美化按钮 选择框 XP风格frame等

由之前修改的5个控件(xTab控件美化稳定版、美化仿XP按钮、仿360的Switch开关控件、属性页控件、xMenu弹出式菜单控件),增加 xFrame和xCheckBox而来 xFrame比网上其他源码增加背景透明,见TransParent属性 xCheckBox选择框同样支持背景透明,见TransParent属性(风格可选VB单选框或复选框)

2016-05-23

VB开源Tab控件,美化按钮及仿360开关等源码【修正无错版】

比网上其他版本(也包括之前在此发的两次)修正: 去除tab只有9页的限制 修正tab页宽度超过1万后,应该在其他页中的控件会留一部分在当前页 放多个没有left、top或WhatsThisHelpID的控件不会产生错误(只是不会随页变动) 修正tabstop不能保持原值错误 修正鼠标停在tab上会不断刷新占用系统资源甚至内存溢出错误(去除usercontrol_mouseover中refresh) tab标题头背景透明处理(美化了^_^) '-------------------------------------------- 修正后仍存在的不足 -------------------------------- 1、控件必须编译后使用,否则一旦拖放出新的adodc等会让自定义控件变为不可用状态的控件,TAB则会跳页错乱! 2、tab控件中的WhatsThisHelpID属性被占用(-_-#,没办法,为了省系统资源,好在多数控件有这个属性且基本没人用,偷笑^^) 3、没有WhatsThisHelpID属性的控件不会随页变动 4、如果把本控件的BackColor设成&H00FF00DA& ,则所有放在Tab页上的控件将与背景一起被透明掉。 (本控件会重画放在其上的控件,所以控件也会被透明) 这个问题其实不算问题,没人必须把背景色设的和这个完全一样吧^^,哪怕差1也可以啊,点明这个问题只是要说明本控件的背景透明或任意形状控件的制作原理 原理: backstyle设为:0 maskColor设为:&H00FF00DA& (这个控件里UserControl的BackColor也要设为:&H00FF00DA&) 在Refresh方法中将在UserControl中重绘好的图作为maskPicture,即: Set UserControl.MaskPicture = UserControl.Image 这样maskpicture中背景没有被重绘的部分保持&H00FF00DA&(即与maskcolor指定的颜色相同色),该颜色的部分即被透明 (注意,指定了backstyle=0及maskpicture后超出maskpicture大小的部分全部会被透明)!!! '---------------------------------------------------------比这个前一个版本的是没有用API的,可以在我的资源里找到前两次修改的版本,使用的话还是用这个版本 这几个控件有很多可学的地方, 比如其中的错误处理(网上的源码和我上一个修改版本的源码中错误处理的部分是不太合理的,虽然我和这个控件的其他修改者一样思路,但研究后最终还是用这次发布的这个版本) 比如上一版本中的无API绘图,这个版本有api,因此图大小可变 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 测试.vbp那个是原先旧版的测试,没有跟着新版修改,所以不兼容,此楼新版是经过测试的,编译好的ocx可以直接使用(★必须使用编译好的ocx,原因一楼已经说了★) 对编译好的ocx有疑问或自己要改进的可以直接修改TabSwitch.vbp,再重新编译

2016-05-19

开源tab控件,仿360金山酷狗开关(修正美化无错版) 【VB源码】

VB自制免API任意形状透明控件 这个控件相当省系统资源,且稳定(修正过的^_^,不会像原VBgood的会闪退,会错乱,不能加tab页) 有很多值得学的,比如不用API打造任意形状控件(控件背景透明),是VB自制控件的一个比较经典案例!

2016-05-17

开源,VB Tab控件(控件背景透明) 及 拔动开关 !

原tab控件,仿360开关控件版权归原作者! VB控件背景透明代码来自:新浪 “玄雨清风”的博客 感谢以上两位源代码作者 链接:http://pan.baidu.com/s/1hrAEXqG 密码:nfhc '-----------------------以下是转自博客的控件透明源代码(可透明至父窗体或桌面)------------- '添加一个用户控件UserControl,代如下: Option Explicit '实现用户控件UserControl的"伪透明" Private Type POINTAPI X As Long Y As Long End Type Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_ERASEBKGND = &H14 Private Const WM_PAINT = &HF Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source Public Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Public Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Public Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private m_BK As Boolean '复制控件在父窗口的背景 Private Sub CopyParentBackground(ByVal phWnd As Long, ByVal chWnd As Long, ByVal hDestDC As Long) Dim lpRect As RECT, lpPoint As POINTAPI, nWidth As Long, nHeight As Long Dim BitMap As Long, oldBitMap As Long, hDC As Long, memDC As Long Call GetWindowRect(phWnd, lpRect) 'Call GetClientRect(phWnd, lpRect) nWidth = lpRect.Right - lpRect.Left '获取控件的宽度 nHeight = lpRect.Bottom - lpRect.Top '获取控件的高度 hDC = GetDC(0) BitMap = CreateCompatibleBitmap(hDC, nWidth, nHeight) Call ReleaseDC(0, hDC) memDC = CreateCompatibleDC(0) oldBitMap = SelectObject(memDC, BitMap) Call SendMessage(phWnd, WM_ERASEBKGND, memDC, 0) Call SendMessage(phWnd, WM_PAINT, memDC, 0) '至此memDC上已经保存了父窗口的背景内容 '用户可以调用BitBlt(...)等函数拷贝memDC的内容到子窗口的某个区域, '这样就达到了透明效果; Call GetWindowRect(chWnd, lpRect) lpPoint.X = lpRect.Left lpPoint.Y = lpRect.Top Call ScreenToClient(phWnd, lpPoint) '获取控件在父窗口的左上角位置 Call BitBlt(hDestDC, 0, 0, nWidth, nHeight, memDC, lpPoint.X, lpPoint.Y, SRCCOPY) ''''''''''''''''''''''复制背景之后,在这里可以其他事情'''''''''''''''''''''''''''' UserControl.CurrentY = 10 UserControl.Print "透明用户控件" UserControl.Refresh ' Call SelectObject(memDC, oldBitMap) Call DeleteDC(memDC) Call DeleteObject(BitMap) End Sub '复制控件在屏幕的背景 Private Sub CopyScreenBackground(ByVal phWnd As Long, ByVal chWnd As Long, ByVal hDestDC As Long) Dim lpRect As RECT, nWidth As Long, nHeight As Long, hDC As Long Call GetWindowRect(chWnd, lpRect) nWidth = lpRect.Right - lpRect.Left '获取控件的宽度 nHeight = lpRect.Bottom - lpRect.Top '获取控件的高度 ShowWindow chWnd, 0 '隐藏 DoEvents hDC = GetDC(0) Call BitBlt(hDestDC, 0, 0, nWidth, nHeight, hDC, lpRect.Left, lpRect.Top, SRCCOPY) Call ReleaseDC(0, hDC) ShowWindow chWnd, 5 '显示 ''''''''''''''''''''''复制背景之后,在这里可以其他事情'''''''''''''''''''''''''''' UserControl.CurrentY = 10 UserControl.Print "透明用户控件" UserControl.Refresh End Sub Private Sub UserControl_Initialize() UserControl.ScaleMode = vbPixels End Sub Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) RaiseEvent MouseDown(Button, Shift, X, Y) End Sub Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) RaiseEvent MouseMove(Button, Shift, X, Y) End Sub Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) RaiseEvent MouseUp(Button, Shift, X, Y) CopyBKImage m_BK End Sub Private Sub UserControl_Resize() On Error Resume Next CopyBKImage m_BK End Sub Private Sub UserControl_Show() CopyBKImage m_BK End Sub Public Property Let CopyBKMode(ByVal bkm As Boolean) m_BK = bkm End Property Public Property Let BorderStyle(BStyle As Boolean) If BStyle = True Then UserControl.BorderStyle = 1 Else UserControl.BorderStyle = 0 End If End Property Public Sub Refresh() CopyBKImage m_BK UserControl.Refresh End Sub Private Sub CopyBKImage(Optional ByVal flag As Boolean = False) If flag = True Then CopyScreenBackground UserControl.Parent.hwnd, UserControl.hwnd, UserControl.hDC Else CopyParentBackground UserControl.Parent.hwnd, UserControl.hwnd, UserControl.hDC End If End Sub '''''''''''''''''''''''''''''''调用实例''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''Form1代码'''''''''''''''''''''''''''''' Option Explicit Dim LabX As Single, LabY As Single, IsMouseDownLab As Boolean Private Sub ctl1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) IsMouseDownLab = True LabX = X: LabY = Y End Sub Private Sub ctl1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If IsMouseDownLab = True Then '移动ctl1的位置 If Button = 1 Then ctl1.Move ctl1.Left + Me.ScaleX(X - LabX, 3, 3), ctl1.Top + ScaleX(Y - LabY, 3, 3) End If End Sub Private Sub ctl1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) IsMouseDownLab = False End Sub Private Sub Form_Load() Me.ScaleMode = vbPixels ctl1.CopyBKMode = True '复制控件在屏幕的背景 ctl2.CopyBKMode = False '默认值,复制控件在父窗口的背景 ctl2.BorderStyle = True '有边框 ctl1.BorderStyle = False '无边框 End Sub

2016-05-15

VB非对称加解密:用vbRichClient的cCrypt演示diffie-hellman

AB双方交换共享码流程说明:【双方使用一样的素数和原数,最终生成的共享码是完全一致的。】 A方: 用 素数prime,原数base,A任意自定的整数私锁 -> 生成公锁A (把公锁A发给B) B方: 用 素数prime,原数base,B任意自定的整数私锁 -> 生成公锁b (把公锁b发给A) 对应cCrypt中的:属性DiffieHellmanPrime,属性DiffieHellmanBase,属性DiffieHellmanPrivate -> DiffieHellmanCreatePublicKey() A方: 用 素数prime,原来自定的整数私锁A,公锁b-> 生成共享码 B方: 用 素数prime,原来自定的整数私锁b,公锁A-> 生成共享码 对应cCrypt中的:属性DiffieHellmanPrime,属性DiffieHellmanPrivate,属性DiffieHellmanPublic -> DiffieHellmanCreateSharedSecret() 说明:cCrypt中的GenPrime()用于随机生成一个极大的素数,CheckPrime()用于检查该数是否素数。 --------------------------------------------------------------------------------------------------------------------------------------- diffie-hellman算法原理(原理其实很简单,但大素数、原数及高次元方程比较难解^_^): 例子:设密钥交换基于素数P=97 和 97的一个原根G = 5 A和B分别随意选择私有密钥XA=36 和 XB=58。 每人计算其公开钥:YA=5^36=50 mod 97 :YB=5^58=44 mod 97 取了公开钥之后,都把公锁发给对方 再各自用以下公式计算得出双方共享数: Ka = (YB)^XA mod 97 = 44^36 = 75 mod 97 Kb = (YA)^XB mod 97 = 50^58 = 75 mod 97 如上所示,在双方不改变用于生成公锁的私锁值情况下(且素数一致),双方计算得到的shareKey是一样的!

2016-04-14

VB编程大全笔记,主要为VB数据库及报表应用

本资料为笔者从入门到开发数套应用后的总结,可以作为VB速查,也可以让VB数据库开发者少走很多弯路,相信大家能在其中找到些许惊喜! VB及ADO常见错误及处理方法 VB数据精度及bug(目前市面上基本没有哪个书有提及的,比如 t=300*200的溢出错误,比如单精度双精度转换时错误等,再如VB_msdn中的winsock最基本介绍错误等等) 常用报表工具推荐及实用配套程序,如 acreport、 grid++report 常用表格及其配套程序(均为自测可用,并已标明注意事项及优缺点及bug),如reportx、vsflexgrid、 fpspread8、以及VB自家的Hflexgrid等 重点介绍sqlite的应用,如sqlite_ODBC(可加密)的ADO应用,cairo_sqlite(可加密)非odbc应用(并指出cRs必须指定字段类型,否则出错,cRs删改速度不如ado等) 介绍部分vbRichClient5的应用,如替代winsock,远程dll库 部分VB自定义程序,如:真正四舍五入(可以round(14.5,-1)不受前位奇偶影响)、随机序列生成(可将如1-100顺序打成随机)、不会假死的等待、数组排序去重查找、 对VB数据类型做说明(避免使用单双精度产生错误) .....

2016-03-20

vbRichClient5精选案例

vbRichClient是个十分强大的库,支持VB多线程,图形,摄像头,音频,甚至3D建模物理引擎等等 这个打包例程主要是图形处理相关的

2016-01-20

vbRichClient例程,包括多线程,sqlite,cRPCconnection

很少有的vbRichClient案例教程 包括了reports、 rpc-demos(远程直接操作active dll)、 sqlite操作、 cTCPServer cTCPClient、cThreading(vb多线程)、cXML

2016-01-20

使用vbRichClient代替winsock,实现局网多客户端非gui数据收发

发现网上关于vbrichclient的教程比较少,但这个实在是好东西,实用性,稳定性都比VB自带的winsock好的多,多客户端不用winsock控件数组。 也不用在各窗体上放winsock,直接在模块中就能实现收发 下面直接上代码,窗体和文本钮、按钮大家自行拖放。要用到VB自带隐藏函数varptr()取内存指针(VbMsdn中没有这个函数,实际上很简单^^)。 VbRichClient5.0.38中包含sqlite3.9支持 上面共享中也包含VbRichClient5.0.38支持库 VbRichClient代替winsock 主要使用 cTCPServer cTCPClient cUDP '--------------------------------------------------------------------- '服务器端,代码最简化,要实现多客户端只要用数组存hsocket就可以 Option Explicit Dim WithEvents sv As cTCPServer Dim WithEvents udp1 As cUDP Dim cHsocket& Private Sub Form_Load() Set sv = New cTCPServer sv.Listen sv.GetHost("127.0.0.1"), 35912 Debug.Print sv.GetHost("") Set udp1 = New cUDP udp1.Bind "127.0.0.1", 5616 End Sub Private Sub sv_DataArrival(ByVal hSocket As Long, ByVal BytesTotal As Long, ByVal FirstBufferAfterOverflow As Boolean) Dim d() As Byte, s$ ReDim d(BytesTotal - 1) sv.GetData hSocket, VarPtr(d(0)), BytesTotal '★★关键代码 s = d Text2.Text = Text2.Text & s & vbCrLf Debug.Print "收到:" & BytesTotal End Sub Private Sub sv_TCPAccepted(ByVal hSocket As Long) cHsocket = hSocket Text1.Text = Text1.Text & sv.GetPeerHostIPAndPort(hSocket) & vbCrLf End Sub Private Sub sv_TCPDisConnect(ByVal hSocket As Long) Text3.Text = Text3.Text & sv.GetPeerHostIPAndPort(hSocket) & vbCrLf End Sub Private Sub udp1_NewDatagram(ByVal BytesTotal As Long, ByVal FirstBufferAfterOverflow As Boolean) Dim d() As Byte, s$ ReDim d(BytesTotal - 1) udp1.GetData VarPtr(d(0)), BytesTotal s = d Text2.Text = Text2.Text & s & vbCrLf End Sub '------------------------------------------------------- '客户端 Option Explicit Dim WithEvents cl As cTCPClient Dim WithEvents udp1 As cUDP Dim cid& Private Sub Command1_Click() cid = cl.Connect("QgB1", 35912) End Sub Private Sub Command2_Click() cl.Disconnect cid End Sub Private Sub Command3_Click() Dim b() As Byte b = Text1.Text cl.SendData cid, VarPtr(b(0)), UBound(b) + 1 End Sub Private Sub Command4_Click() Dim d() As Byte, s$ s = "yessss" d = s udp1.RemoteIP = "127.0.0.1" udp1.RemotePort = 5616 udp1.SendData VarPtr(d(0)), UBound(d) + 1 '★★关键代码 End Sub Private Sub Form_Load() Set cl = New cTCPClient Set udp1 = New cUDP udp1.Bind "127.0.0.1", 3941 End Sub Private Sub udp1_NewDatagram(ByVal BytesTotal As Long, ByVal FirstBufferAfterOverflow As Boolean) Dim d() As Byte ReDim d(BytesTotal - 1) Text2.Text = udp1.GetData(VarPtr(d(0)), BytesTotal) '★★关键代码 End Sub

2016-01-14

VB6用vbRichClient操作sqlite,支持解密

vbrichclient的中文例程比较少,网上搜了点文字资料,并简单测了一下 应该说用vbRichClient操作sqlite是个不错的选择, 首先它支持加解密 其次它的版本比其他VB sqlite支持库更新快,像目前已经是sqlite3.9支持Json了 另外它操作也比ado简单,具体看附件的例

2016-01-12

Photoshop制作透明按钮等

这个是网上收来的教程,打了个包,方便大家做个性化按钮,含网页特效按钮 所有解压密码都是 1 ,现在很多人用的不是winrar,所以看不到提示信息。

2015-07-14

带加密的sqlite3.7.9odbc合集

带加密的sqlite合集,版本都是3.7.9以前的,带例程和简单的自制管理器

2015-07-13

reportx2.7表格控件

一个免费的表格控件,相当强大 reportX支持预览和打印、支持公式、支持表格模版、支持导出excel、支持单元格锁定及格式、支持图表和条码等,不支持数据源、单元格边框单独改色,至2.6版本时仍有些BUG如:OnCellChanging事件无效,只能用API getfocus()取当前输入框句柄然后取该控件的标题即是正在输入的内容。 发布只要regsvr32注册ReportX.ocx即可。 1、常用属性及方法: setcellvalue()置单元格文本、getcellvalue()取单元格文本、Explain...()计算刷新单元格公式、OpenReport()载入表格模版、Colcount和Rowcount属性设置或取得表格行列数、 GetSelectCell方法的参数应使用变量而不是变量值以便该方法将选择范围返回给变量、TopRow属性为当前表格可见行首行号、Sortcol()对指定列进行排序、sortrow()对指定行排序、PageHeader...Text和PageFooter...Text属性设置页眉页脚其中@number表示当前面@Count表示总页数、 GetCellHAlignment取横向对齐方式GetCellVAlignment纵向SetCellHAlignment设置0左1中2右、ExplainCellExpression计算单元格公式(单元格公式不会自动计算,只能在程序中调用执行)、ExportExcel导出到excel。 2、BottomHeight和RightWidth设为0则reportX没有滚动条,PoleHeight和PoleWidth设为0则表格没有固定标题行列。 3、reportx单元格首列和首行号均为1 4、setpoletext()和getpoletext 参数一为标杆方向横向为0,纵向为1,参数二位置从1开始(即最左上角标杆格无法设置任何数据) 5、MergeCell()合并单元格必须用合并后的最前的行列进行读写,或用SplitCell拆分单元格。 6、VB对其setfocus()无效(易语言支持setfocus),可使用控件本身的SetSelectCell方法代替。 7、AppendRow和AppendCol方法增加指定的行数或列数,DeleteCol删除指定列数。 8、reportx.SetColWidth col, reportx.GetColBestWidth(col) + 9 '填充完数据后,用此语句设置最佳列宽。 9、copycell和paste方法可以复制,粘贴区域,包含格式(但不含分页符),可以粘贴到另一个Rpt对象中。 10、大量写表格数据时,设置InvalidatePaint()使表格刷新无效,写好数据后使用ValidatePaint()使报表刷新有效并刷新,这样可以加快写的速度。如果这样还是太慢或内存不足,则只能用分页分册的方式了。 速度上比VsFlex的还是要差很多,但支持图表,支持打印,支持套打模版等等,更主要的是免费,支持原作者!

2015-07-13

acReport3.2.12自由表格式报表控件

一个很不错的报表控件,希望继续完善,使用中还是有些不足 比如使用cell函数取值时,如果公式在被取值单元格前,则第一页无法取到值 还有些会产生系统错误,系统自带报表样本中就有几个会出错 总体来说是自由度最高的报表,最易用的报表,没有之一,支持国产佳作! 原版本打包,版权属原作者

2015-07-13

VB6常用模块

个人常用的报表,数据库操作类的VB模块,每个模块都标有用法 1、四舍五入函数(VB本身的有问题,而且这个支持小数位数为负数) 2、一维数组排序 3、数组去重复 4、将变量转化为SQL语句的字段值,文本加单引号数字就不加单引号 5、整理字符串,去除连续字符,仅保留N个 6、取指定范围内不重复的随机数序列集合 7、把总额(指定的小数位数)按范围随机拆分,个数不定 8、API等待,不会造成假死,精确到毫秒 9、ReportX排版置标题 10、reportx删除选定行 11、reportx写入记录集recordset 12、recordset写入reportx,带自动最佳列宽

2015-07-13

VB取互联网北京时间

两种方法取网络时间,第一种方法不受网站本身是否提供时间查询页限制

2015-07-13

生成二维码

这个是一个比较完善的VB二维码生成源代码,亲测可用! 原作未声明版权,但特此声明所有权属于原作者

2015-07-13

sqlite管理器

简洁的界面,所有操作都是语句化的,所有系统自动生成语句可以直接复制使用。 SQL语句中输入的双引号会自动转为单引号

2015-07-13

无忧拼音控件(支持GBK多音字取拼音及首字母带声调)

取拼音支持GBK多音字,共计收录2万7千多个汉字。支持取首字母 取带声调拼音 start("软件注册码") '初始化控件,使用控件前必须初始化。注册码不可为空,错误注册码将出现随机弹窗,不影响其他功能。 qpy("要取拼音的汉字",取第几个音) '取拼音 返回汉字的读音,末位数字代表声调,无法识别的字符则返回原字符。 qdys("要判断读音数的汉字") '取读音数 返回汉字读音的数目,无法识别则返回0 qszm("字符串") '取首字母 返回字符串的拼音首个字母,多音常用字返回常见读音首字母,非常见字返回第一个读音首字母,无法识别返回原字符。 获取控件注册码请联系QQ331333721或直接登录淘宝网店购买,每个注册号人民币30元整。注册号与淘宝交易号直接挂勾,凡未经许可传播注册号或发布破解控件,将引起最大范围的法律诉讼。网店地址: http://shop57633285.taobao.com/

2009-10-01

fbexpert firebird管理器 绿色精简版V1.0

fbexpert是一款完全免费的绿色软件,全中文界面,无需安装firebird即可使用。(因带较多dll,所以文件也比较大) 可进行基本的firebird管理,是初学数据库的好工具,即使是熟练使用其他数据库的高手在转用firebird时也是不可多得的好东东。 自动输出系统操作中所用到的SQL语句,一些语句是IBexpert中所没有提示的,比如读表结构。(说明:精简版仅输出基本语句,全语句版输出包含所有程序中用到的语句,包读表结构,改表结构,改约束等) 在表结构修改时设置字段NOT NULL约束使用了比ibexpert更完整的语句。 ibexpert功能强大,但却是收费软件。英文较好且需要管理视图等功能时建议使用。 由于打包程序过程出错,原先发布的软件不能在没有安装firebird情况下运行,原软件地址: http://download.csdn.net/source/1245570

2009-04-25

把两个数字拆分,这个程序要怎么做???

发表于 2015-06-01 最后回复 2015-06-03

TA创建的收藏夹 TA关注的收藏夹

TA关注的人 TA的粉丝

提示
确定要删除当前文章?
取消 删除