procedure TfrmJuchu.FormCreate(Sender: TObject);
begin
  tblJuchuH.Open;
end;

procedure TfrmJuchu.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  tblJuchuH.Close;
end;

procedure TfrmJuchu.EditNoExit(Sender: TObject);
begin
  //受注NOが未入力なら処理なし
  if  EditNo.Text = ''  then
     Exit;
  //入力値のチェック
  if StrToIntDef(EditNo.Text,-1)<0 then
  begin
    //受注番号に数値以外が入っている場合
    MessageDlg('受注番号には数値を入力してください。',mtError,[mbOK],0);
    //初期化
    EditNo.Text:= '';
    //処理を抜ける
    Exit;
  end;     
  //[修正]時、データ呼び出し
  if  sbnUpdate.Down  then    //SpeedButton[修正]Down時
  begin
    //受注ヘッダーファイルより
    with  tblJUCHUH  do
    begin
      if  FindKey([StrToInt(EditNo.Text)])  then
      begin
        EditTokui.Text  := FieldByName('SJTKCD').AsString;      //得意先コード
        EditTokuNm.Text := FieldByName('SJTKKJ').AsString;      //得意先名
        EditNohin.Text  := FieldByName('SJEUSR').AsString;      //納品先コード
        EditNohinNm.Text:= FieldByName('SJEUKJ').AsString;      //納品先名
      end
      else
      begin
        MessageDlg('データが存在しません',mtError,[mbOK],0);
        Abort;
      end;
    end;
    //受注明細ファイルより
    cdsJUCHUM.Active := False;
    with  qryJUCHUM  do
    begin
      Active := False;
      ParamByName('pSKJUNO').AsInteger := StrToInt(EditNo.Text);
    end;
    cdsJUCHUM.Active := True;
  end;
end;