procedure TSuppOrderInApplyForm.tSupplierComboBoxExit(Sender: TObject);
var i: Integer;
    sSupplier: String;
    bFlag: bool;
begin
    if tCloseBitBtn.Focused = True then exit;
    bFlag := false;
    sSupplier := trim(GetStrInComboBoxBySite(tSupplierComboBox));
    with tSupplierComboBox do
    begin
      for i := 0 to Items.Count - 1 do
      begin
        if (sSupplier = trim(GetStrInStrBySite(Items.Strings[i], 1,'  '))) then
        begin
          ItemIndex := i;
          bFlag := True;
          break;
        end;
      end;
    end;
    if bFlag = false then
    begin
      HintMsgBox('供應(yīng)商編碼輸入錯(cuò)誤，請(qǐng)重新輸入');
      tSupplierComboBox.SetFocus;
    end;
end;