2009年9月8日

简析Delphi中的XML编程

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

posted @ 2009-09-08 23:50 舟山牙医 阅读(299) 评论(0) 推荐(0)

常用查寻代码

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

posted @ 2009-09-08 23:40 舟山牙医 阅读(251) 评论(0) 推荐(0)

表查寻结构

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

posted @ 2009-09-08 23:39 舟山牙医 阅读(181) 评论(0) 推荐(0)

在Delphi的DBGrid中插入其他可视组件

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

posted @ 2009-09-08 23:37 舟山牙医 阅读(984) 评论(1) 推荐(0)

dbgrid

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

posted @ 2009-09-08 23:36 舟山牙医 阅读(872) 评论(0) 推荐(0)

对DBGrid的指定列的过滤

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

posted @ 2009-09-08 23:33 舟山牙医 阅读(517) 评论(0) 推荐(0)

取汉字首拼音

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

posted @ 2009-09-08 23:32 舟山牙医 阅读(329) 评论(0) 推荐(0)

Treeview中几个与图象相关的属性

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

posted @ 2009-09-08 23:30 舟山牙医 阅读(376) 评论(0) 推荐(0)

QQ自动消息源码.

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

posted @ 2009-09-08 23:28 舟山牙医 阅读(673) 评论(0) 推荐(0)

filter 写法

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

posted @ 2009-09-08 23:27 舟山牙医 阅读(454) 评论(0) 推荐(0)

Delphi中用拼音首字符序列来实现检索功能

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

posted @ 2009-09-08 23:26 舟山牙医 阅读(412) 评论(0) 推荐(0)

Delphi面向对象的编程方法(3)

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

posted @ 2009-09-08 23:25 舟山牙医 阅读(286) 评论(0) 推荐(0)

delphi函授

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

posted @ 2009-09-08 23:23 舟山牙医 阅读(330) 评论(0) 推荐(0)

TreeView使用笔记

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

posted @ 2009-09-08 23:21 舟山牙医 阅读(2227) 评论(0) 推荐(0)

delhpi 获取目录中所有文件名不用控件

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

posted @ 2009-09-08 23:19 舟山牙医 阅读(396) 评论(0) 推荐(0)

Delphi打印机设置

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

posted @ 2009-09-08 23:17 舟山牙医 阅读(5322) 评论(0) 推荐(0)

药品对应

摘要: 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:对应为 限制 阅读全文

posted @ 2009-09-08 23:03 舟山牙医 阅读(206) 评论(0) 推荐(0)

医联卡DLL

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

posted @ 2009-09-08 22:58 舟山牙医 阅读(181) 评论(0) 推荐(0)

SQL Server编写存储过程小工具

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

posted @ 2009-09-08 17:32 舟山牙医 阅读(630) 评论(0) 推荐(0)

SQL SERVER的数据类型

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

posted @ 2009-09-08 17:31 舟山牙医 阅读(123) 评论(0) 推荐(0)

修改记录

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

posted @ 2009-09-08 17:29 舟山牙医 阅读(237) 评论(0) 推荐(0)

求一个月的第一天和最后一天

摘要: 求一个月的第一天和最后一天: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... 阅读全文

posted @ 2009-09-08 17:28 舟山牙医 阅读(192) 评论(0) 推荐(0)

输入时费用及药品的获得

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

posted @ 2009-09-08 17:27 舟山牙医 阅读(191) 评论(0) 推荐(0)

恢复删除的药品

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

posted @ 2009-09-08 17:26 舟山牙医 阅读(222) 评论(0) 推荐(0)

调价相关

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

posted @ 2009-09-08 17:25 舟山牙医 阅读(141) 评论(0) 推荐(0)

病人费用比例设置

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

posted @ 2009-09-08 17:23 舟山牙医 阅读(137) 评论(0) 推荐(0)

自动刷新药品等

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

posted @ 2009-09-08 17:15 舟山牙医 阅读(132) 评论(0) 推荐(0)

费用全退

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

posted @ 2009-09-08 17:13 舟山牙医 阅读(123) 评论(0) 推荐(0)

拟上传明细

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

posted @ 2009-09-08 17:12 舟山牙医 阅读(176) 评论(0) 推荐(0)

社区ext为空Yiliaodh

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

posted @ 2009-09-08 17:10 舟山牙医 阅读(119) 评论(0) 推荐(0)

按医疗单号统计上传的金额

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

posted @ 2009-09-08 17:04 舟山牙医 阅读(262) 评论(0) 推荐(0)

材料选择代码

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

posted @ 2009-09-08 17:01 舟山牙医 阅读(98) 评论(0) 推荐(0)

控制负数输入.txt

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

posted @ 2009-09-08 16:55 舟山牙医 阅读(138) 评论(0) 推荐(0)

打印后激活原来窗口

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

posted @ 2009-09-08 00:16 舟山牙医 阅读(107) 评论(0) 推荐(0)

系统参数查寻

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

posted @ 2009-09-08 00:00 舟山牙医 阅读(78) 评论(0) 推荐(0)

导航