- 博客(6)
- 资源 (26)
- 收藏
- 关注
原创 vb控件数组 的使用
将不是控件数组的text一次性清空Dim I As Long For I = 1 To 8 Me("Text" & I).Text = "" Next 还有如果name不是"text" & i 的话,可以用 dim s as control for each s in form1.controls if typeof s is textbox then s.text="" next 不过是对fo
2009-03-27 22:44:00 828
原创 防止程序被多次运行的API函数
下面这个例子找出程序是否在运行,你可作一个处理,如果在运行就退出. Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Lo
2009-03-27 22:43:00 401
原创 delphi备份和恢复sqlserver
用ADOConnection1控件连接要操作的数据库备份ADOConnection1.Execute(Backup database +数据库名变量+ To Disk= +指定的一个路径+/+要备份的文件名+.MC);.MC是备份后文件的扩展名.恢复ADOConnection1.Execute(Use Master Restore database +数据库名变量+
2009-03-27 22:39:00 731
原创 delphi中设置默认路径的函数
delphi中设置默认路径的函数 SetCurrentDirectory(c:/); 一般我们用过对话框之后delphi中默认的路径会变为对话框打开过的路径出错,可用此函数来设置。
2009-03-27 22:38:00 1242
原创 delphi获取库中所有表名,表字段名
var ts:Tstrings; i:integer; begin ts:=Tstringlist.Create; //adoconnection1.GetTableNames(ts,false); //for i:=0 to ts.Count-1 do // showmes
2009-03-27 22:35:00 4577
转载 Delphi中串口通信的实现
Delphi中串口通信的实现河南省计算中心 张海航 Delphi是一种具有功能强大、简便易用和代码执行速度快等优点的可视化快速应用开发工具,它在构架企业信息系统方面发挥着越来越重要的作用,许多程序员愿意选择 Delphi作为开发工具编制各种应用程序。但是,美中不足之处是 Delphi没有自带的串口通信控件,在它的
2009-03-27 20:39:00 896
Delphi XE4_破解安装器
2013-06-03
delphi 序列化
2012-03-02
托盘控件 MyTubrTray
2009-03-31
一个用vb写的类似Windows的记事本
2008-10-23
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人