03 2024 档案
摘要:在对接本地的一个药械监管系统使用实现的代码,编译环境delphi Xe7 ,使用类TIdHTTP实现网络的get请求和post提交 //设置组件的属性 procedure TfrmMain.SetHttpParam; begin idhtp1.HandleRedirects := True; //
阅读全文
摘要:需求场景:医嘱单在患者出院的时候,需要标记一条红线,表示以下没有医嘱了。数据库中此记录的一个字段属性isRed值来标记这一行。 实现:XReport报表的明细区域增加一个line1对象。然后在明细表格带区添加如下事件代码,就可以实现这条线的可见打印输出通过数据集的属性控制了。 private voi
阅读全文
摘要:declare mess varchar2(300); begin P_DETAIL_PROC(参数1,...,mess); DBMS_OUTPUT.PUT_LINE(mess); end; P_DETAIL_PROC是存储过程名称。注意:datagrip中输出打印信息,需要在回话中勾选开启信息输出
阅读全文