delphi 中将listbox1中选中的数据表所对应的字段名联动的显示在listbox2中? listbox1中记录的是数据库中的表 我怎么样才能实现这样的功能 就是当listbox1中选中一个表时,使这个表中的字段联动的显示在listbox2中 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 当然可以,listbox1中记录表名,Onchick事件中,打开表读取数据赃物入listbox2中。或listbox1中记录表名,由Button(或listbox1的鼠标右键)打开表读取数据赃物入listbox2中。 我是一个新手 能不能具体点儿 我是说在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' 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);没有必要去加循环 急!问一个update语句问题 关于 WSAGetSelectEvent的问题 c中单精度float类型(占四个字节)在delphi中如何转换? Dephi 7下如何新建一个corba对象? adoquery1移动纪录触发事件 密码怎么做? 离开送分,15:00结账! 如何强制控制DBGrid中字段的长度 delphi如何将两个指针指向的内容合并后拷贝到另一个指针中? dataStringGrid重新载入数据后第一行的checkBox的勾选状态无法清除 在线等DELPHI高人,简单C#代码,如何用DELPHI来写? Delphi连接sql数据库有时成功有时失败怎么回事?
或listbox1中记录表名,由Button(或listbox1的鼠标右键)打开表读取数据赃物入listbox2中。
能不能麻烦你给出代码和步骤? 谢谢啦!
我在网上找了资料代码是这样的
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'
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);没有必要去加循环