actionDesc;
      iCount : Integer;
    
      procedure pDeleteIndexies;
      begin
        if not dmDBExpress.sqlconTest.InTransaction then
        begin
          TD.TransactionID := 2;
          TD.IsolationLevel := xilREADCOMMITTED;
          dmDBExpress.sqlconTest.StartTransaction(TD);
          dmDBExpress.sqldsGeneral.CommandText := DELETEINDEX;
          dmDBExpress.sqldsGeneral.ExecSQL(True);
          dmDBExpress.sqlconTest.Commit(TD); {on success, commit the changes};
        end;
      end;
    
      procedure pCreateIndexies;
      begin
        if not dmDBExpress.sqlconTest.InTransaction then
        begin
          TD.TransactionID := 3;
          TD.IsolationLevel := xilREADCOMMITTED;
          dmDBExpress.sqlconTest.StartTransaction(TD);
          dmDBExpress.sqldsGeneral.CommandText := ADDINDEX;
          dmDBExpress.sqldsGeneral.ExecSQL(False);
          dmDBExpres

上一篇：FLargeAVIMain.pas
下一篇：比亚迪唐dm质量怎么样, 全新唐DM和途观L混动版哪个好