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

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

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

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

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

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

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

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