Delphi下自带BDE工具实现DB数据库操作演示

潇潇 · 发表于 2010-12-4 19:20:37

欢迎您注册加入！这里有您将更精采！

您需要登录才可以下载或查看，没有账号？注册

x

简述下Delphi中BDE的配制：
1、运行Delphi自带的BDE Administrator 工具。
2、新建Databases：Object->new(或者在选项夹的Databases 中的根目录中右键->new。) 出现名为New Database Alias的窗口，在Driver Name 中选择默认的 STANDARD 驱动，此时在 All Database Aliases->Databases 中新生成个名为STANDARD1的数据库驱动，改名为DBDemo。在Definition的PATH路径设置为D:\BDEDB(注：本实例路径设置)，其它默认。
3、创建完成后，在DBDemo右键点击Apply完成BDE的基本配制。

procedure TForm1.btn1Click(Sender: TObject);
var
s,s1:string;
list:TStringList;
i,j,k,l:Integer ;
begin
list := TStringList.Create ;
list.LoadFromFile('dbdemo.txt');
for i:=0 to list.Count -1 do
begin
l:=0;
s := list[i];
for j:=0 to Length(s)-1 do
begin
k:=Pos(';',s);
s1:=Copy(s,1,k-1);
strngrd1.Cells[l+1,i+1]:=s1;
s:=copy(s,k+1,Length(s)-length(s1));
l:=l+1;
end;
end;
btn2.Enabled := True ;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
strngrd1.RowCount := 5;
strngrd1.Cells[0,0]:='编号\字段';
strngrd1.Cells[0,1]:='0';
strngrd1.Cells[0,2]:='1';
strngrd1.Cells[0,3]:='2';
strngrd1.Cells[0,4]:='3';
strngrd1.Cells[1,0]:='Name';
strngrd1.Cells[2,0]:='Gender';
strngrd1.Cells[3,0]:='Age';
btn2.Enabled := False ;
btn3.Enabled := False ;
tbl1.DatabaseName :='DBDemo';
tbl1.TableName := edt1.Text +'.DB';
end;
procedure TForm1.btn2Click(Sender: TObject);
var
sSqlstr:string ;
begin
with strngrd1 do //创建数据库
begin
with qry1 do
begin
Close;
SQL.Clear ;
sSqlstr :='CREATE TABLE '+ edt1.Text +'('+ Cells[1,0] + ' varchar(16),'
+ Cells[2,0] + ' varchar(16),' + Cells[3,0] + ' int)';
SQL.Add(sSqlstr);
try
ExecSQL ;
btn3.Enabled := True ;
except
Application.MessageBox(PChar('数据库创建失败'),PChar('提示：'),MB_YESNO);
Exit;
end;
end;
end;
end;
procedure TForm1.btn3Click(Sender: TObject);
var
i:Integer ;
begin
with strngrd1 do
begin
for i:= RowCount -1 downto 0 do
begin
with qry1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from '+ edt1.Text );
Open;
Insert;
FieldByName('Name') .AsString:=cells[1,i+1];
FieldByName('Gender').AsString:=cells[2,i+1];
FieldByName('Age') .AsString:=cells[3,i+1];
try
Post ;
except
MessageDlg('数据保存失败，请检查输入的数据后重新执行或数据已经存在',mtError,[mbok],0);
exit;
end;
end;
end;
qry1.SQL.Free ;
end;
end;

复制代码

演示代码：

dbdemo1.rar (340.81 KB, 下载次数: 1)

账号		自动登录	找回密码
密码			注册

[原创] Delphi下自带BDE工具实现DB数据库操作演示

欢迎您注册加入！这里有您将更精采！