создание простенького СУБД в delphi 7

[Алексей_2012]

Здравствуйте! В связи с тем что мне нечем заняться решил создать простенькую СУБД, времени навалом (чуть больше года, хочу ее сдать как курсовую) наткнулся на несколько проблем:
1) Как реализовать создание таблицы? Дело в том что например в VFoxPro открывается конструктор таблиц, там одно поле редактирования, в него пишешь название поля будущей таблицы, после вписания имени становятся доступными поля выбора типа данных (character,numeric,date и т.п.), а так же признак ключа + под полем редактирования куда вписывалось название поля появляется еще одно (условно назову Edit), дак вот, как сделать подобное? ну хотя бы такое условие: если edit1 не пуст, то рядом с ним создать combobox1 и флажок первичного ключа, и под edit1 создать edit2 ...(в общем сами посмотрите во вложениях снял скрины).

2) После создания полей таблицы отобразить их в каком-нибудь компоненте (на ум пришел только стринг грид), в общем смотрите на скрин редактирования таблицы.

Буду рад любой помощи и советам! Те, кто считает идею глупой или бредовой прошу не судите строго, а помогите чем можете


Кстати, вопрос еще один, не по теме, как добавлять в теме картинки ни как вложения, а чтобы при загрузке темы они были сразу видны? Нажимал на "вставить изображение" просит указать ссылку

[Аватар]

В связи с тем что мне нечем заняться решил создать простенькую СУБД

А не рано ли при наличии таких простеньких вопросов?

[Алексей_2012]

нет, говорю же, времени навалом, просто подскажите идею, примерную, я знаю что можно написать кнопку на форму не используя палитру компонентов

[Аватар]

Это называется динамическое создание визуальных объектов. Так, например, можно Edit создать

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure EditChange(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Edit: TEdit;
begin
  Edit:=TEdit.Create(Self);
  Edit.Parent:=Self;  //обязательно, контрол-контейнер на котором расположен, здесь форма
  Edit.Left:=200;
  Edit.Top:=200;
  Edit.OnChange:=EditChange; //Так можно назначить и обработчики других событий

// или так

  with TEdit.Create(Self) do begin
    Parent:=Self;  //обязательно, контрол-контейнер на котором расположен, здесь форма
    Left:=200;
    Top:=200;
    OnChange:=EditChange; //Так можно назначить и обработчики других событий
  end;

end;

procedure TForm1.EditChange(Sender: TObject);
begin
//чет делаем
end;

[eval]

А со структурой модели данных, хранения информации и т.п. уже определились?

[IliaIT]

так в чём проблема? как и на картинке делаешь одну таблицу, если надо список, то один комбобокс двигаешь куда надо и активируешь, узнать куда надо можно в свойствах таблицы MouseMove. или даже на поднятие кнопки мыши в этой таблице.
количество столбцов у тебя фиксированное, таблица создания базы вообще одна. в итоге у тебя будет в базу только одна посылка.
типа

CREATE TABLE `kod_1` (
  `k` int(11) NOT NULL DEFAULT '0',
  `unum` int(3) NOT NULL DEFAULT '0',
  `param` int(2) NOT NULL DEFAULT '0',
  `data` date NOT NULL DEFAULT '0000-00-00',
  `time` time NOT NULL DEFAULT '00:00:00',
  `val` float(10,2) NOT NULL DEFAULT '0.00',
  `ID_val` bigint(20) unsigned NOT NULL AUTO_INCREMENT,
  PRIMARY KEY (`ID_val`),
  KEY `Data` (`data`)
) ENGINE=MyISAM AUTO_INCREMENT=1 DEFAULT CHARSET=cp1251;

более подробно зависит от базы данных (пример создания в mysql)
как соединиться копай адо(наиболее простое из стандартных). там же таблицы которые можно не думая о структуре просто так отображать и редактивоать. и вобще потыкай по вкладкам дельфи увидишь компоненты для баз. и поиск поможет если что не понятно.