procedure TForm8.DBComboBox1Change(Sender: TObject);
var
ss:string;
begin
DBComboBox2.ItemIndex:=DBComboBox1.ItemIndex;
ss:= DBComboBox2.Text;
with DM.qChapter do
begin
Close;
sql.Clear;
Sql.Add('Select ChapterID,ChapterTitle from Chapter');
Sql.Add(' where currID='''+ss+''' order by ChapterID');
Open;
first;
while not DM.qChapter.Eof DO
begin
DBComboBox3.Items.Add(DM.qChapter.Fieldbyname('chapterTitle').AsString);
next;
end;
end;
end;这段代码有误吗?CurrID字段是int型的,列表框中选中相应教材后,再从章节表中选取所有该教材的章节。这句话应该怎么改?
var
ss:string;
begin
DBComboBox2.ItemIndex:=DBComboBox1.ItemIndex;
ss:= DBComboBox2.Text;
with DM.qChapter do
begin
Close;
sql.Clear;
Sql.Add('Select ChapterID,ChapterTitle from Chapter');
Sql.Add(' where currID='''+ss+''' order by ChapterID');
Open;
first;
while not DM.qChapter.Eof DO
begin
DBComboBox3.Items.Add(DM.qChapter.Fieldbyname('chapterTitle').AsString);
next;
end;
end;
end;这段代码有误吗?CurrID字段是int型的,列表框中选中相应教材后,再从章节表中选取所有该教材的章节。这句话应该怎么改?
解决方案 »
- 一条insert语句 麻烦大家看看
- 向bdmh,liangpei2008提问,如何用MediaPlayer播放流文件,文件存在数据库中。
- 函数过程作为参数传递
- 从2个连接后的表随机按比例随机抽取数据
- 请教如何将tbitmap中的bmp图片赋值给timage呢?我用image.picture.graphic.assigned(bmp)不能成功,还有其它办法吗?
- 两层结构中关于事务处理的捆扰 100分
- 关于word的控件
- 菜鸟一个求大家帮忙
- install shied工具在哪??
- 救命啊!我给40分!
- 高分问一个fastreport报表显示问题
- 一段C HAS1 + base64的代码 转成 DELPHI ,能帮我吗?谢谢。
如果CurrID字段是int型,就不要加'了:
Sql.Add(' where currID='+ss+' order by ChapterID');
Int型就不用双引号了.