📄 jgbbztsh.pas
字号:
cell1.DoGetCellData(7, 13, temp[16]);
cell1.DoGetCellData(8, 13, temp[17]);
cell1.DoGetCellData(7, 14, temp[18]);
cell1.DoGetCellData(8, 14, temp[19]);
cell1.DoGetCellData(7, 18, temp[20]);
cell1.DoGetCellData(8, 18, temp[21]);
cell1.DoGetCellData(7, 19, temp[22]);
cell1.DoGetCellData(8, 19, temp[23]);
cell1.DoGetCellData(7, 20, temp[24]);
cell1.DoGetCellData(8, 20, temp[25]);
cell1.DoGetCellData(3, 12, temp[26]);
cell1.DoGetCellData(4, 12, temp[27]);
cell1.DoGetCellData(3, 13, temp[28]);
cell1.DoGetCellData(4, 13, temp[29]);
cell1.DoGetCellData(3, 14, temp[30]);
cell1.DoGetCellData(4, 14, temp[31]);
for i := 0 to 31 do
Ary[i] := temp[i];
end;
procedure TFormJGBbZtsh.Getdata5(const Ary: array of double);
begin
cell1.DoSetCellData(1, 6, Ary[0]);
cell1.DoSetCellData(2, 6, Ary[1]);
cell1.DoSetCellData(1, 7, Ary[2]);
cell1.DoSetCellData(2, 7, Ary[3]);
cell1.DoSetCellData(1, 8, Ary[4]);
cell1.DoSetCellData(2, 8, Ary[5]);
cell1.DoSetCellData(1, 9, Ary[6]);
cell1.DoSetCellData(2, 9, Ary[7]);
cell1.DoSetCellData(4, 6, Ary[8]);
cell1.DoSetCellData(5, 6, Ary[9]);
cell1.DoSetCellData(4, 7, Ary[10]);
cell1.DoSetCellData(5, 7, Ary[11]);
cell1.DoSetCellData(4, 9, Ary[12]);
cell1.DoSetCellData(5, 9, Ary[13]);
cell1.DoSetFormula(1, 10, 'sum(B7:B10)');
cell1.DoSetFormula(2, 10, 'sum(C7:C10)');
cell1.DoSetFormula(4, 10, 'sum(E7:E10)');
cell1.DoSetFormula(5, 10, 'sum(F7:F10)');
cell1.DoSetFormula(7, 6, 'B7-E7');
cell1.DoSetFormula(8, 6, 'C7-F7');
cell1.DoSetFormula(7, 7, 'B8-E8');
cell1.DoSetFormula(8, 7, 'C8-F8');
cell1.DoSetFormula(7, 8, 'B9');
cell1.DoSetFormula(8, 8, 'C9');
cell1.DoSetFormula(7, 9, 'B10-E10');
cell1.DoSetFormula(8, 9, 'C10-F10');
cell1.DoSetFormula(7, 10, 'sum(H7:H10)');
cell1.DoSetFormula(8, 10, 'sum(I7:I10)');
end;
procedure TFormJGBbZtsh.Setdata5(var Ary: array of double);
var
temp: array of olevariant;
i: smallint;
begin
setlength(temp, 14);
cell1.DoGetCellData(1, 6, temp[0]);
cell1.DoGetCellData(2, 6, temp[1]);
cell1.DoGetCellData(1, 7, temp[2]);
cell1.DoGetCellData(2, 7, temp[3]);
cell1.DoGetCellData(1, 8, temp[4]);
cell1.DoGetCellData(2, 8, temp[5]);
cell1.DoGetCellData(1, 9, temp[6]);
cell1.DoGetCellData(2, 9, temp[7]);
cell1.DoGetCellData(4, 6, temp[8]);
cell1.DoGetCellData(5, 6, temp[9]);
cell1.DoGetCellData(4, 7, temp[10]);
cell1.DoGetCellData(5, 7, temp[11]);
cell1.DoGetCellData(4, 9, temp[12]);
cell1.DoGetCellData(5, 9, temp[13]);
for i := 0 to 13 do
Ary[i] := temp[i];
end;
procedure TFormJGBbZtsh.Getdata6(var Ary: array of double);
var
Zhmc, Khyh, Yhzh: string;
i: smallint;
procedure SetCellData(const row: smallint; Ary: array of double);
begin
cell1.DoSetCellData(1, row, Khyh);
cell1.DoSetCellData(2, row, Yhzh);
cell1.DoSetCellData(3, row, Ary[0]);
cell1.DoSetCellData(4, row, Ary[1]);
cell1.DoSetCellData(5, row, Ary[2]);
cell1.DoSetCellData(6, row, Ary[3]);
end;
begin
with DM do
begin
Zhmc := '01'; //住房公积金存款户
P_Zhksyeb(Jtb_Ny, Zhmc);
i := 0;
while not cds_LR.Eof do
begin
Khyh := cds_LR.FieldByName('KHYH').AsString;
Yhzh := cds_LR.FieldByName('YHZH').AsString;
Ary[0] := cds_LR.FieldByName('QCYE').AsFloat;
Ary[1] := cds_LR.FieldByName('SR').AsFloat;
Ary[2] := cds_LR.FieldByName('ZC').AsFloat;
Ary[3] := cds_LR.FieldByName('QMYE').AsFloat;
i := i + 1;
if i > 2 then break;
SetCellData(5 + i, Ary);
cds_LR.Next;
end;
Zhmc := '04'; //住房公积金委托贷款基金户
P_Zhksyeb(Jtb_Ny, Zhmc);
i := 0;
while not cds_LR.Eof do
begin
Khyh := cds_LR.FieldByName('KHYH').AsString;
Yhzh := cds_LR.FieldByName('YHZH').AsString;
Ary[0] := cds_LR.FieldByName('QCYE').AsFloat;
Ary[1] := cds_LR.FieldByName('SR').AsFloat;
Ary[2] := cds_LR.FieldByName('ZC').AsFloat;
Ary[3] := cds_LR.FieldByName('QMYE').AsFloat;
i := i + 1;
if i > 4 then break;
SetCellData(7 + i, Ary);
cds_LR.Next;
end;
Zhmc := '02'; //住房公积金结算户
P_Zhksyeb(Jtb_Ny, Zhmc);
i := 0;
while not cds_LR.Eof do
begin
Khyh := cds_LR.FieldByName('KHYH').AsString;
Yhzh := cds_LR.FieldByName('YHZH').AsString;
Ary[0] := cds_LR.FieldByName('QCYE').AsFloat;
Ary[1] := cds_LR.FieldByName('SR').AsFloat;
Ary[2] := cds_LR.FieldByName('ZC').AsFloat;
Ary[3] := cds_LR.FieldByName('QMYE').AsFloat;
i := i + 1;
if i > 2 then break;
SetCellData(11 + i, Ary);
cds_LR.Next;
end;
Zhmc := '03'; //住房公积金增值收益存款户
P_Zhksyeb(Jtb_Ny, Zhmc);
i := 0;
while not cds_LR.Eof do
begin
Khyh := cds_LR.FieldByName('KHYH').AsString;
Yhzh := cds_LR.FieldByName('YHZH').AsString;
Ary[0] := cds_LR.FieldByName('QCYE').AsFloat;
Ary[1] := cds_LR.FieldByName('SR').AsFloat;
Ary[2] := cds_LR.FieldByName('ZC').AsFloat;
Ary[3] := cds_LR.FieldByName('QMYE').AsFloat;
i := i + 1;
if i > 2 then break;
SetCellData(13 + i, Ary);
cds_LR.Next;
end;
cell1.DoSetFormula(3, 16, 'sum(D7:D16)');
cell1.DoSetFormula(4, 16, 'sum(E7:E16)');
cell1.DoSetFormula(5, 16, 'sum(F7:F16)');
cell1.DoSetFormula(6, 16, 'sum(G7:G16)');
end;
end;
function TFormJGBbZtsh.Setdata6: smallint;
var
temp: array of Olevariant;
Ary: array of double;
i, j: smallint;
Zhmc, Khyh, Yhzh: string;
Khyh1, Yhzh1: Olevariant;
begin
setlength(temp, 4);
setlength(Ary, 4);
result := 5;
with DM do
begin
for j := 1 to 10 do
begin
case j of
1, 2: Zhmc := '01';
3..6: Zhmc := '04';
7, 8: Zhmc := '02';
9, 10: Zhmc := '03';
end;
cell1.DoGetCellData(1, 5 + j, Khyh1);
cell1.DoGetCellData(2, 5 + j, Yhzh1);
cell1.DoGetCellData(3, 5 + j, temp[0]);
cell1.DoGetCellData(4, 5 + j, temp[1]);
cell1.DoGetCellData(5, 5 + j, temp[2]);
cell1.DoGetCellData(6, 5 + j, temp[3]);
Khyh := Khyh1;
Yhzh := Yhzh1;
if (trim(Khyh) = '') or (trim(Yhzh) = '') then continue;
if (not IsNum(Khyh)) or (not IsNum(Yhzh)) then
begin
showmessage('开户银行、银行帐号，请输入数字字符');
result := 5;
break;
end;
for i := 0 to 3 do
Ary[i] := temp[i];
result := F_Zhksyeb_Save(Jtb_Ny, Zhmc, padl(trim(Khyh), 2, '0'), trim(Yhzh), Ary);
if result <> 0 then break;
end;
end;
end;
procedure TFormJGBbZtsh.Getdata7;
var
Ary: array of double;
Ary0: array of integer;
begin
setlength(Ary, 32);
setlength(Ary0, 5);
with DM do
begin
P_Zfgjjtjb(Jtb_Ny);
cds_LR.First;
Ary0[0] := cds_LR.FieldByName('BQYJZGS').AsInteger;
Ary0[1] := cds_LR.FieldByName('BQSJZGS').AsInteger;
Ary0[2] := cds_LR.FieldByName('GRDKBQFDHS').AsInteger;
Ary0[3] := cds_LR.FieldByName('GRDKSQMLJFDHS').AsInteger;
Ary0[4] := cds_LR.FieldByName('BQMYQDKHS').AsInteger;
Ary[0] := cds_LR.FieldByName('DWJCBL').AsFloat;
Ary[1] := cds_LR.FieldByName('GRJCBL').AsFloat;
Ary[2] := cds_LR.FieldByName('SQMJCYE').AsFloat;
Ary[3] := cds_LR.FieldByName('BQYJCE').AsFloat;
Ary[4] := cds_LR.FieldByName('BQSJCE').AsFloat;
Ary[5] := cds_LR.FieldByName('BQGRTQE').AsFloat;
Ary[6] := cds_LR.FieldByName('BQMGRTQE').AsFloat;
Ary[7] := cds_LR.FieldByName('JZLX').AsFloat;
Ary[8] := cds_LR.FieldByName('BQMJCZE').AsFloat;
Ary[9] := cds_LR.FieldByName('BQMJCYE').AsFloat;
Ary[10] := cds_LR.FieldByName('BNYWSR').AsFloat;
Ary[11] := cds_LR.FieldByName('BNYWZC').AsFloat;
Ary[12] := cds_LR.FieldByName('BNZZSY').AsFloat;
Ary[13] := cds_LR.FieldByName('BNGLFY').AsFloat;
Ary[14] := cds_LR.FieldByName('BNMFXZBJZE').AsFloat;
Ary[15] := cds_LR.FieldByName('BNMFXZBJYE').AsFloat;
Ary[16] := cds_LR.FieldByName('BNMZFBCZJZE').AsFloat;
Ary[17] := cds_LR.FieldByName('BNMZFBCZJYE').AsFloat;
Ary[18] := cds_LR.FieldByName('GRDKSQMYE').AsFloat;
Ary[19] := cds_LR.FieldByName('GRDKBQFFE').AsFloat;
Ary[20] := cds_LR.FieldByName('GRDKBQHSE').AsFloat;
Ary[21] := cds_LR.FieldByName('GRDKBQMDKZE').AsFloat;
Ary[22] := cds_LR.FieldByName('GRDKBQMDKYE').AsFloat;
Ary[23] := cds_LR.FieldByName('GRDKYQDKE').AsFloat;
Ary[24] := cds_LR.FieldByName('QTDKSQMDKYE').AsFloat;
Ary[25] := cds_LR.FieldByName('QTDKBQFFE').AsFloat;
Ary[26] := cds_LR.FieldByName('QTDKBQHSE').AsFloat;
Ary[27] := cds_LR.FieldByName('QTDKBQMDKZE').AsFloat;
Ary[28] := cds_LR.FieldByName('QTDKBQMDKYE').AsFloat;
Ary[29] := cds_LR.FieldByName('QTDKYQE').AsFloat;
Ary[30] := cds_LR.FieldByName('BQGZGME').AsFloat;
Ary[31] := cds_LR.FieldByName('BQMGZYE').AsFloat;
cell1.DoSetCellData(3, 12, Ary0[0]);
cell1.DoSetCellData(3, 13, Ary0[1]);
cell1.DoSetCellData(7, 21, Ary0[2]);
cell1.DoSetCellData(7, 22, Ary0[3]);
cell1.DoSetCellData(7, 23, Ary0[4]);
cell1.DoSetCellData(3, 10, Ary[0]);
cell1.DoSetCellData(3, 11, Ary[1]);
cell1.DoSetCellData(3, 14, Ary[2]);
cell1.DoSetCellData(3, 15, Ary[3]);
cell1.DoSetCellData(3, 16, Ary[4]);
cell1.DoSetCellData(3, 17, Ary[5]);
cell1.DoSetCellData(3, 18, Ary[6]);
cell1.DoSetCellData(3, 19, Ary[7]);
cell1.DoSetCellData(3, 20, Ary[8]);
cell1.DoSetCellData(3, 21, Ary[9]);
cell1.DoSetCellData(3, 23, Ary[10]);
cell1.DoSetCellData(3, 24, Ary[11]);
cell1.DoSetCellData(3, 25, Ary[12]);
cell1.DoSetCellData(3, 26, Ary[13]);
cell1.DoSetCellData(3, 27, Ary[14]);
cell1.DoSetCellData(3, 28, Ary[15]);
cell1.DoSetCellData(3, 29, Ary[16]);
cell1.DoSetCellData(3, 30, Ary[17]);
cell1.DoSetCellData(7, 15, Ary[18]);
cell1.DoSetCellData(7, 16, Ary[19]);
cell1.DoSetCellData(7, 17, Ary[20]);
cell1.DoSetCellData(7, 18, Ary[21]);
cell1.DoSetCellData(7, 19, Ary[22]);
cell1.DoSetCellData(7, 20, Ary[23]);
cell1.DoSetCellData(7, 24, Ary[24]);
cell1.DoSetCellData(7, 25, Ary[25]);
cell1.DoSetCellData(7, 26, Ary[26]);
cell1.DoSetCellData(7, 27, Ary[27]);
cell1.DoSetCellData(7, 28, Ary[28]);
cell1.DoSetCellData(7, 29, Ary[29]);
cell1.DoSetCellData(7, 30, Ary[30]);
cell1.DoSetCellData(7, 31, Ary[31]);
cell1.DoSetFormula(7, 10, 'H16+H25');
cell1.DoSetFormula(7, 11, 'H17+H26');
cell1.DoSetFormula(7, 12, 'H18+H27');
cell1.DoSetFormula(7, 13, 'H20+H29');
cell1.DoSetFormula(7, 14, 'H21+H30');
end;
end;
function TFormJGBbZtsh.Setdata7: smallint;
var
temp: array of olevariant;
Ary: array of double;
Ary0: array of integer;
i: smallint;
begin
setlength(temp, 37);
setlength(Ary, 32);
setlength(Ary0, 5);
cell1.DoGetCellData(3, 10, temp[0]);
cell1.DoGetCellData(3, 11, temp[1]);
cell1.DoGetCellData(3, 14, temp[2]);
cell1.DoGetCellData(3, 15, temp[3]);
cell1.DoGetCellData(3, 16, temp[4]);
cell1.DoGetCellData(3, 17, temp[5]);
cell1.DoGetCellData(3, 18, temp[6]);
cell1.DoGetCellData(3, 19, temp[7]);
cell1.DoGetCellData(3, 20, temp[8]);
cell1.DoGetCellData(3, 21, temp[9]);
cell1.DoGetCellData(3, 23, temp[10]);
cell1.DoGetCellData(3, 24, temp[11]);
cell1.DoGetCellData(3, 25, temp[12]);
cell1.DoGetCellData(3, 26, temp[13]);
cell1.DoGetCellData(3, 27, temp[14]);
cell1.DoGetCellData(3, 28, temp[15]);
cell1.DoGetCellData(3, 29, temp[16]);
cell1.DoGetCellData(3, 30, temp[17]);
cell1.DoGetCellData(7, 15, temp[18]);
cell1.DoGetCellData(7, 16, temp[19]);
cell1.DoGetCellData(7, 17, temp[20]);
cell1.DoGetCellData(7, 18, temp[21]);
cell1.DoGetCellData(7, 19, temp[22]);
cell1.DoGetCellData(7, 20, temp[23]);
cell1.DoGetCellData(7, 24, temp[24]);
cell1.DoGetCellData(7, 25, temp[25]);
cell1.DoGetCellData(7, 26, temp[26]);
cell1.DoGetCellData(7, 27, temp[27]);
cell1.DoGetCellData(7, 28, temp[28]);
cell1.DoGetCellData(7, 29, temp[29]);
cell1.DoGetCellData(7, 30, temp[30]);
cell1.DoGetCellData(7, 31, temp[31]);
cell1.DoGetCellData(3, 12, temp[32]);
cell1.DoGetCellData(3, 13, temp[33]);
cell1.DoGetCellData(7, 21, temp[34]);
cell1.DoGetCellData(7, 22, temp[35]);
cell1.DoGetCellData(7, 23, temp[36]);
for i := 0 to 31 do
Ary[i] := temp[i];
for i := 0 to 4 do
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -