paradox数据库的创建与数据操作

本文介绍如何使用Delphi创建和操作Paradox数据库,包括创建数据库、插入数据及使用TTable和TQuery组件的方法。

paradox数据库是delphi自带的.db数据库文件,所在目录即是数据库,一个表是一个.db文件

paradox数据类型简表:

用Ttable创建paradox数据库

ExpandedBlockStart.gifView Code
begin
with Table1 do
begin
Active :
= False;
DatabaseName :
= '';
TableType :
= ttParadox;
TableName :
= 'CustInfo.db';

with FieldDefs do
begin
Clear;
Add(
'Field1', ftInteger, 0, True);
Add(
'Field2', ftString, 30, False);
end;
CreateTable;
end;
end;

用TQuery,sql语句创建paradox数据库

ExpandedBlockStart.gifView Code
var
TempQuery:TQuery;
DefField :String;
TableName:String;
CreateSQL:String;
begin
CreateSQL:
='Create Table "%s" (%s)';
Deffield :
= ' Field1 Integer, Field2 CHAR(30) ';
TableName :
= 'C:\DB01.DB';
TempQuery :
= TQuery.Create(Application);
with TempQuery do
begin
try
SQL.Text:
=Format(CreateSQL,[tableName,deffield]);
ExecSQL;
finally
Free;
end;
end;
end;

为paradox数据表插入数据:

ExpandedBlockStart.gifView Code
begin
tbl1.DatabaseName:
=ExtractFilePath(Application.ExeName)+'db';
tbl1.TableType:
=ttParadox;
tbl1.TableName:
='User';
tbl1.Close;
tbl1.Open;
while not tbl1.Eof do
tbl1.Delete;
//删除原有的数据
for i:=1 to 20 do begin
tbl1.Insert;
tbl1.FieldByName(
'fID').AsInteger:=i;
tbl1.FieldByName(
'fName').AsString:='段改阳'+inttostr(i);
tbl1.FieldByName(
'ftype').AsInteger:=i;
tbl1.FieldByName(
'fdescrip').AsString:='fdescrip段改阳'+inttostr(i);
end;
tbl1.Post;
end;

append用法:

 

ExpandedBlockStart.gifView Code
type
  TForm1 
= class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    
procedure Button1Click(Sender: TObject);
  
private
    
{ Private declarations }
  
public
    
{ Public declarations }
  
end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  
with Table1 do
  
begin
    Active :
= False;
    DatabaseName :
= '';
    TableType :
= ttParadox;
    TableName :
= 'DOCTORINF23.db';
    
if not Table1.Exists then begin
       
with FieldDefs do begin
          Clear;
          
with AddFieldDef do begin
              Name :
= '姓名';
              DataType :
= ftString;
              Required :
= True;
              Size :
= 10;
          
end;
          
with AddFieldDef do begin
               Name :
= '年龄';
               DataType :
= ftInteger;
          
end;//建立字段定,利用AddFieldDef方法添加一个新的TFieldDef对象
          
with AddFieldDef do begin
              Name :
= '职称';
              DataType :
= ftString;
              Required :
= True;
              Size :
= 10;
          
end;
       
end;
       
with IndexDefs do begin
            Clear;
            
with AddIndexDef do begin
            Name :
= 'MYINDEX';
            Fields :
= '姓名';
            Options :
= [ixPrimary];
            
end;
       
end;  //建立索引
       CreateTable;
    
end;

  
end;
    Table1.Open;
    Table1.Edit;
    Table1.FieldByName(
'姓名').AsString:='刘延';
    Table1.FieldByName(
'年龄').AsInteger:=22 ;
    Table1.FieldByName(
'职称').AsString:='医师';
    
//---添加了一条记录 ,append开始添加第二条记录
    Table1.Append;
    Table1.Edit;
    Table1.FieldByName(
'姓名').AsString:='杨晓';
    Table1.FieldByName(
'年龄').AsInteger:=25 ;
    Table1.FieldByName(
'职称').AsString:='医师';
    DBGrid1.DataSource:
=DataSource1;
    Table1.Active :
=True;
end;

end.

 

 

 

转载于:https://www.cnblogs.com/gaiyang/archive/2011/03/21/1990678.html

一套操作数据库(*.db,DBF) 的工具,功能非常的强大。 2000版功能: 包括建立数据表、删除数据表、索引、排序、打印、预览、数据转换、数据备份、修改数据表结构、输出文本、输出HTML文件、统计查询、字段求合、生成决策图表等功能。 2002版新增功能: 1、多窗口(MDI)单窗口两种模式 2、提供最近使用路径 3、提供BDE版本检查 4、设置进入口令 5、给数据表填加口令 5、设置启动目录 6、复制记录、复制当前字段名称、复制字段名列表、复制选择区域数据 7、改进SQL执行功能 8、改进数据转换功能 9、记录查找功能 10、自动生成创建表SQL语句 11、设置数据移动位数 12、改进了建立索引功能,现可以建立主重索引(多个字段) 13、自动显示当前字段类型/宽度/字段总数/索引字段 Xp版新增功能: 1、加入了功能强大的报表设计、报表打印功能。可自己根据数据库设计报表,还可以把设计好的报表另存为报表文件,也可输出如Html格式等。 2、加入了BDE数据库驱动程序,解决了以前下载后没有驱动程序不能正常运行的问题。 Xp 2002.11 版新增功能:(右击菜单) 1、加入对数据的剪切、复制、粘贴、删除功能。可直接把一张表内的数据复制到另一张表内,也可以把一张表的某字段的数据复制到另一张表的某字段。功能非常实用。(选择区域内数据) 2、加入输出Excel、Html、rtf、csv、txt文件格式。(选择区域内数据)
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值