srchdlg.vbs

Dream Scripter v3.5 Full Source Code

'USEUNIT Db
'USEUNIT DBGrids
'USEUNIT Buttons
'USEUNIT StdCtrls
'USEUNIT Datamod

dim SrchFld

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

function GetCustNo()
  GetCustNo = MastData.CustCustNo.Value
End Function

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

sub SetCustNo(NewCustNo)
  call MastData.Cust.Locate("CustNo", NewCustNo, 0)
End sub

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

function GetPartNo()
  GetPartNo =  MastData.PartsPartNo.Value
End Function

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

sub SetPartNo(NewPartNo)
  call MastData.Parts.Locate("PartNo", NewPartNo, 0)
End Sub

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

function ShowModalCust()
  OrderCombo.Items.Clear
  OrderCombo.Items.Add("Company")
  OrderCombo.Items.Add("CustNo")
  OrderCombo.ItemIndex = 0
  Datasource.Dataset = MastData.Cust
  OrderComboChange(NULL)
  Caption = "Select a Customer"
  ShowModalCust =  ShowModal
End function

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

function ShowModalParts()
  OrderCombo.Items.Clear
  OrderCombo.Items.Add("Description")
  OrderCombo.Items.Add("PartNo")
  OrderCombo.ItemIndex = 0
  Datasource.Dataset = MastData.Parts
  OrderComboChange(NULL)
  Caption = "Select a Part"
  ShowModalParts = ShowModal
End function

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

sub DBGrid1DblClick(Sender)
  ModalResult = mrOK
End Sub

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

sub SearchButtonClick(Sender)
  if  not ( Datasource.Dataset.Locate(OrderCombo.Text, SearchEd.Text,MkSet(loCaseInsensitive, loPartialKey))) then
      call MessageDlg("No matching record found.", mtInformation, MkSet(mbOK), 0)
  End If
End Sub

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

sub OrderComboChange(Sender)
  SrchFld = Datasource.Dataset.FieldByName(OrderCombo.Text)
  SearchEd.Text = ""
End Sub

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

sub SearchEdKeyPress(Sender,Key)
  if ( IsNull(SrchFld) or SrchFld.IsValidChar(Key) ) then  Exit sub
  Beep
  Key = chr(0)
End Sub

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

sub SearchEdChange(Sender)
  SearchButton.Enabled = (SearchEd.Text <> "")
End Sub