- 博客(17)
- 资源 (79)
- 收藏
- 关注
转载 在delphi如何把TADOQuery.ParamCheck
就是说delphi编程者经常遇到的问题,总是出现‘不正常的定义参数对象,提供了不一致或者不完整的信息。。。‘这类的问题:implementation{$R *.dfm}procedure TForm5.Button1Click(Sender: TObject);varkhbh:string;beginADOQuery1.ParamCheck:=false;khbh:=edit
2016-02-23 11:04:36 1567
转载 Delphi TreeView遍历所有节点问题
Delphi TreeView遍历所有节点问题遍历出TREEVIEW的所有完整的节点名称请出能实现这个功能的有效代码procedure aa(s:string;aItem:TTreeNode);var node:TTreeNode; str:string;begin node:=aItem;
2016-02-22 16:42:00 3362
转载 Delphi 的类型与指针[1]
先声明: 不要把我说的这些个东西当作教科书, 这都是自己的浅见; 同时希望得到指正.Delphi 的指针分为 "类型指针" 和 "无类型指针" 两类.Delphi 中的类型, 常用的也得有几百个, 我们可以给每种类型定义相应的类型指针.其实 Delphi 已经为很多类型预定义了指针, 譬如数据类型: Integer 有对应的 PInteger;Char 有对应的 PChar
2016-02-21 01:58:56 907
转载 在Dephi中使用TStream读写数据的技巧
在Dephi中提供了一个抽象的数据类型TStream来支持对流式数据的操作。这些数据通常来自文件、数据库、内存对象、OLE对象等,TStream提供了统一、简洁的方法来进行数据的读写。在通常情况下,我们并不需要直接使用TStream类,对流式数据的读写封装在VCL控件的方法中。但是如果这些方法无法满足我们的要求,就需要自己手动控制数据的读写。 一、 TStream的常用的方法和属性:1
2016-02-20 22:29:59 2335
转载 Delphi中如何拦截键盘消息
var st,et,ct: int64;procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);begin QueryPerformanceCounter(et); QueryPerformanceFrequency(ct); if ((et-st)/ct key:=chr(0);
2016-02-17 19:55:09 3894
转载 MySQL临时表的简单用法
当工作在非常大的表上时,你可能偶尔需要运行很多查询获得一个大量数据的小的子集,不是对整个表运行这些查询,而是让MySQL每次找出所需的少数记录,将记录选择到一个临时表可能更快些,然后在这些表运行查询。创建临时表很容易,给正常的CREATE TABLE语句加上TEMPORARY关键字:CREATE TEMPORARY TABLE tmp_table ( name VARCHAR(10)
2016-02-17 16:00:02 337
转载 sqlserver创建临时表
创建临时表 方法一: create table #临时表名(字段1 约束条件, 字段2 约束条件, .....) create table ##临时表名(字段1 约束条件, 字段2 约束条件,
2016-02-17 15:58:45 823
转载 多种语言实现Base64编码解码
由于长度限制,上篇《网络信息传输编码解码》只介绍了编码解码的原理,本篇将把c#,vc,vb,delphi,php,python,asm 等语言的程序代码列于此,有些是从网上搜来的,供大家参考: 一。系统自带函数:1.c# //base64 编码 解码 系统函数 //编码 byte[] bytes = Encoding.Default.GetBytes("要转
2016-02-13 13:35:01 2132
转载 PHP加密函数
function encrypt($string,$operation,$key='') { $key=md5($key); $key_length=strlen($key); $string=$operation=='D'?base64_decode($string):substr(md5($string.$key),0,8).$s
2016-02-12 22:40:08 601
转载 MD5函数
unit untArith;interfaceuses Windows, SysUtils, Variants, Classes;type MD5Count = array[0..1] of DWORD; MD5State = array[0..3] of DWORD; MD5Block = array[0..15] of DWORD;
2016-02-12 22:37:57 560
原创 编写应用程序消息
procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);procedure Tfmformname.AppOnMessage(var Msg: TMsg; var Handled: Boolean);var a:Cardinal; i: SmallInt; WMD: TWMDropFile
2016-02-10 17:24:34 367
转载 mysql LAST_INSERT_ID详解
LAST_INSERT_ID() LAST_INSERT_ID(expr)自动返回最后一个INSERT或 UPDATE 问询为 AUTO_INCREMENT列设置的第一个 发生的值。mysql> SELECT LAST_INSERT_ID(); -> 195产生的ID 每次连接后保存在服务器中。这意味着函数向一个给定客户端返回的值是该客户端产生对影
2016-02-10 16:57:38 821
原创 mysql获取上一步INSERT操作产生的ID
//获取上一步INSERT操作产生的ID function GetLastID() { //如果 AUTO_INCREMENT 的列的类型是 BIGINT,则 mysql_insert_id() 返回的值将不正确。 //可以在 SQL 查询中用 MySQL 内部的 SQL 函数 LAST_INSERT_ID() 来替代。 /
2016-02-10 14:58:57 4212
转载 Delphi中如何获得光标
就是我想在程序中使光标所在的文本框标一个颜色,当光标一走的时候又回到原来的颜色可以截获WM_SETFOCUS、WM_KILLFOCUS消息:type TForm1 = class(TForm) Memo1: Edit; private procedure WMSetFocus(var Msg: TMessage); message WM_SETFO
2016-02-05 14:23:31 2091
转载 php析构函数的用法
class x{function __construct(){$this->file = fopen('path', 'a');}function __destruct(){fclose($this->file);}}简单的说,析构函数是用来在对象关闭时完成的特殊工作,比如我写的上例,在实例化同时打开某文件,但是它什么时候关闭呢,用完就关闭呗,所以析
2016-02-03 11:07:51 460
转载 delphi 更改DBGrid 颜色技巧
1、根据条件更改某一单元格的颜色[delphi] view plain copyprocedure TMainFrm.First_DGDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TG
2016-02-01 11:10:57 535
转载 改变数据库表的显示文本
最简单的办法,就是在数据表中相关字段的OnGetText中写代码如下:procedure TForm1.ClientDataSet1dfdfdGetText(Sender: TField; var Text: string; DisplayText: Boolean);begin if Sender.AsInteger = 0 then Text := '没用完'
2016-02-01 11:07:56 423
newwordpressdb
2016-10-04
pythonrequests
2016-09-29
py文章发布工具
2016-09-29
delphi不错的三层架构框架
2016-06-28
DISQLite3fordelphi7
2016-06-25
log4delphi
2016-05-24
多线程控件BMDThread v1.8
2016-05-13
python网页采集工具
2016-10-10
pythonsetuptools安装脚本
2016-10-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人