Edit 콤퍼넌트 2개를 두고 범위를 지정해서

인쇄하는 프로그램임다.

그런데, Edit 콤퍼넌트 2개에 데이타를

입력하고 인쇄를 하면 그 범위 안에서만

출력이 되야하는데 이건 잘 됩니다.

하지만 Edit 콤퍼넌트 2개에 "null"값을 줘서

(Edit 콤퍼넌트에 데이타 입력 안하고 출력..)

전체적인 데이타가 출력이 되야합니다.

물론 처음 Edit 콤퍼넌트에는 데이타의

처음이 move되있어야하고 두번째 Edit 콤퍼넌트에는

데이타의 마지막이 move되있어야하는데

잘 모르겠습니다.



작업한 소스임다..함 봐주세요...

procedure Tah7100_f.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := caFree;

end;



procedure Tah7100_f.FormCreate(Sender: TObject);

begin

sitem_code_select;

eitem_code_select;

item_sCB.ItemIndex := -1;

item_eCB.ItemIndex := -1;

item_sCB.Text := ' ';

end;



procedure Tah7100_f.PrintBitBtnClick(Sender: TObject);

begin

if MessageDlg(' 정말로 인쇄 합니까.?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then

S_QRlabel.Caption := item_sCB.Text;

E_QRlabel.Caption := item_eCB.Text;



Query1.Close;

Query1.SQL.clear;

Query1.SQL.Add (' select mast_item, mast_modl, mast_name, mast_suff, mast_unit, mast_date from mimast ');

Query1.SQL.Add (' where mast_item between '''+item_sCB.Text+''' and '''+item_eCB.Text+''' ');

Query1.SQL.Add (' order by mast_item ');

Query1.Open;



if Query1.RecordCount <> 0 then

MesgStatusBar.SimpleText := 'MESG:' + IntToStr(Query1.RecordCount) + ' 건 인쇄완료 하였습니다.!!'

else MesgStatusBar.SimpleText := 'MESG:인쇄할 자료가 없습니다.!!';



QuickRep1.Preview;



end;



procedure Tah7100_f.sitem_code_select;

begin

item_sCB.Clear;

with Query2 do

begin

Close;

SQL.Clear;

SQL.Add(' select distinct(mast_item) from mimast ');

SQL.Add(' order by mast_item ');

Open;

First;

end;



while Not Query2.EOF do

begin

item_sCB.Items.Add(Query2.Fields[0].AsString);

Query2.Next;

end;

end;



procedure Tah7100_f.eitem_code_select;

begin

item_eCB.Clear;

with Query2 do

begin

Close;

SQL.Clear;

SQL.Add(' select distinct(mast_item) from mimast ');

SQL.Add(' order by mast_item ');

Open;

First;

end;



while Not Query2.EOF do

begin

item_eCB.Items.Add(Query2.Fields[0].AsString);

Query2.Next;

end;

end;



procedure Tah7100_f.ExitBitBtnClick(Sender: TObject);

begin

close;

end;



procedure Tah7100_f.enterKeyPress(Sender: TObject; var Key: Char);

begin

if key = #13 then

begin

selectNext(sender as tWinControl, True, True);

key := #0;

end;

end;



end.