- 博客(15)
- 收藏
- 关注
转载 PostMessage和SendMessage区别
PostMessage和SendMessage区别 PostMessage和SendMessage区别在控制别的应用程序的时候,经常需要等待直到某个功能结束,例如: 打开一个窗口-->等待直到窗口结束 这个时候就可以用到SendMessage 如果在打开这个窗口后仍然需要对该窗口的界面进行设置,比如Edit的value等等,比如: 打开一个窗口-->控制窗口的control的属性 这个时候就需要P
2010-05-04 10:01:00 1765
原创 GetNextKey
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 686
原创 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 1283
原创 更改VSS的默认登录名
使用vss默认登录名每次都要更改麻烦。 可以在系统的环境变量中增加一个名称为ssuser 的变量,值为vss的登录名,这样每次打开vss显示的就是这个ssuser设置的登录名了。
2010-04-20 09:30:00 540
原创 一份答卷
文学知识填空。(每空2分,共48分)1.《西游记》作者是(施耐庵),其内容是(至尊宝和紫霞仙子的爱情故事),其艺术价值的体现是(ONLY YOU)。3.夏丐尊是(丐帮帮主),主要作品是(降龙十八掌)。4.“蓬莱文章建安骨,中间小谢又清发”中的“小谢”是指(谢霆锋)。10.“归去来兮”是(《神雕侠侣》主体曲)。12.孔子是我国最伟大的(老人家)。13.“真相大白”的同义词是(大象真白)。14.中国的
2010-04-14 17:19:00 576
原创 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 605
原创 生成一个全球唯一标识符
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 2384
原创 Tclientdataset合并修改日志--MergeChangeLog
一句话:合并客户端更新过的数据 如果你编辑client dataset中的数据,所有的修改都只存在于一个内存中的修改日志中,这个日志可以独立于数据而维护,即使这个过程对使用client dataset的对象来说是透明的。这就是说,导航或者显示它的数据的控件可以看到被修改后的数据。如果你不想使用回退修改的功能,你可以通过调用MergeChangelog合并修改日志到client datas
2010-04-13 15:14:00 4086
原创 继承窗体
新建立一个窗口,用代码改动继承 alt+F12 如: object testForm: TtestForm 改成 inherited testForm: TtestFormalt+F12
2010-04-13 11:08:00 531
原创 initialization和finalization
Delphi 的pas文件中可以有initialization和finalization两个关键字,1。initialization关键字:在initialization关键字到finalization关键字之间的代码会在Form加载到内存时执行。利用这个可以对全局变量或局部变量进行初始化操作。(全局变量就是本Form之外的类或Form都可以使用的变量,全局变量在interface部分中用
2010-04-13 10:27:00 4084
原创 分页存储过程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 623
原创 分页存储过程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 451
原创 分页存储过程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 499
原创 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 843
原创 10年后,从新开始...
10年前,我开始接触Delphi。计算机专业的我,好像是个异类,就像我们班是全学院的异类一样(我们班有40多个人,其他班一般都是二三十人),好像全班只有我和一个姓韦的和一个姓金的三个人选择了软件开发这条路。而且我们各执一种开发语言:我选择了Delphi,姓韦的用VC,姓金的用VB。当初选择Delphi好像就因为“聪明的程序员用Delphi”,我没有理会“真正的程序员用C”,所以我成不了一个真正
2010-04-03 13:53:00 1277
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人