Database Desktop утилитасы арқылы дайындалған бос кестені программа арқылы (динамикалық түрде) дайындауға болады. Мысалы, Paradox типті My Databases алиасында Нөмірі, Шығарған завод, Маркасы, Шығарған жылы, Түсі, Бағасы атаулы алты өрістен түратын Rous5.db кестенің өріс тақырыптарын дайындау тәсілі мына амалдар арқылы орындалады.
1. Жаңа проект ашып, формада Tablel, Buttonl компоненттерін орнату.
2. Код терезесінде Buttonl компонентінің OnClick оқиғасын өңдеуіш процедурасын құру керек.
Procedure Tforml.ButtonlCIick(Sender:TObject)
Begin
With Table do Begin
DatabaseName: = 'My Databases';
TableType:=ttParadox;
TableName: = 'Rous5.db';
With FieldDefs do
Begin
With AddFieldDef do
Begin
Name: = 'Шығарған завод';
DataType:=ftString;
Size:=20; End;
With AddFieldDef do Begin
Name: = 'MapKacbi'; DataType:=ftString; Size:=20; End;
With AddFieldDef do Begin
Name: = 'Tyci';
DataType:=ftString;
Size:=20;
End;
End;
CreateTable;
End;
End;
мұндағы Create Table (Кесте құру) - TTable компонентінің кесте құру әдісі. Ол таңдалған құрылым бойынша бос кесте құрады (әдісті Paradox не dBase форматында ғана пайдалану мүмкін); Table — берілгендер қоры кестесіне қол жеткізу компоненті. Программада пайдаланылған қасиеттер: DatabaseName — алиас атауын анықтау; TableType — кесте типі; TableName — кесте атауы;
Достарыңызбен бөлісу: |