procedure TfrmJuchu.BtnModClick(Sender: TObject);
begin
  //データセットが開いていない場合は処理を抜ける
  if cdsJuchuM.Eof then
    Exit;
  //登録・修正モード以外は不可
  if  not sbnInsert.Down  and  not sbnUpdate.Down  then
  begin
    MessageDlg('登録または修正以外は実行できません',
         mtError	,[mbOK],0);
    Abort;
  end;
  //受注番号入力チェック
  if  (EditNo.Text = '')  then
  begin
    MessageDlg('受注番号が未入力です',mtError	,[mbOK],0);
    Abort;
  end;
  //明細入力画面呼び出し
  frmMeisai := TfrmMeisai.Create(Self);
  //登録フラグをFalse
  frmMeisai.SINSFLG := False;
  //クライアントデータセット上のRECNOを取得
  frmMeisai.srecno := DBGrid1.DataSource.DataSet.RecNo;
  //明細入力画面終了後
  if  frmMeisai.ShowModal = mrOk then
    cdsJuchuM.Post;
  frmMeisai.Release;
end;