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

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

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

paradox数据类型简表：

用Ttable创建paradox数据库

View 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数据库

View 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数据表插入数据：

View 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
     
     ;