动态建表(示例)
来源:互联网 发布:淘宝直播权限被清退 编辑:程序博客网 时间:2024/04/29 09:31
begin
with Table1 do
begin
Active := False;
DatabaseName := 'DOCTOR';
TableType := ttParadox;
TableName := 'DOCTORINF23';
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; //建立索引
end;
CreateTable;
end;
//Table1.Append ;
Table1.Open;
Table1.Edit;
Table1.FieldByName('姓名').AsString:='刘延';
Table1.FieldByName('年龄').AsInteger:=22 ;
Table1.FieldByName('职称').AsString:='医师';
Table1.Append;
Table1.Edit;
Table1.FieldByName('姓名').AsString:='杨晓';
Table1.FieldByName('年龄').AsInteger:=25 ;
Table1.FieldByName('职称').AsString:='医师';
DBGrid1.DataSource:=DataSource1;
Table1.Active :=True;
end;
with Table1 do
begin
Active := False;
DatabaseName := 'DOCTOR';
TableType := ttParadox;
TableName := 'DOCTORINF23';
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; //建立索引
end;
CreateTable;
end;
//Table1.Append ;
Table1.Open;
Table1.Edit;
Table1.FieldByName('姓名').AsString:='刘延';
Table1.FieldByName('年龄').AsInteger:=22 ;
Table1.FieldByName('职称').AsString:='医师';
Table1.Append;
Table1.Edit;
Table1.FieldByName('姓名').AsString:='杨晓';
Table1.FieldByName('年龄').AsInteger:=25 ;
Table1.FieldByName('职称').AsString:='医师';
DBGrid1.DataSource:=DataSource1;
Table1.Active :=True;
end;
- 动态建表(示例)
- SQL动态计算出表中公式示例
- SQL动态计算出表中公式示例
- SQL动态计算出表中公式示例
- SQL动态计算出表中公式示例
- SQL动态计算出表中公式示例
- Java 动态代理示例
- 动态时钟示例
- 动态编码示例
- 动态调用WCF示例
- 动态编程简单示例
- 动态生成表格示例
- 动态库示例
- 动态监听配置示例
- 动态游标示例
- 动态代理示例
- 动态代理,示例
- 动态规划示例
- 配置log4j错误信息Email通知
- Struts ABC
- 写自己的rss
- Oracle中的分页
- "蓝色冰点"英语俱乐部
- 动态建表(示例)
- DOMXML: Expat之外的另一选择
- fork() 进程学习
- httpd: Could not determine the server's fully qualified domain name 问题的解决
- LumaQQ启动脚本
- SSI使用详解
- linux下常用网络工具
- linux下的安全工具
- linux中文化和桌面美化