Question

delphi treeview 和 combobox问题 怎样能存两个值一个显示字段一个是ID

我用delphi连接access数据库 从数据库中读取记录然后把 字符串字段显示在treeview和combobox的text中 但是还需要放一个ID进去 我数据库中表是关联的 需要用到ID查询子表 怎么办呢

Answer 1

//********************************************
//下面的代码是核心!!!!!!!!!!!!!!!!!!!!
//********************************************

//计算
procedure TForm1.Button2Click(Sender: TObject);
var arrsi: Array [1..5] of String; //保存转换后输入框的各个值.
arrss: Array [1..5] of String; //保存公式中的各个值
temp:String;
int_el9:integer;
result:integer;
begin
//判断el9的值
try
int_el9:=strtoint(el9.Text);
except
showmessage('el9输入的不对');
exit;
end;

//计算公式
if guize='1' then //规则: X*Y的方式
begin
temp:=MNFun.SplitStr(gongshi,'=','R'); //取得公式=号右边的值,
arrss[1]:=MNfun.SplitStr(temp,'*','L');
arrss[2]:=MNfun.SplitStr(temp,'*','R');
arrsi[1]:=Tedit(FindComponent('edit'+inttostr(letters.IndexOf(arrss[1])))).Text;
arrsi[2]:=Tedit(FindComponent('edit'+inttostr(letters.IndexOf(arrss[2])))).Text;
try
result:=strtoint(arrsi[1])*strtoint(arrsi[2]);
except
showmessage('计算时候输入的值不对.');
exit;
end;
if (result>int_el9) then label10.Caption:='正常'
else label10.Caption:='不合格';
memo1.Lines.Add(gongshi+' :'+inttostr(result));
end;
if guize='2' then //规则 两个数相加 X+Y
begin
temp:=MNFun.SplitStr(gongshi,'=','R'); //取得公式=号右边的值,
arrss[1]:=MNfun.SplitStr(temp,'+','L');
arrss[2]:=MNfun.SplitStr(temp,'+','R');
arrsi[1]:=Tedit(FindComponent('edit'+inttostr(letters.IndexOf(arrss[1])))).Text;
arrsi[2]:=Tedit(FindComponent('edit'+inttostr(letters.IndexOf(arrss[2])))).Text;
try
result:=strtoint(arrsi[1])+strtoint(arrsi[2]);
except
showmessage('计算时候输入的值不对.');
exit;
end;
if (result>int_el9) then label10.Caption:='正常'
else label10.Caption:='不合格';
memo1.Lines.Add(gongshi+' :'+inttostr(result));
end;

end;