Michael__mai的博客

一、数据库的准备 打开“开始／程序／Microsoft SQL Server/企业管理器”展开“控制台根目录”的目录，在标有“数据库”的目录项上点击右键，再点“新建数据库”，如“TEST”。再右键点击表，新建表，如“TABLE1”。 二、设置ODBC数据源 打开“开始／设置／控制面板／管理工具／数据源（ODBC）”，在“User DSN”下，点Add，选择“SQLServer”，完成，

Delphi TADOQuery 第二次查询，即在结果集中再次筛选，这样查询的效果非常好，不需要再次查询数据库，结合SQL.Text() 使用，查询与筛选妥妥的。//查询字段为userName的条件筛选   ADOQuery1 := False;     ADOQuery1 .Filter := 'userName=''' + cbbUserName.Text + '''';

网上查了很多资料，看了很多关于线程TThread的使用，并动手操作，但均未能达到想要的效果。我所要的效果是，线程执行耗时的操作而不影响主程序，用户使用没有卡顿的感觉。知道是使用线程编程解决，后来经过不断的摸索，终于达到想要的效果，而代码也只是二十几行，后面直接调用即可。

很多时候不检查局域网内的IP是否连通，直接通过IP访问，程序会卡住很久，有1分钟左右，这给用户的体验非常不好，现在通过检查是否连通，设置为1.5S后不连通则不进行后面的操作，程序效率大大提升，如下是检查局域网内的IP或者外网的IP是否连通的实现。      后面的代码直接保存为Ping.Pas，即可直接使用，下面是使用方法 ：  var  str: string;  ping: T

点击下列按扭事件，分别弹出三个窗口，把一个字符分成一个数组procedure TfrmTrainMain.RzbtnLiuChengClick(Sender: TObject);var  list: TStringlist;  i: Integer;begin    i := 0;  list := TStringlist.Create;  list.Delim

在Delphi中，用ServerSocket与ClientSocket组件，建立TCP/IP通信非常容易。Delphi安装 Tclientsocket, Tserversocket控添加方法：菜单component->Install Packets按Add按钮，选择delphi目录里的bin目录下的dclsockets70.bpl(delphi2010是dclsockets

运行效果:选中行变为蓝色步骤1:设置dbgrid的options的dgrowselect为true.步骤2:在dbgrid的ondrawcolumncell事件里面写上:procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;  DataCol: Integer; Column: TColu

通过TADOQuery的方法Locate，输入字符，查找到定位到对应的数据位置，优点快速定位，缺点是只匹配查找到的和第一个位置，无法连续定位下一个！//定位qrymembertype.Locate('Cname', Cname, [loCaseInsensitive]);'Cname'列名Cname 所匹配的值loCaseInsensitive,

Delphi 2010 使用函数 MyMD5.HashStringAsHex(strtomd5)，把字符串strtomd5，转化为MD5。如下是实现的具体代码：// 引用单元文体 user   IdHashMessageDigest ;//在函数中使用var  MyMD5: TIdHashMessageDigest5;   //user Id