什么是一些数据库?? 是一些数据库表吧。。
有几种方法,一是TTable控制,在设计时用字段编辑器产生固定字段。
这样可以用CreateTable方法产生数据库表。
二,可以用SQL语句和TQuery.
有几种方法,一是TTable控制,在设计时用字段编辑器产生固定字段。
这样可以用CreateTable方法产生数据库表。
二,可以用SQL语句和TQuery.
解决方案 »
- ShellListView 乱码!!!!
- 如何定义指针
- 使用installshield express制作安装程序时,如何对建库脚本加密??
- 高高手帮忙:怎样判断一个Email地址是否存在?
- 运行.exe文件之后好像不能彻底的将该应用程序关闭,
- 使用blobstream读取数据库中bmp格式图片问题
- chechy的散分贴:一首词献给相同境遇的人!
- 散分、十万火急:谁成功地实现过:pb和delphi互相调用对方做的COM/MTS server
- delphi7 静态调用dll 调试时出错,运行exe文件正常
- 再续ActiveForm问题,分数一起给,总共150分哟!!!
- 怎样直接打开一个文件?
- 郁金香游戏辅助教程(Delphi外挂制作)
用TTable控件,
VAR A TTABLE;
PROC CREATE TTABLE(SENDER:??);
BEGIN
1. CREATE A TTABLE;
2. ADD FIELDS TO A.FIELDS PROPERTY ACCORDING UR EXIST TABLE;
3. ASSIGN RELATIVE PROPERTY FOR UR NEW TABLE;
END;
IF U WANT
MAIL TO ME!
Table1.DatabaseName='Dit';
Table1.TableName='STRU';
Table1.FieldDefs.Clear;
Table1.FieldDefs.Add('STYLE',ftString,24,True);
Table1.FieldDefs.Add('QUANTITY',ftInteger,0,True);
Table1.FieldDefs.Add('RATIO',ftString,5,True);
Table1.IndexDefs.Clear;
Table1.IndexDefs.Add('STRU','STYLE',TIndexOptions()<<ixCaseInsensitive);
Table1.CreateTable;