brcstord.vbs

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

'USEUNIT Edcust
'USEUNIT Qrycust
'USEUNIT Edorders
'USEUNIT Datamod

dim  FActiveSource


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

function GetCustNo()
  GetCustNo = MastData.CustMasterSrc.Dataset.Fields(0).Value
End function

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

sub SetCustNo(NewCustNo)
  MastData.CustMasterSrc.Dataset = MastData.Cust
  call MastData.Cust.Locate("CustNo", NewCustNo, 0)
End Sub

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

function GetOrderNo()
  GetOrderNo = MastData.OrdByCustOrderNo.Value
End function

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

sub SetOrderNo(NewOrderNo)
  call MastData.OrdByCust.Locate("OrderNo", NewOrderNo, 0)
End Sub

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

sub SetActiveSource(DataSource)
  FActiveSource = DataSource
  Navigator.DataSource = FActiveSource
End Sub

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

sub CustGridEnter(Sender)
  SetActiveSource(MastData.CustMasterSrc)
  CustGrid.Options = CustGrid.Options or mkset(dgAlwaysShowSelection)
  OrdersGrid.Options = OrdersGrid.Options and not mkset(dgAlwaysShowSelection)
End Sub

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

sub OrdersGridEnter(Sender)
  SetActiveSource(MastData.OrdByCustSrc)
  OrdersGrid.Options = OrdersGrid.Options or mkset(dgAlwaysShowSelection)
  CustGrid.Options = CustGrid.Options and not mkset(dgAlwaysShowSelection)
End Sub

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

sub SetQuery(Sender)
  if QueryCustDlg.ShowModal = mrOK then  ActivateQuery(BrCustOrdForm)
End Sub

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

sub ActivateQuery(Sender)
  if not ActivateBtn.Down  then
    MastData.CustMasterSrc.Dataset = MastData.Cust
  else
    MastData.CustQuery.Close
    MastData.CustQuery.ParamByName("FromDate").AsDateTime = Qrycust.GetFromDate()
    MastData.CustQuery.ParamByName("ToDate").AsDateTime = Qrycust.GetToDate()
    MastData.CustQuery.Open
    if MastData.CustQuery.BOF and  MastData.CustQuery.EOF then Abort
      MastData.CustMasterSrc.Dataset = MastData.CustQuery
  End If
End Sub

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

sub EditBtnClick(Sender)
  F = FActiveSource.Dataset.Fields(0)
  if FActiveSource is MastData.CustMasterSrc then
    Edcust.Edit(F.Value)
  else
    Edorders.Edit(F.Value)
    FActiveSource.Dataset.Refresh
  End If
End Sub

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

sub CloseBtnClick(Sender)
  Close
End Sub

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

sub FormShow(Sender)
  MastData.Cust.Open
  MastData.Cust.First
End Sub