yuwenshen-优快云博客

原创新年新展望

新的一年开始了，先祝贺优快云发展的更兴旺，我自己也是，呵呵！

2008-01-04 08:42:00 499

原创 wordapplication+worddocument

打开ＤＥＬＰＨＩ转到severs组件板拉一个WordApplication1，改名为WordApplication一个WordDocument１改名为WordDocument转到dialogs组件板拉一个OpenDialog1，改名为dlgopen再拉４个button，将以下四段代码依次放入就行了启动word时用如下代码：begintrywordapplication.connect;except

2007-08-14 10:38:00 1841

原创 07年最牛北京高考作文

文题：" 细雨湿衣看不见，闲花落地听无声"是唐朝诗人刘长卿在《别严士元》中的诗句。曾经有人这样理解这句诗：1、这是歌颂春天的美好意境。 2、闲花、细雨表达了不为人知的寂寞。3、看不见、听不见不等于无所作为，是一种恬淡的处世之道。4 、这种意境已经不适合当今的世界……根据你的看法写一篇作文。题目自拟，体裁不限。字数800以上。盛夏，夜，深夜。景山山颠。山上有人，两个人，一男一女。这两人就是当今武

2007-07-15 18:00:00 1100

原创《男儿志》

男儿志男儿当杀人，杀人不留情。千秋不朽业，尽在杀人中。昔有豪男儿，义气重然诺。睚眦即杀人，身比鸿毛轻。又有雄与霸，杀人乱如麻，驰骋走天下，只将刀枪夸。今欲觅此类，徒然捞月影。君不见，竖儒蜂起壮士死，神州从此夸仁义。一朝虏夷乱中原，士子豕奔懦民泣。我欲学古风，重振雄豪气。名声同粪土，不屑仁者讥。身佩削铁剑，一怒即杀人。割股相下酒，谈笑鬼神惊

2007-05-19 15:48:00 843 2

原创怎样禁止ComboBox的text从外部输入，即使ComboBox.text的值只能从下拉框中选择？

怎样禁止ComboBox的text从外部输入，即使ComboBox.text的值只能从下拉框中选择？Style 设置为 csDropDownList

2006-12-01 15:59:00 3368 2

原创预定义说明的 oracle 异常

ORACLE 错误异常信息说明ORA-0001 Dup_val_on_index 试图破坏一个唯一性限制ORA-0051 Timeout_on_resource 在等待资源时发生超时ORA-0061 Tra

2006-10-16 11:13:00 846

原创怎样判断一个form1窗体存在？

if Assigned(Form1) then ShowMessage(Ok);

2006-10-11 15:36:00 815

原创如何输出带序号的记录集？？

如果最后返回结果集时用了order by需要用以下的形式select rownum,temp.* from (select t.* from tab t order by col1,col2) temp因为rownum是在Order by之前加上的。

2006-09-25 10:00:00 829

原创返回某个字符串中某个字符串中出现的次数

// 返回某个字符串中某个字符串中出现的次数}function TForm1.StrNum(ShortStr:string;LongString:string):Integer;var i:Integer;begin i:=0; while pos(ShortStr,LongString)>0 do begin i:=i+1; LongStri

2006-09-21 09:15:00 2424

原创如何知系統是簡/英/繁體的，而加入不同的菜單？

var pLCData: array [0..255] of Char; I: Integer;begin ZeroMemory(@pLCData, SizeOf(plCData)); I := Windows.GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SLANGUAGE, pLCData, SizeOf(pLCData)); Show

2006-09-11 17:28:00 666

原创 VB.NET的阳历与农历转换的算法选择自 iwebsms 的 Blog

下面是一个关于VB的农历算法日期数据定义方法如下前12个字节代表1-12月为大月或是小月，1为大月30天，0为小月29天；第13位为闰月的情况，1为大月30天，0为小月29天；第14位为闰月的月份，如果不是闰月为0，否则给出月份，10、11、12分别用A、B、C来表示，即使用16进制；最后4位为当年家农历新年-即农

2006-09-11 08:30:00 720

原创现在有这样一个问题我把上W条数据插入表内,但是发现还有一条数据没进入表里.我想查出来是哪个数据没进去. 能用查询语句查出来吗?

上万条数据如果是一个子查询，或者表可以用 not exists 或者外连接判断根据ID 关联下查查用not in() 或者 no exists()比如：select A.id from A where not exists(select 1 from B where A.Id=B.ID)通过表中唯一标示进行minus操作如：select column1 from tab1

2006-09-07 17:30:00 1019

原创 ORACLE数据库查询空值问题

如何在数据库中查询空值?1.在ORACLE数据库中有大量的记录,有的字段的值是空值,如何通过查询语句找到某字段为空的记录?2.给某时间字段赋值当前时间如何做?select * from TableName where fieldName is nullupdate TableName set fieldName=(to_char(sysdate,yyyy-mm-dd)) where

2006-09-07 17:12:00 7175

原创 CANVAS属性及命令

2.CANVAS属性及命令: canvas.rectangle():画矩形pen.color:定义画笔颜色 roundrect():画圆角矩形pen.width:定义画笔宽度 arc():画弧线(不填充) brush.color:定义填充颜色 chord():画弧线(填充) textout():在固定位置输出字符串 pie:画扇形 textwidth:取字符串高度

2006-09-06 09:32:00 1352

转载通配符的问题？

http://community.youkuaiyun.com/Expert/topic/4994/4994818.xml?temp=.3705408 Like 12_Like 22_Like 32_Like 42_怎么写成 in(12_,22_,32_,42_)类似的功能？？

2006-09-05 21:40:00 432

原创怎么用鼠标滚动来控制DBGRID移动？

自己捕捉WM_MOUSEWHEEL消息处理private OldGridWnd : TWndMethod;procedure NewGridWnd (var Message : TMessage);publicprocedure TForm1.NewGridWnd(var Message: TMessage);var IsNeg : Boolean;begin if Message.Msg =

2006-09-05 08:45:00 745

原创 TDBGridEh中如何获得某一单元格的值

1.TDBGridEh.datasource.dataset.fieldbyname(相应的field).asstring; 2.DBGridEH1.SelectedField.AsString

2006-09-04 11:06:00 1685

原创收集我的资料库

每天将得到的资料和学习心得写在此出

2006-09-02 07:32:00 721

yuwenshen的专栏