Kostya
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Если правельно выбрал то вот когд для создания файла базы
procedure TForm3.Button1Click(Sender: TObject);
begin
with Form1 do
begin
Table1.Close;
YN;
Table1.TableName:=ExtractFilePath(ParamStr(0))+'DATA\'+Form3.Edit1.Text+'.db';
if not Table1.Exists then
begin
Table1.TableType:=ttParadox;
Table1.FieldDefs.Clear;
NewField('Date',10);
NewField('N',11);
NewField('FIO',50);
NewField('Adres',50);
NewField('Phon',13);
NewField('Work',50);
NewField('Sebest',10);
NewField('Cena',10);
NewField('Prib',10);
NewField('Note',55);
NewField('pas',10);
Table1.CreateTable;
Caption:=mFormName+'-'+Table1.TableName;
Edit1.Enabled:=FALSE;
ComboBox1.Enabled:=FALSE;
EditAdd.Enabled:=TRUE;
muAdd.Enabled:=TRUE;
muDelete.Enabled:=FALSE;
muEdit.Enabled:=FALSE;
EditEdit.Enabled:=FALSE;
EditDelete.Enabled:=FALSE;
EditClear.Enabled:=FALSE;
SerPas.Enabled:=TRUE;
FileDelet.Enabled:=TRUE;
FileClose.Enabled:=TRUE;
end
else ans:=MessageDlg('Файл с таким именем уже существует.',mtError,[mbOk],0);
Table1.Open;
end;
Close;
end; |
