edparts.vbs

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

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

'-------------------------------------------------------------------

sub Edit(PartNo)
  MastData.Parts.Open
  call MastData.Parts.Locate("PartNo", PartNo, 0)
  EdPartsForm.ShowModal
End Sub

'-------------------------------------------------------------------

sub PrintBtnClick(Sender)
  if MessageDlg("   Print this form?", mtConfirmation, MkSet(mbYes,mbNo), 0)= mrYes then Print
End Sub

'-------------------------------------------------------------------

sub FormCloseQuery(Sender,CanClose)
  CanClose = Datamod.DataSetApplyUpdates(MastData.Parts, (ModalResult = mrOK))
End SUb