📄 main.pas
字号:
IWLabel198: TIWLabel;
IWLabel199: TIWLabel;
IWLabel200: TIWLabel;
IWLabel201: TIWLabel;
IWDBEdit85: TIWDBEdit;
IWDBEdit86: TIWDBEdit;
IWDBEdit87: TIWDBEdit;
IWDBEdit88: TIWDBEdit;
IWDBEdit89: TIWDBEdit;
IWDBEdit90: TIWDBEdit;
IWDBEdit91: TIWDBEdit;
IWDBEdit92: TIWDBEdit;
IWDBEdit93: TIWDBEdit;
IWDBEdit94: TIWDBEdit;
IWDBEdit95: TIWDBEdit;
IWDBEdit96: TIWDBEdit;
IWDBEdit97: TIWDBEdit;
IWDBEdit98: TIWDBEdit;
IWDBEdit99: TIWDBEdit;
IWDBEdit100: TIWDBEdit;
IWDBEdit101: TIWDBEdit;
IWDBEdit102: TIWDBEdit;
IWDBEdit103: TIWDBEdit;
IWDBEdit104: TIWDBEdit;
IWDBEdit105: TIWDBEdit;
IWDBEdit106: TIWDBEdit;
IWDBEdit107: TIWDBEdit;
IWDBEdit108: TIWDBEdit;
IWDBEdit109: TIWDBEdit;
IWDBEdit110: TIWDBEdit;
IWDBEdit111: TIWDBEdit;
IWDBEdit112: TIWDBEdit;
IWDBEdit113: TIWDBEdit;
IWDBEdit114: TIWDBEdit;
IWDBEdit115: TIWDBEdit;
IWDBEdit116: TIWDBEdit;
IWDBEdit117: TIWDBEdit;
IWDBEdit118: TIWDBEdit;
IWDBEdit119: TIWDBEdit;
IWDBEdit120: TIWDBEdit;
IWDBEdit121: TIWDBEdit;
IWDBEdit122: TIWDBEdit;
IWDBEdit123: TIWDBEdit;
IWDBEdit124: TIWDBEdit;
IWDBEdit125: TIWDBEdit;
IWDBEdit126: TIWDBEdit;
IWDBEdit127: TIWDBEdit;
IWDBEdit128: TIWDBEdit;
IWDBEdit129: TIWDBEdit;
IWDBEdit130: TIWDBEdit;
IWDBEdit131: TIWDBEdit;
IWDBEdit132: TIWDBEdit;
IWDBEdit133: TIWDBEdit;
IWDBEdit134: TIWDBEdit;
IWDBEdit135: TIWDBEdit;
IWDBEdit136: TIWDBEdit;
IWDBEdit137: TIWDBEdit;
IWDBEdit138: TIWDBEdit;
IWDBEdit139: TIWDBEdit;
IWDBEdit140: TIWDBEdit;
IWDBEdit141: TIWDBEdit;
IWDBEdit142: TIWDBEdit;
IWDBEdit143: TIWDBEdit;
IWDBEdit144: TIWDBEdit;
IWDBEdit145: TIWDBEdit;
IWDBEdit146: TIWDBEdit;
IWDBEdit147: TIWDBEdit;
IWDBEdit148: TIWDBEdit;
IWDBEdit149: TIWDBEdit;
IWDBEdit150: TIWDBEdit;
IWDBEdit151: TIWDBEdit;
IWDBEdit152: TIWDBEdit;
IWDBEdit153: TIWDBEdit;
IWDBEdit154: TIWDBEdit;
IWDBEdit155: TIWDBEdit;
IWDBEdit156: TIWDBEdit;
IWDBEdit157: TIWDBEdit;
IWDBEdit158: TIWDBEdit;
IWDBEdit159: TIWDBEdit;
IWDBEdit160: TIWDBEdit;
IWDBEdit161: TIWDBEdit;
IWDBEdit162: TIWDBEdit;
IWDBEdit163: TIWDBEdit;
IWDBEdit164: TIWDBEdit;
IWDBEdit165: TIWDBEdit;
IWDBEdit166: TIWDBEdit;
IWDBEdit167: TIWDBEdit;
IWDBEdit168: TIWDBEdit;
IWDBEdit169: TIWDBEdit;
IWDBEdit170: TIWDBEdit;
IWDBEdit171: TIWDBEdit;
IWButton1: TIWButton;
IWLabel202: TIWLabel;
IWHRule4: TIWHRule;
IWLabel203: TIWLabel;
IWLabel204: TIWLabel;
IWLabel205: TIWLabel;
IWLabel206: TIWLabel;
IWLabel207: TIWLabel;
IWLabel208: TIWLabel;
IWLabel209: TIWLabel;
IWDBEdit172: TIWDBEdit;
IWDBEdit173: TIWDBEdit;
IWDBEdit174: TIWDBEdit;
IWDBEdit175: TIWDBEdit;
IWDBEdit176: TIWDBEdit;
IWDBEdit177: TIWDBEdit;
IWLabel210: TIWLabel;
IWLabel211: TIWLabel;
IWDBEdit178: TIWDBEdit;
IWDBEdit179: TIWDBEdit;
IWLabel212: TIWLabel;
IWLabel213: TIWLabel;
IWLabel214: TIWLabel;
IWLabel215: TIWLabel;
IWLabel216: TIWLabel;
IWLabel217: TIWLabel;
IWLabel219: TIWLabel;
IWDBEdit182: TIWDBEdit;
IWDBEdit183: TIWDBEdit;
IWLabel220: TIWLabel;
IWDBEdit186: TIWDBEdit;
IWLabel218: TIWLabel;
IWDBEdit180: TIWDBEdit;
IWDBEdit181: TIWDBEdit;
IWLabel221: TIWLabel;
IWLabel222: TIWLabel;
IWDBEdit184: TIWDBEdit;
IWDBEdit185: TIWDBEdit;
IWLabel223: TIWLabel;
IWLabel224: TIWLabel;
IWDBEdit187: TIWDBEdit;
IWDBEdit188: TIWDBEdit;
IWLabel225: TIWLabel;
dgrdFish: TIWDBGrid;
IWDBNavigator3: TIWDBNavigator;
IWButton4: TIWButton;
IWLabel228: TIWLabel;
IWHRule5: TIWHRule;
IWDBEdit189: TIWDBEdit;
IWLabel229: TIWLabel;
IWDBEdit31: TIWDBEdit;
IWLabel230: TIWLabel;
IWLabel226: TIWLabel;
IWButton2: TIWButton;
IWLabel227: TIWLabel;
IWLabel231: TIWLabel;
IWLabel232: TIWLabel;
IWLabel233: TIWLabel;
IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
IWComboBox1: TIWComboBox;
IWImage1: TIWImage;
procedure IWDBGrid1Columns0Click(ASender: TObject;
const AValue: String);
procedure IWDBGrid1Columns0TitleClick(Sender: TObject);
procedure dgrdFishRenderCell(ACell: TIWGridCell; const ARow,
AColumn: Integer);
procedure IWButton2Click(Sender: TObject);
procedure IWButton1Click(Sender: TObject);
procedure IWButton3Click(Sender: TObject);
protected
public
end;
implementation
{$R *.dfm}
uses
FFData,
Graphics,
ServerController, SysUtils, Unitpatient;
procedure TformMain.IWDBGrid1Columns0Click(ASender: TObject; const AValue: String);
begin
//FFDatamodule.GoFish(StrToInt(AValue));
end;
procedure TformMain.IWDBGrid1Columns0TitleClick(Sender: TObject);
begin
//FFDatamodule.SortBy(TIWDBGridColumn(Sender).DataField);
end;
procedure TformMain.dgrdFishRenderCell(ACell: TIWGridCell; const ARow, AColumn: Integer);
begin
// -1 is Footer Row
if ARow = -1 then begin
ACell.BGColor := clSilver;
if AColumn = 0 then begin
ACell.Font.Color := clRed;
ACell.Text := IntToStr(dgrdFish.RecordCount) + ' fish found.';
end;
end else begin
if dgrdFish.RowIsCurrent then begin
ACell.BGColor := clYellow;
end;
end;
end;
procedure TformMain.IWButton2Click(Sender: TObject);
var mysql:String;
var patient_id,patient_xys_z,patient_xys_n,patient_xys_jy_n,
patient_gxy,patient_gxy_bs,patient_tlb_bs,patient_lxgbs_bs,
patient_jzgxb_fbnl,patient_yjs_jjnl:Integer;
var patient_yjs_bjr,patient_yjs_bjz,patient_yjs_hjr,
patient_yjs_hjz,patient_yjs_pjr,patient_yjs_pjz:double;
var patient_bl_id,patient_brxl,patient_rxsj,patient_xm,
patient_xb,patient_csrq,patient_zy,patient_gzdw,patient_lxdh,
patient_jtzz,patient_whcd,patient_zyh,patient_sg,patient_tz,
patient_tzzs,patient_yw,patient_tw,patient_ytb,patient_xy,
patient_xl,patient_xlzt,patient_xys,patient_yjs,patient_yjs_jjn,
patient_gxy_zlq_zh,patient_gxy_zlq,patient_gxy_wcz,patient_gxy_wcz_beg,
patient_gxy_wcz_end,patient_tlb,patient_tlb_fx,patient_hbz,patient_hbz_jg,
patient_gxz,patient_gxz_bs,patient_gxz_jg,patient_gxb,patient_xjt,
patient_xjt_bs,patient_xjgs,patient_xjgs_bs,patient_jxxjgs_bs,patient_jxxjgs_ami_lx,
patient_jxxjgs_ami_bw,patient_xjgs_zl,patient_xjgs_rszl,patient_xjgs_rszl_kt,
patient_xjgs_zl_jrzl,patient_xjgs_zl_gyxg,patient_xjgs_zl_dqzl_CABG,
patient_xjgs_zl_dqxg,patient_xlsjs,patient_xlsjs_bs,patient_xlsc,patient_xlsc_dx,
patient_xlsc_xdgs,patient_xlsc_fscdzz,patient_xlsc_szzs,patient_xlsc_qt,
patient_qtxxgbs,patient_qtxxgbs_fl,patient_wzxgbs,patient_lxgbs,patient_qtxtbs,
patient_qtxtbs_bsmc,patient_qtxtbs_bs,patient_jzgxb,patient_zl_rszlyw,patient_xlscb_zb,
patient_xjgs_zl_gyfs,patient_xjgs_zl_zjlx,medica_mtlrjl,medica_pdpljl,medica_xfttjl,
medica_aspljl,medica_qt_mc1,medica_qt_jl1,medica_qt_mc2,medica_qt_jl2,medica_cjywsx,
medica_mtlrjl_qpjxl,medica_mtlrjl_hpjxl,medica_pdpljl_qACEsp,medica_pdpljl_hACEsp,
medica_xfttjl_qLDLCsp,medica_xfttjl_hLDLCsp,medica_aspljl_qIPA,medica_aspljl_hIPA,
labora_jcrq,labora_jclx,labora_xcg,labora_lsjsjmCPK,labora_lsjsjmMB,labora_rstqmLDH,
labora_qdstqmCKMB,labora_jgCRE,labora_lsdBUN,labora_xqptt,labora_lsUA,labora_gyszTG,
labora_gmdzdbHDL_C,labora_zdgcTCH,labora_dmdzdbLDL_C,labora_zzdbA1,labora_zzdbB,
labora_jK,labora_nNA,labora_lCL,labora_gCA,labora_jx_ycQb,labora_jx_STdzdyd,
labora_jx_STdzdyd_fx,labora_jx_STdzdtg,labora_jx_STdzdtg_fx,labora_jx_Tbyc,labora_jx_xlsc,
labora_gzdmfz_1jd,labora_gzdmfz_1gqxz,labora_gzdmfz_1ghjf ,labora_gzdmfz_2jd,
labora_gzdmfz_2gqxz,labora_gzdmfz_2ghjf,labora_gzdmfz_3jd,labora_gzdmfz_3gqxz,
labora_gzdmfz_3ghjf,labora_gzdmfz_4jd,labora_gzdmfz_4gqxz,labora_gzdmfz_4ghjf,
labora_gzdmfz_5jd,labora_gzdmfz_5gqxz,labora_gzdmfz_5ghjf,labora_gzdmfz_6jd,
labora_gzdmfz_6gqxz,labora_gzdmfz_6ghjf,labora_gzdmzyjg_1jd,labora_gzdmzyjg_1gqxz,
labora_gzdmzyjg_2jd,labora_gzdmzyjg_2gqxz,labora_gzdmzyjg_3jd,labora_gzdmzyjg_3gqxz,
labora_gzdmzyjg_4jd,labora_gzdmzyjg_4gqxz,labora_gzdmzyjg_5jd,labora_gzdmzyjg_5gqxz,
labora_gzdmzyjg_6jd,labora_gzdmzyjg_6gqxz,labora_gmjrzl,
labora_gmjrzl_1bw,labora_gmjrzl_1fs,labora_gmjrzl_2bw,labora_gmjrzl_2fs,labora_gmjrzl_3bw,
labora_gmjrzl_3fs,labora_gmjrzl_4bw,labora_gmjrzl_4fs,labora_jdmcsjc,
labora_yjdm_lm_zchd,labora_yjdm_lm_zdhd,labora_yjdm_fx,labora_yjdm_dmjyd,
labora_zjdm_lm_zchd,labora_zjdm_lm_zdhd,labora_zjdm_fx,labora_zjdm_dmjyd ,
labora_jdmbkjf,labora_xcg_bxbjs,labora_xcg_hxbjs,labora_xcg_xhdbnd,labora_xcg_xxbjs,
labora_jgdbI,labora_zdjql,labora_fz_ycQb,labora_fz_STdzdyd,labora_fz_STdzdyd_fx,
labora_fz_STdzdtg,labora_fz_STdzdtg_fx,labora_fz_Tbyc,labora_fz_xlsc:String;
begin
FFDatamodule.MovePage(dgrdFish.RowLimit);
//patient_id:=IWDBEdit9.Text;
//patient_xys_z:=IWDBEdit9.Text;
//patient_xys_n:=IWDBEdit9.Text;
//patient_xys_jy_n:=IWDBEdit9.Text;
//patient_gxy:=IWDBEdit9.Text;
//patient_gxy_bs:=IWDBEdit9.Text;
//patient_tlb_bs:=IWDBEdit9.Text;
//patient_lxgbs_bs:=IWDBEdit9.Text;
//patient_jzgxb_fbnl:=IWDBEdit9.Text;
//patient_yjs_jjnl:=IWDBEdit9.Text;
//patient_yjs_bjr:=IWDBEdit9.Text;
//patient_yjs_bjz:=IWDBEdit9.Text;
//patient_yjs_hjr:=IWDBEdit9.Text;
//p/atient_yjs_hjz:=IWDBEdit9.Text;
//patient_yjs_pjr:=IWDBEdit9.Text;
//patient_yjs_pjz:=IWDBEdit9.Text;
//patient_bl_id:=IWDBEdit9.Text;
patient_brxl:=IWDBEdit3.Text;
//patient_rxsj:=IWDBEdit3.Text;
patient_xm:=IWDBEdit3.Text;
patient_xb:=IWDBEdit3.Text;
patient_csrq:=IWDBEdit3.Text;
patient_zy:=IWDBEdit3.Text;
patient_gzdw:=IWDBEdit3.Text;
patient_lxdh:=IWDBEdit3.Text;
patient_jtzz:=IWDBEdit9.Text;
patient_whcd:=IWDBEdit9.Text;
patient_zyh:=IWDBEdit9.Text;
patient_sg:=IWDBEdit9.Text;
patient_tz:=IWDBEdit9.Text;
patient_tzzs:=IWDBEdit9.Text;
patient_yw:=IWDBEdit9.Text;
patient_tw:=IWDBEdit9.Text;
patient_ytb:=IWDBEdit9.Text;
patient_xy:=IWDBEdit9.Text;
patient_xl:=IWDBEdit9.Text;
patient_xlzt:=IWDBEdit9.Text;
patient_xys:=IWDBEdit9.Text;
patient_yjs:=IWDBEdit9.Text;
patient_yjs_jjn:=IWDBEdit9.Text;
patient_gxy_zlq_zh:=IWDBEdit9.Text;
patient_gxy_zlq:=IWDBEdit9.Text;
patient_gxy_wcz:=IWDBEdit9.Text;
patient_gxy_wcz_beg:=IWDBEdit9.Text;
patient_gxy_wcz_end:=IWDBEdit9.Text;
patient_tlb:=IWDBEdit9.Text;
patient_tlb_fx:=IWDBEdit9.Text;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -