zitsing's blog

1、获取表结构，TBL_BAS_DRUGINFO为表明

SELECT CASE IsNull(I.name, '')
When '' Then ''
Else '*'
End as IsPK,
Object_Name(A.id) as t_name,
A.name as c_name,
IsNull(SubString(M.text, 1, 254), '') as pbc_init,
T.name as F_DataType,
CASE IsNull(TYPEPROPERTY(T.name, 'Scale'), '')
WHEN '' Then Cast(A.prec as varchar)
ELSE Cast(A.prec as varchar) + ',' + Cast(A.scale as varchar)
END as F_Scale,
A.isnullable as F_isNullAble
FROM Syscolumns as A
JOIN Systypes as T
ON (A.xType = T.xUserType AND A.Id = Object_id('TBL_BAS_DRUGINFO') )
LEFT JOIN ( SysIndexes as I
JOIN Syscolumns as A1
ON ( I.id = A1.id and A1.id = object_id('TBL_BAS_DRUGINFO') and (I.status & 0x800) = 0x800 AND A1.colid <= I.keycnt) )
ON ( A.id = I.id AND A.name = index_col('TBL_BAS_DRUGINFO', I.indid, A1.colid) )
LEFT JOIN SysComments as M
ON ( M.id = A.cdefault and ObjectProperty(A.cdefault, 'IsConstraint') = 1 )
ORDER BY A.Colid ASC

 

 

提取数据库内所有表的字段详细说明的SQL语句

SELECT
(case when a.colorder=1 then d.name else '' end) N'表名',
a.colorder N'字段序号',
a.name N'字段名',
(case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '√'else ''
end) N'标识',
(case when (SELECT count(*)
FROM sysobjects
WHERE (name in
(SELECT name
FROM sysindexes
WHERE (id = a.id) AND (indid in
(SELECT indid
FROM sysindexkeys
WHERE (id = a.id) AND (colid in
(SELECT colid
FROM syscolumns
WHERE (id = a.id) AND (name = a.name))))))) AND
(xtype = 'PK'))>0 then '√' else '' end) N'主键',
b.name N'类型',
a.length N'占用字节数',
COLUMNPROPERTY(a.id,a.name,'PRECISION') as N'长度',
isnull(COLUMNPROPERTY(a.id,a.name,'Scale'),0) as N'小数位数',
(case when a.isnullable=1 then '√'else '' end) N'允许空',
isnull(e.text,'') N'默认值',
isnull(g.[value],'') AS N'字段说明'
FROM syscolumns a
left join systypes b
on a.xtype=b.xusertype
inner join sysobjects d
on a.id=d.id and d.xtype='U' and d.name<>'dtproperties'
left join syscomments e
on a.cdefault=e.id
left join sysproperties g
on a.id=g.id AND a.colid = g.smallid
order by object_name(a.id),a.colorder

方法一：修改

1。先安装UltraEdit-32二进制编辑器。

2。找到pdfilm12.dll文件.        安装磁盘:"Sybase"PowerDesigner 12"pdflm12.dll 。

     3。修改pdflm12.dll文件.使用UltraEdit-32打开此文件，查找：83 C4 14 8B 85 E4 FE FF FF将此字符串改为83 C4 14 33 C0 90 90 90 90。

 

方法二：覆盖

直接下载

下载pdflm12.dll，覆盖即可，这次定能行.

 

     我在的公司是一个小公司，我进去的时候就是修改这个公司以前作的一个delphi做的进销存软件，其界面很丑（包括控件布局，和整体设计，其实界面就没做，主窗体上面top放上一个MainMenu,其下放一个ToolButton,下面就一个很大的淡蓝色图片），公司拿给客户看，客户说界面太丑让改。我花了6天时间把界面重新做。公司领导看了还比较满意的界面，可到那周给我的评语是追求太完美导致效率不高。首先我不是美工师，我师程序员，让我改界面已经是够为难我的了，光做图片就做了上百个。哎，最可气的是项目经理说怎么做这么慢不就是Ctrl C,Ctrl V吗？50个按钮一下午不就做完了，我当时气的只想抽他。妈的，你怎么不做界面，几天前我把主界面做出来（单做在另一个程序里），你兴冲冲的说：“发过我来我整合”。（靠，你整合让我干啥去啊。），妈的，最后他整合了一上午，没整合好，下午说：“还是你整合吧，怎么老报一个内存错误！”。日，最后又退给我做了。
不知道你们工作可发牢骚！！

       我向来喜欢，敬佩，崇拜那些评批我，教训我，并跟我辩论的人，他们的存在使我看到了自己的不足，意识到自己还需要改进和完善，同时我也感到欣慰，因为我知道他们已经对我的言行进行了思考，这种思考不管对还是错都是可敬的。因为大国的崛起都先从思想开始的。

1. 这个是java编写的WebService地址：http://152.152.152.41:7001/WebServer/ServerBusiness?wsdl

2. 通过Delphi的File——New——Other——WebServices——WSDL Importer 导入这个地址（http://152.152.152.41:7001/WebServer/ServerBusiness?wsdl，上面有
一个文本框让你输入这个网址的。)会生成一个Unit单元文件，保存。

3. 在想调用的Unit单元中uses上面生成的单元。

4. 在调用的时间中这样写：代码如下：
procedure TFrmPerson.BtnOkClick(Sender: TObject);
var
  person: PersonInfo;//声明WebService单元中一个对象
  port: ServerBusinessPort;//WebService一个执行方法的对象
  Result: string; //这个方法的返回值
begin
    port := GetServerBusinessPort();//返回一个对象
    person := PersonInfo.Create;//创建这对象相对于C# 中的new关键字吧
   person.PERSON_ID := PERSONNO.Text; //人员编号
    person.PERSON_NAME := PERSONNAME.Text; //人员姓名
    person.DEPT_NAME := DEPT_NAME.Text; //所属部门
    Result := port.AddPersonInfo(person);//调用方法了，person就是传过去的对象了。
    if Result='1' then begin
    ShowMessage('成功！');
    end else begin
    ShowMessage('失败');
    end;
end;

5. Ok,over 了。

        中国的高级软件工程师你们难道上网只看技术吗？悲哀啊。
        我还是忍不住发了。

《赞美》查良铮(1918--1977)，笔名穆旦

走不尽的山峦的起伏，河流和草原，
数不尽的密密的村庄，鸡鸣和狗吠，
接连在原是荒凉的亚洲的土地上，
在野草的茫茫中呼啸着干燥的风，
在低压的暗云下唱着单调的东流的水，
在忧郁的森林里有无数埋藏的年代
它们静静地和我拥抱：
说不尽的故事是说不尽的灾难，沉默的
是爱情，是在天空飞翔的鹰群，
是干枯的眼睛期待着泉涌的热泪，
当不移的灰色的行列在遥远的天际爬行；
我有太多的话语，太悠久的感情，
我要以荒凉的沙漠，坎坷的小路，骡子车，
我要以槽子船，漫山的野花，阴雨的天气，
我要以一切拥抱你，你
我到处看见的人民呵，
在耻辱里生活的人民，佝偻的人民，
我要以带血的手和你们一一拥抱，
因为一个民族已经起来。
　
一个农夫，他粗糙的身躯移动在田野中，
他是一个女人的孩子，许多孩子的父亲，
多少朝代在他的身上升起又降落了
而把希望和失望压在他身上，
而他永远无言地跟在犁后旋转，
翻起同样的泥土溶解过他祖先的，
是同样的受难的形象凝固在路旁。
在大路上多少次愉快的歌声流过去了，
多少次跟来的是临到他的忧患，
在大路上人们演说，叫嚣，欢快，
然而他没有，他只放下了古代的锄头，
再一次相信名辞，溶进了大众的爱，
坚定地，他看着自己溶进死亡里，
而这样的路是无限的悠长的，
而他是不能够流泪的，
他没有流泪，因为一个民族已经起来。

在群山的包围里，在蔚蓝的天空下，
在春天和秋天经过他家园的时候，
在幽深的谷里隐着最含蓄的悲哀：
一个老妇期待着孩子，许多孩子期待着
饥饿，而又在饥饿里忍耐，
在路旁仍是那聚集着黑暗的茅屋，
一样的是不可知的恐惧，一样的是
大自然中那侵蚀着生活的泥土，
而他走去了从不回头诅咒。
为了他我要拥抱每一个人，
为了他我失去了拥抱的安慰，
因为他，我们是不能给以幸福的，
痛哭吧，让我们在他的身上痛哭吧，
因为一个民族已经起来。
一样的是这悠久的年代的风，
一样的是从这倾圮的屋檐下散开的
无尽的呻吟和寒冷，
它歌唱在一片枯槁的树顶上，
它吹过了荒芜的沼泽，芦苇和虫鸣，
一样的是这飞过的乌鸦的声音，
当我走过，站在路上踟蹰，
我踟蹰着为了多年耻辱的历史
仍在这广大的山河中等待，
等待着，我们无言的痛苦是太多了，
然而一个民族已经起来，
然而一个民族已经起来。

我不知道EhLib在其他系统安装可有这样的问题。
按照网上的delphi 7中的安装方法
1. 把 EhLib 中的 common 和 DataService 文件拷贝到 Delphi7 目录中.
2.在 TOOLS->Environment Options->Library->Library Path 中添入EHLIB路径。
3.打开新建文件夹中的 EHLIB70.DPK ,编译一下，但不要安装。
4.打开Ehlib中的DclEhLib70.DPK,编译,安装
5. 在Delphi 7中打开DclEhLib70.dpk，编译并安装。
6. 组件面板中出现一个EhLib的组件页。
7. 打开附带的DEMOS，编译并运行，测试安装成功。

我按照上面的安装方法出现如下问题：
3.打开新建文件夹中的 EHLIB70.DPK ,编译一下，但不要安装。（我出现了要求在D盘建立一个D7outtmp目录，否则无法继续。 ）
4.打开Ehlib中的DclEhLib70.DPK,编译,安装 （Ehlib目录中根本没有DclEhLib70.DPK）
第5. 在Delphi 7中打开DclEhLib70.dpk，编译并安装。 （这一步的时候出现Can't load package D:\D7outtmp\DclEhLib70.bpl 找不到指定模块）

解决办法：把第3步生成的D:\D7outtmp中的DclEhLib70.bpl，DclEhLibDataDrivers70.bpl，EhLib70.bpl，EhLibDataDrivers70.bpl四个文件复制到C:\WINDOWS\system32中。
我搜索了一下，网上没有解决办法。我是花了4个小时，重做2次系统，才解决的。

 

      我现在才理解生命的意义。高中觉得生活很枯燥，以为大学就好了，没想到大学也一样，在大学觉得以后工作就好了，可工作了生活更枯燥。经过我反复的思考得到一个结论，日子他不管你流着泪，还是笑着都会过去，所以要珍惜现在，展望未来。

    我一直没对这件事进行评论，我觉得在没经过调查、观察的情况下评论是一种不负责任的。经过这段时间通过网络，媒体，特别是“一虎一席谈”节目我对范美忠老师的独立思想有崇高的敬意。就像他说的舍生救人是一种选择。
    我很喜欢这样的老师。对他的任何辱骂或责备我都反对。要以人为本，不爱己，怎能爱人。不要像文革那样残害有志之士。中国社会并不缺乏有崇高道德的人，缺乏的是有思想的人。
    我只所以现在也评价了，因为我发现有些人想用吐沫淹死他。也许我这篇文章无法让更多的人原谅，理解范美忠。但至少可以影响几个人，我相信星星之火可以燎原，真理永远在少数人手里。

我觉得他除了自己跑出去之前没有喊一下同学，他没有任何行为上的错误。再则根据地震安全手册介绍，地震发生时是不能惊慌，乱跑的。而应该躲在桌子下，等待地震平息减小后，才迅速跑到安全地带。假如当时他喊了，造成了学生发生踩踏事件，那他就有造谣、夸大地震的罪。有一点可以肯定他很坚强，思想很成熟，不成熟的思想是经不起你们这些人炮轰的，早就站出来向人民道歉——“我对不起党，对不起祖国人民，对不起养育我的父母，对不起我的学生，对不起领导，给他们添麻烦了，我一定痛改前非，好好做人，接受改造。”这句话是多么的好说，可他没说，就这一点就值得我们尊敬，他虽然不是什么英雄，从这一点至少他不会做汉奸，叛徒。

    这几天每当看到地震的场面，我都忍不住流泪。我要珍惜生命，珍惜身边每一个人。