数据结构和字段由客户运行时定制,该如何做?(200分)

  • 主题发起人 主题发起人 PDF
  • 开始时间 开始时间
P

PDF

Unregistered / Unconfirmed
GUEST, unregistred user!
数据结构和字段由客户运行时定制,对用户产生的 Table 极其相互关联
该怎样做。对这样的结构是否是通用的,而有了图像字段该如何判断并能
输入并显示?
 

可以由客户定制,但是你要提供定制的方法,依据你所选用的数据库,让客户输入
字段的名称、类型、长度等等,至于关联及图象字段等,完全在于你提供的定制法,
你的定制方法要提供关联等解决办法。

 
下面的代码演示了怎样在运行期动态地创建一个表格:
var NewTable:
TTable;
NewIndexOptions: TIndexOptions;
Begin
NewTable := TTable.Create;
NewIndexOptions := [ixPrimary, ixUnique];
With NewTable Do
Begin
Active := False;
DatabaseName := 'DBDEMOS';
TableName := Edit1.Text;
TableType := ttDefault;
FieldDefs.Clear;
FieldDefs.Add(Edit2.Text, ftInteger, 0, False);
FieldDefs.Add(Edit3.Text, ftInteger, 0, False);
IndexDefs.Clear;
IndexDefs.Add('PrimaryIndex? Edit2.Text, NewIndexOptions);
End;
CreateTable;
End;
 
好,我来那分!
1:我正在遍一个与你相似的程序。动态建立表结构, 动态生成到 Grid中。
2: 动态建立表结构: 用 Tquery,
Query1->SQL= "create xxx (code char(10), name char(40), flags char(5) primary key code)"
3: 动态生成到 Grid中 :如下
AnsiString Info("The fields are: ");
DBGrid1->DataSource=NULL ;
Query1->Open();
for(int i = 0; i < Query1->FieldCount; i++) {
Info = Info + Query1->Fields->Fields->FieldName + ", ";
ShowMessage(Info);
}
DBGrid1->DataSource= DataSource1;
时间紧,email好好聊!!!!!!!!!!!


 
接受答案了.
 
后退
顶部