edparts.js

来自「Dream Scripter v3.5 Full Source Code」· JavaScript 代码 · 共 32 行

//USEUNIT dcdbctl
//USEUNIT Db
//USEUNIT StdCtrls
//USEUNIT DBCtrls
//USEUNIT Buttons
//USEUNIT ExtCtrls
//USEUNIT Datamod

//-------------------------------------------------------------------

function Edit(PartNo)
{
  MastData.Parts.Open;
  MastData.Parts.Locate("PartNo", PartNo, 0);
  EdPartsForm.ShowModal;
}

//-------------------------------------------------------------------

function PrintBtnClick(Sender)
{
  if (MessageDlg("   Print this form?", mtConfirmation, MkSet(mbYes,mbNo), 0)== mrYes )
     Print;
}

//-------------------------------------------------------------------

function FormCloseQuery(Sender,CanClose)
{
  CanClose = Datamod.DataSetApplyUpdates(MastData.Parts, ModalResult == mrOK);
}