舟山牙医 - 博客园

Delphi命名及不命名的类型type类型大全（各种数据类型）

摘要： Delphi命名及不命名的类型type类型大全（各种数据类型） 1.枚舉類型: type DayOfWeek=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);//變量名=(枚舉列表) 引用此枚舉類型: var Days:DayOfWeek; 也可以直接將類型聲明和變量聲明一起: var Days:(Sunday,Monday... 阅读全文

posted @ 2009-12-22 22:39 舟山牙医阅读(999) 评论(0) 推荐(0) 编辑

医保退费主要流程

摘要： 1.系统初始化Init [代码]2.[代码]3.[代码] 阅读全文

posted @ 2009-12-16 16:11 舟山牙医阅读(793) 评论(0) 推荐(0) 编辑

程序单元间的参数传入

摘要：身份验证（GetPatientForm）到划价收费（TMakePriceForm）主要是病历号 [代码]划价收费（TMakePriceForm）到处方结算（RecipeSettlForm）病历号，姓名，是否自费，病人类别[代码] 阅读全文

posted @ 2009-12-13 16:44 舟山牙医阅读(224) 评论(0) 推荐(0) 编辑

修改记录

摘要： 20091213 out_invoice 中加入病人类别 1.out_invoice 表中增加一字段 Brlb char（10） 2.pOut_Chg_RecipeSettl3 add 变量@brlb varchar(10)out-iinvoice中插入值 3. Recipesettlfrm 中 1. spRecipeSettl3 中 params 设置（增加@brlb varchar(1... 阅读全文

posted @ 2009-12-13 16:14 舟山牙医阅读(200) 评论(0) 推荐(0) 编辑

门诊发票的生成 pOut_Chg_RecipeSettl3

摘要： 1.--删除发票临时打印表delete Out_TempPrintInvoice where ShouKuanYBM=@ShouKuanBM2.更新处方主表[代码]3.生成单据号并检查发票是否用完exec @DanJuID=pSys_GetBill @ShouKuanBM,14.插入单据进入发票临时表insert into Out_TempPrintInvoice (ShouKuanYBM,Da... 阅读全文

posted @ 2009-12-11 22:28 舟山牙医阅读(563) 评论(0) 推荐(0) 编辑

已结帐的退费 pOut_Chg_RetCharge3

摘要： 1.先删除临时发票表 delete Out_TempPrintInvoice where ShouKuanYBM=@ShouKuanBM 2. 更新发票主表 update Out_invoice set TuiFeiSJ=@TuiFeiSJ where DanJuID=@DanJuID 3.获取就诊ID select @OldJiuZhenID=JiuZhenID from Out_Invoi... 阅读全文

posted @ 2009-12-11 15:15 舟山牙医阅读(209) 评论(0) 推荐(0) 编辑

ping IP 地址（返回false or true）

摘要： function TFrmSet.PingHost(HostIP: String): Boolean;type PIPOptionInformation = ^TIPOptionInformation; TIPOptionInformation = packed record TTL:Byte; TOS:Byte; Flags:Byte; OptionsSize:Byte; OptionsData... 阅读全文

posted @ 2009-12-10 15:51 舟山牙医阅读(894) 评论(0) 推荐(0) 编辑

简析Delphi中的XML编程

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

posted @ 2009-09-08 23:50 舟山牙医阅读(280) 评论(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 舟山牙医阅读(239) 评论(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 舟山牙医阅读(171) 评论(0) 推荐(0) 编辑

导航