跪求急问——用 DELPHI 7 怎样实现如下编程Orz...

来源：百度知道 编辑：UC知道 时间：2024/09/27 05:48:47
用combobx选中一个数据库中的一张表(共4张表),将它的某一字段(如时间字段)显示的在listbox上,选中listbox中的时间字段,则可以在label中显示与时间字段对应的其他数据。

我想实现如上功能。。。
新手上路。。。各位高手帮帮忙~~~
呃，具体说来的话，我想要在listbox中显示时间的内容(例如8:00~10:00)而不是字段名,我选择8:00~10:00,然后再LABEL中显示与这段时间相关的表里的其他数据。麻烦高手再帮忙Orz...

这只是一个查询数据库的问题，按自己说的一步步去做，多动手，收获会更大。

procedure TForm1.ListBox1Click(Sender: TObject);
var
idx:Integer;
str:string;
begin
idx := ListBox1.ItemIndex;
str := ListBox1.Items.Strings[idx];
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select TestStr1,TestStr2 from 表名 where TDate=:a');
Parameters.ParamByName('a').Value := str;
Open;
if recordcount > 0 then
begin
Label1.Caption := fieldbyname('TestStr1').AsString;
Label2.Caption := fieldbyname('TestStr2').AsString;
end;
end;
end;

一点提示 ADOConnection1连接数据库后,可以获取数据库中所有的表名称,如:

ADOConnection1.GetTableNames(ComboBox1.Items, False);
//该函数会把表名列在ComboBox1.Items中.

有表名获取字段名,把字段名列在中
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text<>'' then
begin
ADOCo