if (FReceiveInq.ShowModal=mrOk) then
begin
FlatEdit1.text:=FRInq.QTotal.FieldByNAme('Comp_Code').asstring;
FlatComboBox1.Text:=FRInq.QTotal.FieldByNAme('Worker').asstring;
Label45.caption:=CompFind(FlatEdit1.text);
FlatEdit2.text:=FRInq.QTotal.FieldByNAme('Bill_No').asstring;
DateEdit1.text:=DateDisplay(FRInq.QTotal.FieldByNAme('In_Date').asstring);
end;
FRInq.Free;
end;
//버튼을 클릭했을때 발생시키면될꺼 같은데요.
Form2:= TForm2.Create(Application);
Form2.Show;
허접한 답변입니다..
즐코하세요