nasr
پنج شنبه 23 بهمن 1382, 15:48 عصر
سلام
چگونه می توان در جداول DBISAM فیلدی اضافه یا کم کرد و یا نوع فیلدها را از عددی به متنی و غیره تبدیل کرد.
ممنون
Delphi-Clinic
شنبه 25 بهمن 1382, 00:32 صبح
به این مثال دقت کنید:
begin
with MyDBISAMTable do
begin
DatabaseName:='d:\temp';
TableName:='customer';
with FieldDefs do
begin
Clear;
Add('CustNo',ftFloat,0,False);
Add('Company',ftString,30,False);
Add('Addr1',ftString,30,False);
Add('Addr2',ftString,30,False);
Add('City',ftString,15,False);
Add('State',ftString,20,False);
Add('Zip',ftString,10,False);
Add('Country',ftString,20,False);
Add('Phone',ftString,15,False);
Add('FAX',ftString,15,False);
Add('TaxRate',ftFloat,0,False);
Add('Contact',ftString,20,False);
Add('LastInvoiceDate',ftDateTime,0,False);
end;
with IndexDefs do
begin
Clear;
Add('','CustNo',[ixPrimary]);
Add('ByCompany','Company',[ixCaseInsensitive]);
end;
if not Exists then
CreateTable;
end;
end;
برای اطلاعات بیشتر در راهنمای DBISAM به این بخش مراجعه کنید:
Creating Tables
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.