我的想法就是通过dept_id来实现,但是不知道怎么做?
望高手指点迷津,在线等待!
望高手指点迷津,在线等待!
解决方案 »
- 那位大师,对这个网站,有了解的发表意见吧
- 请问如何把QRP报表文件转换成EXCEL文件?
- 数据库压缩的问题
- 急,求adoconnection动态连接到link.udl文件的方法.具体问题如下.
- 求助:circular unit reference问题,不是那种只要把uses 放在 implementation下面就能解决的
- 帮个忙, 我现在怎么就是找不到用PASCSL在DOS下面做图形界面的资料呢
- delphi 调用vc dll 问题!
- 类没有注册???
- QuickReport在windows2000下的打印问题,高分赠送
- 有没有一个组件能同LISTBOX一样功能,但可以在列表中加图标?
- SOS:怎样在dbgrid中给用column editor新增的字段赋值??????
- 请问到哪儿可以找到ascii字符对应的虚拟码?
for example:
响应ComboBox1的onchange事件,然后用Sql语句给ConboBox2,3中的items加入相关的内容哦
var
str, str1, str2: string;
begin
Deptcode.Locate('Content', ComboBox1.Items[ComboBox1.ItemIndex], []);
str := Deptcode.FieldByName('dept_id').AsString;
A01.Locate('dept_id', str, []);
str1 := A01.FieldByName('A0101').AsString;
ComboBox2.ItemIndex := ComboBox2.Items.IndexOfName(str1); standrd.Locate('dept_id', str, []);
str2:= A01.FieldByName('Standard_name').AsString;
ComboBox3.ItemIndex := ComboBox3.Items.IndexOfName(str2);
end;
循环添加到combobox2.和combobox3中
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
query1.Close;
query1.Open;
if query1.Locate('Content',Trim(combobox1.text),[]) then
begin
deptid_s:=query1.FieldByName('dept_id').Asstring;
query1.sql.add('select * from A01 where dept_id='deptid_s'');
while not query1.Eof do
begin
ComboBox2.Items.Append(query1.fieldbyname('A0101').AsString);
query1.Next;
end;
end;
end;