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

摘要：      btnhjsf.Caption :='医保卡收费' ;      if cblb.ItemIndex <>4 then ChangeSickToYB(edtkh.Text );  //更改病人类别为 医保病人 procedure TGetPatientForm.ChangeSickTo... 阅读全文

摘要： 1. //修改发票主表 update Out_Invoice set JieZhangDH=:JieZhangDH where DanJuID=:DanJuID'; 2.//生成操作员结帐单       Sql.Add(' insert into Out_SettlTab (SerialNo,JieZhangDH,JieZhangLB,JieZh... 阅读全文