listbox1中记录的是数据库中的表  我怎么样才能实现这样的功能  就是当listbox1中选中一个表时,使这个表中的字段联动的显示在listbox2中

解决方案 »

  1.   

    当然可以,listbox1中记录表名,Onchick事件中,打开表读取数据赃物入listbox2中。
    或listbox1中记录表名,由Button(或listbox1的鼠标右键)打开表读取数据赃物入listbox2中。
      

  2.   

    我是一个新手 能不能具体点儿  我是说在listbox2中显示选中表的字段名  比如listbox1中选中student表(表中包含字段名: 姓名 ,学号,性别等等)时     在listbox3中同时显示这些字段名而不是显示字段值  就是说在listbox3中显示(姓名 ,学号,性别等等)
      能不能麻烦你给出代码和步骤?  谢谢啦!
    我在网上找了资料代码是这样的
    procedure TForm1.FormCreate(Sender: TObject);
    begin
     switch(listbox2.selectvalue)
    {
      case "stu"
        listbox3.items.clear();
        listbox3.items.add("姓名");
         listbox3.items.add("学号");
          listbox3.items.add("性别");
           listbox3.items.add("年龄");
            listbox3.items.add("所在系");
            case "course"
            listbox3.items.clear();
             listbox3.items.add("课程号");
             listbox3.items.add("课程名");
              listbox3.items.add("先行课");
              listbox3.items.add("学分");
    }
    end;
    结果报错  
    undeclaredidentifier:‘switch’
    undeclared identifier:'selectvalue'
    could not compile used unit 'keyselrep.pas'
      

  3.   

    ADOConnection本身带有读取数据库表的列表功能
    procedure TADOConnection.GetTableNames(List: TStrings;
      SystemTables: Boolean);
    同时也有读取数据表的字段列表功能
    procedure TADOConnection.GetFieldNames(const TableName: string;
      List: TStrings);将LISTBOX1放进过程TADOConnection.GetTableNames(LISTBOX1.items,false)得到数据表列表
    在ListBox1的OnClick中加入代码: TADOConnection.GetFieldNames(ListBox1.Items[ListBox1.ItemIndex],
      ListBox2.Items);没有必要去加循环