Delphi下自带BDE工具实现DB数据库操作演示
简述下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;
for j:=0 to Length(s)-1 do
begin
k:=Pos(';',s);
s1:=Copy(s,1,k-1);
strngrd1.Cells:=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:='编号\字段';
strngrd1.Cells:='0';
strngrd1.Cells:='1';
strngrd1.Cells:='2';
strngrd1.Cells:='3';
strngrd1.Cells:='Name';
strngrd1.Cells:='Gender';
strngrd1.Cells:='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 + ' varchar(16),'
+ Cells + ' varchar(16),' + Cells + ' 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;
FieldByName('Gender').AsString:=cells;
FieldByName('Age') .AsString:=cells;
try
Post ;
except
MessageDlg('数据保存失败，请检查输入的数据后重新执行或数据已经存在',mtError,,0);
exit;
end;
end;
end;
qry1.SQL.Free ;
end;
end;
演示代码：
页:
[1]