仿药易通输入单位信息后如果没有则自动加入功能

procedure TfrmCargoInfo.RzComboBox2Exit(Sender: TObject);
begin
  inherited;
  if Pos((RzComboBox1.Value), (RzComboBox1.Values.Text)) = 0 then
  begin
    if MessageBox(Handle, '您需要把当前数据追加到信息库中吗？', '请你确认', MB_ICONQUESTION + MB_YESNO) = 6 then
    begin
      //写信息到相关的数据库中去
      RzComboBox1.Items.Add(RzComboBox1.Text);
      RzComboBox1.Values.Add(RzComboBox1.Text);
    end;
  end;
end;

转载于:https://www.cnblogs.com/bingege/archive/2011/06/06/2073900.html