close;
      sql.clear;
      sql.add('select * from Gtrs where jdate = :jdate and jno = :jno');
      parambyname('jdate').asdatetime := Datetimepicker1.datetime;
      parambyname('jno').asstring := edtjno.text;
      open;
        if recordcount < 1 then
        begin
         if edtgubun.text = '15' then
         isu := edtqty.value
        else
         osu := edtqty.value;
       close;
       sql.clear;
       sql.add('insert into Gtrs (jdate, jno, gubun, custcode, itemcode, qty)');
       sql.add('values (:jdate, :jno, :gubun, :custcode, :itemcode, :qty)');
       parambyname('jdate').AsDatetime := DateTimePicker1.datetime;
       parambyname('jno').asstring := edtjno.text;
       parambyname('gubun').asstring := edtgubun.text;
       parambyname('custcode').asstring := edtcustcode.text;
       parambyname('itemcode').asstring := edtitemcode.text;
       parambyname('qty').asfloat := edtqty.value;
       execsql;
       // gmst check
          close;
          sql.clear;
          sql.add('select * from Gmst where itemcode = :itemcode ');
          parambyname('itemcode').asstring := edtitemcode.text;
          open;
          if recordcount < 1 then
          begin
           close;
           sql.clear;
           sql.add('insert into Gmst (itemcode, iqty, oqty, hqty) ');
           sql.add('values (:itemcode, :iqty, :oqty, :hqty)');
           parambyname('itemcode').asstring := edtitemcode.text;
           parambyname('iqty').asfloat := isu;
           parambyname('oqty').asfloat := osu;
           parambyname('hqty').asfloat := edtqty.value;
           execsql;
          end
          else
          begin
             tisu := fieldbyname('iqty').asfloat;
             tosu := fieldbyname('oqty').asfloat;
             thsu := fieldbyname('hqty').asfloat;
          //gmst update
           close;
           sql.clear;
           sql.add('update gmst set iqty = :iqty, oqty = :oqty, hqty = :hqty');
           sql.add('where itemcode = :itemcode');
           parambyname('itemcode').asstring := edtitemcode.text;
           if edtgubun.text = '15' then
           begin
             parambyname('iqty').asfloat := tisu + isu;
             parambyname('oqty').asfloat := tosu;
             parambyname('hqty').asfloat := thsu + isu;
           end
           else
           begin
             parambyname('iqty').asfloat := tisu;
             parambyname('oqty').asfloat := tosu + osu;
             parambyname('hqty').asfloat := thsu - osu;
           end;
           execsql;


날짜를 선택(예를 들어 4월 20일 선택하면..) 하면.. 디비그리드에 4월 20일의 날짜, 번호, 구분번호, 거래처 코드, 품목코드, 수량이 뿌려져야 하거든요
근데 그걸 정의해주는 소스를 어떻게 써야 하나욤? 간단한 문제 인것 같은뎅
어떻게 손을대야 할지 몰라서 자문을 좀 구할려구요..
갈켜주세요 아시는 분??