一个查询表的问题

Question

现有一个表如下:商品一级分类ID 商品一级分类名
1 菜类
2 酒类现在用一个ComboBox来显示 商品一级分类名 ,请问能不能通过这个 ComboBox 中显示的内容获得他的ID
比如 如果 ComboBox 中显示 菜类 时,获得1,传给一个变量
比如 如果 ComboBox 中显示 酒类 时,获得2,传给一个变量

Answer 1

procedure Tyhjfb.ComboBox2Select(Sender: TObject);
begin
  case combobox2.text 
    1: ......
    2: ........
............
 
end;

Answer 2

procedure Tyhjfb.ComboBox2OnChange(Sender: TObject);
var
  Q:TQuery;
  s:String;  
begin
  Q:=TQuery.Create(self);
  Q.Databasename:=YourDatabase.DataBaseName;
  s:='Select 商品一级分类ID from YourTableName Where 商品一级分类名 = '''+combobox2.text+'''';
  Q.sql.Add(s);
  Q.open
  你需要的变量＝Q.FieldByName('商品一级分类ID').asstring;
end;