自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

Cable Fan编程笔记

只写不卖钱的码,不干没工资的活~

  • 博客(18)
  • 收藏
  • 关注

原创 在Delphi中用ADO连接FoxPro数据库

VisualPro,即VFP,那个小狐狸头,在学校时拿它做数据库理论教育,但自从6.0之后就从未接触它了,听说出在有9.0,但我觉得它的时代已经过去了。例外的是,现在还发现有人用VFP写的应用,还是号称ERP的呢,难以置信吧?!为了取用VFP数据库(也就是.dbf文件)里的数据,不得已重新捡起这“老古董”。当然,我不会为了它再安装一个VFP6.0,应该可以通过ADO连接的,而且,就一个简单的数据查

2012-07-21 12:05:26 3062

原创 用VB6写在线更新程序(中篇)

用VB6写在线更新程序(中篇)「修改主程序入口」在本篇中,主要对主程序的启动入口进行适当的修改,让其在启动时检测XML配置文件中的版本信息,提示版本更新,并启动更新程序下载更新(如果有可用更新)。 首先,在主窗体(这里不是主窗体,而是在启动屏)装载时,进行必要的初始化并装载XML配置: 下载地址。Private Const UPDATE_CONFIG_FILE = "http:

2009-09-08 14:31:00 1818

原创 用VB6写在线更新程序(下篇)

用VB6写在线更新程序(下篇)完成上篇的更新程序与主程序的更新检查,前端的程序就基本完成了,而接下来还需要编写一个文件发布程序。虽然,手工拷贝文件并修改XML配置文件也能达到发布目的,但毕竟使用程序来发布会更方便些。 「编写文件发布程序」 在上篇中有介绍过XML配置文件的格式,文件发布程序就是针对这个格式的各部分来编写的,主要是对XML配置的解析与读写,当然也涉及一些文件的拷贝与版本、

2009-09-07 21:58:00 1147

原创 用VB6写在线更新程序(上篇)(3/3)

与Delphi中不同的是,读取一个结点的属性值时,要判断属性的存在性,试图读取返回的空值将引发错误。解析得到的值保存在XmlConfiguration类的属性中,而文件列表通过一个数组来保存。这里又遇到一个问题:索引属性,这个概念不好解释,还是看代码吧:  Files(文件列表)属性Public Property Get Files(Index As Intege

2009-09-02 23:56:00 1399

原创 用VB6写在线更新程序(上篇)(2/3)

到这里又遇到问题了,命令行参数是拆分到数组里的,如果不指定命令参数时,则数组保持为“空数组”。而对“空数组”的任何操作(包括用UBound函数测长度)都会引发错误,这个问题困扰了我很久。怎么才能将这种情况区分出来呢?没办法,最终还是只能借助API函数:SafeArrayGetDim,其实这个函数的真正作用是:取得 OLE 或 Variant 数组元素的数组维度,不过,勉强解决问题吧。从命令行参

2009-09-02 23:06:00 1193

原创 用VB6写在线更新程序(上篇)(1/3)

用VB6写在线更新程序(上篇)说起VB6,算是老朋友了,从学计算机开始就接触它了。然而,有了Delphi5之后,再也不想用它了。毕竟,在OOP流行的年代,Delphi相继推出了6和7(8、9、10、11、12就不说了,伤心!),而VB还是6.0,等到7.1出来之后,已经不是VB了,而是VB.NET,需要.NET Framework的支持,太麻烦了。 曾经有人说过,VB非常强大,几乎无所

2009-09-02 23:01:00 1551

转载 写系统日志的步骤及注意事项

  [ 2007-12-2 15:08:00 | By: 吃遍天下 ] 0<a style="FONT-SIZE: 12px; LINE-HEIGHT: 1" onclick="function onclick(){function onclick(){function onclick()

2008-07-19 10:37:00 2096

原创 Delphi中资源文件的使用

Delphi中资源文件的使用 在Delphi中,生成一个Appliction工程时,会默认生成一个与工程同名的资源文件,即使删除也会再度创建,但是这个资源文件中只有一个图标和一个版本信息。通常情况下,我们还需要更多的多种多样的资源,虽然可以在IDE中载入并编译到EXE文件中去,但是有时我们需要将资源与EXE分开,以便生成多语言程序或将程序改为其它语言(如汉化)。Delphi附带的I

2007-11-12 23:16:00 1414

原创 学习《Java程序设计实践教程》

一直想学习Java,因为好奇,也因为它免费。但因为工作上不使用它,也因为它对硬件的配置太高,只是偶尔用学习一下。在网络上找过教程和文章,但都没学到什么;也买过700多页的《Java J2SE 5 Edition参考大全》,因为太厚实在看不下去。最后买了一本清华大学出版社出版的《Java程序设计实践教程》,书不厚(400页),也不太难,刚好适合基础学习。看了两章才知道,其实也有蛮多东西需要注意的,一

2007-03-18 13:25:00 1776

原创 ListView点击列排序

很想实现像Windows资源管理器在使用详细资料方式查看文件时,点击列标题自动排序的功能。看了Delphi6的帮助,基本的排序功能是实现了,但不能显示表示升/降序的“小三角”。因为技术有限,找不出实现列标题显示的代码 ,也不会重写显示“小三角”的代码,所以只好使用两个特殊符号中的箭头来表示,哪位高手能实现“小三角”的请指教指教!代码如下: <!--body { co

2006-12-02 11:13:00 1329

原创 Windows2000 Professional下使用NetMeeting会使Windows大失光彩.

在去年,偶然发现电脑桌面与任务栏上的图标都暗然失色,就像把颜色调到了256色一样,但其它显示是正常的。费尽周折也找不出真正原因,修复了Windows也不行,最后选择了重装,但不多久又出现同样的症状。最近要用NetMeeting才发现,启动了它之后电脑又出现了这样的症状,所以怀疑了它。最后我把它关闭并重新启动电脑,一切恢复正常。

2006-05-19 08:38:00 1201

原创 服务器操作笔记

1、改变SQL Server服务状态      改变SQL Server服务状态包括,暂停、或停止SQL Server或SQL Server Agent服务,最明显的会强行切断所有活动连接;另外,如果是WEB服务器,还必须重启IIS,否则有此WEB应用的数据库连接不会重新连接,导致客户端无法正常使用,错误提示类似“不能对Close的对象进行操作”。2、改变服务器系统时间      改变服务器系

2006-03-22 17:29:00 1001

原创 Delphi编程技巧点滴

本贴收藏本人编程中遇到的点滴编程技巧,其中包括网友告知的,论坛收集的及个人总结的。大部分来自爱Delphi(http://www.aidelphi.com)与CSDN。整理于此,以备后用。1、序数类型(或变量)的取值范围        Delphi Help中提到“Ordinal types include integer, character, Boolean, enumerated, an

2006-03-04 08:43:00 1260

原创 在报表中显示指定URL的照片

在报表中显示指定URL的照片 以下源码演示如何在ReportMachine报表中显示对应记录指定文件名称的照片,并且照片从指定的URL中下载。其原理是,在报表显示前(OnBeforePrint事件),找到要显示照片的TRMPictureView控件,再从揚hoto?#23383;段得到文件,从指定的URL下载该文件名称的照片(jpg文件)到临时文件夹,再将临时文件夹中的照片显示到TRMPictur

2006-01-11 19:23:00 2633

原创 在ListView的Item中显示CheckBox与Button

在ListView的Item中显示CheckBox与Button,主要思路就是在绘制每一个Item时创建一个CheckBox与Button,并显示在Item对应Column的位置.主要注意于3点: 将要显示的CheckBox与Button(其实可以更多其它控件)定义在一个结构中,使用指针连接到Item.Data,以便与该Item对应 要检查Item.Data是否为nil,

2006-01-04 19:37:00 3180 6

原创 TDBCtrlGrid如何使用?

要使每条记录(面板)显示的照片来自该记录中的某个字段,为什么不行? procedure TfrmConfluence.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer);var S: String;begin try Image1.Picture:= nil; S:= DBC

2005-11-26 11:22:00 3156

原创 使用数组实现快速数据查找

在很多数据库应用程序中,需要通过一个关键字段找出对应的其它字段数据,并且要求查找速度快。如在大多数的监控程序中,从终端获得一个标识后,需要通过这个标识将数据表中的其它数据查询出来,并显示在程序界面上。一般的做法是直接使用SQL查询返回查询结果。其实如果这个标识是唯一有序的,并且返回的结果也是唯一的,就没必要频繁地查询数据库。应该将数据首先存入内存,当然数据行上万就有难度。我要讲的存入内存其实是采用

2005-11-08 22:14:00 2302 1

原创 数据库设计中的多对多关系与一对多关系

         何种情况应该算多对多关系,何种又算一对多关系?多对多关系与一对多关系在数据库中如何设计?

2005-08-12 13:20:00 4288 3

空空如也

空空如也

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

TA关注的人

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