Q&A
- 텍스트 읽어서 퀵 리포터에 바로 뿌리기..페이지 스킵 되게..
unit didim_main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm_Main = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_Main: TForm_Main;
implementation
uses Didim_in_list;
{$R *.DFM}
procedure TForm_Main.Button1Click(Sender: TObject);
type
TDb_Rec = record
slocal_nm:string[31];
sloc_cd:string[2];
sschl_nm:string[14];
sschl_cd1:string[2];
sschl_cd2:string[2];
end;
var
I,K,Cnt,j,kk : Integer;
local_nm,loc_cd,school_nm,schl_cd,schl_cd1,schl_cd2 : string;
//tst_levl, cust_ban, sex, home_phone, addr1, addr2, birth1, birth2, receipt, receipt_day :string;
Db_Rec : Array[0..248] of TDb_Rec;
Total: Integer;
No, Grde, Ban, Sex, Brth, Name : string;
FP : Textfile;
Buf : String;
begin
j := 0;
Cnt := 0;
if OpenDialog1.Execute then
begin
AssignFile(FP,OpenDialog1.FileName);
Reset(FP);
While not Eof(FP) do
Begin
local_nm :=''; loc_cd :=''; school_nm :=''; schl_cd :=''; schl_cd1 :=''; schl_cd2:='';
Readln(FP,Buf);
K:=0;
for I:=1 to Length(buf) do
if buf[I] = ',' then
K := K + 1
else if K = 4 then
break
else if K = 0 then
local_nm := local_nm + Buf[i]
else if K = 1 then
loc_cd := loc_cd + buf[i]
else if K = 2 then
school_nm := school_nm + buf[i]
else if K = 3 then
schl_cd := schl_cd + buf[i];
local_nm := Trim(local_nm);
loc_cd := Trim(loc_cd);
school_nm := Trim(school_nm);
schl_cd1 := copy(Trim(schl_cd),1,2);
schl_cd2 := copy(Trim(schl_cd),4,2);
Db_Rec[Cnt].slocal_nm := local_nm;
Db_Rec[Cnt].sloc_cd := loc_cd;
Db_Rec[Cnt].sschl_nm := school_nm;
Db_Rec[Cnt].sschl_cd1 := schl_cd1;
Db_Rec[Cnt].sschl_cd2 := schl_cd2;
Cnt := Cnt + 1;
end;
end;
CloseFile(FP);
if (form_Qre_in = nil) or (not Form_Qre_in.handleAllocated)then
form_Qre_in := Tform_Qre_in.create(Application);
for i:=0 to Cnt do
begin
if Db_Rec[i].slocal_nm <> '' then
local_nm := Db_Rec[i].slocal_nm;
loc_cd := Db_Rec[i].sloc_cd;
school_nm := Db_Rec[i].sschl_nm;
schl_cd := Db_Rec[i].sschl_cd1 + Db_Rec[i].sschl_cd2;
Form_Qre_in.QRLabel4.Caption := local_nm;
Form_Qre_in.QRLabel5.Caption := school_nm;
Form_Qre_in.QRLabel6.Caption := '(3학년용)';
Form_Qre_in.QR12.Caption := schl_cd + '-13-' + '001';
Form_Qre_in.QR22.Caption := schl_cd + '-13-' + '002';
Form_Qre_in.QR32.Caption := schl_cd + '-13-' + '003';
Form_Qre_in.QR42.Caption := schl_cd + '-13-' + '004';
Form_Qre_in.QR52.Caption := schl_cd + '-13-' + '005';
Form_Qre_in.QR62.Caption := schl_cd + '-13-' + '006';
Form_Qre_in.QR72.Caption := schl_cd + '-13-' + '007';
Form_Qre_in.QR82.Caption := schl_cd + '-13-' + '008';
Form_Qre_in.QR92.Caption := schl_cd + '-13-' + '009';
Form_Qre_in.QR102.Caption := schl_cd + '-13-' + '010';
Form_Qre_in.QR112.Caption := schl_cd + '-13-' + '011';
Form_Qre_in.QR122.Caption := schl_cd + '-13-' + '012';
Form_Qre_in.QR132.Caption := schl_cd + '-13-' + '013';
Form_Qre_in.QR142.Caption := schl_cd + '-13-' + '014';
Form_Qre_in.QR152.Caption := schl_cd + '-13-' + '015';
Form_Qre_in.QR162.Caption := schl_cd + '-13-' + '016';
Form_Qre_in.QR172.Caption := schl_cd + '-13-' + '017';
Form_Qre_in.QR182.Caption := schl_cd + '-13-' + '018';
Form_Qre_in.QR192.Caption := schl_cd + '-13-' + '019';
Form_Qre_in.QR202.Caption := schl_cd + '-13-' + '020';
Form_Qre_in.QR212.Caption := schl_cd + '-13-' + '021';
Form_Qre_in.QR222.Caption := schl_cd + '-13-' + '022';
Form_Qre_in.QR232.Caption := schl_cd + '-13-' + '023';
Form_Qre_in.QR242.Caption := schl_cd + '-13-' + '024';
Form_Qre_in.QR252.Caption := schl_cd + '-13-' + '025';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QR11.Caption := '26';
Form_Qre_in.QR21.Caption := '27';
Form_Qre_in.QR31.Caption := '28';
Form_Qre_in.QR41.Caption := '29';
Form_Qre_in.QR51.Caption := '30';
Form_Qre_in.QR61.Caption := '31';
Form_Qre_in.QR71.Caption := '32';
Form_Qre_in.QR81.Caption := '33';
Form_Qre_in.QR91.Caption := '34';
Form_Qre_in.QR101.Caption := '35';
Form_Qre_in.QR111.Caption := '36';
Form_Qre_in.QR121.Caption := '37';
Form_Qre_in.QR131.Caption := '38';
Form_Qre_in.QR141.Caption := '39';
Form_Qre_in.QR151.Caption := '40';
Form_Qre_in.QR161.Caption := '41';
Form_Qre_in.QR171.Caption := '42';
Form_Qre_in.QR181.Caption := '43';
Form_Qre_in.QR191.Caption := '44';
Form_Qre_in.QR201.Caption := '45';
Form_Qre_in.QR211.Caption := '46';
Form_Qre_in.QR221.Caption := '47';
Form_Qre_in.QR231.Caption := '48';
Form_Qre_in.QR241.Caption := '49';
Form_Qre_in.QR251.Caption := '50';
Form_Qre_in.QR12.Caption := schl_cd + '-13-' + '026';
Form_Qre_in.QR22.Caption := schl_cd + '-13-' + '027';
Form_Qre_in.QR32.Caption := schl_cd + '-13-' + '028';
Form_Qre_in.QR42.Caption := schl_cd + '-13-' + '029';
Form_Qre_in.QR52.Caption := schl_cd + '-13-' + '030';
Form_Qre_in.QR62.Caption := schl_cd + '-13-' + '031';
Form_Qre_in.QR72.Caption := schl_cd + '-13-' + '032';
Form_Qre_in.QR82.Caption := schl_cd + '-13-' + '033';
Form_Qre_in.QR92.Caption := schl_cd + '-13-' + '034';
Form_Qre_in.QR102.Caption := schl_cd + '-13-' + '035';
Form_Qre_in.QR112.Caption := schl_cd + '-13-' + '036';
Form_Qre_in.QR122.Caption := schl_cd + '-13-' + '037';
Form_Qre_in.QR132.Caption := schl_cd + '-13-' + '038';
Form_Qre_in.QR142.Caption := schl_cd + '-13-' + '039';
Form_Qre_in.QR152.Caption := schl_cd + '-13-' + '040';
Form_Qre_in.QR162.Caption := schl_cd + '-13-' + '041';
Form_Qre_in.QR172.Caption := schl_cd + '-13-' + '042';
Form_Qre_in.QR182.Caption := schl_cd + '-13-' + '043';
Form_Qre_in.QR192.Caption := schl_cd + '-13-' + '044';
Form_Qre_in.QR202.Caption := schl_cd + '-13-' + '045';
Form_Qre_in.QR212.Caption := schl_cd + '-13-' + '046';
Form_Qre_in.QR222.Caption := schl_cd + '-13-' + '047';
Form_Qre_in.QR232.Caption := schl_cd + '-13-' + '048';
Form_Qre_in.QR242.Caption := schl_cd + '-13-' + '049';
Form_Qre_in.QR252.Caption := schl_cd + '-13-' + '050';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QRLabel6.Caption := '(4학년용)';
Form_Qre_in.QR11.Caption := '1';
Form_Qre_in.QR21.Caption := '2';
Form_Qre_in.QR31.Caption := '3';
Form_Qre_in.QR41.Caption := '4';
Form_Qre_in.QR51.Caption := '5';
Form_Qre_in.QR61.Caption := '6';
Form_Qre_in.QR71.Caption := '7';
Form_Qre_in.QR81.Caption := '8';
Form_Qre_in.QR91.Caption := '9';
Form_Qre_in.QR101.Caption := '10';
Form_Qre_in.QR111.Caption := '11';
Form_Qre_in.QR121.Caption := '12';
Form_Qre_in.QR131.Caption := '13';
Form_Qre_in.QR141.Caption := '14';
Form_Qre_in.QR151.Caption := '15';
Form_Qre_in.QR161.Caption := '16';
Form_Qre_in.QR171.Caption := '17';
Form_Qre_in.QR181.Caption := '18';
Form_Qre_in.QR191.Caption := '19';
Form_Qre_in.QR201.Caption := '20';
Form_Qre_in.QR211.Caption := '21';
Form_Qre_in.QR221.Caption := '22';
Form_Qre_in.QR231.Caption := '23';
Form_Qre_in.QR241.Caption := '24';
Form_Qre_in.QR251.Caption := '25';
Form_Qre_in.QR12.Caption := schl_cd + '-14-' + '001';
Form_Qre_in.QR22.Caption := schl_cd + '-14-' + '002';
Form_Qre_in.QR32.Caption := schl_cd + '-14-' + '003';
Form_Qre_in.QR42.Caption := schl_cd + '-14-' + '004';
Form_Qre_in.QR52.Caption := schl_cd + '-14-' + '005';
Form_Qre_in.QR62.Caption := schl_cd + '-14-' + '006';
Form_Qre_in.QR72.Caption := schl_cd + '-14-' + '007';
Form_Qre_in.QR82.Caption := schl_cd + '-14-' + '008';
Form_Qre_in.QR92.Caption := schl_cd + '-14-' + '009';
Form_Qre_in.QR102.Caption := schl_cd + '-14-' + '010';
Form_Qre_in.QR112.Caption := schl_cd + '-14-' + '011';
Form_Qre_in.QR122.Caption := schl_cd + '-14-' + '012';
Form_Qre_in.QR132.Caption := schl_cd + '-14-' + '013';
Form_Qre_in.QR142.Caption := schl_cd + '-14-' + '014';
Form_Qre_in.QR152.Caption := schl_cd + '-14-' + '015';
Form_Qre_in.QR162.Caption := schl_cd + '-14-' + '016';
Form_Qre_in.QR172.Caption := schl_cd + '-14-' + '017';
Form_Qre_in.QR182.Caption := schl_cd + '-14-' + '018';
Form_Qre_in.QR192.Caption := schl_cd + '-14-' + '019';
Form_Qre_in.QR202.Caption := schl_cd + '-14-' + '020';
Form_Qre_in.QR212.Caption := schl_cd + '-14-' + '021';
Form_Qre_in.QR222.Caption := schl_cd + '-14-' + '022';
Form_Qre_in.QR232.Caption := schl_cd + '-14-' + '023';
Form_Qre_in.QR242.Caption := schl_cd + '-14-' + '024';
Form_Qre_in.QR252.Caption := schl_cd + '-14-' + '025';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QR11.Caption := '26';
Form_Qre_in.QR21.Caption := '27';
Form_Qre_in.QR31.Caption := '28';
Form_Qre_in.QR41.Caption := '29';
Form_Qre_in.QR51.Caption := '30';
Form_Qre_in.QR61.Caption := '31';
Form_Qre_in.QR71.Caption := '32';
Form_Qre_in.QR81.Caption := '33';
Form_Qre_in.QR91.Caption := '34';
Form_Qre_in.QR101.Caption := '35';
Form_Qre_in.QR111.Caption := '36';
Form_Qre_in.QR121.Caption := '37';
Form_Qre_in.QR131.Caption := '38';
Form_Qre_in.QR141.Caption := '39';
Form_Qre_in.QR151.Caption := '40';
Form_Qre_in.QR161.Caption := '41';
Form_Qre_in.QR171.Caption := '42';
Form_Qre_in.QR181.Caption := '43';
Form_Qre_in.QR191.Caption := '44';
Form_Qre_in.QR201.Caption := '45';
Form_Qre_in.QR211.Caption := '46';
Form_Qre_in.QR221.Caption := '47';
Form_Qre_in.QR231.Caption := '48';
Form_Qre_in.QR241.Caption := '49';
Form_Qre_in.QR251.Caption := '50';
Form_Qre_in.QR12.Caption := schl_cd + '-14-' + '026';
Form_Qre_in.QR22.Caption := schl_cd + '-14-' + '027';
Form_Qre_in.QR32.Caption := schl_cd + '-14-' + '028';
Form_Qre_in.QR42.Caption := schl_cd + '-14-' + '029';
Form_Qre_in.QR52.Caption := schl_cd + '-14-' + '030';
Form_Qre_in.QR62.Caption := schl_cd + '-14-' + '031';
Form_Qre_in.QR72.Caption := schl_cd + '-14-' + '032';
Form_Qre_in.QR82.Caption := schl_cd + '-14-' + '033';
Form_Qre_in.QR92.Caption := schl_cd + '-14-' + '034';
Form_Qre_in.QR102.Caption := schl_cd + '-14-' + '035';
Form_Qre_in.QR112.Caption := schl_cd + '-14-' + '036';
Form_Qre_in.QR122.Caption := schl_cd + '-14-' + '037';
Form_Qre_in.QR132.Caption := schl_cd + '-14-' + '038';
Form_Qre_in.QR142.Caption := schl_cd + '-14-' + '039';
Form_Qre_in.QR152.Caption := schl_cd + '-14-' + '040';
Form_Qre_in.QR162.Caption := schl_cd + '-14-' + '041';
Form_Qre_in.QR172.Caption := schl_cd + '-14-' + '042';
Form_Qre_in.QR182.Caption := schl_cd + '-14-' + '043';
Form_Qre_in.QR192.Caption := schl_cd + '-14-' + '044';
Form_Qre_in.QR202.Caption := schl_cd + '-14-' + '045';
Form_Qre_in.QR212.Caption := schl_cd + '-14-' + '046';
Form_Qre_in.QR222.Caption := schl_cd + '-14-' + '047';
Form_Qre_in.QR232.Caption := schl_cd + '-14-' + '048';
Form_Qre_in.QR242.Caption := schl_cd + '-14-' + '049';
Form_Qre_in.QR252.Caption := schl_cd + '-14-' + '050';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QRLabel6.Caption := '(5학년용)';
Form_Qre_in.QR11.Caption := '1';
Form_Qre_in.QR21.Caption := '2';
Form_Qre_in.QR31.Caption := '3';
Form_Qre_in.QR41.Caption := '4';
Form_Qre_in.QR51.Caption := '5';
Form_Qre_in.QR61.Caption := '6';
Form_Qre_in.QR71.Caption := '7';
Form_Qre_in.QR81.Caption := '8';
Form_Qre_in.QR91.Caption := '9';
Form_Qre_in.QR101.Caption := '10';
Form_Qre_in.QR111.Caption := '11';
Form_Qre_in.QR121.Caption := '12';
Form_Qre_in.QR131.Caption := '13';
Form_Qre_in.QR141.Caption := '14';
Form_Qre_in.QR151.Caption := '15';
Form_Qre_in.QR161.Caption := '16';
Form_Qre_in.QR171.Caption := '17';
Form_Qre_in.QR181.Caption := '18';
Form_Qre_in.QR191.Caption := '19';
Form_Qre_in.QR201.Caption := '20';
Form_Qre_in.QR211.Caption := '21';
Form_Qre_in.QR221.Caption := '22';
Form_Qre_in.QR231.Caption := '23';
Form_Qre_in.QR241.Caption := '24';
Form_Qre_in.QR251.Caption := '25';
Form_Qre_in.QR12.Caption := schl_cd + '-15-' + '001';
Form_Qre_in.QR22.Caption := schl_cd + '-15-' + '002';
Form_Qre_in.QR32.Caption := schl_cd + '-15-' + '003';
Form_Qre_in.QR42.Caption := schl_cd + '-15-' + '004';
Form_Qre_in.QR52.Caption := schl_cd + '-15-' + '005';
Form_Qre_in.QR62.Caption := schl_cd + '-15-' + '006';
Form_Qre_in.QR72.Caption := schl_cd + '-15-' + '007';
Form_Qre_in.QR82.Caption := schl_cd + '-15-' + '008';
Form_Qre_in.QR92.Caption := schl_cd + '-15-' + '009';
Form_Qre_in.QR102.Caption := schl_cd + '-15-' + '010';
Form_Qre_in.QR112.Caption := schl_cd + '-15-' + '011';
Form_Qre_in.QR122.Caption := schl_cd + '-15-' + '012';
Form_Qre_in.QR132.Caption := schl_cd + '-15-' + '013';
Form_Qre_in.QR142.Caption := schl_cd + '-15-' + '014';
Form_Qre_in.QR152.Caption := schl_cd + '-15-' + '015';
Form_Qre_in.QR162.Caption := schl_cd + '-15-' + '016';
Form_Qre_in.QR172.Caption := schl_cd + '-15-' + '017';
Form_Qre_in.QR182.Caption := schl_cd + '-15-' + '018';
Form_Qre_in.QR192.Caption := schl_cd + '-15-' + '019';
Form_Qre_in.QR202.Caption := schl_cd + '-15-' + '020';
Form_Qre_in.QR212.Caption := schl_cd + '-15-' + '021';
Form_Qre_in.QR222.Caption := schl_cd + '-15-' + '022';
Form_Qre_in.QR232.Caption := schl_cd + '-15-' + '023';
Form_Qre_in.QR242.Caption := schl_cd + '-15-' + '024';
Form_Qre_in.QR252.Caption := schl_cd + '-15-' + '025';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QR11.Caption := '26';
Form_Qre_in.QR21.Caption := '27';
Form_Qre_in.QR31.Caption := '28';
Form_Qre_in.QR41.Caption := '29';
Form_Qre_in.QR51.Caption := '30';
Form_Qre_in.QR61.Caption := '31';
Form_Qre_in.QR71.Caption := '32';
Form_Qre_in.QR81.Caption := '33';
Form_Qre_in.QR91.Caption := '34';
Form_Qre_in.QR101.Caption := '35';
Form_Qre_in.QR111.Caption := '36';
Form_Qre_in.QR121.Caption := '37';
Form_Qre_in.QR131.Caption := '38';
Form_Qre_in.QR141.Caption := '39';
Form_Qre_in.QR151.Caption := '40';
Form_Qre_in.QR161.Caption := '41';
Form_Qre_in.QR171.Caption := '42';
Form_Qre_in.QR181.Caption := '43';
Form_Qre_in.QR191.Caption := '44';
Form_Qre_in.QR201.Caption := '45';
Form_Qre_in.QR211.Caption := '46';
Form_Qre_in.QR221.Caption := '47';
Form_Qre_in.QR231.Caption := '48';
Form_Qre_in.QR241.Caption := '49';
Form_Qre_in.QR251.Caption := '50';
Form_Qre_in.QR12.Caption := schl_cd + '-15-' + '026';
Form_Qre_in.QR22.Caption := schl_cd + '-15-' + '027';
Form_Qre_in.QR32.Caption := schl_cd + '-15-' + '028';
Form_Qre_in.QR42.Caption := schl_cd + '-15-' + '029';
Form_Qre_in.QR52.Caption := schl_cd + '-15-' + '030';
Form_Qre_in.QR62.Caption := schl_cd + '-15-' + '031';
Form_Qre_in.QR72.Caption := schl_cd + '-15-' + '032';
Form_Qre_in.QR82.Caption := schl_cd + '-15-' + '033';
Form_Qre_in.QR92.Caption := schl_cd + '-15-' + '034';
Form_Qre_in.QR102.Caption := schl_cd + '-15-' + '035';
Form_Qre_in.QR112.Caption := schl_cd + '-15-' + '036';
Form_Qre_in.QR122.Caption := schl_cd + '-15-' + '037';
Form_Qre_in.QR132.Caption := schl_cd + '-15-' + '038';
Form_Qre_in.QR142.Caption := schl_cd + '-15-' + '039';
Form_Qre_in.QR152.Caption := schl_cd + '-15-' + '040';
Form_Qre_in.QR162.Caption := schl_cd + '-15-' + '041';
Form_Qre_in.QR172.Caption := schl_cd + '-15-' + '042';
Form_Qre_in.QR182.Caption := schl_cd + '-15-' + '043';
Form_Qre_in.QR192.Caption := schl_cd + '-15-' + '044';
Form_Qre_in.QR202.Caption := schl_cd + '-15-' + '045';
Form_Qre_in.QR212.Caption := schl_cd + '-15-' + '046';
Form_Qre_in.QR222.Caption := schl_cd + '-15-' + '047';
Form_Qre_in.QR232.Caption := schl_cd + '-15-' + '048';
Form_Qre_in.QR242.Caption := schl_cd + '-15-' + '049';
Form_Qre_in.QR252.Caption := schl_cd + '-15-' + '050';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QRLabel6.Caption := '(6학년용)';
Form_Qre_in.QR11.Caption := '1';
Form_Qre_in.QR21.Caption := '2';
Form_Qre_in.QR31.Caption := '3';
Form_Qre_in.QR41.Caption := '4';
Form_Qre_in.QR51.Caption := '5';
Form_Qre_in.QR61.Caption := '6';
Form_Qre_in.QR71.Caption := '7';
Form_Qre_in.QR81.Caption := '8';
Form_Qre_in.QR91.Caption := '9';
Form_Qre_in.QR101.Caption := '10';
Form_Qre_in.QR111.Caption := '11';
Form_Qre_in.QR121.Caption := '12';
Form_Qre_in.QR131.Caption := '13';
Form_Qre_in.QR141.Caption := '14';
Form_Qre_in.QR151.Caption := '15';
Form_Qre_in.QR161.Caption := '16';
Form_Qre_in.QR171.Caption := '17';
Form_Qre_in.QR181.Caption := '18';
Form_Qre_in.QR191.Caption := '19';
Form_Qre_in.QR201.Caption := '20';
Form_Qre_in.QR211.Caption := '21';
Form_Qre_in.QR221.Caption := '22';
Form_Qre_in.QR231.Caption := '23';
Form_Qre_in.QR241.Caption := '24';
Form_Qre_in.QR251.Caption := '25';
Form_Qre_in.QR12.Caption := schl_cd + '-16-' + '001';
Form_Qre_in.QR22.Caption := schl_cd + '-16-' + '002';
Form_Qre_in.QR32.Caption := schl_cd + '-16-' + '003';
Form_Qre_in.QR42.Caption := schl_cd + '-16-' + '004';
Form_Qre_in.QR52.Caption := schl_cd + '-16-' + '005';
Form_Qre_in.QR62.Caption := schl_cd + '-16-' + '006';
Form_Qre_in.QR72.Caption := schl_cd + '-16-' + '007';
Form_Qre_in.QR82.Caption := schl_cd + '-16-' + '008';
Form_Qre_in.QR92.Caption := schl_cd + '-16-' + '009';
Form_Qre_in.QR102.Caption := schl_cd + '-16-' + '010';
Form_Qre_in.QR112.Caption := schl_cd + '-16-' + '011';
Form_Qre_in.QR122.Caption := schl_cd + '-16-' + '012';
Form_Qre_in.QR132.Caption := schl_cd + '-16-' + '013';
Form_Qre_in.QR142.Caption := schl_cd + '-16-' + '014';
Form_Qre_in.QR152.Caption := schl_cd + '-16-' + '015';
Form_Qre_in.QR162.Caption := schl_cd + '-16-' + '016';
Form_Qre_in.QR172.Caption := schl_cd + '-16-' + '017';
Form_Qre_in.QR182.Caption := schl_cd + '-16-' + '018';
Form_Qre_in.QR192.Caption := schl_cd + '-16-' + '019';
Form_Qre_in.QR202.Caption := schl_cd + '-16-' + '020';
Form_Qre_in.QR212.Caption := schl_cd + '-16-' + '021';
Form_Qre_in.QR222.Caption := schl_cd + '-16-' + '022';
Form_Qre_in.QR232.Caption := schl_cd + '-16-' + '023';
Form_Qre_in.QR242.Caption := schl_cd + '-16-' + '024';
Form_Qre_in.QR252.Caption := schl_cd + '-16-' + '025';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QR11.Caption := '26';
Form_Qre_in.QR21.Caption := '27';
Form_Qre_in.QR31.Caption := '28';
Form_Qre_in.QR41.Caption := '29';
Form_Qre_in.QR51.Caption := '30';
Form_Qre_in.QR61.Caption := '31';
Form_Qre_in.QR71.Caption := '32';
Form_Qre_in.QR81.Caption := '33';
Form_Qre_in.QR91.Caption := '34';
Form_Qre_in.QR101.Caption := '35';
Form_Qre_in.QR111.Caption := '36';
Form_Qre_in.QR121.Caption := '37';
Form_Qre_in.QR131.Caption := '38';
Form_Qre_in.QR141.Caption := '39';
Form_Qre_in.QR151.Caption := '40';
Form_Qre_in.QR161.Caption := '41';
Form_Qre_in.QR171.Caption := '42';
Form_Qre_in.QR181.Caption := '43';
Form_Qre_in.QR191.Caption := '44';
Form_Qre_in.QR201.Caption := '45';
Form_Qre_in.QR211.Caption := '46';
Form_Qre_in.QR221.Caption := '47';
Form_Qre_in.QR231.Caption := '48';
Form_Qre_in.QR241.Caption := '49';
Form_Qre_in.QR251.Caption := '50';
Form_Qre_in.QR12.Caption := schl_cd + '-16-' + '026';
Form_Qre_in.QR22.Caption := schl_cd + '-16-' + '027';
Form_Qre_in.QR32.Caption := schl_cd + '-16-' + '028';
Form_Qre_in.QR42.Caption := schl_cd + '-16-' + '029';
Form_Qre_in.QR52.Caption := schl_cd + '-16-' + '030';
Form_Qre_in.QR62.Caption := schl_cd + '-16-' + '031';
Form_Qre_in.QR72.Caption := schl_cd + '-16-' + '032';
Form_Qre_in.QR82.Caption := schl_cd + '-16-' + '033';
Form_Qre_in.QR92.Caption := schl_cd + '-16-' + '034';
Form_Qre_in.QR102.Caption := schl_cd + '-16-' + '035';
Form_Qre_in.QR112.Caption := schl_cd + '-16-' + '036';
Form_Qre_in.QR122.Caption := schl_cd + '-16-' + '037';
Form_Qre_in.QR132.Caption := schl_cd + '-16-' + '038';
Form_Qre_in.QR142.Caption := schl_cd + '-16-' + '039';
Form_Qre_in.QR152.Caption := schl_cd + '-16-' + '040';
Form_Qre_in.QR162.Caption := schl_cd + '-16-' + '041';
Form_Qre_in.QR172.Caption := schl_cd + '-16-' + '042';
Form_Qre_in.QR182.Caption := schl_cd + '-16-' + '043';
Form_Qre_in.QR192.Caption := schl_cd + '-16-' + '044';
Form_Qre_in.QR202.Caption := schl_cd + '-16-' + '045';
Form_Qre_in.QR212.Caption := schl_cd + '-16-' + '046';
Form_Qre_in.QR222.Caption := schl_cd + '-16-' + '047';
Form_Qre_in.QR232.Caption := schl_cd + '-16-' + '048';
Form_Qre_in.QR242.Caption := schl_cd + '-16-' + '049';
Form_Qre_in.QR252.Caption := schl_cd + '-16-' + '050';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
end;
end;
end.
흑흑!!
무지막지하게 무식한 방법으로 퀵리포터로 찍었습니다.
텍스트를 읽어서 위와 같이 배열로 저장한 뒤에..
학원별, 학년별,1번~25번,26번~50번,그리고 뒤에 붙은 학원코드(schl_cd)까정..
다 변환하면서.. 바로 찍으려니 어쩔수가 없었습니다.
위와 같이 하니깐.. 페이지 스킵이 안되는군요..당연하겠지만..ㅠ.ㅠ
혹시 아시는분 계심 페이지 스킵 되게 좀 해주세요.
제발 부탁입니다.
정말 급합니당.
끙~~
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm_Main = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_Main: TForm_Main;
implementation
uses Didim_in_list;
{$R *.DFM}
procedure TForm_Main.Button1Click(Sender: TObject);
type
TDb_Rec = record
slocal_nm:string[31];
sloc_cd:string[2];
sschl_nm:string[14];
sschl_cd1:string[2];
sschl_cd2:string[2];
end;
var
I,K,Cnt,j,kk : Integer;
local_nm,loc_cd,school_nm,schl_cd,schl_cd1,schl_cd2 : string;
//tst_levl, cust_ban, sex, home_phone, addr1, addr2, birth1, birth2, receipt, receipt_day :string;
Db_Rec : Array[0..248] of TDb_Rec;
Total: Integer;
No, Grde, Ban, Sex, Brth, Name : string;
FP : Textfile;
Buf : String;
begin
j := 0;
Cnt := 0;
if OpenDialog1.Execute then
begin
AssignFile(FP,OpenDialog1.FileName);
Reset(FP);
While not Eof(FP) do
Begin
local_nm :=''; loc_cd :=''; school_nm :=''; schl_cd :=''; schl_cd1 :=''; schl_cd2:='';
Readln(FP,Buf);
K:=0;
for I:=1 to Length(buf) do
if buf[I] = ',' then
K := K + 1
else if K = 4 then
break
else if K = 0 then
local_nm := local_nm + Buf[i]
else if K = 1 then
loc_cd := loc_cd + buf[i]
else if K = 2 then
school_nm := school_nm + buf[i]
else if K = 3 then
schl_cd := schl_cd + buf[i];
local_nm := Trim(local_nm);
loc_cd := Trim(loc_cd);
school_nm := Trim(school_nm);
schl_cd1 := copy(Trim(schl_cd),1,2);
schl_cd2 := copy(Trim(schl_cd),4,2);
Db_Rec[Cnt].slocal_nm := local_nm;
Db_Rec[Cnt].sloc_cd := loc_cd;
Db_Rec[Cnt].sschl_nm := school_nm;
Db_Rec[Cnt].sschl_cd1 := schl_cd1;
Db_Rec[Cnt].sschl_cd2 := schl_cd2;
Cnt := Cnt + 1;
end;
end;
CloseFile(FP);
if (form_Qre_in = nil) or (not Form_Qre_in.handleAllocated)then
form_Qre_in := Tform_Qre_in.create(Application);
for i:=0 to Cnt do
begin
if Db_Rec[i].slocal_nm <> '' then
local_nm := Db_Rec[i].slocal_nm;
loc_cd := Db_Rec[i].sloc_cd;
school_nm := Db_Rec[i].sschl_nm;
schl_cd := Db_Rec[i].sschl_cd1 + Db_Rec[i].sschl_cd2;
Form_Qre_in.QRLabel4.Caption := local_nm;
Form_Qre_in.QRLabel5.Caption := school_nm;
Form_Qre_in.QRLabel6.Caption := '(3학년용)';
Form_Qre_in.QR12.Caption := schl_cd + '-13-' + '001';
Form_Qre_in.QR22.Caption := schl_cd + '-13-' + '002';
Form_Qre_in.QR32.Caption := schl_cd + '-13-' + '003';
Form_Qre_in.QR42.Caption := schl_cd + '-13-' + '004';
Form_Qre_in.QR52.Caption := schl_cd + '-13-' + '005';
Form_Qre_in.QR62.Caption := schl_cd + '-13-' + '006';
Form_Qre_in.QR72.Caption := schl_cd + '-13-' + '007';
Form_Qre_in.QR82.Caption := schl_cd + '-13-' + '008';
Form_Qre_in.QR92.Caption := schl_cd + '-13-' + '009';
Form_Qre_in.QR102.Caption := schl_cd + '-13-' + '010';
Form_Qre_in.QR112.Caption := schl_cd + '-13-' + '011';
Form_Qre_in.QR122.Caption := schl_cd + '-13-' + '012';
Form_Qre_in.QR132.Caption := schl_cd + '-13-' + '013';
Form_Qre_in.QR142.Caption := schl_cd + '-13-' + '014';
Form_Qre_in.QR152.Caption := schl_cd + '-13-' + '015';
Form_Qre_in.QR162.Caption := schl_cd + '-13-' + '016';
Form_Qre_in.QR172.Caption := schl_cd + '-13-' + '017';
Form_Qre_in.QR182.Caption := schl_cd + '-13-' + '018';
Form_Qre_in.QR192.Caption := schl_cd + '-13-' + '019';
Form_Qre_in.QR202.Caption := schl_cd + '-13-' + '020';
Form_Qre_in.QR212.Caption := schl_cd + '-13-' + '021';
Form_Qre_in.QR222.Caption := schl_cd + '-13-' + '022';
Form_Qre_in.QR232.Caption := schl_cd + '-13-' + '023';
Form_Qre_in.QR242.Caption := schl_cd + '-13-' + '024';
Form_Qre_in.QR252.Caption := schl_cd + '-13-' + '025';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QR11.Caption := '26';
Form_Qre_in.QR21.Caption := '27';
Form_Qre_in.QR31.Caption := '28';
Form_Qre_in.QR41.Caption := '29';
Form_Qre_in.QR51.Caption := '30';
Form_Qre_in.QR61.Caption := '31';
Form_Qre_in.QR71.Caption := '32';
Form_Qre_in.QR81.Caption := '33';
Form_Qre_in.QR91.Caption := '34';
Form_Qre_in.QR101.Caption := '35';
Form_Qre_in.QR111.Caption := '36';
Form_Qre_in.QR121.Caption := '37';
Form_Qre_in.QR131.Caption := '38';
Form_Qre_in.QR141.Caption := '39';
Form_Qre_in.QR151.Caption := '40';
Form_Qre_in.QR161.Caption := '41';
Form_Qre_in.QR171.Caption := '42';
Form_Qre_in.QR181.Caption := '43';
Form_Qre_in.QR191.Caption := '44';
Form_Qre_in.QR201.Caption := '45';
Form_Qre_in.QR211.Caption := '46';
Form_Qre_in.QR221.Caption := '47';
Form_Qre_in.QR231.Caption := '48';
Form_Qre_in.QR241.Caption := '49';
Form_Qre_in.QR251.Caption := '50';
Form_Qre_in.QR12.Caption := schl_cd + '-13-' + '026';
Form_Qre_in.QR22.Caption := schl_cd + '-13-' + '027';
Form_Qre_in.QR32.Caption := schl_cd + '-13-' + '028';
Form_Qre_in.QR42.Caption := schl_cd + '-13-' + '029';
Form_Qre_in.QR52.Caption := schl_cd + '-13-' + '030';
Form_Qre_in.QR62.Caption := schl_cd + '-13-' + '031';
Form_Qre_in.QR72.Caption := schl_cd + '-13-' + '032';
Form_Qre_in.QR82.Caption := schl_cd + '-13-' + '033';
Form_Qre_in.QR92.Caption := schl_cd + '-13-' + '034';
Form_Qre_in.QR102.Caption := schl_cd + '-13-' + '035';
Form_Qre_in.QR112.Caption := schl_cd + '-13-' + '036';
Form_Qre_in.QR122.Caption := schl_cd + '-13-' + '037';
Form_Qre_in.QR132.Caption := schl_cd + '-13-' + '038';
Form_Qre_in.QR142.Caption := schl_cd + '-13-' + '039';
Form_Qre_in.QR152.Caption := schl_cd + '-13-' + '040';
Form_Qre_in.QR162.Caption := schl_cd + '-13-' + '041';
Form_Qre_in.QR172.Caption := schl_cd + '-13-' + '042';
Form_Qre_in.QR182.Caption := schl_cd + '-13-' + '043';
Form_Qre_in.QR192.Caption := schl_cd + '-13-' + '044';
Form_Qre_in.QR202.Caption := schl_cd + '-13-' + '045';
Form_Qre_in.QR212.Caption := schl_cd + '-13-' + '046';
Form_Qre_in.QR222.Caption := schl_cd + '-13-' + '047';
Form_Qre_in.QR232.Caption := schl_cd + '-13-' + '048';
Form_Qre_in.QR242.Caption := schl_cd + '-13-' + '049';
Form_Qre_in.QR252.Caption := schl_cd + '-13-' + '050';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QRLabel6.Caption := '(4학년용)';
Form_Qre_in.QR11.Caption := '1';
Form_Qre_in.QR21.Caption := '2';
Form_Qre_in.QR31.Caption := '3';
Form_Qre_in.QR41.Caption := '4';
Form_Qre_in.QR51.Caption := '5';
Form_Qre_in.QR61.Caption := '6';
Form_Qre_in.QR71.Caption := '7';
Form_Qre_in.QR81.Caption := '8';
Form_Qre_in.QR91.Caption := '9';
Form_Qre_in.QR101.Caption := '10';
Form_Qre_in.QR111.Caption := '11';
Form_Qre_in.QR121.Caption := '12';
Form_Qre_in.QR131.Caption := '13';
Form_Qre_in.QR141.Caption := '14';
Form_Qre_in.QR151.Caption := '15';
Form_Qre_in.QR161.Caption := '16';
Form_Qre_in.QR171.Caption := '17';
Form_Qre_in.QR181.Caption := '18';
Form_Qre_in.QR191.Caption := '19';
Form_Qre_in.QR201.Caption := '20';
Form_Qre_in.QR211.Caption := '21';
Form_Qre_in.QR221.Caption := '22';
Form_Qre_in.QR231.Caption := '23';
Form_Qre_in.QR241.Caption := '24';
Form_Qre_in.QR251.Caption := '25';
Form_Qre_in.QR12.Caption := schl_cd + '-14-' + '001';
Form_Qre_in.QR22.Caption := schl_cd + '-14-' + '002';
Form_Qre_in.QR32.Caption := schl_cd + '-14-' + '003';
Form_Qre_in.QR42.Caption := schl_cd + '-14-' + '004';
Form_Qre_in.QR52.Caption := schl_cd + '-14-' + '005';
Form_Qre_in.QR62.Caption := schl_cd + '-14-' + '006';
Form_Qre_in.QR72.Caption := schl_cd + '-14-' + '007';
Form_Qre_in.QR82.Caption := schl_cd + '-14-' + '008';
Form_Qre_in.QR92.Caption := schl_cd + '-14-' + '009';
Form_Qre_in.QR102.Caption := schl_cd + '-14-' + '010';
Form_Qre_in.QR112.Caption := schl_cd + '-14-' + '011';
Form_Qre_in.QR122.Caption := schl_cd + '-14-' + '012';
Form_Qre_in.QR132.Caption := schl_cd + '-14-' + '013';
Form_Qre_in.QR142.Caption := schl_cd + '-14-' + '014';
Form_Qre_in.QR152.Caption := schl_cd + '-14-' + '015';
Form_Qre_in.QR162.Caption := schl_cd + '-14-' + '016';
Form_Qre_in.QR172.Caption := schl_cd + '-14-' + '017';
Form_Qre_in.QR182.Caption := schl_cd + '-14-' + '018';
Form_Qre_in.QR192.Caption := schl_cd + '-14-' + '019';
Form_Qre_in.QR202.Caption := schl_cd + '-14-' + '020';
Form_Qre_in.QR212.Caption := schl_cd + '-14-' + '021';
Form_Qre_in.QR222.Caption := schl_cd + '-14-' + '022';
Form_Qre_in.QR232.Caption := schl_cd + '-14-' + '023';
Form_Qre_in.QR242.Caption := schl_cd + '-14-' + '024';
Form_Qre_in.QR252.Caption := schl_cd + '-14-' + '025';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QR11.Caption := '26';
Form_Qre_in.QR21.Caption := '27';
Form_Qre_in.QR31.Caption := '28';
Form_Qre_in.QR41.Caption := '29';
Form_Qre_in.QR51.Caption := '30';
Form_Qre_in.QR61.Caption := '31';
Form_Qre_in.QR71.Caption := '32';
Form_Qre_in.QR81.Caption := '33';
Form_Qre_in.QR91.Caption := '34';
Form_Qre_in.QR101.Caption := '35';
Form_Qre_in.QR111.Caption := '36';
Form_Qre_in.QR121.Caption := '37';
Form_Qre_in.QR131.Caption := '38';
Form_Qre_in.QR141.Caption := '39';
Form_Qre_in.QR151.Caption := '40';
Form_Qre_in.QR161.Caption := '41';
Form_Qre_in.QR171.Caption := '42';
Form_Qre_in.QR181.Caption := '43';
Form_Qre_in.QR191.Caption := '44';
Form_Qre_in.QR201.Caption := '45';
Form_Qre_in.QR211.Caption := '46';
Form_Qre_in.QR221.Caption := '47';
Form_Qre_in.QR231.Caption := '48';
Form_Qre_in.QR241.Caption := '49';
Form_Qre_in.QR251.Caption := '50';
Form_Qre_in.QR12.Caption := schl_cd + '-14-' + '026';
Form_Qre_in.QR22.Caption := schl_cd + '-14-' + '027';
Form_Qre_in.QR32.Caption := schl_cd + '-14-' + '028';
Form_Qre_in.QR42.Caption := schl_cd + '-14-' + '029';
Form_Qre_in.QR52.Caption := schl_cd + '-14-' + '030';
Form_Qre_in.QR62.Caption := schl_cd + '-14-' + '031';
Form_Qre_in.QR72.Caption := schl_cd + '-14-' + '032';
Form_Qre_in.QR82.Caption := schl_cd + '-14-' + '033';
Form_Qre_in.QR92.Caption := schl_cd + '-14-' + '034';
Form_Qre_in.QR102.Caption := schl_cd + '-14-' + '035';
Form_Qre_in.QR112.Caption := schl_cd + '-14-' + '036';
Form_Qre_in.QR122.Caption := schl_cd + '-14-' + '037';
Form_Qre_in.QR132.Caption := schl_cd + '-14-' + '038';
Form_Qre_in.QR142.Caption := schl_cd + '-14-' + '039';
Form_Qre_in.QR152.Caption := schl_cd + '-14-' + '040';
Form_Qre_in.QR162.Caption := schl_cd + '-14-' + '041';
Form_Qre_in.QR172.Caption := schl_cd + '-14-' + '042';
Form_Qre_in.QR182.Caption := schl_cd + '-14-' + '043';
Form_Qre_in.QR192.Caption := schl_cd + '-14-' + '044';
Form_Qre_in.QR202.Caption := schl_cd + '-14-' + '045';
Form_Qre_in.QR212.Caption := schl_cd + '-14-' + '046';
Form_Qre_in.QR222.Caption := schl_cd + '-14-' + '047';
Form_Qre_in.QR232.Caption := schl_cd + '-14-' + '048';
Form_Qre_in.QR242.Caption := schl_cd + '-14-' + '049';
Form_Qre_in.QR252.Caption := schl_cd + '-14-' + '050';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QRLabel6.Caption := '(5학년용)';
Form_Qre_in.QR11.Caption := '1';
Form_Qre_in.QR21.Caption := '2';
Form_Qre_in.QR31.Caption := '3';
Form_Qre_in.QR41.Caption := '4';
Form_Qre_in.QR51.Caption := '5';
Form_Qre_in.QR61.Caption := '6';
Form_Qre_in.QR71.Caption := '7';
Form_Qre_in.QR81.Caption := '8';
Form_Qre_in.QR91.Caption := '9';
Form_Qre_in.QR101.Caption := '10';
Form_Qre_in.QR111.Caption := '11';
Form_Qre_in.QR121.Caption := '12';
Form_Qre_in.QR131.Caption := '13';
Form_Qre_in.QR141.Caption := '14';
Form_Qre_in.QR151.Caption := '15';
Form_Qre_in.QR161.Caption := '16';
Form_Qre_in.QR171.Caption := '17';
Form_Qre_in.QR181.Caption := '18';
Form_Qre_in.QR191.Caption := '19';
Form_Qre_in.QR201.Caption := '20';
Form_Qre_in.QR211.Caption := '21';
Form_Qre_in.QR221.Caption := '22';
Form_Qre_in.QR231.Caption := '23';
Form_Qre_in.QR241.Caption := '24';
Form_Qre_in.QR251.Caption := '25';
Form_Qre_in.QR12.Caption := schl_cd + '-15-' + '001';
Form_Qre_in.QR22.Caption := schl_cd + '-15-' + '002';
Form_Qre_in.QR32.Caption := schl_cd + '-15-' + '003';
Form_Qre_in.QR42.Caption := schl_cd + '-15-' + '004';
Form_Qre_in.QR52.Caption := schl_cd + '-15-' + '005';
Form_Qre_in.QR62.Caption := schl_cd + '-15-' + '006';
Form_Qre_in.QR72.Caption := schl_cd + '-15-' + '007';
Form_Qre_in.QR82.Caption := schl_cd + '-15-' + '008';
Form_Qre_in.QR92.Caption := schl_cd + '-15-' + '009';
Form_Qre_in.QR102.Caption := schl_cd + '-15-' + '010';
Form_Qre_in.QR112.Caption := schl_cd + '-15-' + '011';
Form_Qre_in.QR122.Caption := schl_cd + '-15-' + '012';
Form_Qre_in.QR132.Caption := schl_cd + '-15-' + '013';
Form_Qre_in.QR142.Caption := schl_cd + '-15-' + '014';
Form_Qre_in.QR152.Caption := schl_cd + '-15-' + '015';
Form_Qre_in.QR162.Caption := schl_cd + '-15-' + '016';
Form_Qre_in.QR172.Caption := schl_cd + '-15-' + '017';
Form_Qre_in.QR182.Caption := schl_cd + '-15-' + '018';
Form_Qre_in.QR192.Caption := schl_cd + '-15-' + '019';
Form_Qre_in.QR202.Caption := schl_cd + '-15-' + '020';
Form_Qre_in.QR212.Caption := schl_cd + '-15-' + '021';
Form_Qre_in.QR222.Caption := schl_cd + '-15-' + '022';
Form_Qre_in.QR232.Caption := schl_cd + '-15-' + '023';
Form_Qre_in.QR242.Caption := schl_cd + '-15-' + '024';
Form_Qre_in.QR252.Caption := schl_cd + '-15-' + '025';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QR11.Caption := '26';
Form_Qre_in.QR21.Caption := '27';
Form_Qre_in.QR31.Caption := '28';
Form_Qre_in.QR41.Caption := '29';
Form_Qre_in.QR51.Caption := '30';
Form_Qre_in.QR61.Caption := '31';
Form_Qre_in.QR71.Caption := '32';
Form_Qre_in.QR81.Caption := '33';
Form_Qre_in.QR91.Caption := '34';
Form_Qre_in.QR101.Caption := '35';
Form_Qre_in.QR111.Caption := '36';
Form_Qre_in.QR121.Caption := '37';
Form_Qre_in.QR131.Caption := '38';
Form_Qre_in.QR141.Caption := '39';
Form_Qre_in.QR151.Caption := '40';
Form_Qre_in.QR161.Caption := '41';
Form_Qre_in.QR171.Caption := '42';
Form_Qre_in.QR181.Caption := '43';
Form_Qre_in.QR191.Caption := '44';
Form_Qre_in.QR201.Caption := '45';
Form_Qre_in.QR211.Caption := '46';
Form_Qre_in.QR221.Caption := '47';
Form_Qre_in.QR231.Caption := '48';
Form_Qre_in.QR241.Caption := '49';
Form_Qre_in.QR251.Caption := '50';
Form_Qre_in.QR12.Caption := schl_cd + '-15-' + '026';
Form_Qre_in.QR22.Caption := schl_cd + '-15-' + '027';
Form_Qre_in.QR32.Caption := schl_cd + '-15-' + '028';
Form_Qre_in.QR42.Caption := schl_cd + '-15-' + '029';
Form_Qre_in.QR52.Caption := schl_cd + '-15-' + '030';
Form_Qre_in.QR62.Caption := schl_cd + '-15-' + '031';
Form_Qre_in.QR72.Caption := schl_cd + '-15-' + '032';
Form_Qre_in.QR82.Caption := schl_cd + '-15-' + '033';
Form_Qre_in.QR92.Caption := schl_cd + '-15-' + '034';
Form_Qre_in.QR102.Caption := schl_cd + '-15-' + '035';
Form_Qre_in.QR112.Caption := schl_cd + '-15-' + '036';
Form_Qre_in.QR122.Caption := schl_cd + '-15-' + '037';
Form_Qre_in.QR132.Caption := schl_cd + '-15-' + '038';
Form_Qre_in.QR142.Caption := schl_cd + '-15-' + '039';
Form_Qre_in.QR152.Caption := schl_cd + '-15-' + '040';
Form_Qre_in.QR162.Caption := schl_cd + '-15-' + '041';
Form_Qre_in.QR172.Caption := schl_cd + '-15-' + '042';
Form_Qre_in.QR182.Caption := schl_cd + '-15-' + '043';
Form_Qre_in.QR192.Caption := schl_cd + '-15-' + '044';
Form_Qre_in.QR202.Caption := schl_cd + '-15-' + '045';
Form_Qre_in.QR212.Caption := schl_cd + '-15-' + '046';
Form_Qre_in.QR222.Caption := schl_cd + '-15-' + '047';
Form_Qre_in.QR232.Caption := schl_cd + '-15-' + '048';
Form_Qre_in.QR242.Caption := schl_cd + '-15-' + '049';
Form_Qre_in.QR252.Caption := schl_cd + '-15-' + '050';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QRLabel6.Caption := '(6학년용)';
Form_Qre_in.QR11.Caption := '1';
Form_Qre_in.QR21.Caption := '2';
Form_Qre_in.QR31.Caption := '3';
Form_Qre_in.QR41.Caption := '4';
Form_Qre_in.QR51.Caption := '5';
Form_Qre_in.QR61.Caption := '6';
Form_Qre_in.QR71.Caption := '7';
Form_Qre_in.QR81.Caption := '8';
Form_Qre_in.QR91.Caption := '9';
Form_Qre_in.QR101.Caption := '10';
Form_Qre_in.QR111.Caption := '11';
Form_Qre_in.QR121.Caption := '12';
Form_Qre_in.QR131.Caption := '13';
Form_Qre_in.QR141.Caption := '14';
Form_Qre_in.QR151.Caption := '15';
Form_Qre_in.QR161.Caption := '16';
Form_Qre_in.QR171.Caption := '17';
Form_Qre_in.QR181.Caption := '18';
Form_Qre_in.QR191.Caption := '19';
Form_Qre_in.QR201.Caption := '20';
Form_Qre_in.QR211.Caption := '21';
Form_Qre_in.QR221.Caption := '22';
Form_Qre_in.QR231.Caption := '23';
Form_Qre_in.QR241.Caption := '24';
Form_Qre_in.QR251.Caption := '25';
Form_Qre_in.QR12.Caption := schl_cd + '-16-' + '001';
Form_Qre_in.QR22.Caption := schl_cd + '-16-' + '002';
Form_Qre_in.QR32.Caption := schl_cd + '-16-' + '003';
Form_Qre_in.QR42.Caption := schl_cd + '-16-' + '004';
Form_Qre_in.QR52.Caption := schl_cd + '-16-' + '005';
Form_Qre_in.QR62.Caption := schl_cd + '-16-' + '006';
Form_Qre_in.QR72.Caption := schl_cd + '-16-' + '007';
Form_Qre_in.QR82.Caption := schl_cd + '-16-' + '008';
Form_Qre_in.QR92.Caption := schl_cd + '-16-' + '009';
Form_Qre_in.QR102.Caption := schl_cd + '-16-' + '010';
Form_Qre_in.QR112.Caption := schl_cd + '-16-' + '011';
Form_Qre_in.QR122.Caption := schl_cd + '-16-' + '012';
Form_Qre_in.QR132.Caption := schl_cd + '-16-' + '013';
Form_Qre_in.QR142.Caption := schl_cd + '-16-' + '014';
Form_Qre_in.QR152.Caption := schl_cd + '-16-' + '015';
Form_Qre_in.QR162.Caption := schl_cd + '-16-' + '016';
Form_Qre_in.QR172.Caption := schl_cd + '-16-' + '017';
Form_Qre_in.QR182.Caption := schl_cd + '-16-' + '018';
Form_Qre_in.QR192.Caption := schl_cd + '-16-' + '019';
Form_Qre_in.QR202.Caption := schl_cd + '-16-' + '020';
Form_Qre_in.QR212.Caption := schl_cd + '-16-' + '021';
Form_Qre_in.QR222.Caption := schl_cd + '-16-' + '022';
Form_Qre_in.QR232.Caption := schl_cd + '-16-' + '023';
Form_Qre_in.QR242.Caption := schl_cd + '-16-' + '024';
Form_Qre_in.QR252.Caption := schl_cd + '-16-' + '025';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
Form_Qre_in.QR11.Caption := '26';
Form_Qre_in.QR21.Caption := '27';
Form_Qre_in.QR31.Caption := '28';
Form_Qre_in.QR41.Caption := '29';
Form_Qre_in.QR51.Caption := '30';
Form_Qre_in.QR61.Caption := '31';
Form_Qre_in.QR71.Caption := '32';
Form_Qre_in.QR81.Caption := '33';
Form_Qre_in.QR91.Caption := '34';
Form_Qre_in.QR101.Caption := '35';
Form_Qre_in.QR111.Caption := '36';
Form_Qre_in.QR121.Caption := '37';
Form_Qre_in.QR131.Caption := '38';
Form_Qre_in.QR141.Caption := '39';
Form_Qre_in.QR151.Caption := '40';
Form_Qre_in.QR161.Caption := '41';
Form_Qre_in.QR171.Caption := '42';
Form_Qre_in.QR181.Caption := '43';
Form_Qre_in.QR191.Caption := '44';
Form_Qre_in.QR201.Caption := '45';
Form_Qre_in.QR211.Caption := '46';
Form_Qre_in.QR221.Caption := '47';
Form_Qre_in.QR231.Caption := '48';
Form_Qre_in.QR241.Caption := '49';
Form_Qre_in.QR251.Caption := '50';
Form_Qre_in.QR12.Caption := schl_cd + '-16-' + '026';
Form_Qre_in.QR22.Caption := schl_cd + '-16-' + '027';
Form_Qre_in.QR32.Caption := schl_cd + '-16-' + '028';
Form_Qre_in.QR42.Caption := schl_cd + '-16-' + '029';
Form_Qre_in.QR52.Caption := schl_cd + '-16-' + '030';
Form_Qre_in.QR62.Caption := schl_cd + '-16-' + '031';
Form_Qre_in.QR72.Caption := schl_cd + '-16-' + '032';
Form_Qre_in.QR82.Caption := schl_cd + '-16-' + '033';
Form_Qre_in.QR92.Caption := schl_cd + '-16-' + '034';
Form_Qre_in.QR102.Caption := schl_cd + '-16-' + '035';
Form_Qre_in.QR112.Caption := schl_cd + '-16-' + '036';
Form_Qre_in.QR122.Caption := schl_cd + '-16-' + '037';
Form_Qre_in.QR132.Caption := schl_cd + '-16-' + '038';
Form_Qre_in.QR142.Caption := schl_cd + '-16-' + '039';
Form_Qre_in.QR152.Caption := schl_cd + '-16-' + '040';
Form_Qre_in.QR162.Caption := schl_cd + '-16-' + '041';
Form_Qre_in.QR172.Caption := schl_cd + '-16-' + '042';
Form_Qre_in.QR182.Caption := schl_cd + '-16-' + '043';
Form_Qre_in.QR192.Caption := schl_cd + '-16-' + '044';
Form_Qre_in.QR202.Caption := schl_cd + '-16-' + '045';
Form_Qre_in.QR212.Caption := schl_cd + '-16-' + '046';
Form_Qre_in.QR222.Caption := schl_cd + '-16-' + '047';
Form_Qre_in.QR232.Caption := schl_cd + '-16-' + '048';
Form_Qre_in.QR242.Caption := schl_cd + '-16-' + '049';
Form_Qre_in.QR252.Caption := schl_cd + '-16-' + '050';
form_Qre_in.QuickRep1.Preview;
form_Qre_in.Close;
end;
end;
end.
흑흑!!
무지막지하게 무식한 방법으로 퀵리포터로 찍었습니다.
텍스트를 읽어서 위와 같이 배열로 저장한 뒤에..
학원별, 학년별,1번~25번,26번~50번,그리고 뒤에 붙은 학원코드(schl_cd)까정..
다 변환하면서.. 바로 찍으려니 어쩔수가 없었습니다.
위와 같이 하니깐.. 페이지 스킵이 안되는군요..당연하겠지만..ㅠ.ㅠ
혹시 아시는분 계심 페이지 스킵 되게 좀 해주세요.
제발 부탁입니다.
정말 급합니당.
끙~~
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 윤종철
- •
- 2001.04.02 20:36
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.04.02 20:37안녕하세요. 최용일입니다. 이것두 역시 익스프레스기준으로 설명할께요... Select User Interface C...
-
- 윤종철
- •
- 2001.03.30 18:32
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.30 23:02안녕하세요. 최용일입니다. 익스프레스를 기준으로 설명드릴께요. 프로페셔널도 비슷할 겁니다.... ...
-
- 이성재
- 2001.03.30 18:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 수시아
- 2001.03.30 15:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.03.30 11:04
- 1 COMMENTS
- /
- 0 LIKES
-
프리지아•2001.03.30 13:44begin Label1.Caption := memo1.Lines.Text; end; 그럼 좋은 하루 되세요..
-
- 홍진혁
- •
- 2001.03.30 08:29
- 2 COMMENTS
- /
- 0 LIKES
-
김민식•2001.04.02 02:09자세한 내용은 시간관계상 생략하고 제가 구현한 소스입니다. 참고 하세요.. procedure TForm1.pSave_T...
-
컴맹•2001.03.30 09:06Shellcopy를 한번 사용해보세여.. 정확한 함수명은 아마두.. ShFileOperation일거에여.. 자세한 자료...
-
- 김민철
- •
- 2001.03.30 07:46
- 1 COMMENTS
- /
- 0 LIKES
-
바람개비•2001.03.30 20:19배열을 이용하는게 편할것 같군요. 1. 배열의 아이템중 가장큰값을 찾는다. 2. 다른 것들중 가장 큰값과 ...
-
- 초보
- •
- 2001.03.30 07:42
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.30 22:17안녕하세요. 최용일입니다. TTreeNode.Text에 노드문자가 들어 있습니다. 이걸 바꾸시면 됩니다... A...
-
- 궁그미
- •
- 2001.03.30 07:16
- 1 COMMENTS
- /
- 0 LIKES
-
최영근•2001.03.30 09:24이곳 한델의 강의실에 보시면 성병규님의 '소켓을 이용한 파일전송(서버부분+클라이언트부분)'라는 강좌...
-
- 초보델
- •
- 2001.03.30 07:13
- 1 COMMENTS
- /
- 0 LIKES
unit didim_main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm_Main = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender:...-
하기•2001.03.31 00:50하나의 밴드를 늘려서 사용하는 것이라면 Qrpt.NewPage라는 명령이 있거든요.... Count를 세는방법등을 이...
-
-
조복기•2001.03.31 00:30needdata로 조회해보세염... 박찬호 wrote: > 안녕하세요? > 많은 답변을 하시느라 바쁘신 우리 고...
-
-
- 붕붕이
- 2001.03.30 06:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 오상영
- •
- 2001.03.30 05:53
- 1 COMMENTS
- /
- 0 LIKES
-
프리지아•2001.03.30 13:51오상영 wrote: > 델파이 왕초봅니다. > ocx등록과 삭제하는 방법좀 알려주세요. > 부탁드립니다. 등...
-
- 하얀까마귀
- 2001.03.30 04:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이
- 2001.03.30 04:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 천사양아
- •
- 2001.03.30 03:44
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2001.03.30 05:01안녕하세요 하얀까마귀 입니다. 소스를 봐야 정확하게 말씀드릴수 있을것 같은데.. 아마두.. TCustom...
-
- T.T
- •
- 2001.03.30 03:26
- 1 COMMENTS
- /
- 0 LIKES
-
흐르는산•2001.03.30 12:45T.T wrote: > 브라우저를 통해서 웹상에서 파일을 다운로드할때보면 > 브라우저와는 별도의 창이 생성되...
-
- nurihong
- 2001.03.30 03:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.03.30 03:17
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2001.03.30 05:17안녕하세요 하얀까마귀 입니다. Tss가 어떤형인지 잘 모르겠네요.. 아마 만드신것 같은데.. Tss의 tp...
-
- 초보에요
- 2001.03.30 03:15
- 0 COMMENTS
- /
- 0 LIKES
Count를 세는방법등을 이용하여 강제 NewPage를 해 주면 다음으로 Skip이 될것 같은데...
초보델 wrote:
> unit didim_main;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> type
> TForm_Main = class(TForm)
> Button1: TButton;
> OpenDialog1: TOpenDialog;
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form_Main: TForm_Main;
>
> implementation
> uses Didim_in_list;
> {$R *.DFM}
>
> procedure TForm_Main.Button1Click(Sender: TObject);
> type
> TDb_Rec = record
> slocal_nm:string[31];
> sloc_cd:string[2];
> sschl_nm:string[14];
> sschl_cd1:string[2];
> sschl_cd2:string[2];
> end;
> var
> I,K,Cnt,j,kk : Integer;
> local_nm,loc_cd,school_nm,schl_cd,schl_cd1,schl_cd2 : string;
> //tst_levl, cust_ban, sex, home_phone, addr1, addr2, birth1, birth2, receipt, receipt_day :string;
> Db_Rec : Array[0..248] of TDb_Rec;
> Total: Integer;
> No, Grde, Ban, Sex, Brth, Name : string;
> FP : Textfile;
> Buf : String;
>
> begin
> j := 0;
> Cnt := 0;
> if OpenDialog1.Execute then
> begin
> AssignFile(FP,OpenDialog1.FileName);
> Reset(FP);
>
> While not Eof(FP) do
> Begin
> local_nm :=''; loc_cd :=''; school_nm :=''; schl_cd :=''; schl_cd1 :=''; schl_cd2:='';
> Readln(FP,Buf);
> K:=0;
> for I:=1 to Length(buf) do
> if buf[I] = ',' then
> K := K + 1
> else if K = 4 then
> break
> else if K = 0 then
> local_nm := local_nm + Buf[i]
> else if K = 1 then
> loc_cd := loc_cd + buf[i]
> else if K = 2 then
> school_nm := school_nm + buf[i]
> else if K = 3 then
> schl_cd := schl_cd + buf[i];
>
>
> local_nm := Trim(local_nm);
> loc_cd := Trim(loc_cd);
> school_nm := Trim(school_nm);
> schl_cd1 := copy(Trim(schl_cd),1,2);
> schl_cd2 := copy(Trim(schl_cd),4,2);
>
> Db_Rec[Cnt].slocal_nm := local_nm;
> Db_Rec[Cnt].sloc_cd := loc_cd;
> Db_Rec[Cnt].sschl_nm := school_nm;
> Db_Rec[Cnt].sschl_cd1 := schl_cd1;
> Db_Rec[Cnt].sschl_cd2 := schl_cd2;
> Cnt := Cnt + 1;
> end;
>
> end;
> CloseFile(FP);
> if (form_Qre_in = nil) or (not Form_Qre_in.handleAllocated)then
> form_Qre_in := Tform_Qre_in.create(Application);
> for i:=0 to Cnt do
> begin
> if Db_Rec[i].slocal_nm <> '' then
> local_nm := Db_Rec[i].slocal_nm;
>
> loc_cd := Db_Rec[i].sloc_cd;
> school_nm := Db_Rec[i].sschl_nm;
> schl_cd := Db_Rec[i].sschl_cd1 + Db_Rec[i].sschl_cd2;
>
> Form_Qre_in.QRLabel4.Caption := local_nm;
> Form_Qre_in.QRLabel5.Caption := school_nm;
> Form_Qre_in.QRLabel6.Caption := '(3학년용)';
> Form_Qre_in.QR12.Caption := schl_cd + '-13-' + '001';
> Form_Qre_in.QR22.Caption := schl_cd + '-13-' + '002';
> Form_Qre_in.QR32.Caption := schl_cd + '-13-' + '003';
> Form_Qre_in.QR42.Caption := schl_cd + '-13-' + '004';
> Form_Qre_in.QR52.Caption := schl_cd + '-13-' + '005';
> Form_Qre_in.QR62.Caption := schl_cd + '-13-' + '006';
> Form_Qre_in.QR72.Caption := schl_cd + '-13-' + '007';
> Form_Qre_in.QR82.Caption := schl_cd + '-13-' + '008';
> Form_Qre_in.QR92.Caption := schl_cd + '-13-' + '009';
> Form_Qre_in.QR102.Caption := schl_cd + '-13-' + '010';
> Form_Qre_in.QR112.Caption := schl_cd + '-13-' + '011';
> Form_Qre_in.QR122.Caption := schl_cd + '-13-' + '012';
> Form_Qre_in.QR132.Caption := schl_cd + '-13-' + '013';
> Form_Qre_in.QR142.Caption := schl_cd + '-13-' + '014';
> Form_Qre_in.QR152.Caption := schl_cd + '-13-' + '015';
> Form_Qre_in.QR162.Caption := schl_cd + '-13-' + '016';
> Form_Qre_in.QR172.Caption := schl_cd + '-13-' + '017';
> Form_Qre_in.QR182.Caption := schl_cd + '-13-' + '018';
> Form_Qre_in.QR192.Caption := schl_cd + '-13-' + '019';
> Form_Qre_in.QR202.Caption := schl_cd + '-13-' + '020';
> Form_Qre_in.QR212.Caption := schl_cd + '-13-' + '021';
> Form_Qre_in.QR222.Caption := schl_cd + '-13-' + '022';
> Form_Qre_in.QR232.Caption := schl_cd + '-13-' + '023';
> Form_Qre_in.QR242.Caption := schl_cd + '-13-' + '024';
> Form_Qre_in.QR252.Caption := schl_cd + '-13-' + '025';
> form_Qre_in.QuickRep1.Preview;
> form_Qre_in.Close;
> Form_Qre_in.QR11.Caption := '26';
> Form_Qre_in.QR21.Caption := '27';
> Form_Qre_in.QR31.Caption := '28';
> Form_Qre_in.QR41.Caption := '29';
> Form_Qre_in.QR51.Caption := '30';
> Form_Qre_in.QR61.Caption := '31';
> Form_Qre_in.QR71.Caption := '32';
> Form_Qre_in.QR81.Caption := '33';
> Form_Qre_in.QR91.Caption := '34';
> Form_Qre_in.QR101.Caption := '35';
> Form_Qre_in.QR111.Caption := '36';
> Form_Qre_in.QR121.Caption := '37';
> Form_Qre_in.QR131.Caption := '38';
> Form_Qre_in.QR141.Caption := '39';
> Form_Qre_in.QR151.Caption := '40';
> Form_Qre_in.QR161.Caption := '41';
> Form_Qre_in.QR171.Caption := '42';
> Form_Qre_in.QR181.Caption := '43';
> Form_Qre_in.QR191.Caption := '44';
> Form_Qre_in.QR201.Caption := '45';
> Form_Qre_in.QR211.Caption := '46';
> Form_Qre_in.QR221.Caption := '47';
> Form_Qre_in.QR231.Caption := '48';
> Form_Qre_in.QR241.Caption := '49';
> Form_Qre_in.QR251.Caption := '50';
>
> Form_Qre_in.QR12.Caption := schl_cd + '-13-' + '026';
> Form_Qre_in.QR22.Caption := schl_cd + '-13-' + '027';
> Form_Qre_in.QR32.Caption := schl_cd + '-13-' + '028';
> Form_Qre_in.QR42.Caption := schl_cd + '-13-' + '029';
> Form_Qre_in.QR52.Caption := schl_cd + '-13-' + '030';
> Form_Qre_in.QR62.Caption := schl_cd + '-13-' + '031';
> Form_Qre_in.QR72.Caption := schl_cd + '-13-' + '032';
> Form_Qre_in.QR82.Caption := schl_cd + '-13-' + '033';
> Form_Qre_in.QR92.Caption := schl_cd + '-13-' + '034';
> Form_Qre_in.QR102.Caption := schl_cd + '-13-' + '035';
> Form_Qre_in.QR112.Caption := schl_cd + '-13-' + '036';
> Form_Qre_in.QR122.Caption := schl_cd + '-13-' + '037';
> Form_Qre_in.QR132.Caption := schl_cd + '-13-' + '038';
> Form_Qre_in.QR142.Caption := schl_cd + '-13-' + '039';
> Form_Qre_in.QR152.Caption := schl_cd + '-13-' + '040';
> Form_Qre_in.QR162.Caption := schl_cd + '-13-' + '041';
> Form_Qre_in.QR172.Caption := schl_cd + '-13-' + '042';
> Form_Qre_in.QR182.Caption := schl_cd + '-13-' + '043';
> Form_Qre_in.QR192.Caption := schl_cd + '-13-' + '044';
> Form_Qre_in.QR202.Caption := schl_cd + '-13-' + '045';
> Form_Qre_in.QR212.Caption := schl_cd + '-13-' + '046';
> Form_Qre_in.QR222.Caption := schl_cd + '-13-' + '047';
> Form_Qre_in.QR232.Caption := schl_cd + '-13-' + '048';
> Form_Qre_in.QR242.Caption := schl_cd + '-13-' + '049';
> Form_Qre_in.QR252.Caption := schl_cd + '-13-' + '050';
> form_Qre_in.QuickRep1.Preview;
> form_Qre_in.Close;
> Form_Qre_in.QRLabel6.Caption := '(4학년용)';
> Form_Qre_in.QR11.Caption := '1';
> Form_Qre_in.QR21.Caption := '2';
> Form_Qre_in.QR31.Caption := '3';
> Form_Qre_in.QR41.Caption := '4';
> Form_Qre_in.QR51.Caption := '5';
> Form_Qre_in.QR61.Caption := '6';
> Form_Qre_in.QR71.Caption := '7';
> Form_Qre_in.QR81.Caption := '8';
> Form_Qre_in.QR91.Caption := '9';
> Form_Qre_in.QR101.Caption := '10';
> Form_Qre_in.QR111.Caption := '11';
> Form_Qre_in.QR121.Caption := '12';
> Form_Qre_in.QR131.Caption := '13';
> Form_Qre_in.QR141.Caption := '14';
> Form_Qre_in.QR151.Caption := '15';
> Form_Qre_in.QR161.Caption := '16';
> Form_Qre_in.QR171.Caption := '17';
> Form_Qre_in.QR181.Caption := '18';
> Form_Qre_in.QR191.Caption := '19';
> Form_Qre_in.QR201.Caption := '20';
> Form_Qre_in.QR211.Caption := '21';
> Form_Qre_in.QR221.Caption := '22';
> Form_Qre_in.QR231.Caption := '23';
> Form_Qre_in.QR241.Caption := '24';
> Form_Qre_in.QR251.Caption := '25';
> Form_Qre_in.QR12.Caption := schl_cd + '-14-' + '001';
> Form_Qre_in.QR22.Caption := schl_cd + '-14-' + '002';
> Form_Qre_in.QR32.Caption := schl_cd + '-14-' + '003';
> Form_Qre_in.QR42.Caption := schl_cd + '-14-' + '004';
> Form_Qre_in.QR52.Caption := schl_cd + '-14-' + '005';
> Form_Qre_in.QR62.Caption := schl_cd + '-14-' + '006';
> Form_Qre_in.QR72.Caption := schl_cd + '-14-' + '007';
> Form_Qre_in.QR82.Caption := schl_cd + '-14-' + '008';
> Form_Qre_in.QR92.Caption := schl_cd + '-14-' + '009';
> Form_Qre_in.QR102.Caption := schl_cd + '-14-' + '010';
> Form_Qre_in.QR112.Caption := schl_cd + '-14-' + '011';
> Form_Qre_in.QR122.Caption := schl_cd + '-14-' + '012';
> Form_Qre_in.QR132.Caption := schl_cd + '-14-' + '013';
> Form_Qre_in.QR142.Caption := schl_cd + '-14-' + '014';
> Form_Qre_in.QR152.Caption := schl_cd + '-14-' + '015';
> Form_Qre_in.QR162.Caption := schl_cd + '-14-' + '016';
> Form_Qre_in.QR172.Caption := schl_cd + '-14-' + '017';
> Form_Qre_in.QR182.Caption := schl_cd + '-14-' + '018';
> Form_Qre_in.QR192.Caption := schl_cd + '-14-' + '019';
> Form_Qre_in.QR202.Caption := schl_cd + '-14-' + '020';
> Form_Qre_in.QR212.Caption := schl_cd + '-14-' + '021';
> Form_Qre_in.QR222.Caption := schl_cd + '-14-' + '022';
> Form_Qre_in.QR232.Caption := schl_cd + '-14-' + '023';
> Form_Qre_in.QR242.Caption := schl_cd + '-14-' + '024';
> Form_Qre_in.QR252.Caption := schl_cd + '-14-' + '025';
> form_Qre_in.QuickRep1.Preview;
> form_Qre_in.Close;
> Form_Qre_in.QR11.Caption := '26';
> Form_Qre_in.QR21.Caption := '27';
> Form_Qre_in.QR31.Caption := '28';
> Form_Qre_in.QR41.Caption := '29';
> Form_Qre_in.QR51.Caption := '30';
> Form_Qre_in.QR61.Caption := '31';
> Form_Qre_in.QR71.Caption := '32';
> Form_Qre_in.QR81.Caption := '33';
> Form_Qre_in.QR91.Caption := '34';
> Form_Qre_in.QR101.Caption := '35';
> Form_Qre_in.QR111.Caption := '36';
> Form_Qre_in.QR121.Caption := '37';
> Form_Qre_in.QR131.Caption := '38';
> Form_Qre_in.QR141.Caption := '39';
> Form_Qre_in.QR151.Caption := '40';
> Form_Qre_in.QR161.Caption := '41';
> Form_Qre_in.QR171.Caption := '42';
> Form_Qre_in.QR181.Caption := '43';
> Form_Qre_in.QR191.Caption := '44';
> Form_Qre_in.QR201.Caption := '45';
> Form_Qre_in.QR211.Caption := '46';
> Form_Qre_in.QR221.Caption := '47';
> Form_Qre_in.QR231.Caption := '48';
> Form_Qre_in.QR241.Caption := '49';
> Form_Qre_in.QR251.Caption := '50';
>
> Form_Qre_in.QR12.Caption := schl_cd + '-14-' + '026';
> Form_Qre_in.QR22.Caption := schl_cd + '-14-' + '027';
> Form_Qre_in.QR32.Caption := schl_cd + '-14-' + '028';
> Form_Qre_in.QR42.Caption := schl_cd + '-14-' + '029';
> Form_Qre_in.QR52.Caption := schl_cd + '-14-' + '030';
> Form_Qre_in.QR62.Caption := schl_cd + '-14-' + '031';
> Form_Qre_in.QR72.Caption := schl_cd + '-14-' + '032';
> Form_Qre_in.QR82.Caption := schl_cd + '-14-' + '033';
> Form_Qre_in.QR92.Caption := schl_cd + '-14-' + '034';
> Form_Qre_in.QR102.Caption := schl_cd + '-14-' + '035';
> Form_Qre_in.QR112.Caption := schl_cd + '-14-' + '036';
> Form_Qre_in.QR122.Caption := schl_cd + '-14-' + '037';
> Form_Qre_in.QR132.Caption := schl_cd + '-14-' + '038';
> Form_Qre_in.QR142.Caption := schl_cd + '-14-' + '039';
> Form_Qre_in.QR152.Caption := schl_cd + '-14-' + '040';
> Form_Qre_in.QR162.Caption := schl_cd + '-14-' + '041';
> Form_Qre_in.QR172.Caption := schl_cd + '-14-' + '042';
> Form_Qre_in.QR182.Caption := schl_cd + '-14-' + '043';
> Form_Qre_in.QR192.Caption := schl_cd + '-14-' + '044';
> Form_Qre_in.QR202.Caption := schl_cd + '-14-' + '045';
> Form_Qre_in.QR212.Caption := schl_cd + '-14-' + '046';
> Form_Qre_in.QR222.Caption := schl_cd + '-14-' + '047';
> Form_Qre_in.QR232.Caption := schl_cd + '-14-' + '048';
> Form_Qre_in.QR242.Caption := schl_cd + '-14-' + '049';
> Form_Qre_in.QR252.Caption := schl_cd + '-14-' + '050';
> form_Qre_in.QuickRep1.Preview;
> form_Qre_in.Close;
> Form_Qre_in.QRLabel6.Caption := '(5학년용)';
> Form_Qre_in.QR11.Caption := '1';
> Form_Qre_in.QR21.Caption := '2';
> Form_Qre_in.QR31.Caption := '3';
> Form_Qre_in.QR41.Caption := '4';
> Form_Qre_in.QR51.Caption := '5';
> Form_Qre_in.QR61.Caption := '6';
> Form_Qre_in.QR71.Caption := '7';
> Form_Qre_in.QR81.Caption := '8';
> Form_Qre_in.QR91.Caption := '9';
> Form_Qre_in.QR101.Caption := '10';
> Form_Qre_in.QR111.Caption := '11';
> Form_Qre_in.QR121.Caption := '12';
> Form_Qre_in.QR131.Caption := '13';
> Form_Qre_in.QR141.Caption := '14';
> Form_Qre_in.QR151.Caption := '15';
> Form_Qre_in.QR161.Caption := '16';
> Form_Qre_in.QR171.Caption := '17';
> Form_Qre_in.QR181.Caption := '18';
> Form_Qre_in.QR191.Caption := '19';
> Form_Qre_in.QR201.Caption := '20';
> Form_Qre_in.QR211.Caption := '21';
> Form_Qre_in.QR221.Caption := '22';
> Form_Qre_in.QR231.Caption := '23';
> Form_Qre_in.QR241.Caption := '24';
> Form_Qre_in.QR251.Caption := '25';
> Form_Qre_in.QR12.Caption := schl_cd + '-15-' + '001';
> Form_Qre_in.QR22.Caption := schl_cd + '-15-' + '002';
> Form_Qre_in.QR32.Caption := schl_cd + '-15-' + '003';
> Form_Qre_in.QR42.Caption := schl_cd + '-15-' + '004';
> Form_Qre_in.QR52.Caption := schl_cd + '-15-' + '005';
> Form_Qre_in.QR62.Caption := schl_cd + '-15-' + '006';
> Form_Qre_in.QR72.Caption := schl_cd + '-15-' + '007';
> Form_Qre_in.QR82.Caption := schl_cd + '-15-' + '008';
> Form_Qre_in.QR92.Caption := schl_cd + '-15-' + '009';
> Form_Qre_in.QR102.Caption := schl_cd + '-15-' + '010';
> Form_Qre_in.QR112.Caption := schl_cd + '-15-' + '011';
> Form_Qre_in.QR122.Caption := schl_cd + '-15-' + '012';
> Form_Qre_in.QR132.Caption := schl_cd + '-15-' + '013';
> Form_Qre_in.QR142.Caption := schl_cd + '-15-' + '014';
> Form_Qre_in.QR152.Caption := schl_cd + '-15-' + '015';
> Form_Qre_in.QR162.Caption := schl_cd + '-15-' + '016';
> Form_Qre_in.QR172.Caption := schl_cd + '-15-' + '017';
> Form_Qre_in.QR182.Caption := schl_cd + '-15-' + '018';
> Form_Qre_in.QR192.Caption := schl_cd + '-15-' + '019';
> Form_Qre_in.QR202.Caption := schl_cd + '-15-' + '020';
> Form_Qre_in.QR212.Caption := schl_cd + '-15-' + '021';
> Form_Qre_in.QR222.Caption := schl_cd + '-15-' + '022';
> Form_Qre_in.QR232.Caption := schl_cd + '-15-' + '023';
> Form_Qre_in.QR242.Caption := schl_cd + '-15-' + '024';
> Form_Qre_in.QR252.Caption := schl_cd + '-15-' + '025';
> form_Qre_in.QuickRep1.Preview;
> form_Qre_in.Close;
> Form_Qre_in.QR11.Caption := '26';
> Form_Qre_in.QR21.Caption := '27';
> Form_Qre_in.QR31.Caption := '28';
> Form_Qre_in.QR41.Caption := '29';
> Form_Qre_in.QR51.Caption := '30';
> Form_Qre_in.QR61.Caption := '31';
> Form_Qre_in.QR71.Caption := '32';
> Form_Qre_in.QR81.Caption := '33';
> Form_Qre_in.QR91.Caption := '34';
> Form_Qre_in.QR101.Caption := '35';
> Form_Qre_in.QR111.Caption := '36';
> Form_Qre_in.QR121.Caption := '37';
> Form_Qre_in.QR131.Caption := '38';
> Form_Qre_in.QR141.Caption := '39';
> Form_Qre_in.QR151.Caption := '40';
> Form_Qre_in.QR161.Caption := '41';
> Form_Qre_in.QR171.Caption := '42';
> Form_Qre_in.QR181.Caption := '43';
> Form_Qre_in.QR191.Caption := '44';
> Form_Qre_in.QR201.Caption := '45';
> Form_Qre_in.QR211.Caption := '46';
> Form_Qre_in.QR221.Caption := '47';
> Form_Qre_in.QR231.Caption := '48';
> Form_Qre_in.QR241.Caption := '49';
> Form_Qre_in.QR251.Caption := '50';
>
> Form_Qre_in.QR12.Caption := schl_cd + '-15-' + '026';
> Form_Qre_in.QR22.Caption := schl_cd + '-15-' + '027';
> Form_Qre_in.QR32.Caption := schl_cd + '-15-' + '028';
> Form_Qre_in.QR42.Caption := schl_cd + '-15-' + '029';
> Form_Qre_in.QR52.Caption := schl_cd + '-15-' + '030';
> Form_Qre_in.QR62.Caption := schl_cd + '-15-' + '031';
> Form_Qre_in.QR72.Caption := schl_cd + '-15-' + '032';
> Form_Qre_in.QR82.Caption := schl_cd + '-15-' + '033';
> Form_Qre_in.QR92.Caption := schl_cd + '-15-' + '034';
> Form_Qre_in.QR102.Caption := schl_cd + '-15-' + '035';
> Form_Qre_in.QR112.Caption := schl_cd + '-15-' + '036';
> Form_Qre_in.QR122.Caption := schl_cd + '-15-' + '037';
> Form_Qre_in.QR132.Caption := schl_cd + '-15-' + '038';
> Form_Qre_in.QR142.Caption := schl_cd + '-15-' + '039';
> Form_Qre_in.QR152.Caption := schl_cd + '-15-' + '040';
> Form_Qre_in.QR162.Caption := schl_cd + '-15-' + '041';
> Form_Qre_in.QR172.Caption := schl_cd + '-15-' + '042';
> Form_Qre_in.QR182.Caption := schl_cd + '-15-' + '043';
> Form_Qre_in.QR192.Caption := schl_cd + '-15-' + '044';
> Form_Qre_in.QR202.Caption := schl_cd + '-15-' + '045';
> Form_Qre_in.QR212.Caption := schl_cd + '-15-' + '046';
> Form_Qre_in.QR222.Caption := schl_cd + '-15-' + '047';
> Form_Qre_in.QR232.Caption := schl_cd + '-15-' + '048';
> Form_Qre_in.QR242.Caption := schl_cd + '-15-' + '049';
> Form_Qre_in.QR252.Caption := schl_cd + '-15-' + '050';
> form_Qre_in.QuickRep1.Preview;
> form_Qre_in.Close;
> Form_Qre_in.QRLabel6.Caption := '(6학년용)';
> Form_Qre_in.QR11.Caption := '1';
> Form_Qre_in.QR21.Caption := '2';
> Form_Qre_in.QR31.Caption := '3';
> Form_Qre_in.QR41.Caption := '4';
> Form_Qre_in.QR51.Caption := '5';
> Form_Qre_in.QR61.Caption := '6';
> Form_Qre_in.QR71.Caption := '7';
> Form_Qre_in.QR81.Caption := '8';
> Form_Qre_in.QR91.Caption := '9';
> Form_Qre_in.QR101.Caption := '10';
> Form_Qre_in.QR111.Caption := '11';
> Form_Qre_in.QR121.Caption := '12';
> Form_Qre_in.QR131.Caption := '13';
> Form_Qre_in.QR141.Caption := '14';
> Form_Qre_in.QR151.Caption := '15';
> Form_Qre_in.QR161.Caption := '16';
> Form_Qre_in.QR171.Caption := '17';
> Form_Qre_in.QR181.Caption := '18';
> Form_Qre_in.QR191.Caption := '19';
> Form_Qre_in.QR201.Caption := '20';
> Form_Qre_in.QR211.Caption := '21';
> Form_Qre_in.QR221.Caption := '22';
> Form_Qre_in.QR231.Caption := '23';
> Form_Qre_in.QR241.Caption := '24';
> Form_Qre_in.QR251.Caption := '25';
> Form_Qre_in.QR12.Caption := schl_cd + '-16-' + '001';
> Form_Qre_in.QR22.Caption := schl_cd + '-16-' + '002';
> Form_Qre_in.QR32.Caption := schl_cd + '-16-' + '003';
> Form_Qre_in.QR42.Caption := schl_cd + '-16-' + '004';
> Form_Qre_in.QR52.Caption := schl_cd + '-16-' + '005';
> Form_Qre_in.QR62.Caption := schl_cd + '-16-' + '006';
> Form_Qre_in.QR72.Caption := schl_cd + '-16-' + '007';
> Form_Qre_in.QR82.Caption := schl_cd + '-16-' + '008';
> Form_Qre_in.QR92.Caption := schl_cd + '-16-' + '009';
> Form_Qre_in.QR102.Caption := schl_cd + '-16-' + '010';
> Form_Qre_in.QR112.Caption := schl_cd + '-16-' + '011';
> Form_Qre_in.QR122.Caption := schl_cd + '-16-' + '012';
> Form_Qre_in.QR132.Caption := schl_cd + '-16-' + '013';
> Form_Qre_in.QR142.Caption := schl_cd + '-16-' + '014';
> Form_Qre_in.QR152.Caption := schl_cd + '-16-' + '015';
> Form_Qre_in.QR162.Caption := schl_cd + '-16-' + '016';
> Form_Qre_in.QR172.Caption := schl_cd + '-16-' + '017';
> Form_Qre_in.QR182.Caption := schl_cd + '-16-' + '018';
> Form_Qre_in.QR192.Caption := schl_cd + '-16-' + '019';
> Form_Qre_in.QR202.Caption := schl_cd + '-16-' + '020';
> Form_Qre_in.QR212.Caption := schl_cd + '-16-' + '021';
> Form_Qre_in.QR222.Caption := schl_cd + '-16-' + '022';
> Form_Qre_in.QR232.Caption := schl_cd + '-16-' + '023';
> Form_Qre_in.QR242.Caption := schl_cd + '-16-' + '024';
> Form_Qre_in.QR252.Caption := schl_cd + '-16-' + '025';
> form_Qre_in.QuickRep1.Preview;
> form_Qre_in.Close;
> Form_Qre_in.QR11.Caption := '26';
> Form_Qre_in.QR21.Caption := '27';
> Form_Qre_in.QR31.Caption := '28';
> Form_Qre_in.QR41.Caption := '29';
> Form_Qre_in.QR51.Caption := '30';
> Form_Qre_in.QR61.Caption := '31';
> Form_Qre_in.QR71.Caption := '32';
> Form_Qre_in.QR81.Caption := '33';
> Form_Qre_in.QR91.Caption := '34';
> Form_Qre_in.QR101.Caption := '35';
> Form_Qre_in.QR111.Caption := '36';
> Form_Qre_in.QR121.Caption := '37';
> Form_Qre_in.QR131.Caption := '38';
> Form_Qre_in.QR141.Caption := '39';
> Form_Qre_in.QR151.Caption := '40';
> Form_Qre_in.QR161.Caption := '41';
> Form_Qre_in.QR171.Caption := '42';
> Form_Qre_in.QR181.Caption := '43';
> Form_Qre_in.QR191.Caption := '44';
> Form_Qre_in.QR201.Caption := '45';
> Form_Qre_in.QR211.Caption := '46';
> Form_Qre_in.QR221.Caption := '47';
> Form_Qre_in.QR231.Caption := '48';
> Form_Qre_in.QR241.Caption := '49';
> Form_Qre_in.QR251.Caption := '50';
>
> Form_Qre_in.QR12.Caption := schl_cd + '-16-' + '026';
> Form_Qre_in.QR22.Caption := schl_cd + '-16-' + '027';
> Form_Qre_in.QR32.Caption := schl_cd + '-16-' + '028';
> Form_Qre_in.QR42.Caption := schl_cd + '-16-' + '029';
> Form_Qre_in.QR52.Caption := schl_cd + '-16-' + '030';
> Form_Qre_in.QR62.Caption := schl_cd + '-16-' + '031';
> Form_Qre_in.QR72.Caption := schl_cd + '-16-' + '032';
> Form_Qre_in.QR82.Caption := schl_cd + '-16-' + '033';
> Form_Qre_in.QR92.Caption := schl_cd + '-16-' + '034';
> Form_Qre_in.QR102.Caption := schl_cd + '-16-' + '035';
> Form_Qre_in.QR112.Caption := schl_cd + '-16-' + '036';
> Form_Qre_in.QR122.Caption := schl_cd + '-16-' + '037';
> Form_Qre_in.QR132.Caption := schl_cd + '-16-' + '038';
> Form_Qre_in.QR142.Caption := schl_cd + '-16-' + '039';
> Form_Qre_in.QR152.Caption := schl_cd + '-16-' + '040';
> Form_Qre_in.QR162.Caption := schl_cd + '-16-' + '041';
> Form_Qre_in.QR172.Caption := schl_cd + '-16-' + '042';
> Form_Qre_in.QR182.Caption := schl_cd + '-16-' + '043';
> Form_Qre_in.QR192.Caption := schl_cd + '-16-' + '044';
> Form_Qre_in.QR202.Caption := schl_cd + '-16-' + '045';
> Form_Qre_in.QR212.Caption := schl_cd + '-16-' + '046';
> Form_Qre_in.QR222.Caption := schl_cd + '-16-' + '047';
> Form_Qre_in.QR232.Caption := schl_cd + '-16-' + '048';
> Form_Qre_in.QR242.Caption := schl_cd + '-16-' + '049';
> Form_Qre_in.QR252.Caption := schl_cd + '-16-' + '050';
> form_Qre_in.QuickRep1.Preview;
> form_Qre_in.Close;
>
> end;
> end;
> end.
>
>
> 흑흑!!
> 무지막지하게 무식한 방법으로 퀵리포터로 찍었습니다.
> 텍스트를 읽어서 위와 같이 배열로 저장한 뒤에..
> 학원별, 학년별,1번~25번,26번~50번,그리고 뒤에 붙은 학원코드(schl_cd)까정..
> 다 변환하면서.. 바로 찍으려니 어쩔수가 없었습니다.
> 위와 같이 하니깐.. 페이지 스킵이 안되는군요..당연하겠지만..ㅠ.ㅠ
>
> 혹시 아시는분 계심 페이지 스킵 되게 좀 해주세요.
> 제발 부탁입니다.
> 정말 급합니당.
> 끙~~