edcust.js

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

//USEUNIT Datamod

function Edit(CustNo)
{
  MastData.Cust.Open;
  MastData.Cust.Locate("CustNo", CustNo, 0);
  ShowModal;
}

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

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