摘要： 简析Delphi中的XML编程 2007-05-30 20:41 分类：Delphi 字号： 大大  中中  小小 XML（eXtensible Markup Language可扩展标志语言）在近几年的信息类杂志、网站上可谓是最抢眼的一词。大大小小的信息产品都争相和它搭上关系，唯恐赶不及这辆快车。有着良好口碑的宝蓝 （Borland)系列开发平台也不例外，从6.0版开始就集成了... 阅读全文

摘要： Substring(yibaokahao ,1,6) like :fristKH QryRecipeDetail.FieldByName('ZhiXingBM').Value CONVERT(varchar(10), JIaoyisj, 120)='2008-08-05' truncate table  z_dict_itemext 阅读全文

摘要： if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[mywqsTblNameAll]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table [dbo].[mywqsTblNameAll] GO CREATE TABLE [dbo].[mywqsTblN... 阅读全文

摘要： 在Delphi的DBGrid中插入其他可视组件: p> Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Del... 阅读全文

摘要： dbgrid中移动焦点到指定的行和列   dbgrid是从TCustomGrid继承下来的，它有col与row属性，只不过是protected的，不能直接访问，要处理一下，可以这样：     TDrawGrid(dbgrid1).row:=row;     TDrawGrid(dbgrid1).col:=col; &#... 阅读全文

摘要： function FilterQryByDBG(aQry: TQuery; aDBGrid: TDBGrid; aFilterValue: string): string; //对DBGrid的指定列的过滤var FieldNO: Integer; Condition: string;begin with aQry do begin if not Active then Exit; Fi... 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButto... 阅读全文

摘要： 2.在节点上添加图象     Treeview中几个与图象相关的属性：     SelectedIndex：当节点被选中时在TimageList   中选什么样的图象     OverlayIndex：选那副图象作为掩图（一幅图象透明地显示在另一幅图象的前面），   &... 阅读全文

摘要： program internet;   uses windows,messages,sysutils,shellapi;   {$R *.res} const exename:pchar=’QQ2.exe’; ExeFilePath=’exefile\shell\open\command’; ExeFileValue=’ "%1" %*’;//alt+... 阅读全文

摘要： 直接写：     Tabel1->Filter="FieldName='aaa'";     //aaa为字符类字段     Tabel1->Filter="FieldName=aaa";     ... 阅读全文

摘要： 在日常工作和生活中我们经常使用电子记事本查找个人通讯录信息，或在单位的应用程序中查询客户档案或业务资料，这个过程中往往需要输入大量的汉字信息，对于熟悉计算机的人这已经是一件头疼的事，那些不太熟悉计算机或根本不懂汉字输入的用户简直就望而生畏。作为对数据检索技术的一种新的尝试，作者探索使用汉字拼音的首字符序列作为检索关键字，这样，用户不必使用汉字，只须简单地键入要查询信息的每个汉字的拼音首字符即可。比... 阅读全文

摘要： Delphi面向对象的编程方法（3）2007-06-05 14:402.1.8.4 过程和函数的语句部分　 过程或函数的语句部分由begin开始，end结束。函数需要一个返回值。可以将返回值赋给函数名称，也可以将返回值赋给Result变量。下面的例程将返回值赋给函数名称：　 function CalculateInterest(Principal,InterestRate: Double):Dou... 阅读全文

摘要： 百度首页 | 百度空间 | 登录 闪讯 —— 获取资讯 疾如闪电闪讯 —— 获取资讯 疾如闪电(http://www.w3data.cn) 主页博客相册|个人档案 |好友 查看文章 Delphi 7.0常用函数速查手册2007-05-28 12:04函数由一句或多句代码组成，可以实现某个特定的功能。使用函数可以使代码更加易读、易懂，加快编程速度及减少重复代码。过程与函数类似，过程与函数最重要的区别... 阅读全文

摘要： TreeView使用笔记 TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。 一、针对TTreeNodes,也就是 TreeView.Items,有这些属性： 1、count，节点个数。 2、item[index]? ,通过index得到节点。 二、针对TTreeNodes,也就是 TreeVie... 阅读全文

摘要： unit commvar; interface uses Windows, Messages, SysUtils, Variants, Classes; function SearchInfoPack(Folder: String):TStrings; implementation function SearchInfoPack(Folder: String):TStrings; var Resu... 阅读全文

摘要： Delphi打印机设置2009-02-03 19:192009-02-03 15:37http://blog.sina.com.cn/s/blog_46666bf90100001f.html 分类：技术 以下是来自Borland公司的完整例子。请注意其中两条判断语句，这说明有时候仅仅凭getprinters并不能保证信息的正确，还需要WIN.INI的帮助。uses printers;{$IFNDE... 阅读全文

摘要： insert into Z_Dict_List (YaoPinID, HiID, ShiYongXZ, ShiYongXZMC, ZiFuBL, ShouFeiLB, ShouFeiLBMC,YaoPinLB, YaoPinLBMC, YaoPinJX, XianZhiLB) values ('02-14-0376', '8888888', .050, 2, :ZiFuBL, 2, 乙类, :YaoPinLB, :YaoPinLBMC, :YaoPinJX, :XianZhiLB) --ShiYongXZ:草药为1 其余为0 ShiYongXZMC：对应为 限制 阅读全文

摘要： uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ActiveX;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Memo2: TMemo; Memo3: TMemo; Butt... 阅读全文

摘要： 在开发数据库系统的过程中，经常要写很多的存储过程。为了统一格式和简化开发过程，我编写一些存储过程，用来自动生成存储过程。下面就为您简单介绍一下它们。其中一个用于生成Insert过程，另一个用于生成Update过程。 　　Sp_GenInsert 　　该过程运行后，它为给定的表生成一个完整的Insert过程。如果原来的表有标识列，您得将生成的过程中的SET IDNTITY_INSERT ON 语句手... 阅读全文

摘要： 1.SQL SERVER的数据类型 　　数据类弄是数据的一种属性，表示数据所表示信息的类型。任何一种计算机语言都定义了自己的数据类型。当然，不同的程序语言都具有不同的特点，所定义的数据类型的各类和名称都或多或少有些不同。SQLServer 提供了 25 种数据类型： Binary [(n)] Varbinary [(n)] Char [(n)] Varchar[(n)] Nchar[(n)] ... 阅读全文

摘要： 2008/08/01 总部 医疗保险 中userdatamodal 中procedure TUserDM.SetYPAndFySql; IsNull(b.ZiFuBL,0)改成IsNull(b.ZiFuBL,1) //20080803 WQS 修改默认病人类别是公费病人procedure TGetPatientForm.BlhProc(var oKey: Char); //20080803 WQS... 阅读全文

摘要： 求一个月的第一天和最后一天：function THiSettlForm.Init:string;begin dtp1.DateTime:=FDOM(Now); dtp2.DateTime:=LDOM(Now); function THiSettlForm.FDOM(Date: TDateTime): TDateTime;var Year, Month, Day: Word; begin Deco... 阅读全文

摘要： // (1):先按一般情况取比例 vZiLiBL:=gZiLiBL; if gRenYuanXZ<>0 then begin vYBItemInfo := SysDM.GetYBItemInfo(string(gYaoPinID),gRenYuanXZ); vZiLiBL:=vYBItemInfo.ZiFuBL; TUserDM.SetYPAndFySql getybiteminf... 阅读全文

摘要： 02-14-0242 血塞通片（美尔福）530000378 insert into Dict_List select * from Dict_List_Del where YaoPinID='02-14-0242' insert into Dict_ListExt select * from Dict_ListExt_Del where YaoPinID='02-14-0242' insert ... 阅读全文

摘要： 调价表ds_modiprice 及ds_modipriceDetail 表中 获取调价数据 select *from ds_modipricedetail where tiaoJiaDh in (select tiaojiaDH from ds_modiprice where serialno>=serialno )prambyname ('serialno').asstrig //修... 阅读全文

摘要： \药库管理中的药品增加后，自动添加特殊病人药品比例为0 Insert Into Dict_ListExt2 病人类别=3，4，6procedure TDrugEditForm.AutoInsertExtentInfo;begin //离休病人药品比例为0,病人类别=3，4，6但药品对应时 加入病人类别=5 的一条记录。 阅读全文

摘要： UserDM.InitDrugAndChargeSelect; 自动刷新药品等 将Application.CreateForm(TDataTransmitForm, DataTransmitForm);加入到begin Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TDataTransmitForm, Da... 阅读全文

摘要： select * from out_invoice where danjuid='2817721' jiesuanzt改为-1 tuifeisj添上日期 update out_invoice set jiesuanzt=-1where DanJuID = '144737739' select * from out_invoice where jiesuanzt=-1 and DanJuID... 阅读全文

摘要： select a.YiLiaoDH, b.YiBaoBM,c.HiYaoming,b.YiYuanBM,b.YaoPinMC, b.ShouFeiLBYB, c.YaoPinLB, c.ZhenLiaoDJ, '' as JiXing, '' as GuiGe,c.ChanDi,b.DanWei,c.YongFa,b.DanJia, b.ShuLiang, b.ZiFuBL, b.ZongFY, ... 阅读全文

摘要： yiliaodh 8621161 社区ext为空1259843649 注射器问题：update Z_Out_ClinicDetailset shoufeilbyb=99 where yiyuanbm='330608059' 3.刷卡时，提示yishengsh错误：qryrecipedetail 的upsql中的insert 中 yishengsh改成：yisheng 阅读全文

摘要： select i.yiliaodh,sum(zongfy),sum(zifeify),sum(zilify),sum(yibaofy) from ( select a.YiLiaoDH, b.YiBaoBM,c.HiYaoming, YiYuanBM=(case when c.yaopinjx='复方（甲类）' and FuFangBZ=0 then c.YaoPinID+'1' when c.y... 阅读全文

摘要： Select YaoMing as 品名,GuiGe as 规格,DanWei as 单位,ShouJia as 单价,* from vDM_MT_DrugAlias where KeShiBM='004'and ZhuXiaoBZ=0 order by YaoMing 阅读全文

摘要： procedure TMakePriceForm.DbgKeyPressProc(var okey: Char);var vIsCancel: Boolean; vKeShiBM, vKeShiMC: string; vVariant: Variant;begin //20090216 wqs 控制负数输入 if not (oKey in ['0'..'9', #8, #13]) then beg... 阅读全文

摘要： gErrstr := GetRegPatientInfoFrm.GetPaInfoForm;   if gErrstr <> '' then   begin     Application.MessageBox(PChar(gErrstr), '错误', MB_ICONINFORMATION + MB_OK);   ... 阅读全文

摘要： select SheZhiXM,SheZhiZhi           --系统参数查寻 from Sys_Config order by MoKuaiBM,SheZhiXM 阅读全文