전체적인 코드내용입니다.

제가 하고 싶은건 "kubun_sCB"과"kubun_eCB"을"date_sDTPicker(DateTimePicker)"와

"date_eDTPicker(DateTimePicker)"바꿔서 프로그램을 짜고 싶은데 제가 한 방법은

"kubun_sCB"과"kubun_eCB"을"date_sDTPicker(DateTimePicker)"와"date_eDTPicker(DateTimePicker)"로 전부 바꿨더니 여러개의 에러가 발생합니다.

제가 생각하기엔 DateTimePicker의 코드에 대한 내용이 잘못된거 같은데....

여기서는 어떻게 해야하는지 궁금해서요...?

초보라 잘모르니 자세하게 설명좀 부탁합니다.

(p.s 여기서 FormCreate의 "skubun_code_select","ekubun_code_select"은

"kubun_sCB"와"kubun_eCB"의 이벤트 체인지를 바꿔서 임의로 작성한것임 ...)

*********************************************************************************

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

begin

Action := caFree;

end;



procedure Tah7200_f.FormCreate(Sender: TObject);

begin

sitem_code_select;

eitem_code_select;

skubun_code_select;

ekubun_code_select;

item_sCB.ItemIndex := -1;

item_eCB.ItemIndex := -1;

kubun_sCB.ItemIndex := -1;

kubun_eCB.ItemIndex := -1;

item_sCB.Text := ' ';

//kubun_sCB.Text := ' ';

end;



procedure Tah7200_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;

S1_QRlabel.Caption := kubun_sCB.Text;

E1_QRlabel.Caption := kubun_eCB.Text;



Query1.Close;

Query1.SQL.clear;

Query1.SQL.Add (' select siot_item, siot_kubun, mast_modl, mast_name, ');

Query1.SQL.Add (' siot_diwol, siot_dinpt, siot_doupt, siot_stok');

Query1.SQL.Add (' from misiot,mimast ');

Query1.SQL.Add (' where ((siot_item = mast_item(+)) and ');

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

Query1.SQL.Add (' (siot_kubun between '''+kubun_sCB.Text+''' and '''+kubun_eCB.Text+''')) ');

Query1.SQL.Add (' order by siot_item, siot_kubun ');

Query1.open;



if Query1.RecordCount <> 0 then

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

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



QuickRep1.Preview;



end;



procedure Tah7200_f.sitem_code_select;

begin

item_sCB.Clear;

with Query2 do

begin

Close;

SQL.Clear;

SQL.Add(' select distinct(siot_item) from misiot ');

SQL.Add(' order by siot_item ');

Open;

First;

end;



while Not Query2.EOF do

begin

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

Query2.Next;

end;

end;



procedure Tah7200_f.eitem_code_select;

begin

item_eCB.Clear;

with Query2 do

begin

Close;

SQL.Clear;

SQL.Add(' select distinct(siot_item) from misiot ');

SQL.Add(' order by siot_item ');

Open;

First;

end;



while Not Query2.EOF do

begin

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

Query2.Next;

end;

end;



procedure Tah7200_f.skubun_code_select;

begin

kubun_sCB.Clear;

with Query2 do

begin

Close;

SQL.Clear;

SQL.Add(' select distinct(siot_kubun) from misiot ');

SQL.Add(' order by siot_kubun ');

Open;

First;

end;



while Not Query2.EOF do

begin

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

Query2.Next;

end;

end;



procedure Tah7200_f.ekubun_code_select;

begin

kubun_eCB.Clear;

with Query2 do

begin

Close;

SQL.Clear;

SQL.Add(' select distinct(siot_kubun) from misiot ');

SQL.Add(' order by siot_kubun ');

Open;

First;

end;



while Not Query2.EOF do

begin

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

Query2.Next;

end;

end;



procedure Tah7200_f.ExitBitBtnClick(Sender: TObject);

begin

close;

end;



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

begin

if key = #13 then

begin

selectNext(sender as tWinControl, True, True);

key := #0;

end;

end;



end.