<!--CodeS-->
procedure Trelayjo.Button3Click(Sender: TObject);
begin
    close;
end;

procedure Trelayjo.Button1Click(Sender: TObject);
var
    sql: string;
    SQLText : string;
    i: integer;
begin

    SQLText := 'Select b.partno, b.lot, b.sn, a.pcbsn, a.ilja, a.sigan ';
    SQLText := SQLText + 'from relayjo a left outer join barcode b on (a.pcbsn = b.vndsn) ';
    SQLText := SQLText + 'where a.ilja >= ''' + FormatDateTime('yyyy-mm-dd, DateTimePicker1.Datetime)+ ''' and b.ilja <= ''' + FormatDateTime('yyyy-mm-dd', DateTimePicker2.Datetime) + '''';
    SQLText := SQLText + 'order by a.ilja, a.sigan';
    edit1.Text := sqltext;

    with adoquery1 do begin
        Close;
        sql.Clear;
        sql.text := SQLText;
        open;
        showmessage(inttostr(adoquery1.RecordCount));
        for i := 1 to RecordCount do begin
            stringgrid1.RowCount := RecordCount+1;

            stringgrid1.Cells[0,i] := Trim(FieldByName('partno').asstring);
            stringgrid1.Cells[1,i] := Trim(FieldByName('lot').asstring);
            stringgrid1.Cells[2,i] := Trim(FieldByName('sn').asstring);
            stringgrid1.Cells[3,i] := Trim(FieldByName('pcbsn').asstring);
            stringgrid1.Cells[4,i] := Trim(FieldByName('ilja').asstring);
            stringgrid1.Cells[5,i] := Trim(FieldByName('sigan').asstring);

            next;
        end;
    end;

    adoquery1.Close;
    adoquery1.SaveToFile(button2.caption);

end;

procedure trelayjo.StringGrid1selectcell(Sender: TObject; acol,
          ARow: Integer; var CanSelect: Boolean);
begin
    aRow := aRow;
end;

procedure Trelayjo.FormCreate(Sender: TObject);

begin
    datetimepicker1.DateTime:= now;
    datetimepicker2.DateTime:= now;

    button2.caption := 'C:\' + FormatDateTime('yyyymmdd',now) + FormatDateTime('yyyymmdd',now) + '릴레이조회현황.txt';

    StringGrid1.ColCount := 6;
    StringGrid1.ColWidths[0] := 100;
    StringGrid1.ColWidths[1] := 100;
    StringGrid1.ColWidths[2] := 100;
    StringGrid1.ColWidths[3] := 100;
    StringGrid1.ColWidths[4] := 100;
    StringGrid1.ColWidths[5] := 100;

    stringgrid1.Cells[0,0]:= 'partno';
    stringgrid1.Cells[1,0]:= 'lot';
    stringgrid1.Cells[2,0]:= 'sn';
    stringgrid1.cells[3,0]:= 'pcbsn';
    stringgrid1.cells[4,0]:= 'ilja';
    stringgrid1.cells[5,0]:= 'sigan';

end;
procedure Trelayjo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    action := cafree;
end;

end.
<!--CodeE-->

전체 소스이고 모든것이 출력이 다 됩니다..

한가지 문제점은 저장버튼입니다..

소스를 보면 button2.caption := 'C:\' + FormatDateTime('yyyymmdd',now) + FormatDateTime('yyyymmdd',now) + '릴레이조회현황.txt';   이 구절과

    adoquery1.Close;
    adoquery1.SaveToFile(button2.caption); 이구절!!  F9를 눌러 실행하면 여기서 딱 걸립니다..

이렇게 두 구절이 나옵니다..

머리가 나빠서 마무리를 못하고 있습니다..

button2 를 눌렀을 때 txt 파일로 저장이 되야 합니다...

고수님들 꼭 도와주십시요...ㅠㅠ