VB 版 (精华区)
发信人: Mice (开心果), 信区: VisualBasic
标 题: [转载] Visual Basic 的命名规则
发信站: 紫 丁 香 (Mon Nov 16 19:09:01 1998), 转信
【 以下文字转载自 VisualProgram 讨论区 】
【 原文由 344.A 所发表 】
应该用一致的前缀来命名对象，使人们容易识别对象的类型。下面列出了 Visual Basic
支持的一些推荐使用的对象约定。
推荐使用的控件前缀
控件类型 前缀 例子
3D Panel pnl pnlGroup
Animated button ani aniMailBox
Check box chk chkReadOnly
Combo box, drop-
down list box cbo cboEnglish
Command button cmd cmdExit
Common dialog dlg dlgFileOpen
Communications com comFax
Control （当特定
类型未知时，在过
程中所使用的） ctr ctrCurrent
Data control dat datBiblio
Data-bound
combo box dbcbo dbcboLanguage
Data-bound grid dbgrd dbgrdQueryResult
Data-bound
list box dblst dblstJobType
Directory
list box dir dirSource
Drive list box drv drvTarget
File list box fil filSource
Form frm frmEntry
Frame fra fraLanguage
Gauge gau gauStatus
Graph gra graRevenue
Grid grd grdPrices
Horizontal
scroll bar hsb hsbVolume
Image img imgIcon
Key status key keyCaps
Label lbl lblHelpMessage
Line lin linVertical
List box lst lstPolicyCodes
MAPI message mpm mpmSentMessage
MAPI session mps mpsSession
MCI mci mciVideo
MDI child form mdi mdiNote
Menu mnu mnuFileOpen
MS Flex grid msg msgClients
MS Tab mst mstFirst
OLE ole oleWorksheet
Outline out outOrgChart
Pen BEdit bed bedFirstName
Pen HEdit hed hedSignature
Pen ink ink inkMap
Picture pic picVGA
Picture clip clp clpToolbar
Report rpt rptQtr1Earnings
Shape shp shpCircle
Spin spn spnPages
Text box txt txtLastName
Timer tmr tmrAlarm
UpDown upd updDirection
Vertical scroll bar vsb vsbRate
Slider sld sldScale
ImageList ils ilsAllIcons
TreeView tre treOrganization
Toolbar tlb tlbActions
TabStrip tab tabOptions
StatusBar sta staDateTime
ListView lvw lvwHeadings
ProgressBar prg prgLoadFile
RichTextBox rtf rtfReport
推荐使用的数据访问对象 (DAO) 的前缀
用下列前缀来指示数据访问对象。
数据库对象 前缀 例子
Container con conReports
Database db dbAccounts
DBEngine dbe dbeJet
Document doc docSalesReport
Field fld fldAddress
Group grp grpFinance
Index idx idxAge
Parameter prm prmJobCode
QueryDef qry qrySalesByRegion
Recordset rec recForecast
Relation rel relEmployeeDept
TableDef tbd tbdCustomers
User usr usrNew
Workspace wsp wspMine
一些例子：
Dim dbBiblio As Database
Dim recPubsInNY As Recordset, strSQLStmt As String
Const DB_READONLY = 4 ' 设置常量。
'打开数据库。
Set dbBiblio = OpenDatabase("BIBLIO.MDB")
' 为SQL 语句设置文本。
strSQLStmt = "SELECT * FROM Publishers WHERE _
State = 'NY'"
' 创建新的记录集对象。
Set recPubsInNY = db.OpenRecordset(strSQLStmt, _
dbReadOnly)
推荐使用的菜单前缀
应用程序频繁使用许多菜单控件，对于这些控件具备一组唯一的命名约定很实用。除了
最前面 "mnu" 标记以外，菜单控件的前缀应该被扩展：对每一级嵌套增加一个附加前缀
，将最终的菜单的标题放在名称字符串的最后。下表列出了一些例子。
菜单标题序列 菜单处理器名称
File Open mnuFileOpen
File Send Email mnuFileSendEmail
File Send Fax mnuFileSendFax
Format Character mnuFormatCharacter
Help Contents mnuHelpContents
当使用这种命名约定时，一个特定的菜单组的所有成员一个接一个地列在 Visual Basic
的“属性”窗口中。而且，菜单控件的名字清楚地表示出它们所属的菜单项。
为其它控件选择前缀
对于上面没有列出的控件，应该用唯一的由两个或三个字符组成的前缀使它们标准化，
以保持一致性。只有当需要澄清时，才使用多于三个字符的前缀。
例如，对于派生的或修改的控件象上述那样扩展其前缀，使得在真正使用了哪一个控件
的问题上避免混淆。对于第三方控件，应该把制造商的小写缩写名附加到前缀中。例如
，从 Visual Basic Professional 3D 框架中创建的一个控件实例可以用 fra3d 这样的
前缀，以避免混淆所使用的控件。
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.226.92]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.226.67]
5632350.Atar 信人: Mice (开心果), 信区: VB
标 题: [转载] Visual Basic 常量和变量命名约定
发信站: 紫 丁 香 (Tue May 19 18:45:50 1998), 转信
除了对象之外，常量和变量也需要良好格式的命名约定。本节列出了 Visual Basic 支
持的常量和变量的推荐约定。并且讨论标识数据类型和范围的问题。
变量应该总是被定义在尽可能小的范围内。全局 (Public) 变量可以导致极其复杂的状
态机构，并且使一个应用程序的逻辑非常难于理解。全局变量也使代码的重用和维护更
加困难。
Visual Basic 中的变量可以有下列范围：
范围 声明位置 可见位置
过程级 过程，子过程或函数过程中的 'Private' 在声明它的过程中
模块级 窗体或代码模块（.frm、.bas ）的声明 窗体或代码模块中的每一个过程
部分中的 'Private'
全局 代码模块（.bas）的声明部分中的 'Public' 应用程序中的每一处
在 Visual Basic 的应用程序中，只有当没有其它方便途径在窗体之间共享数据时才使
用全局变量。当必须使用全局变量时，在一个单一模块中声明它们，并按功能分组。给
这个模块取一个有意义的名称，以指明它的作用，如 Public.bas。
较好的编码习惯是尽可能写模块化的代码。例如，如果应用程序显示一个对话框，就把
要完成这一对话任务所需要的所有控件和代码放在单一的窗体中。这有助于将应用程序
的代码组织在有用的组件中，并减小它运行时的开销。
除了全局变量（应该是不被传递的），过程和函数应该仅对传递给它们的对象操作。在
过程中使用的全局变量应该在过程起始处的声明部分中标识出来。此外，应该用 ByVal
将参数传递给 Sub 过程及 function 过程，除非明显地需要改变已传递的参数值。
变量范围前缀
随着工程大小的增长，划分变量范围的工作也迅速增加。在类型前缀的前面放置单字母
范围前缀标明了这种增长，但变量名的长度并没有增加很多。
范围 前缀 例子
全局 g gstrUserName
模块级 m mblnCalcInProgress
本地到过程 无 dblVelocity
如果一个变量在标准模块或窗体模块中被声明为 Public，那么该变量具有全局范围。如
果一个变量在标准模块或窗体模块中被分别声明为 Private，那么该变量有模块级范围。
注意 一致性是卓有成效地使用这种技术的关键；Visual Basic 中的语法检查器不会
捕捉以 "p." 开头的模块级变量。
常量
常量名的主体是大小写混合的，每个单词的首字母大写。尽管标准 Visual Basic 常量
不包含数据类型和范围信息，但是象 i、s、g 和 m 这样的前缀对于理解一个常量的值
和范围还是很有用的。对于常量名，应遵循与变量相同的规则。例如：
mintUserListMax '对用户列表的最大限制
'(整数值，本地到模块)
gstrNewLine '新行字符
'(字符串，应用程序全局使用)
变量
声明所有的变量将会节省编程时间，因为键入操作引起的错误减少了（例如，究竟是
aUserNameTmp，还是 sUserNameTmp，还是 sUserNameTemp）。在“选项”对话框的
“编辑器”标签中，复选“要求变量声明”选项。Option Explicit 语句要求在
Visual Basic 程序中声明所有的变量。
应该给变量加前缀来指明它们的数据类型。而且前缀可以被扩展，用来指明变量范围，
特别是对大型程序。
变量数据类型
用下列前缀来指明一个变量的数据类型。
数据类型 前缀 例子
Boolean bln blnFound
eanB byt bytRasterData
nByteCollection o col colWidgets
ection o cur curRevenue
on objectCu dtm dtmStart
ectCur dbl dblTolerance
Curre err errOrderNum
rencyDa int intQuantity
yDat lng lngDistance
Object obj objCurrent
ectSin sng sngAverage
Single str strFName
gleStringUser-def udt udtEmployee
User-de vnt vntCheckSum
描述变量和过程名
变量或过程名的主体应该使用大小写混合形式，并且应该足够长以描述它的作用。而且
，函数名应该以一个动词起首，如 InitNameArray 或 CloseDialog。
对于频繁使用的或长的项，推荐使用标准缩略语以使名称的长度合理化。一般来说，超
过 32 个字符的变量名在 VGA 显示器上读起来就困难了。
当使用缩略语时，要确保它们在整个应用程序中的一致性。在一个工程中，如果一会儿
使用 Cnt， 一会儿使用 Count，将导致不必要的混淆。
用户定义的类型
在一项有许多用户定义类型的大工程中，常常有必要给每种类型一个它自己的三个字符
的前缀。如果这些前缀是以 "u" 开始的，那么当用一个用户定义类型来工作时，快速识
别这些类型是很容易的。例如，ucli 可以被用来作为一个用户定义的客户类型变量的前
缀。
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.226.92]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.226.67]
标 题: [转载] Visual Basic 结构化编码约定
发信站: 紫 丁 香 (Tue May 19 18:45:59 1998), 转信
除了命名约定外，结构化编码约定，可以极大地改善代码的可读性，如代码注释和一致
性缩进。
代码注释约定
所有的过程和函数都应该以描述这段过程的功能的一段简明注释开始（这段例程干什么
）。这种描述不应该包括执行过程细节（它是怎么做的），因为这常常是随时间而变的
，而且这种描述会导致不必要的注释维护工作，甚至更糟—成为错误的注释。代码本身
和必要的嵌入注释将描述实现方法。
当参数的功能不明显且当过程希望参数在一个特定的范围内时，也应描述传递给过程的
参数。被过程改变的函数返回值和全局变量，特别是通过引用参数的那些，也必须在每
个过程的起始处描述它们。
过程头注释块应该包括下列节标题。关于例子，请参阅下节“格式化代码”。
节标题 注释描述
目的 该过程完成什么（而不是怎么完成）。
假设 列出每个外部变量、控件、打开文件或其它不明显元素。
效果 列出每个被影响的外部变量、控件、或文件及其作用（只有当它不明显时）。
输入 每一个可能不明显的参数。参数分别在单独的行上，并嵌入注释。
返回 函数返回值的说明。
记住下列几点：
■ 每一个重要变量的声明应该包括一个嵌入注释，来描述该变量的使用。
■ 变量、控件及过程的命名应该足够清楚，使得只有复杂的执行细节才需要嵌入
注释。
■ .Bas 模块包含工程的 Visual Basic 一般常量声明，在其起始处，应该包括描
述应用程序的综述，列举主要数据对象、过程、算法、对话、数据库及系统需
求。有时，一段描述算法的伪码可能会有所帮助。
格式化代码
因为许多程序员仍然使用 VGA 显示器，所以在允许代码格式来反映逻辑结构和嵌套的同
时，应尽可能地省屏幕空间。下面列出几点：
■ 标准的、基于制表位的嵌套块应该被缩进四个空格（缺省情况下）。
■ 过程的功能综述注释应该缩进一个空格。跟在综述注释后面的最高级的语句应
该缩进一个制表位，而每一个嵌套的块再缩进一个制表位。例如：
'*****************************************************
'目的： 在用户列表数组中找出
' 一个指定用户的第一次出现位置。
'输入：
' strUserList()： 被搜索的用户列表。
' strTargetUser： 要搜索的用户名。
' 返回： 在rasUserList 数组中rsTargetUser
' 的第一次出现的索引。
' 如果目标用户没找到，返回-1。
'*****************************************************
Function intFindUser (strUserList() As String, strTargetUser As _
String)As Integer
Dim i As Integer ' 循环计数器。
Dim blnFound As Integer ' 目标寻找标志。
intFindUser = -1
i = 0
While i <= Ubound(strUserList) and Not blnFound
If strUserList(i) = strTargetUser Then
blnFound = True
intFindUser = i
End If
Wend
End Function
给常量分组
变量和定义的常量应该按功能分组，而不是分散到单独区域或特定文件中。Visual
Basic 一般常量应该在单一模块中分组，以将它们与应用程序特定的声明分开。
& 和 ＋ 运算符
在连接字符串时总是使用 & 运算符，而当处理数值时常用 ＋ 运算符。当在两个变体上
操作时，用 ＋ 运算符来连接可能会导致问题。例如：
vntVar1 = "10.01"
vntVar2 = 11
vntResult = vntVar1 + vntVar2 'vntResult = 21.01
vntResult = vntVar1 & vntVar2 'vntResult = 10.0111
为 MsgBox、InputBox 及 SQL 查询创建字符串
当产生长字符串时，使用下划线连接字符产生多行代码，这样便于阅读或调试字符串。
当显示一个消息框 (MsgBox) 或输入框 (InputBox)，或产生一个 SQL 字符串时，这一
技术特别有用。例如：
Dim Msg As String
Msg = "This is a paragraph that will be " _
& "in a message box. The text is" _
& " broken into several lines of code" _
& " in the source code, making it easier" _
& " for the programmer to read and debug."
MsgBox Msg
Dim QRY As String
QRY = "SELECT *" _
& " FROM Titles" _
& " WHERE [Year Published] > 1988"
TitlesQry.SQL = QRY
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.226.92]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.226.67]
标 题: 我喜欢VB!
发信站: 紫 丁 香 (Tue May 19 20:47:51 1998), 转信
1。语句易读
2。节省调试时间，提高调试效率
3。现在速度也不慢么
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.235.31]
标 题: A question
发信站: 紫 丁 香 (Wed May 20 09:55:20 1998), 转信
我正在用VB编写一些程序,在用Graph控件画图时,
设NumSet=5,可是只有第一个Legeng Text被赋值,
其它只看到画图符号,而不见我所要输入的图的符
号说明(即Lengend Text 的内容),按说Legend Text
的属性属于数组,可怎样才能成功的对其赋值本人
由于毕业在即,亟待高手指点
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: ljyang.hit.edu.c]
标 题: [转载] Re: VB 中有实现打印功能的控件吗？
发信站: 紫 丁 香 (Wed May 20 10:13:30 1998), 转信
【 在 youth (小冬瓜) 的大作中提到: 】
: VB 中有实现打印功能的控件吗？
可爱的小冬瓜啊,VB5.0中的通用对话框,
只要将其设为Commondialog1.showprint则
可以实现和Windows中其他应用程序中那样
的打印功能(假设你的通用对话框控件的名字设为
commondialog1)
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: ljyang.hit.edu.c]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: ljyang.hit.edu.c]
标 题: Re: VB 中动画的实现?
发信站: 紫 丁 香 (Wed May 20 10:29:14 1998), 转信
寄信人: celine (湖底晨星 )
标 题: Re: VB 中动画的实现?
发信站: 紫 丁 香 (Wed May 20 10:26:27 1998)
来 源: ljyang.hit.edu.c
【 在 youth (小冬瓜) 的大作中提到: 】
: 想在VB的窗体上加上一段循环播放的小动画,有一点小小要求:播放器不能让
: 用户看见,窗体一加载时,动画开始播放,窗体卸载时,动画停止,有什么办法吗?
: 我这有 ActiveMovie 的控件,但不知道怎么用? 谢谢你的帮助!
你可以通过更改所要嵌入的OLE控件的嵌入特性,如可以试一试
OLEControlName.InsertObjDlg对话框中的选项
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: ljyang.hit.edu.c]
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: ljyang.hit.edu.c]
标 题: 建VB版的目的
发信站: 紫 丁 香 (Thu May 21 10:08:32 1998), 转信
建这个版的目的是为了更多的爱好VB 和正在使用VB的人提供一个互相学习
交流的场所,所以我希望在这个版不要出现灌水行为,让这个版成为真正的
学术交流的地方..... 好吗?
谢谢大家 !!!!!!
--
我愿我是一个无比美丽的梦境
让你永远永远也走不出来
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.226.69]
标 题: how to study VB
发信站: 紫 丁 香 (Thu May 21 22:01:30 1998), 转信
就我个人认为，学好VB要注意两点
1.VB的事件驱动编程的机理。
2.ActiveX控件的使用。
对于VB5.0，则应多注意VB面向对象的方法，
可注意多使用VB中工程中加入类模块中的
VB类生成器
对于VB的学习，我个人认为，对于有Basic
编程基础的人，不需要购买书籍，如果，你
安装的是VB5.0中文版，只要安装上联机手册，
它便是一本很好的书籍，市面上，这一套书
卖二三百元钱。
因此，我个人认为在本版不要再出现什么VB入门
之类的文章。本版只应该作为讨论VB编程技巧
和解决VB疑难问题。
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: etp4.hit.edu.cn]
标 题: Re: 我喜欢VB!
发信站: 紫 丁 香 (Thu May 21 22:33:18 1998), 转信
【 在 atom (阿兔) 的大作中提到: 】
: 1。语句易读
: 2。节省调试时间，提高调试效率
: 3。现在速度也不慢么
不见得！调试数据库应用程序，速度就
很不乐观了。
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: etp4.hit.edu.cn]
标 题: VB和DEPHI哪个好一些?
发信站: 紫 丁 香 (Fri May 22 17:58:07 1998), 转信
如题..
请大虾们不惜赐教
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: yaoyu.hit.edu.cn]
标 题: Re: VB和DEPHI哪个好一些?
发信站: 紫 丁 香 (Sat May 23 07:54:43 1998), 转信
【 在 biped (谁有VtoolsD?) 的大作中提到: 】
: 如题..
: 请大虾们不惜赐教
都挺不错的,Delphi的内核是 Pascal.
上手都比较容易.
这要看个人习惯了.
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: sys05.hit.edu.cn]
标 题: Re: VB和DEPHI哪个好一些?
发信站: 紫 丁 香 (Sat May 23 08:01:58 1998), 转信
Vb没法和Delphi相比. Vb比Delphi好学,但是学会了也就完事了,
真正编一个好程序,还要使用Delphi,使用VB的速度真是太慢太慢了.
微软的程序从来不是程序运行速度加快,而是有CPU来帮助它加速,
所以才出现了WINTEL.
【 在 biped (谁有VtoolsD?) 的大作中提到: 】
: 如题..
: 请大虾们不惜赐教
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: cal.hit.edu.cn]
标 题: Re: VB和DEPHI哪个好一些?
发信站: 紫 丁 香 (Sat May 23 08:07:34 1998), 转信
【 在 biped (谁有VtoolsD?) 的大作中提到: 】
: 如题..
: 请大虾们不惜赐教
VB使用起来比较简单，对于缩短产品的开发周期具有优势。
但如果程序员对于PASCAL熟悉的话，VB的优势就不太显著了。
而且VB对于类的支持不强，不太适用于面向对象的编程。
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: as605.hit.edu.cn]
标 题: [转载] VB"问与答"
发信站: 紫 丁 香 (Sun May 24 09:35:25 1998), 转信
作为一个VB爱好者，一个人在黑暗中摸索真是太累了。现
将我摸索的一些心得贡献给大家，希望起抛砖引玉的作用（我
用的是VISUAL BASIC 50中文版）。
1问题：有一程序含有两个Form，其中Form2的Picture属
性为一张BMP位图，而以下是Form1显示Form2的程序：
Form2Show
'延迟2秒
Time1=Timer
While Timer－Time1<2
Wend
以上程序的目的是希望显示Form2的图片两秒之后，Form1
才继续执行，结果竟然是2秒之后，Form2的图片才显示出来。
为什么图片会延迟显示呢？
回答：一般而言，绘图会比一般的指令费时，因此，绘图
指令的优先级较低，也就是说，直到其他指令都执行完毕之
后，才会轮到绘图指令的执行，在以上的Form1程序中，由于
Form2Show之后，又执行了一个费时2秒的While循环，因此，
Form2的图片必须等待2秒钟，才会被描绘出来。
可按如下方法解决：
在While循环中增加DoEvents，如下：
Form2Show
'延迟2秒
Time1=Timer
While Timer－Time1<2
DoEvents
Wend
DoEvents的作用是短暂地停止执行，使得优先级较低的绘
图指令被执行，于是Form2的图片便可以在While循环执行的阶
段就被显示出来。
2问题：在编数据库程序时，根据帮助来声明变量，如
下：
Dim db As Database
Dim rs As Recordset
结果程序编译时VB竟然说“用户定义类型未定义”，是何
原因呢?
回答：Database及Recordset属于DAO(Data Access
Object)模块里的，不是VB内定的，因此必须将DAO的定义包含
在“引用中”，VB才会认得Database及Recordset，操作方法是
选取功能表的“工程（P）”，待出现“引用（N）
”窗时，再选取Microsoft DAO 30 Object Library或
Microsoft DAO 25/30 Compatibility Library(兼容
Access 20以前的版本)。(如果使用的是16位版本的VB，则选
取Microsoft DAO 25 Object Library)
3问题：我想控制I/O，VB是否有类似Quick BASIC的INP
、OUT指令可使用？
回答：VB并无INP及OUT的指令可用，即使是Windows的API
函数也没有类似的函数，原因是Windows不希望应用程序直接控
制硬件。如果想控制RS232的通讯口，则VB专业版(或企业版)有
现成的“MSComm”控件可用。
4问题：如何创建椭圆形的窗体?
回答：当然是用Win32 API函数了，用VB50中文版的API
文本查看器将下列API函数加入窗体的通用代码中，就可以做一
个椭圆窗口。
Private Declare Function CreateEllipticRgn Lib
″gdi32″(ByVal X1 As Long,ByVal Y1 As Long,ByVal X2
As Long,ByVal Y2 As Long)As Long
Private Declare Function SetWindowRgn Lib ″user32
″(ByVal hWnd As Long,ByVal hRgn As Long,ByVal bRedraw
As Boolean)As Long
在Form_Load()窗体中加入如下代码：
Private Sub Form_Load()
Show
SetWindowRgn
hWnd,CreateEllipticRgn(0,0,300,200),True
End Sub
上述代码可以创建一个椭圆形状的窗口。
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.226.67]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.235.31]
标 题: 谁会用DbGrid控件
发信站: 紫 丁 香 (Sun May 24 09:39:39 1998), 转信
谁有使用VB DbGrid 控件方面的经验, 请多指教, 在下先谢各位大侠了.
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: yaoyu.hit.edu.cn]
6031925.Atar 信人: feature (闻君高义), 信区: VB
标 题: Re: 谁会用DbGrid控件
发信站: 紫 丁 香 (Sun May 24 09:48:27 1998), 转信
【 在 katherine (cat) 的大作中提到: 】
: 谁有使用VB DbGrid 控件方面的经验, 请多指教, 在下先谢各位大侠了.
我建议你最好不要用DBGRID，否则你会发现你的程序经常出一般保护性错误。
你可以用MSGRID，或者干脆用GRID。
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: as605.hit.edu.cn]
标 题: 请高手回答！
发信站: 紫 丁 香 (Sun May 24 10:37:01 1998), 转信
我用vb5.0，现在有一个问题：
我想用其实现将32位的 数据传到并行口，或者从并行口读取32位的
数据，我该怎么实现？
please help me quickly!
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.230.86]
: 我用vb5.0，现在有一个问题：
: 我想用其实现将32位的 数据传到并行口，或者从并行口读取32位的
: 数据，我该怎么实现？
: please help me quickly!
标 题: Re: 请高手回答！
发信站: 紫 丁 香 (Mon May 25 12:44:30 1998), 转信
【 在 jc (hui) 的大作中提到: 】
: 我用vb5.0，现在有一个问题：
: 我想用其实现将32位的 数据传到并行口，或者从并行口读取32位的
: 数据，我该怎么实现？
: please help me quickly!
本人用VC5.0做了一个端口读写.DLL，但还没在VB中用过。如果你想试试
我们可以共同讨论。
仁允�
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: robbiped01.hit.e]
标 题: Re: 谁会用DbGrid控件
发信站: 紫 丁 香 (Tue May 26 10:30:05 1998), 转信
【 在 feature (闻君高义) 的大作中提到: 】
: 【 在 katherine (cat) 的大作中提到: 】
: : 谁有使用VB DbGrid 控件方面的经验, 请多指教, 在下先谢各位大侠了.
: 我建议你最好不要用DBGRID，否则你会发现你的程序经常出一般保护性错误。
: 你可以用MSGRID，或者干脆用GRID。
我会用一点，开发了一些小的数据库，有兴趣联络！
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: lmt.hit.edu.cn]
标 题: Re: 谁会用DbGrid控件
发信站: 紫 丁 香 (Tue May 26 11:19:15 1998), 转信
【 在 katherine (cat) 的大作中提到: 】
: 谁有使用VB DbGrid 控件方面的经验, 请多指教, 在下先谢各位大侠了.
如果你要绑定的库不大，而且也没什么复杂的操作的话
DbGrid 是可以用用。如果相反，我建议最好不用(如果是要偷个懒，恐怕
会找来更大的麻烦）。就象在简单应用时可以用用那个Data控件，但真要想
自己灵活控制对数据库的访问还是要自己编码来得放心。
可以用用Grid控件，虽然编码多些，但自己可控制的部分也大一些。
---------------------------------------------------------------------
宠辱不惊，闲看庭前花开花落；
去留无意，漫随天外云卷云舒；
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: as605.hit.edu.cn]
标 题: [转载] VB中看图片的方法
发信站: 紫 丁 香 (Tue May 26 20:00:27 1998), 转信
用ＶＢ４编制有关图片显示方面的程序时，有时会遇到要打开的图象比所存放
的图片框大的情况，将图片框中的ＡＵＴＯＤＲＡＷ设置为ＴＲＵＥ，可以使图片
框与要打开的图象一样大，但在实际应用中，上述方法并不能看到整个图片。虽然
用Ｗｉｎｄｏｗｓ的ＡＰＩ函数中的ＢＩＴＢＬＴ（）可以实现在图片框中移动图
象，但这种方法太专业且使用复杂。其实可以运用ＶＢ４新增的绘图功能ＰＡＩＮ
Ｔ来解决这个问题。具体实现方法如下：
一、在窗体中设置横滚动条（ＨＳＣＲＯＬＬ１）和竖滚动条（ＶＳＣＲＯＬ
Ｌ１）用于图片的定位。
二、在横滚动条控件和竖滚动条中写入以下代码：
ｐｒｉｖａｔｅ ｓｕｂ ｈｓｃｒｏｌｌ１＿ｃｈａｎｇｅ（） ＂当改变
ＨＳＣＲＯＬＬ１．ＶＡＬＵＥ时激发
ｐｉｃｔｕｒｅ１．ｐｉｃｔｕｒｅ＝ｌｏａｄｐｉｃｔｕｒｅ ＂清空图片框
ｐｉｃｔｕｒｅ１．ｐａｉｎｔｐｉｃｔｕｒｅ ｌｏａｄｐｉｃｔｕｒ
ｅ（＂ｐｉｃｔｕｒｅｎａｍｅ＂），－ｈｓｃｒｏｌｌ１．ｖａｌｕｅ，－ｖｓ
ｃｒｏｌｌ１．ｖａｌｕｅ
ｅｎｄ ｓｕｂ
ｐｒｉｖａｔｅ ｓｕｂ ｖｓｃｒｏｌｌ１－ｃｈａｎｇｅ（） ＂当激发
ＶＳＣＲＯＬＬ１．ＶＡＬＵＥ时激发
ｐｉｃｔｕｒｅ１．ｐｉｃｔｕｒｅ＝ｌｏａｄｐｉｃｔｕｒｅ
ｐｉｃｔｕｒｅ１．ｐａｉｎｔｐｉｃｔｕｒｅ ｌｏａｄｐｉｃｔｕｒ
ｅ（＂ｐｉｃｔｕｒｅｎａｍｅ＂），－ｈｓｃｒｏｌｌ１．ｖａｌｕｅ，－ｖｓ
ｃｒｏｌｌ１．ｖａｌｕｅ
ｅｎｄ ｓｕｂ
程序中的ＰＩＣＴＵＲＥＮＡＭＥ表示要打开的图片文件名，之所以用－ＨＳ
ＣＲＯＬＬ１．ＶＡＬＵＥ和－ＶＳＣＲＯＬＬ１．ＶＡＬＵＥ是因为图片框的标
度在缺省设定时左上角定义为（０，０）。当ＨＳＣＲＯＬＬ１．ＶＡＬＵＥ＝１
０，ＶＳＣＲＯＬＬ．ＶＡＬＵＥ＝５０则画图起点在（－１０，－５０）处，这
两种情况下所显示的图象不一样，因此产生一种图片在移动的感觉，这样就解决了
在小图片框看大图片的问题。
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: libserver-bak.hi]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: hitatc.hit.edu.c]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.226.69]
标 题: [转载] 如何在VB中实现光驱盘片的退出和装入
发信站: 紫 丁 香 (Tue May 26 20:00:33 1998), 转信
通常光驱盘片的退出和装入是采用“手动”方式，即按光驱面板上的Ｅｊｅｃ
ｔ按钮，称为硬操作。如果用软件实现上述操作，则称为软操作。
下面介绍一种用Ｖｉｓｕａｌ ＢＡＳＩＣ ３．０ ｆｏｒ Ｗｉｎｄｏｗ
ｓ专业版中的ＭＣＩ．ＶＢＸ多媒体控件来实现的软操作方法。
首先必须确定你的Ｗｉｎｄｏｗｓ系统中，ＳＹＳＴＥＭ．ＩＮＩ文件［ＭＣ
Ｉ］小节中有ＣＤＡｕｄｉｏ＝Ｍｃｉｃｄａ．ｄｒｖ，否则应增加此驱动程序。
接下来就是在Ｖｉｓｕａｌ ＢＡＳＩＣ中使用［ＡＤＤ Ｆｉｌｅ］将Ｗｉ
ｎｄｏｗｓ＼ＳＹＳＴＥＭ目录中的ＭＣＩ．ＶＢＸ加至ＴｏｏｌＢｏｘ里。用鼠
标双击ＴｏｏｌＢｏｘ中的媒体控制项或拖放至Ｆｏｒｍ上，调整其大小，并显示
出九个按钮，从左至右分别是Ｐｒｅｖ、Ｎｅｘｔ、Ｐｌａｙ、Ｐａｕｓｅ、Ｂａ
ｃｋ、Ｓｔｅｐ、Ｓｔｏｐ、Ｒｅｃｏｒｄ及Ｅｊｅｃｔ。我们只保留Ｅｊｅｃｔ
按钮，在代码中将其它按钮的Ｖｉｓｉｂｌｅ属性设定为Ｆａｌｓｅ，即运行时不
可见。
程序代码如下：
Ｓｕｂ Ｆｏｒｍ－Ｌｏａｄ（）
ＭＭＣｏｎｔｒｏｌ１．ＤｅｖｉｃｅＴｙｐｅ＝＂ＣＤＡｕｄｉｏ＂
’指定媒体类型
ＭＭＣｏｎｔｒｏｌ１．Ｃｏｍｍａｎｄ＝＂Ｏｐｅｎ＂
’打开媒体设备
ＭＭＣｏｎｔｒｏｌ１．ＰｒｅｖＶｉｓｉｂｌｅ＝Ｆａｌｓｅ
ＭＭＣｏｎｔｒｏｌ１．ＮｅｘｔＶｉｓｉｂｌｅ＝Ｆａｌｓｅ
ＭＭＣｏｎｔｒｏｌ１．ＰｌａｙＶｉｓｉｂｌｅ＝Ｆａｌｓｅ
ＭＭＣｏｎｔｒｏｌ１．ＢａｃｋＶｉｓｉｂｌｅ＝Ｆａｌｓｅ
ＭＭＣｏｎｔｒｏｌ１．ＳｔｅｐＶｉｓｉｂｌｅ＝Ｆａｌｓｅ
ＭＭＣｏｎｔｒｏｌ１．ＳｔｏｐＶｉｓｉｂｌｅ＝Ｆａｌｓｅ
ＭＭＣｏｎｔｒｏｌ１．ＰａｕｓｅＶｉｓｉｂｌｅ＝Ｆａｌｓｅ
ＭＭＣｏｎｔｒｏｌ１．ＲｅｃｏｒｄＶｉｓｉｂｌｅ＝Ｆａｌｓｅ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ Ｆｏｒｍ－Ｕｎｌｏａｄ（Ｃａｎｃｅｌ Ａｓ Ｉｎｔｅｇｅｒ）
ＭＭＣｏｎｔｒｏｌ１．Ｃｏｍｍａｎｄ＝＂Ｃｌｏｓｅ＂ ’关闭媒体
设备
Ｅｎｄ Ｓｕｂ
程序中ＭＭＣｏｎｔｒｏｌ１是系统内定的媒体控制对象名称，用户可以根据
具体情况自己更改。
这时你可以调试并调整Ｆｏｒｍ和控件的大小，调试正常后，可设置Ｆｏｒｍ
对象的标题、颜色、图标等。然后编译成．ＥＸＥ文件，即可在Ｗｉｎｄｏｗｓ下
运行。
本方法在４８６ＤＸ２／６６兼容机上（配ＣＤ－ＩＳ２０１光驱），Ｗｉｎ
ｄｏｗｓ ３．２中文版和Ｗｉｎｄｏｗｓ ３．１西文版下运行通过。
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: libserver-bak.hi]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: hitatc.hit.edu.c]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.226.69]
bs标 题: [转载] 高薪诚聘,机会难得!!!
发信站: 紫 丁 香 (Wed May 27 17:50:52 1998), 转信
因经营规模扩大,现急欲高薪诚聘下列人才:
1.网络管理员 1人
从事广域网的设计维护及管理工作.
要求:有实际工作经验,熟悉SCO UNIX V5 , SUN Solaris 6.2, NetWare 4.11
,NT Server 4.0 及大型数据库。不需培训能直接上岗。（专职）
待遇:面议
2.程序员 20人
从事应用软件的开发,维护等工作.
要求:熟练掌握以下开发工具(编程语言)之一.
(1) VB,VBS,VBA
(2) c,c++,VC
(3) Delphi
(4) Powerbuilder
(5) Java
(6) CGI编程(Perl,c,c++)
(7) Sybase,Oracle,MS SQL Server
(8) HTML 3.2,Photo Shop
待遇:试用期三个月 1200.00~1800.00/月 , 转正后 1500.00~3000.00/月
注:以上人员待遇为基本工资,视个人贡献大小给与奖金及红利,
公司有各种福利保障(保险,住房...),望各位有志之士前来
加盟,共同振兴工大软件事业.
联系电话:6415189,6415811
E-Mail: 9941@bigfoot.com
scq@grapetree.hit.edu.cn
BP : 95812-9941
联系人: 宋纯强
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.244.16]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.244.16]
VB
标 题: wait for your help!!!!
发信站: 紫 丁 香 (Thu May 28 12:21:32 1998), 转信
我正用VB5.0编一个从企业内部的服务器中浏览数据的程序.
现在我想知道是否可以用VB5提供的命令修改IE浏览器中的菜单,
使其基本菜单消失,用我定义的菜单取而代之.并且能完成一定的功能.
请速告之,多谢了!!!!!!
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: dip3.hit.edu.cn]
6533371160 10214标 题: Re: wait for your help!!!!
发信站: 紫 丁 香 (Thu May 28 15:22:05 1998), 转信
【 在 Ailice (^_^) 的大作中提到: 】
: 我正用VB5.0编一个从企业内部的服务器中浏览数据的程序.
: 现在我想知道是否可以用VB5提供的命令修改IE浏览器中的菜单,
: 使其基本菜单消失,用我定义的菜单取而代之.并且能完成一定的功能.
: 请速告之,多谢了!!!!!!
好象有点不太可能。
如果你想直接修改IE菜单，起码IE必须提供对外部编程接口及编程函数而不应该用VB的函
数去直接修改IE菜单。如果有了这些函数，对所有的编程语言都应该可以完成你所想要的
任务。（不光是VB)。但是IE是否提供外部编程接口好象还没有听说过。
另外：我觉的用VB完全可以开发出一个类似与IE风格的软件。你完全可以开发出具有
自己风格的浏览数据库的软件，用不着去用IE.
--
※ 修改:．youth 于 May 28 15:25:36 修改本文．[FROM: hitcrc.hit.edu.c]
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: hitcrc.hit.edu.c]
标 题: Re: wait for your help!!!!
发信站: 紫 丁 香 (Thu May 28 19:16:56 1998), 转信
你可以试着用VB5.0中提供的WEB空间自己编一个浏览器,这并不太难,
你仍然可以试试改变控件中的图标的样式以迎合你的需要,还可以增
添自己的按钮,多看一看WEB控件的帮助,也许真的有所帮助.
【 在 Ailice (^_^) 的大作中提到: 】
: 我正用VB5.0编一个从企业内部的服务器中浏览数据的程序.
: 现在我想知道是否可以用VB5提供的命令修改IE浏览器中的菜单,
: 使其基本菜单消失,用我定义的菜单取而代之.并且能完成一定的功能.
: 请速告之,多谢了!!!!!!
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*
*** @M*e@ @
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Celine.bbs@bbs.hit.edu.cn
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: ljyang.hit.edu.c]
23417 标 题: 怎么能让一个picture在picturebox居中显示
发信站: 紫 丁 香 (Wed Jun 10 18:23:44 1998), 转信
as title
thanks
--
我愿我是一个无比美丽的梦境
让你永远永远也走不出来
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.226.80]
标 题: 日期的“烦恼”
发信站: 紫 丁 香 (Thu Jun 11 10:18:53 1998), 转信
日期查询的最简单一种情况：
sql="Select * from lib where Fdate=#98-3-26#"
怎么总说 An error near "#" ?
……………………………………………………
看例子也是这么写的。
以前也没出过错啊，让我一筹莫展。。。
谁有类似的经历，怎么解决的？
--
下雪了，下大了，小猫小狗打架了
打是亲 咬是爱 从来爱恨在一道。。。
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.235.31]
15407.Ar 人: checcy (老巴夺), 信区: VB
标 题: Re: 日期的“烦恼”
发信站: 紫 丁 香 (Thu Jun 11 17:37:14 1998), 转信
【 在 Quiet (天街月色) 的大作中提到: 】
: 日期查询的最简单一种情况：
: sql="Select * from lib where Fdate=#98-3-26#"
: 怎么总说 An error near "#" ?
: ……………………………………………………
: 看例子也是这么写的。
: 以前也没出过错啊，让我一筹莫展。。。
: 谁有类似的经历，怎么解决的？
加个空格试试。
--
" A bad day workin' is better than a good day fishin' ."
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: ppp235.hr.hl.cn]
标 题: 怎么将 picture box 控件变成圆的？
发信站: 紫 丁 香 (Fri Jun 12 12:55:44 1998), 转信
请指教
--
小马就是小马，他即不是小马哥也不是马晓春。
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: robbiped01.hit.e]
信区: VB
标 题: VB心得1
发信站: 紫 丁 香 (Fri Jun 12 15:15:40 1998), 转信
本人使用VB5。0已经有一段时间了，下面将我的心得整理如下，
我将依据我的空闲时间的多少，连续将我的心得贴上来
希望对广大VB爱好者有用！按照下列三个步骤可生成 Application 对象事件句柄：
1 在类模块中声明对应于事件的对象变量。
2 编写特定事件的过程。
3 从其他模块中初始化已声明的对象。
声明对象变量
为 Application 对象事件编写过程之前，必须新建一个类模块并声明
一个包含事件的 Application 类型对象。
例如，假设已建立名为 EventClassModule 的新类模块。该类模块包
含下列编码。
Public WithEvents App As Word.Application
编写事件过程
定义了包含事件的新对象后，它将出现在类模块的“对象”下拉列
表框中，然后可为新对象编写事件过程。（在“对象”框中选定新
对象后，其有效事件将出现在“过程”下拉列表框中，）从“过
程”下拉列表框中选择一个事件，则在类模块中增加一空过程。
Private Sub App_DocumentChange()
End Sub
初始化已声明对象
在过程运行之前，您必须将类模块中的已声名对象（本例中为 App）
和 Application 对象相连接。您可在任何模块中使用下列编码。
Dim X As New EventClassModule
Sub Register_Event_Handler()
Set X.App = Word.Application
End Sub
运行 Register_Event_Handler 过程。该过程运行后，类模块中的
App 对象指向 Word Application 对象，然后当事件发生时类模
块中的事件过程即可生效。
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: softstudio.hit.e]
标 题: Re: 日期的“烦恼”
发信站: 紫 丁 香 (Fri Jun 12 19:47:13 1998), 转信
【 在 Quiet (天街月色) 的大作中提到: 】
: 日期查询的最简单一种情况：
: sql="Select * from lib where Fdate=#98-3-26#"
: 怎么总说 An error near "#" ?
: ……………………………………………………
: 看例子也是这么写的。
: 以前也没出过错啊，让我一筹莫展。。。
: 谁有类似的经历，怎么解决的？
日期值需要引号吧，好象是单引号，如果是双引号就连输三个
--
NOT KNOWN FROM WHEN, AND NOT KNOWN FROM WHERE,
JUST COME TO THIS WORLD, LIKE THE WIND BLOWS ON THE PLAIN INVOLUNTARILY;
NOT KNOW FOR WHAT, AND NOT KNOW TO WHERE,
SO RUSH ABOUT IN THIS WORLD, LIKE THE WATER FLOWS IN THE EARTH INVOLUNTARILY
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.97.228.217]
�: VB
标 题: Re: 谁会用DbGrid控件
发信站: 紫 丁 香 (Fri Jun 12 20:49:19 1998), 转信
【 在 blaster (小鹰) 的大作中提到: 】
: 【 在 feature (闻君高义) 的大作中提到: 】
: : 我建议你最好不要用DBGRID，否则你会发现你的程序经常出一般保护性错误。
: : 你可以用MSGRID，或者干脆用GRID。
: 我会用一点，开发了一些小的数据库，有兴趣联络！
请问你会用dbgrid实现多行选择吗?dbgrid的缺省功能只能实现单行选择.
我可以看看您开发的数据库吗?
Thank you!
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: yaoyu.hit.edu.cn]
bs标 题: Re: 谁会用DbGrid控件
发信站: 紫 丁 香 (Fri Jun 12 20:50:42 1998), 转信
【 在 Command (行云流水) 的大作中提到: 】
: 【 在 katherine (cat) 的大作中提到: 】
: : 谁有使用VB DbGrid 控件方面的经验, 请多指教, 在下先谢各位大侠了.
: 如果你要绑定的库不大，而且也没什么复杂的操作的话
: DbGrid 是可以用用。如果相反，我建议最好不用(如果是要偷个懒，恐怕
: 会找来更大的麻烦）。就象在简单应用时可以用用那个Data控件，但真要想
: 自己灵活控制对数据库的访问还是要自己编码来得放心。
: 可以用用Grid控件，虽然编码多些，但自己可控制的部分也大一些。
: ---------------------------------------------------------------------
: 宠辱不惊，闲看庭前花开花落；
: 去留无意，漫随天外云卷云舒；
: ※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: as605.hit.edu.cn]
非常感谢Command 的建议.
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: yaoyu.hit.edu.cn]
6标 题: Re: 日期的“烦恼”
发信站: 紫 丁 香 (Fri Jun 12 21:43:56 1998), 转信
你少了单引号,加上就好用.
【 在 Quiet (天街月色) 的大作中提到: 】
: 日期查询的最简单一种情况：
: sql="Select * from lib where Fdate=#98-3-26#"
: 怎么总说 An error near "#" ?
: ……………………………………………………
: 看例子也是这么写的。
: 以前也没出过错啊，让我一筹莫展。。。
: 谁有类似的经历，怎么解决的？
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: softstudio.hit.e]
0.AbbsSupermax (Max), 信区: VB
标 题: 提高VB访问数据库的效率(1)
发信站: 紫 丁 香 (Fri Jun 12 21:44:32 1998), 转信
1.尽量使用事务处理更新数据库
VB的事务处理包括以BeginTrans开始,以CommitTrans或
Rollback结尾的多条数据库操作指令.事务处理除了能
很好的保证数据库的完整性以外.同时能大大提高数据
库批量更新的效率.这是因为如果数据库更新操作没有
使用事务处理,则每次Update操作都会引起数据库写盘
一次.使用事务处理后,更新只在内存缓冲区内进行,执
行CommitTrans时才将所有修改一次写回到磁盘中.
使用事务处理要注意一下几点:
(1)事务处理要有很完善的错误检查机制;
(2)因为VB在事务处理结束前对数据库使用了页面锁.所以
在多用户环境中,如果事务被挂起,则其他用户将无法
访问上锁的数据.
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: softstudio.hit.e]
标 题: 提高VB访问数据库的效率(2)
发信站: 紫 丁 香 (Fri Jun 12 21:45:22 1998), 转信
2.尽量使用代码分解Select检索操作
使用Select进行数据库操作固然简单易用,但如果将一些
检索操作分解为等价的手工检索代码,则对数据库的检索速
度将大大加快.分解的基本方法是对检索关键字段进行索引,
利用Seek方法定位后,根据索引的数据库已经排序的特点,进
行遍历查找.对于遍历范围不是很宽时,这种方法能几十倍的
提高数据库的访问速度.
例如:
Select * from person where vol= '123' and birth= #11
-02-73#
分解成下面的操作后,访问速度可大大提高:
Table.Index= "vol"
Table.Seek "=","123"
if not table.nomatch then
while not table.eof
if table("vol")="123" then
table.movelast
else if table("Birth")= #11-02-73# then
'找到记录
end if
table.movenext
wend
end if
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: softstudio.hit.e]
标 题: 提高VB访问数据库的效率(3)
发信站: 紫 丁 香 (Fri Jun 12 21:45:58 1998), 转信
3.使用 attach 绑定数据库表
当使用ODBC连接MS SQL Server, Oracle 和 Sysbase 之类的
数据库服务器时,我们可以通过MS Acess的attach 功能将服务器
上的表绑定到MS Acess数据库中,因为MS Acess数据库能缓存数
据库服务器上表的结构,当我们访问ODBC 数据源时能提高系统的
访问性能.
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: softstudio.hit.e]
标 题: 提高VB访问数据库的效率(4)
发信站: 紫 丁 香 (Fri Jun 12 21:47:08 1998), 转信
4.使用dbSQLPassThrough选项
连接MS SQL Server, Oracle 和 Sysbase数据库服务器时,使用
dbSQLPassThrough选项可将命令直接发送给数据库服务器,从而
减少中间件对命令的检查和解释,提高了数据库的访问性能.
下例使用存储过程建立Dynaset:
dim mydb as database
dim myds as dynaset
set mydb=opendatabase(..........)'打开数据库
set myds=mydb.openrecordset("name",dbOpendynaset,
dbSQLPassThrough,...)
使用dbSQLPassThrough的缺点是返回的记录集是只读的.
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: softstudio.hit.e]
17 标 题: 提高VB访问数据库的效率(5)
发信站: 紫 丁 香 (Fri Jun 12 21:48:03 1998), 转信
5.正确使用数据库访问对象
Table
.支持SEEK命令和索引.两者配合能最快的找到纪录.
笔者曾经做过速度比较试验,都是检索10万个记录
Table 用时3.5 秒
Dynaset 用时9秒
Snapshot 用时10秒
.支持读写操作
.不支持SORT和FILTER,必须使用Index代替
.对应于数据库中的物理表,增,删,改会直接影响数据库表
Dynaset
.最灵活的数据库对象
.支持读写操作,是记录的动态子集
.在ODBC中,写操作需要设定唯一性索引
.支持SORT和FILTER
.使用JOIN命令关联多个表时,只能使用Dynaset
Snapshot
.只能读不能写,不能加锁
.不支持事务处理
.不支持Edit,Addnew和Update方法
--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: softstudio.hit.e]
标 题: Re: 日期的“烦恼”
发信站: 紫 丁 香 (Sat Jun 13 00:43:06 1998), 转信
【 在 Supermax (Max) 的大作中提到: 】
: 你少了单引号,加上就好用.
: 【 在 Quiet (天街月色) 的大作中提到: 】
: : 日期查询的最简单一种情况：
: : sql="Select * from lib where Fdate=#98-3-26#"
: : 怎么总说 An error near "#" ?
: : ……………………………………………………
: : 看例子也是这么写的。
: : 以前也没出过错啊，让我一筹莫展。。。
: : 谁有类似的经历，怎么解决的？
如果他使用的数据库是vb自带的dataaccess的画，日期是用"#"号的。
估计可能还是他别的地方有问题。
--
" A bad day workin' is better than a good day fishin' ."
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.234.10]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: cad4.hit.edu.cn]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间：409.964毫秒