fanhongbin的专栏

原创 窗口置顶助手

我们经常在进行窗口的多任务中，信息窗口经常切换，影响工作效率。窗口置顶助手可以把某个窗口置顶，对着置顶窗口查看信息或在置顶窗口记笔记，可提高工作效率。类似于Spy++的查找窗口的功能，本程序增加在找到窗口后，可以把该窗口置为顶层窗口。开发语言：Delphi10.2.3，适用于windows操作系统https://download.csdn.net/download/fanhongbin/10...

原创 二代身份证上的信息

二代身份证识别信息规则

原创 C#二维码生成

引用:ThoughtWorks.QRCode.dll

原创 Oracle脚本工具1.0

Oracle脚本工具1.0,配置常用脚本，输入参数值，生成脚本

原创 站点授权程序截图

原创 玩业务图形PS效果...纯粹就是玩啊

原创 某向导框架分析成果-图形

序列图，类图 所用工具StarUml

原创 XX图文扩容配置说明

XX图文扩容配置说明                                                                                                                        =====================                                           

原创 Delphi速选组件

{*******************************************************}{                                                                             }{       速选组件

原创 PL/SQL Developer 在windows7 64位系统下连Oaracle11g64位系统的解决经验

PL/SQL Developer 在windows7 64位系统下连Oaracle11g64位系统的解决经验

原创 Delphi类的两类属性

一、数组属性

原创 Delphi Build提速之一

有时我们在Build一个工程时，

原创 delphi 插入数据时给字段赋空值

当需要赋空值时，要先确定该字段的类型，然后再对value进行赋值，如下：      ParamByName('supplement').DataType := ftString;      ParamByName('supplement').Clear();

原创 Unit SqlExpr was compiled with a different version of DBXpress.DBXERR_NONE

Unit SqlExpr was compiled with a different version of DBXpress.DBXERR_NONE单元sqlexpr与dbxpress不同版本的编译。sqlexpr与dbxpress两个单元不是一致的。

原创 Delphi ScktSrvr.exe程序修改版

先贴图片  看到了吗？图片中的红色部分就是增加的部分。说说目的：有一种情况下，Com+组件调用失败，导致socket Server挂起，如果不关闭一下COM+组件服务，则所有的客户端调用则会挂起。为了处理这种情况，在socket Server中调用COM+组件中的某方法超过某个时间没有返回时，关闭一下COM+组件服务。当COM+组件服务关闭的时候，之前所有挂起的客户端调

原创 dbxoda320.exe，dbxoda189.exe共用产生问题解决之道之一种

当提示"unload Lib dbexpoda.dll"或者提示"ORA-01005: 给出空口令; 登录被拒绝"时，尝试把工程在IDE中build all一下，也许就可以解决问题呢！ 今天我没build all之前怎么弄都不行，build all后就正常了。应该是TCRSQLc

原创 Delphi COM+中调用webservice错误提示问题解决方法

当COM+中调用webservice服务出现错误提示：“灾难性故障”或者著名的“访问违例”错误时，可以考虑把c:\windows\system32\dllhost.exe加入windows的禁用数据保护列表。             图 我的电脑->属性->高级->性能设置-

转载 程序员技术练级攻略

程序员技术练级攻略2011-07-20 09:33 | 5277次阅读 | 来源：酷壳网 【已有39条评论】发表评论 关键词：程序员 | 作者：陈皓 | 收藏这篇资讯 导读：本文是由陈皓和他的一位朋友Mailper合作完成，原名叫《Build Your Programming T

原创 Delphi调试器窗口中为什么变量内容显示不全？

<br />              在实践中，我发现，字符串变量内容过长的话，用ShowMessage()可以显示全，Delphi的调试器窗口中只会显示变量的一部分。Delphi字符串最长可达2G，至于调试器窗口中字符串变量最长可以显示多少个字符还没找到答案。

原创 尽信开发工具的编译提示，不如无开发工具的编译提示

经历过多次捉虫后，深感开发工具的编译提示并不是万能的，它并不能完全指引你到达胜利的彼岸，有时甚至是错误的。比如在查找由数组的下标越界导致的错误中，“聪明的”编译器并不会正确的提示你下标越界了，而是会提示一些与内存有关的让你百思不得其解的提示。编译器的提示有时不是精确的，它往往会指示你错误发生在某行的附近，或者指示你真正错误和提示的错误有某种关联。很多次，在经过一阵抓狂后，我猛然发现编译器的提示不管

原创 FastReport4.3报表制作经验一则

  FastReport4.3的Memo控件中如果没有填写Field属性的话，报表在显示时Memo中看到的都是0,那怕你在设计态双击Memo看到的并不是0而是像[dt.fileld(xx)]的内容。所以要想Memo显示你所想要的字段内容，请记得在ObjectInspect中填写Memo的Field属性!

原创 一个有边框的图像组件

{ ******* Tfhbimage author:fhb 2008.9.25 ******* www.fanhongbin.com}Tfhbimage = class(TImage) private { Private declarations } FEditLabel: TBoundLabel; FLabelPositio

原创 Delphi和VC++的for循环

Delphi中的for循环:var  s: TStringList;  i: Integer;begin  s := TStringList.Create;  s.Add(a);  s.Add(b);  for i := 0 to s.Count  do    s.Add(c);end;VC++中的for循环:#include vector>using name

原创 Google的火炬传递地图

转载 directshow 学习要点

学习DirectShow Filter的开发，不外乎以下几种方法：看帮助文档、看示例代码和看SDK基类源代码。看帮助文档，应着重于总体概念上的理解；看示例代码应与基类源代码的研究同步进行，因为自己写Filter，关键的第一步是选择一个合适的Filter基类和Pin的基类。对于Filter的把握，一般认为要掌握以下三方面的内容：Filter之间Pin的连接、Filter之间的数据传输以及流媒

原创 作业运用的一点心得体会

      前段时间做了一个同步数据库的功能，把SQL   SERVER  2000的数据同步到ACCESS中去。我首先想到的是在  SQL   SERVER 2000中建立一个作业，定时一分钟同步一次。但是，在实际运行中，作业和其它的数据库操作有时会有冲突，另外，因为作业一直在运行，占用了CPU资源，影响效率。于是，我想了想通过其它的方式实现同步应该会好些，当数据有变化时才同步，可以通过触发器

原创 电脑第一次维修记录

            很不幸，2007年的最后那几天，家里的电脑坏了，开不了机了。因为那时到春节了，修电脑的都关门了，所以，在春节的那几天里，我没有上网，没有玩电脑。现在，电脑总算是搞好了。在此，记一下电脑出现的故障。       电脑以前经常需要按很多次电源开关才开机，在春节前的某一天，无论按多少次电源按键都没用，就是开不了机，电脑罢工了。年后，把主板卸下，拿到华强北的电脑维修店看了看，维修师

原创 在系统右键菜单中增加建立以当前时间为名称的目录

当我们在新建文件夹的时候，系统给定的文件夹的名称默认都是“新建文件夹”。我们建立多个文件夹的过程是这样的：首先我们每次要想一个文件夹名称，然后需要一次又一次的把“新建文件夹”更名为你所想到的名字。能不能省去思考一个文件夹名称的时间，而让系统自动生成相对有意义的文件夹名称呢？比如以系统时间为文件夹名称。下文就是这个问题解决方案。   1.在驱动器盘符和文件夹以及文件的右键上添加项目

原创 QQ我在线

原创 日记一则

  我改变了对艺人们的看法了。   在从前，我认为他们的表演庸俗不勘，他们只不过是被商人包装过的木偶而已。不过，我对他们的认识由《艺术人生》而发生了改变。透过他们的内心世界，我看到了舞台后面，他们真实的自我。他们热爱艺术，热爱生活，就像我现在热爱编程艺术一样。他们其实，也很平凡，就跟生活中的你和我一样，也有七情六欲，也有悲欢离合。他们并非金玉其外，败絮其中。他们写文章，阅读书籍，以此来充实他们的生

原创 获取字符串的长度（非字节长度）

function StrLength(CONST value:string):Integer;Var  s:Pansichar;  Tail:Pansichar;begin  s:=Pansichar(value);  Tail:=s+Length(s);  Result:=0;  While (sTail)  do  begin    if s^ in LeadBytes then   

原创 原来如此的，UPDATE语句是可以更别名的。

   if exists (select name from sysobjects where name=test and type=u)drop table testif exists (select name from sysobjects where name=test1 and type=u)drop table test1create  table tes

原创 从一个页跳到另一个页面，另一个页面检查第一个页面的信息。

任务：从一个页跳到另一个页面，另一个页面检查第一个页面的信息。1.文件组成:w1.aspx(此页面从w1 class 继承而来),w1.aspx.cs(此文件中定义了class: w1)   w2.aspx,w2.aspx.cs(此文件中定义了class:w2)2.在页面w1上有button1按钮,其单点事件中输入：Server.Transfer("w2.aspx");在w1.

原创 在两个表之间根据相同名称栏位拷贝描述

 SET QUOTED_IDENTIFIER OFF GOSET ANSI_NULLS OFF GOALTER  procedure dbo.CopyDescripInSame(@Stable varchar(50),@Dtable varchar(50))asbegin  Declare @name varchar(50)  Declare @Descrip1 varchar(200

原创 C#线程学习

任务:在一个主线程中同时开启三个线程，每个线程中执行相同的数据插入动作，只是数据不同。     数据库在得到插入的响应后，作相应的处理，如果为数值1，延时10秒，为2延时5,为3不延时.目的：体验C#多线程处理后台数据库的淮备：1.建表create table dd (id Tinyint )2.建触发器create trigger tg_dd_ins on dd for insertasbegi

翻译 数字转化成大写金额(C#版)

 class NumProcess    {        #region 数值大写        private const string Num1 = "壹";        private const string Num2 = "贰";        private const string Num3 = "参";        private const string Num4 =

原创 二维数组转换成一维数组(C#版本)

 using System;namespace ConsoleApplication1{    class Program    {        private static void TwoarrTrancteOnearr(int m,int n)        {            int[,] arr2;            int[] arr1;            arr2

原创 二维数组转变成一维数组

program OneRowTomultilycol;{$APPTYPE CONSOLE}uses  SysUtils;procedure OneRowTomultilycol(m,n:Integer);var Arr2:Array of  array of Integer;    arr1:array of Integer;    I,J,Row,Col:integer;    tm

原创 在表中找出与输入值相等的字段名称

  SET QUOTED_IDENTIFIER ON GOSET ANSI_NULLS ON GO ALTER    procedure FindFieldByOneNvarchar @tablename Nvarchar(20),@OneRowSQL Nvarchar(4000),@InOneNvarchar Nvarchar(20)as/*在一个表中找出与@InOneNvarc

转载 DBGRIDEH 组件在Borland开发工具中应用全攻略 (转)

DBGRIDEH 组件在Borland开发工具中应用全攻略