نحوه ساخت يک بانک اطلاعاتی در حال اجرا

procedure TForm1.Button1Click(Sender:TObject); begin  if not Table1.Exists then  begin Table1.Active := FALSE; {Aqui el Alias/Here, the alias} Table1.DatabaseName := 'Alias'; Table1.TableType := ttParadox; {Aqui el nombre de la tabla/Here, the Table name} Table1.TableName := 'Nombre de la Tabla'; with Table1.FieldDefs do  begin Clear; Add('IntegerField', ftInteger, 0, FALSE); Add('StringField' , ftString , 30, FALSE); Add('LogicalField', ftBoolean, 0, FALSE); Add('FloatField' , ftFloat , 0, FALSE); Add('DateField' , ftDate , 0, FALSE); Add('TimeField' , ftTime , 0, FALSE); end; Table1.CreateTable; end; end;
/ 0 نظر / 25 بازدید