摘要： 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... 阅读全文