![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi编程
Michael__mai
这个作者很懒,什么都没留下…
展开
-
delphi 使用TDatabase连接 sql server的方法
一、数据库的准备 打开“开始/程序/Microsoft SQL Server/企业管理器”展开“控制台根目录”的目录,在标有“数据库”的目录项上点击右键,再点“新建数据库”,如“TEST”。再右键点击表,新建表,如“TABLE1”。 二、设置ODBC数据源 打开“开始/设置/控制面板/管理工具/数据源(ODBC)”,在“User DSN”下,点Add,选择“SQLServer”,完成,原创 2015-12-28 23:00:43 · 3790 阅读 · 0 评论 -
delphi TADOQuery 第二次查询,即使用Filter在结果集中再次筛选
Delphi TADOQuery 第二次查询,即在结果集中再次筛选,这样查询的效果非常好,不需要再次查询数据库,结合SQL.Text() 使用,查询与筛选妥妥的。//查询字段为userName的条件筛选 ADOQuery1 := False; ADOQuery1 .Filter := 'userName=''' + cbbUserName.Text + '''';原创 2015-12-16 11:49:39 · 2849 阅读 · 1 评论 -
Delphi使用线程TThread查询数据库
网上查了很多资料,看了很多关于线程TThread的使用,并动手操作,但均未能达到想要的效果。我所要的效果是,线程执行耗时的操作而不影响主程序,用户使用没有卡顿的感觉。知道是使用线程编程解决,后来经过不断的摸索,终于达到想要的效果,而代码也只是二十几行,后面直接调用即可。原创 2015-12-12 10:27:37 · 5037 阅读 · 0 评论 -
Delphi2010Ping某IP是否连通的代码实现
很多时候不检查局域网内的IP是否连通,直接通过IP访问,程序会卡住很久,有1分钟左右,这给用户的体验非常不好,现在通过检查是否连通,设置为1.5S后不连通则不进行后面的操作,程序效率大大提升,如下是检查局域网内的IP或者外网的IP是否连通的实现。 后面的代码直接保存为Ping.Pas,即可直接使用,下面是使用方法 : var str: string; ping: T原创 2016-01-23 16:42:18 · 2993 阅读 · 1 评论 -
Delphi字符串分割使用Tstringlist示例
点击下列按扭事件,分别弹出三个窗口,把一个字符分成一个数组procedure TfrmTrainMain.RzbtnLiuChengClick(Sender: TObject);var list: TStringlist; i: Integer;begin i := 0; list := TStringlist.Create; list.Delim原创 2015-12-23 10:41:19 · 1578 阅读 · 0 评论 -
delphi不同计算机程序间通信用TServerSocket实现
在Delphi中,用ServerSocket与ClientSocket组件,建立TCP/IP通信非常容易。Delphi安装 Tclientsocket, Tserversocket控添加方法:菜单component->Install Packets按Add按钮,选择delphi目录里的bin目录下的dclsockets70.bpl(delphi2010是dclsockets转载 2016-01-13 00:20:00 · 2042 阅读 · 0 评论 -
Delphi在DBGridEh改变选中行颜色
运行效果:选中行变为蓝色步骤1:设置dbgrid的options的dgrowselect为true.步骤2:在dbgrid的ondrawcolumncell事件里面写上:procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColu转载 2016-03-02 01:00:57 · 5581 阅读 · 0 评论 -
Delphi通过查找字符定位TADOQuery数据的位置
通过TADOQuery的方法Locate,输入字符,查找到定位到对应的数据位置,优点快速定位,缺点是只匹配查找到的和第一个位置,无法连续定位下一个!//定位qrymembertype.Locate('Cname', Cname, [loCaseInsensitive]);'Cname'列名Cname 所匹配的值loCaseInsensitive,原创 2016-03-02 01:05:58 · 1965 阅读 · 0 评论 -
Delphi 2010 字符串转化为MD5
Delphi 2010 使用函数 MyMD5.HashStringAsHex(strtomd5),把字符串strtomd5,转化为MD5。如下是实现的具体代码:// 引用单元文体 user IdHashMessageDigest ;//在函数中使用var MyMD5: TIdHashMessageDigest5; //user Id原创 2016-02-21 17:50:58 · 1026 阅读 · 0 评论