delphi 创建读写.db数据库,有例程源码没有啊?
解决方案 »
- 如何在Delphi中打印Excel文件?
- Delphi7中使用的插件在delphi2007中可以用吗?
- 求助:各位大哥,客户端怎么读取(访问)服务器的数据(比如图片),马上放分
- delphi的緩存更新機制是否有問題?為什麼連續增幾行後,在DBGrid裡總是出現重復的記錄顯示?
- 提取数据库中几个字段内容全部填充到stringgrid中问题
- 在线急等:access数据库,delphi下如何导出到.txt文件
- 听说Delphi7可以制作XP风格的菜单,真的吗?
- 欲寻在北京的软件开发相关工作
- 要求用AdoQuery的param属性实现一个StoreProcedure 我搞了半天哦也没搞明白
- deiphi7程序运行关闭时 显示Exception EAccessViolation in module spxs.exe at 00100674
- 'TcxBookmark'是该引用那个单元..
- delphi 中madcodehook怎样安装?
Active := False;
DatabaseName := 'DBDEMOS';
TableType := ttParadox;
TableName := 'CustInfo'; { Don't overwrite an existing table } if not Table1.Exists then begin
{ The Table component must not be active }
{ First, describe the type of table and give }
{ it a name }
{ Next, describe the fields in the table }
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'Field1';
DataType := ftInteger;
Required := True;
end;
with AddFieldDef do begin Name := 'Field2';
DataType := ftString;
Size := 30;
end;
end;
{ Next, describe any indexes }
with IndexDefs do begin
Clear;
{ The 1st index has no name because it is
{ a Paradox primary key }
with AddIndexDef do begin
Name := '';
Fields := 'Field1';
Options := [ixPrimary];
end;
with AddIndexDef do begin Name := 'Fld2Indx';
Fields := 'Field2';
Options := [ixCaseInsensitive];
end;
end;
{ Call the CreateTable method to create the table }
CreateTable;
end;
end;