1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
VAR WFILENAME1, WFILENAME2, WFILENAME3, WFILENAME4, WFILENAME5 : STRING;
begin
if radiobutton10.Checked = true then
BEGIN
WFILENAME1:='HTBSTK.PX';
WFILENAME2:='HTBSTK.XG0';
WFILENAME3:='HTBSTK.YG0';
WFILENAME4:='HTBSTK.XG1'; // EVENTUEL
WFILENAME5:='HTBSTK.YG1'; // EVENTUEL
Table1.Active:=FALSE ;
TABLE1.TableName:='HTBSTK.DB';
IF fileExists(wfilename1) then DELETEFILE(wfilename1);
IF fileExists(wfilename2) then DELETEFILE(wfilename2);
IF fileExists(wfilename3) then DELETEFILE(wfilename3);
IF fileExists(wfilename4) then DELETEFILE(wfilename4);
IF fileExists(wfilename5) then DELETEFILE(wfilename5);
Table1.AddIndex('','EXER;CART',[ixPrimary]); // primaire
Table1.AddIndex('XLIBE','EXER;LIBART;CART',[IXUNIQUE]);//secondaire
SHOWMESSAGE('FIN MISE A JOUR INDEXES STOCK .................... OK ');
//
End ; |
Partager