⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 pub_rep.pas

📁 工程预算系统
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
  array_dyxx[19]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep19').AsString;
  array_dyxx[20]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep20').AsString;
  array_dyxx[21]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep21').AsString;
  array_dyxx[22]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep22').AsString;
  array_dyxx[23]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep23').AsString;
  array_dyxx[24]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep24').AsString;
  array_dyxx[25]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep25').AsString;
  array_dyxx[26]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep26').AsString;
  array_dyxx[27]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep27').AsString;
  array_dyxx[28]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep28').AsString;
  array_dyxx[29]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep29').AsString;
  array_dyxx[30]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep30').AsString;
  array_dyxx[31]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep31').AsString;
  array_dyxx[32]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep32').AsString;
  array_dyxx[33]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep33').AsString;
  array_dyxx[34]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep34').AsString;
  array_dyxx[35]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep35').AsString;
  array_dyxx[36]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep36').AsString;
  array_dyxx[37]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep37').AsString;
  array_dyxx[38]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep38').AsString;
  array_dyxx[39]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep39').AsString;
  array_dyxx[40]:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('rep40').AsString;

end;
//end

{给stringgrid赋值}
procedure setxx(strid:string;mygrid:TStringGrid);
var
  strSQL:string;
  r,c:integer;
  nc:integer;
begin
  for r:=0 to mygrid.RowCount-1 do
  begin
    for c:=0 to mygrid.ColCount-1 do
      mygrid.Cells[c,r]:='';
  end;
  mygrid.RowCount:=strtoint(array_jbxx[44])+5;
  mygrid.ColCount:=strtoint(array_jbxx[45]);
  mygrid.ColWidths[0]:=40;
  strSQL:='select * from repgrid where id='+strid;
  RunSQL((getactiveform as TFrm_ys).ADOQry_rep,strSQL,0);
  (getactiveform as TFrm_ys).ADOQry_rep.First;
  While not (getactiveform as TFrm_ys).ADOQry_rep.Eof do
  begin
       for nc:=1 to mygrid.ColCount-1 do
       begin
         case nc of
           1: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col1').AsString));
           2: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col2').AsString));
           3: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col3').AsString));
           4: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col4').AsString));
           5: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col5').AsString));
           6: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col6').AsString));
           7: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col7').AsString));
           8: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col8').AsString));
           9: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col9').AsString));
           10: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col10').AsString));
           11: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col11').AsString));
           12: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col12').AsString));
           13: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col13').AsString));
           14: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col14').AsString));
           15: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col15').AsString));
           16: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col16').AsString));
           17: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col17').AsString));
           18: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col18').AsString));
           19: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col19').AsString));
           20: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col20').AsString));
           21: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col21').AsString));
           22: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col22').AsString));
           23: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col23').AsString));
           24: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col24').AsString));
           25: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col25').AsString));
           26: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col26').AsString));
           27: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col27').AsString));
           28: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col28').AsString));
           29: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col29').AsString));
           30: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col30').AsString));
           31: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col31').AsString));
           32: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col32').AsString));
           33: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col33').AsString));
           34: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col34').AsString));
           35: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col35').AsString));
           36: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col36').AsString));
           37: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col37').AsString));
           38: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col38').AsString));
           39: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col39').AsString));
           40: mygrid.ColWidths[nc]:=getgridcolwidth(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col40').AsString));
         end;
       end;

       mygrid.Cells[1,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col1').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col1').AsString));
       mygrid.Cells[2,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col2').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col2').AsString));
       mygrid.Cells[3,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col3').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col3').AsString));
       mygrid.Cells[4,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col4').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col4').AsString));
       mygrid.Cells[5,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col5').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col5').AsString));
       mygrid.Cells[6,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col6').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col6').AsString));
       mygrid.Cells[7,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col7').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col7').AsString));
       mygrid.Cells[8,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col8').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col8').AsString));
       mygrid.Cells[9,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col9').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col9').AsString));
       mygrid.Cells[10,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col10').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col10').AsString));
       mygrid.Cells[11,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col11').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col11').AsString));
       mygrid.Cells[12,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col12').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col12').AsString));
       mygrid.Cells[13,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col13').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col13').AsString));
       mygrid.Cells[14,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col14').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col14').AsString));
       mygrid.Cells[15,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col15').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col15').AsString));
       mygrid.Cells[16,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col16').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col16').AsString));
       mygrid.Cells[17,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col17').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col17').AsString));
       mygrid.Cells[18,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col18').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col18').AsString));
       mygrid.Cells[19,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col19').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col19').AsString));
       mygrid.Cells[20,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col20').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col20').AsString));
       mygrid.Cells[21,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col21').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col21').AsString));
       mygrid.Cells[22,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col22').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col22').AsString));
       mygrid.Cells[23,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col23').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col23').AsString));
       mygrid.Cells[24,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col24').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col24').AsString));
       mygrid.Cells[25,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col25').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col25').AsString));
       mygrid.Cells[26,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col26').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col26').AsString));
       mygrid.Cells[27,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col27').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col27').AsString));
       mygrid.Cells[28,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col28').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col28').AsString));
       mygrid.Cells[29,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col29').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col29').AsString));
       mygrid.Cells[30,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col30').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col30').AsString));
       mygrid.Cells[31,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col31').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col31').AsString));
       mygrid.Cells[32,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col32').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col32').AsString));
       mygrid.Cells[33,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col33').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col33').AsString));
       mygrid.Cells[34,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col34').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col34').AsString));
       mygrid.Cells[35,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col35').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col35').AsString));
       mygrid.Cells[36,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col36').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col36').AsString));
       mygrid.Cells[37,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col37').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col37').AsString));
       mygrid.Cells[38,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col38').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col38').AsString));
       mygrid.Cells[39,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col39').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col39').AsString));
       mygrid.Cells[40,getgridrow(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col40').AsString))]:=getgridstr(Trim((getactiveform as TFrm_ys).ADOQry_rep.FieldByName('col40').AsString));
       (getactiveform as TFrm_ys).ADOQry_rep.Next;
  end;

end;

{取得万用表的数据}
procedure getwyb(strid:string);
var
  strSQL:string;
  lwyb:Tjc_rcj;
  wyb:Tjc_rcj;
  tmplist:Tobjectlist;
  i,j:integer;
begin
  j:=1;
  wyblist:=TObjectList.Create(True);
  tmplist:=Tobjectlist.Create(True);
  strSQL:='select * from wyb where id='+strid;
  RunSQL((getactiveform as TFrm_ys).ADOQry_rep,strSQL,0);
  (getactiveform as TFrm_ys).ADOQry_rep.First;
  While not (getactiveform as TFrm_ys).ADOQry_rep.Eof do
  begin
    lwyb:=Tjc_rcj.Create;
    lwyb.column1:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('xh').AsString;
    lwyb.column2:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('A0').AsString;
    lwyb.column3:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('A').AsString;
    lwyb.column4:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('B').AsString;
    lwyb.column5:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('C').AsString;
    lwyb.column6:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('D').AsString;
    lwyb.column7:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('E').AsString;
    lwyb.column8:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('F').AsString;
    lwyb.column9:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('G').AsString;
    lwyb.column10:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('H').AsString;
    lwyb.column11:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('I').AsString;
    lwyb.column12:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('J').AsString;
    lwyb.column13:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('K').AsString;
    lwyb.column14:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('L').AsString;
    lwyb.column15:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('M').AsString;
    lwyb.column16:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('N').AsString;
    lwyb.column17:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('O').AsString;
    lwyb.column18:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('P').AsString;
    lwyb.column19:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('Q').AsString;
    lwyb.column20:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('R').AsString;
    lwyb.column21:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('S').AsString;
    lwyb.column22:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('T').AsString;
    lwyb.column23:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('U').AsString;
    lwyb.column24:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('V').AsString;
    lwyb.column25:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('W').AsString;
    lwyb.column26:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('X').AsString;
    lwyb.column27:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('Y').AsString;
    lwyb.column28:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('Z').AsString;

    tmplist.Add(lwyb);
    (getactiveform as TFrm_ys).ADOQry_rep.Next;
  end;

  for i:=0 to tmplist.Count-1 do
  begin
    lwyb:=Tjc_rcj(tmplist.Items[i]);
    if Trim(lwyb.column2)='√' then
    begin
      wyb:=Tjc_rcj.Create;
      wyb.column1:=inttostr(j);
      wyb.column2:=lwyb.column2;
      wyb.column3:=lwyb.column3;
      wyb.column4:=lwyb.column4;
      wyb.column5:=lwyb.column5;
      wyb.column6:=lwyb.column6;
      wyb.column7:=lwyb.column7;
      wyb.column8:=lwyb.column8;
      wyb.column9:=lwyb.column9;
      wyb.column10:=lwyb.column10;
      wyb.column11:=lwyb.column11;
      wyb.column12:=lwyb.column12;
      wyb.column13:=lwyb.column13;
      wyb.column14:=lwyb.column14;
      wyb.column15:=lwyb.column15;
      wyb.column16:=lwyb.column16;
      wyb.column17:=lwyb.column17;
      wyb.column18:=lwyb.column18;
      wyb.column19:=lwyb.column19;
      wyb.column20:=lwyb.column20;
      wyb.column21:=lwyb.column21;
      wyb.column22:=lwyb.column22;
      wyb.column23:=lwyb.column23;
      wyb.column24:=lwyb.column24;
      wyb.column25:=lwyb.column25;
      wyb.column26:=lwyb.column26;
      wyb.column27:=lwyb.column27;
      wyb.column28:=lwyb.column28;

      wyblist.Add(wyb);
      inc(j);
    end;
  end;
end;

{取得自由表的数据}
procedure getzyb(strid:string);
var
  strSQL:string;
  lzyb:Tjc_rcj;
begin
  zyblist:=TObjectlist.Create(True);
  strSQL:='select * from zyb where id='+strid;
  RunSQL((getactiveform as TFrm_ys).ADOQry_rep,strSQL,0);
  (getactiveform as TFrm_ys).ADOQry_rep.First;
  While not (getactiveform as TFrm_ys).ADOQry_rep.Eof do
  begin
    lzyb:=Tjc_rcj.Create;
    lzyb.column1:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('xh').AsString;
    lzyb.column2:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('zt').AsString;
    lzyb.column3:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('zh').AsString;
    lzyb.column4:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('dj').AsString;
    lzyb.column5:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('zbj').AsString;
    lzyb.column6:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('sbj').AsString;
    lzyb.column7:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('zfc').AsString;
    lzyb.column8:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('ys').AsString;
    lzyb.column9:=(getactiveform as TFrm_ys).ADOQry_rep.FieldByName('xhx').AsString;
    zyblist.Add(lzyb);
    (getactiveform as TFrm_ys).ADOQry_rep.Next;
  end;
end;

  {取得对齐方式}
function getalignment(mygrid:TStringGrid;nr:integer):integer;
var
  ntmp:integer;
begin
  ntmp:=0;
  if mygrid.Cells[nr,2]='0' then
    ntmp:=8
  else if mygrid.Cells[nr,2]='1' then
    ntmp:=9
  else if mygrid.Cells[nr,2]='2' then
    ntmp:=10
  else if mygrid.Cells[nr,2]='' then
    ntmp:=8;
    Result:=ntmp;
end;

  {取得报表的表头标题列的名称}
function gettitle(str:string):string;
var
  npos:integer;
  strtemp:string;
begin
  if Length(str)>0 then
  begin
     npos :=pos('^',str);
     if npos<>0 then
       strtemp :=copy(str,1,npos-1)
     else
       strtemp :=str;
  end
  else
    strtemp :='';
  Result:=replacehome(strtemp);
end;

  {取得报表标题向上的高度系数}
function getheightup(str:string):integer;
var
  npos:integer;
  nlen:integer;
  nup:integer;
  ntemp:integer;
  strtemp:string;
  strtmp:string;
begin
  ntemp:=0;
  nlen:=Length(str);
  if nlen>0 then
  begin
    npos :=pos('^',str);
    if npos<>0 then
    begin
      strtemp :=copy(str,npos+1,nlen);
      nup:=pos('s',strtemp);
      if nup<>0 then
      begin
        strtmp:=copy(strtemp,nup+1,1);
        try
          ntemp:=strtoint(strtmp);
        except
          ntemp:=0;
        end;
      end
      else
        ntemp:=0;
      end;
  end
  else
    ntemp:=0;

  Result:=ntemp;  
end;

{取得报表标题向下的高度系数}
function getheightdown(str:string):integer;
var
  npos:integer;
  nlen:integer;
  ndown:integer;
  ntemp:integer;
  strtemp:string;
  strtmp:string;
begin
  ntemp:=0;
  nlen:=Length(str);
  if nlen>0 then
  begin
    npos :=pos('^',str);
    if npos<>0 then
    begin
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -