아래는 만들구 싶은위치에 소스구여
메시지박스를 만들어서 한번더 확인하구싶거던여...
지가 델파이를 한지 얼마안디서 잘몰라여...
메시지박스를 만들구 싶은데...저장버튼을 누르면...
내용이 맞는지 확인하고 맞다구 하면 저장하구..틀리다구..하면..
기냥 빠져나가게 만들구 싶거던여....어떻게 하면되는지
아시는 분 자세히좀 적어주세여..어떻게 하는건가 보구싶어여...
그리고 datetimepiker는 어떻게 사용하는건가여...
예제있으신분은 예제좀올려주세여...


procedure TForm3.Button9Click(Sender: TObject);
begin
    WITH   ADGgrid DO
    BEGIN
      CLOSE ;
      SQL.Clear ;
      sQL.Add('insert  H01_DEPT ( H01_FACTCO  ,  ');
      sQL.Add(' H01_DEPTCO  ,  ');
      sQL.Add(' H01_DEPSEQ  ,  ');
//      sQL.Add(' MaskEdit1  ,  ');
      sQL.Add(' H01_DEPTNA  ,  ');
      sQL.Add(' H01_LEVEID  ,  ');
      sQL.Add(' H01_USEDID )  ');
      sQL.Add(' values ( ');
      sQL.Add(Format(' ''%S'' , ',[HyperGrid1.Cells[1,HyperGrid1.row]]));
      sQL.Add(Format(' ''%S'' , ',[HyperGrid1.Cells[2,HyperGrid1.row]]));
      sQL.Add(Format(' ''%S'' , ',[HyperGrid1.Cells[3,HyperGrid1.row]]));
//      sQL.Add(Format(' ''%S'' , ',[HyperGrid1.Cells[4,HyperGrid1.row]]));
      sQL.Add(Format(' ''%S'' , ',[HyperGrid1.Cells[5,HyperGrid1.row]]));
      sQL.Add(Format(' ''%S'' , ',[HyperGrid1.Cells[6,HyperGrid1.row]]));
      sQL.Add(Format(' ''%S''   ',[HyperGrid1.Cells[7,HyperGrid1.row]]));
      sQL.Add(' ) ');
      edit1.text := sql.text ;
      execsql;
    end ;
end;