Delphi79-CSDN博客

转载 PostMessage和SendMessage区别

PostMessage和SendMessage区别 PostMessage和SendMessage区别在控制别的应用程序的时候，经常需要等待直到某个功能结束，例如: 打开一个窗口-->等待直到窗口结束这个时候就可以用到SendMessage 如果在打开这个窗口后仍然需要对该窗口的界面进行设置，比如Edit的value等等,比如：打开一个窗口-->控制窗口的control的属性这个时候就需要P

2010-05-04 10:01:00 1748

CREATE TABLE [dbo].[NEXTKEY]( [key_name] [varchar](30) COLLATE Chinese_PRC_CI_AS NOT NULL, [key_seq_num] [int] NOT NULL, [weepal_flag] [varchar](1) COLLATE Chinese_PRC_CI_AS NULL CONSTRAINT [DF_NEXTKE

2010-04-29 17:08:00 661

原创 GetTableFields --参数：传入要剔除的自增字段； '-1'-自动剔除自增字段； ''输出全部字段

CREATE FUNCTION [dbo].[fn_GetTableFields] ( @tbName varchar(50), --表名 @iField varchar(50) --参数：传入要剔除的自增字段； -1-自动剔除自增字段；输出全部字段)RETURNS varchar(1000)ASBEGIN DECLARE @IDEfield sysname IF @iField=-

2010-04-28 18:04:00 1247

原创更改VSS的默认登录名

使用vss默认登录名每次都要更改麻烦。可以在系统的环境变量中增加一个名称为ssuser 的变量，值为vss的登录名，这样每次打开vss显示的就是这个ssuser设置的登录名了。

2010-04-20 09:30:00 520

原创一份答卷

文学知识填空。（每空2分，共48分）1.《西游记》作者是（施耐庵），其内容是（至尊宝和紫霞仙子的爱情故事），其艺术价值的体现是（ONLY YOU）。3.夏丐尊是（丐帮帮主），主要作品是（降龙十八掌）。4.“蓬莱文章建安骨，中间小谢又清发”中的“小谢”是指（谢霆锋）。10.“归去来兮”是（《神雕侠侣》主体曲）。12.孔子是我国最伟大的（老人家）。13.“真相大白”的同义词是（大象真白）。14.中国的

2010-04-14 17:19:00 543

原创 SQL：搜索节点之子子孙孙

CREATE FUNCTION [dbo].[pyx_fn_getX] ( @id INT )RETURNS @tbl TABLE ( ID INT, Parent INT )AS BEGIN DECLARE @tb_id TABLE ( ID INT, lvls INT ) DECLARE @lvl INT SET @lvl = 1 INSERT INTO @tb_id

2010-04-13 16:16:00 575

原创生成一个全球唯一标识符

Delphi：var FGuid: TGUID;begin CreateGUID(FGuid); edt1.Text := GUIDToString(FGuid); edt1.Text := edt1.Text + + IntToStr(Length(edt1.Text)); edt1.Text := Copy(GUIDToString(FGuid), 2, 36);end;

2010-04-13 15:37:00 2341

原创 Tclientdataset合并修改日志--MergeChangeLog

一句话：合并客户端更新过的数据如果你编辑client dataset中的数据，所有的修改都只存在于一个内存中的修改日志中，这个日志可以独立于数据而维护，即使这个过程对使用client dataset的对象来说是透明的。这就是说，导航或者显示它的数据的控件可以看到被修改后的数据。如果你不想使用回退修改的功能，你可以通过调用MergeChangelog合并修改日志到client datas

2010-04-13 15:14:00 4023

原创继承窗体

新建立一个窗口，用代码改动继承 alt+F12 如： object testForm: TtestForm 改成 inherited testForm: TtestFormalt+F12

2010-04-13 11:08:00 506

原创 initialization和finalization

Delphi 的pas文件中可以有initialization和finalization两个关键字，1。initialization关键字：在initialization关键字到finalization关键字之间的代码会在Form加载到内存时执行。利用这个可以对全局变量或局部变量进行初始化操作。（全局变量就是本Form之外的类或Form都可以使用的变量，全局变量在interface部分中用

2010-04-13 10:27:00 4034

原创分页存储过程3

create proc sp_PublicTurnPage(@TBName nvarchar(2000)=,--表名,如 pinyin@PageSizeint=10,--每页的记录数,默认为 10@CurPageint=1,--表示当前页 1@KeyFieldnvarchar(100)=ID,--关键字段名，默认为 ID,该字段要求是表中的索引或无重

2010-04-03 15:30:00 603

原创分页存储过程2

CREATE PROCEDURE Paging_RowCount(@Tables varchar(1000),@PK varchar(100),@Sort varchar(200) = NULL,@PageNumber int = 1,@PageSize int = 10,@Fields varchar(1000) = *,@Filter varchar(10

2010-04-03 15:20:00 432

原创分页存储过程1

CREATE procedure pTest (@pagesize int, @pageindex int, @docount bit, @this_id int) as if(@docount=1) begin select count(id) from luntan where this_id=@this_id end el

2010-04-03 15:07:00 474

原创 Delphi 2005帮助文档无法使用的解决办法

现象：安装Delphi2005后帮助文档无法使用，按F1或点击Delphi菜单中的“帮助”会提示“No xxxxxxxxxx installed”。解决方法：0：未安装帮助文档的先安装；1、修改注册表中HKEY_CLASSES_ROOT/AppID/DExplore.exe的AppID的数据值改为： {4A79114D-19E4-11d3-B86B-00C04F79F802} ；2、找

2010-04-03 14:44:00 816

原创 10年后，从新开始...

10年前，我开始接触Delphi。计算机专业的我，好像是个异类，就像我们班是全学院的异类一样（我们班有40多个人，其他班一般都是二三十人），好像全班只有我和一个姓韦的和一个姓金的三个人选择了软件开发这条路。而且我们各执一种开发语言：我选择了Delphi，姓韦的用VC，姓金的用VB。当初选择Delphi好像就因为“聪明的程序员用Delphi”，我没有理会“真正的程序员用C”，所以我成不了一个真正

2010-04-03 13:53:00 1257

Delphi7 Delphi9(Delphi2005)