我是大菜鸟,请大虾帮忙看看!(100分)

  • 主题发起人 主题发起人 步步高0713
  • 开始时间 开始时间

步步高0713

Unregistered / Unconfirmed
GUEST, unregistred user!
求代码,如图,安装路径选择MDB数据库路径,数据库下拉框自动添加该路径下的MDB文件,选中一个MDB文件后,在表下拉框中自动添加该MDB中的表,选中表后,则在下面的表格中出现该表的数据(这个显示数据自己会弄),谢谢,本人只有121分,给100分了,请大虾帮帮忙!!谢谢
图片放在网易相册里面了,不好意思!
http://img752.photo.163.com/ahuan520/66995777/2527512626.jpg
 
1、假设Edit1.Text是安装路径,ComboBox1用于存放Mdb文件名:
procedure TForm1.GetMdbFileList;
var
sr: TSearchRec;
sDirList: TStringList;
begin
if FindFirst(Edit1.Text + '*.mdb', faAnyFile, sr) = 0 then
repeat
ComboBox1.Items.Add(Edit1.Text + sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
注意:Edit1.Text中的路径必须为包含最后的'/',如:'E:/aa/',不能为'E:/aa'。

2、TADOConnection中有一个获取表的函数
假设ComboBox2用于接收表名
ADOConnection1.GetTableNames(ComboBox2.Items);
 
提问得好,居然发图了
我这里有一段好代码,可以列举一个目录下的指定类型的文件,你收藏吧,我几乎每个程序都用上它了,可以指定路径,扩展名,在哪里显示,并且在结果中可以指定是不是包含扩展名
哎呀,我的神呀,本人的函数太经典了
function EnumFileList(const APath: string; const AList: TStrings; const AFilter: string = '*.*'; DropExtNameInResult: Boolean = False): Boolean;
{功能:枚举指定目录下指定扩张名的文件列表,不含子目录搜索功能
}
var
sr: TSearchRec;
FileName_W: string;
begin
AList.BeginUpdate;
AList.Clear;
if FindFirst(APath + AFilter, faAnyFile, sr) = 0 then
Repeat
FileName_W:= sr.Name;
if ((FileName_W <> '.') and (FileName_W <> '..')) then
begin
if DropExtNameInResult then
FileName_W:= ChangeFileExt(FileName_W, '');
AList.Add(FileName_W);
end;
until FindNext(sr) <> 0;
AList.EndUpdate;
Result:=True;
end;
 
浏览文件夹要用到什么控件?我怎么找不到?不好意思了,回答了这个就给分,[:D]
 
var
dir:String;
begin
if SelectDirectory('选择路径', '', dir) then
 
假设Edit1.Text是安装路径 Button1是旁边的按纽
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: String;
begin
if Trim(Edit1.Text) <> '' then Dir := Edit1.Text
else GetDir(0, Dir);
if SelectDirectory(Caption, '', Dir) then Edit1.Text := Dir;
end;
 
Uses里要有
FileCtrl
 
后退
顶部