srchdlg.js

Dream Scripter v3.5 Full Source Code

//USEUNIT Datamod

var  SrchFld;


function GetCustNo()
{
  return  MastData.CustCustNo.Value;
}

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

function SetCustNo(NewCustNo)
{
  MastData.Cust.Locate("CustNo", NewCustNo, 0);
}

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

function GetPartNo()
{
  return  MastData.PartsPartNo.Value;
}

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

function SetPartNo(NewPartNo)
{
  MastData.Parts.Locate("PartNo", NewPartNo, 0);
}

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

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";
  return ShowModal;
}

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

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";
  return ShowModal;
}

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

function DBGrid1DblClick(Sender)
{
  ModalResult = mrOK;
}

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

function SearchButtonClick(Sender)
{
  if  (! Datasource.Dataset.Locate(OrderCombo.Text, SearchEd.Text,
    MkSet(loCaseInsensitive, loPartialKey)))
      MessageDlg("No matching record found.", mtInformation, MkSet(mbOK), 0);
}

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

function OrderComboChange(Sender)
{
  SrchFld = Datasource.Dataset.FieldByName(OrderCombo.Text);
  SearchEd.Text = "";
}

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

function SearchEdKeyPress(Sender,Key)
{
  if ((SrchFld != null) && (chr(Key) > 32) && ! (SrchFld.IsValidChar(Key)))
  {
    MessageBeep(0);
    Key = chr(0);
  }
}

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

function SearchEdChange(Sender)
{
  SearchButton.Enabled = SearchEd.Text != "";
}