ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IBDatabase.pas
(Generate patch)

Comparing ibx/trunk/runtime/IBDatabase.pas (file contents):
Revision 17 by tony, Sat Dec 28 19:22:24 2013 UTC vs.
Revision 19 by tony, Mon Jul 7 13:00:15 2014 UTC

# Line 426 | Line 426 | uses IBIntf, IBSQLMonitor, IBCustomDataS
426  
427   { TIBDatabase }
428  
429 < constructor TIBDatabase.Create(AOwner: TComponent);
429 > constructor TIBDataBase.Create(AOwner: TComponent);
430   {$ifdef WINDOWS}
431   var acp: uint;
432   {$endif}
# Line 472 | Line 472 | begin
472    CheckStreamConnect;
473   end;
474  
475 < destructor TIBDatabase.Destroy;
475 > destructor TIBDataBase.Destroy;
476   var
477    i: Integer;
478   begin
# Line 498 | Line 498 | begin
498    inherited Destroy;
499   end;
500  
501 < function TIBDatabase.Call(ErrCode: ISC_STATUS;
502 <  RaiseError: Boolean): ISC_STATUS;
501 > function TIBDataBase.Call(ErrCode: ISC_STATUS; RaiseError: Boolean
502 >   ): ISC_STATUS;
503   begin
504    result := ErrCode;
505    FCanTimeout := False;
# Line 507 | Line 507 | begin
507      IBDataBaseError;
508   end;
509  
510 < procedure TIBDatabase.CheckActive;
510 > procedure TIBDataBase.CheckActive;
511   begin
512    if StreamedConnected and (not Connected) then
513      Loaded;
# Line 515 | Line 515 | begin
515      IBError(ibxeDatabaseClosed, [nil]);
516   end;
517  
518 < procedure TIBDatabase.EnsureInactive;
518 > procedure TIBDataBase.EnsureInactive;
519   begin
520    if csDesigning in ComponentState then
521    begin
# Line 524 | Line 524 | begin
524    end
525   end;
526  
527 < procedure TIBDatabase.CheckInactive;
527 > procedure TIBDataBase.CheckInactive;
528   begin
529    if FHandle <> nil then
530      IBError(ibxeDatabaseOpen, [nil]);
531   end;
532  
533 < procedure TIBDatabase.CheckDatabaseName;
533 > procedure TIBDataBase.CheckDatabaseName;
534   begin
535    if (FDBName = '') then
536      IBError(ibxeDatabaseNameMissing, [nil]);
537   end;
538  
539 < function TIBDatabase.AddSQLObject(ds: TIBBase): Integer;
539 > function TIBDataBase.AddSQLObject(ds: TIBBase): Integer;
540   begin
541    result := 0;
542    if (ds.Owner is TIBCustomDataSet) then
# Line 549 | Line 549 | begin
549      FSQLObjects[result] := ds;
550   end;
551  
552 < function TIBDatabase.AddTransaction(TR: TIBTransaction): Integer;
552 > function TIBDataBase.AddTransaction(TR: TIBTransaction): Integer;
553   begin
554    result := FindTransaction(TR);
555    if result <> -1 then
# Line 566 | Line 566 | begin
566      FTransactions[result] := TR;
567   end;
568  
569 < procedure TIBDatabase.DoDisconnect;
569 > procedure TIBDataBase.DoDisconnect;
570   begin
571    if Connected then
572      InternalClose(False);
573    FDBSQLDialect := 1;
574   end;
575  
576 < procedure TIBDatabase.CreateDatabase;
576 > procedure TIBDataBase.CreateDatabase;
577   var
578    tr_handle: TISC_TR_HANDLE;
579   begin
# Line 586 | Line 586 | begin
586      True);
587   end;
588  
589 < procedure TIBDatabase.DropDatabase;
589 > procedure TIBDataBase.DropDatabase;
590   begin
591    CheckActive;
592    Call(isc_drop_database(StatusVector, @FHandle), True);
593   end;
594  
595 < procedure TIBDatabase.DBParamsChange(Sender: TObject);
595 > procedure TIBDataBase.DBParamsChange(Sender: TObject);
596   begin
597    FDBParamsChanged := True;
598   end;
599  
600 < procedure TIBDatabase.DBParamsChanging(Sender: TObject);
600 > procedure TIBDataBase.DBParamsChanging(Sender: TObject);
601   begin
602    EnsureInactive;
603    CheckInactive;
604   end;
605  
606 < function TIBDatabase.FindTransaction(TR: TIBTransaction): Integer;
606 > function TIBDataBase.FindTransaction(TR: TIBTransaction): Integer;
607   var
608    i: Integer;
609   begin
# Line 616 | Line 616 | begin
616      end;
617   end;
618  
619 < function TIBDatabase.FindDefaultTransaction(): TIBTransaction;
619 > function TIBDataBase.FindDefaultTransaction: TIBTransaction;
620   var
621    i: Integer;
622   begin
# Line 634 | Line 634 | begin
634    end;
635   end;
636  
637 < procedure TIBDatabase.ForceClose;
637 > procedure TIBDataBase.ForceClose;
638   begin
639    if Connected then
640      InternalClose(True);
641   end;
642  
643 < function TIBDatabase.GetConnected: Boolean;
643 > function TIBDataBase.GetConnected: Boolean;
644   begin
645    result := FHandle <> nil;
646   end;
647  
648 < function TIBDatabase.GetSQLObject(Index: Integer): TIBBase;
648 > function TIBDataBase.GetSQLObject(Index: Integer): TIBBase;
649   begin
650    result := FSQLObjects[Index];
651   end;
652  
653 < function TIBDatabase.GetSQLObjectCount: Integer;
653 > function TIBDataBase.GetSQLObjectCount: Integer;
654   var
655    i: Integer;
656   begin
# Line 659 | Line 659 | begin
659      Inc(result);
660   end;
661  
662 < function TIBDatabase.GetDBParamByDPB(const Idx: Integer): String;
662 > function TIBDataBase.GetDBParamByDPB( const Idx: Integer): String;
663   var
664    ConstIdx, EqualsIdx: Integer;
665   begin
# Line 682 | Line 682 | begin
682      result := '';
683   end;
684  
685 < function TIBDatabase.GetIdleTimer: Integer;
685 > function TIBDataBase.GetIdleTimer: Integer;
686   begin
687    result := FTimer.Interval;
688   end;
689  
690 < function TIBDatabase.GetTransaction(Index: Integer): TIBTransaction;
690 > function TIBDataBase.GetTransaction(Index: Integer): TIBTransaction;
691   begin
692    result := FTransactions[Index];
693   end;
694  
695 < function TIBDatabase.GetTransactionCount: Integer;
695 > function TIBDataBase.GetTransactionCount: Integer;
696   var
697    i: Integer;
698   begin
# Line 702 | Line 702 | begin
702        Inc(result);
703   end;
704  
705 < function TIBDatabase.IndexOfDBConst(st: String): Integer;
705 > function TIBDataBase.IndexOfDBConst(st: String): Integer;
706   var
707    i, pos_of_str: Integer;
708   begin
# Line 718 | Line 718 | begin
718    end;
719   end;
720  
721 < procedure TIBDatabase.InternalClose(Force: Boolean);
721 > procedure TIBDataBase.InternalClose(Force: Boolean);
722   var
723    i: Integer;
724   begin
# Line 797 | Line 797 | begin
797    end;
798   end;
799  
800 < procedure TIBDatabase.Notification( AComponent: TComponent;
801 <                                        Operation: TOperation);
800 > procedure TIBDataBase.Notification(AComponent: TComponent;
801 >   Operation: TOperation);
802   var
803    i: Integer;
804   begin
# Line 812 | Line 812 | begin
812    end;
813   end;
814  
815 < function TIBDatabase.Login: Boolean;
815 > function TIBDataBase.Login: Boolean;
816   var
817    IndexOfUser, IndexOfPassword: Integer;
818    Username, Password, OldPassword: String;
# Line 891 | Line 891 | begin
891    end;
892   end;
893  
894 < procedure TIBDatabase.DoConnect;
894 > procedure TIBDataBase.DoConnect;
895   var
896    DPB: String;
897    TempDBParams: TStrings;
# Line 946 | Line 946 | begin
946      MonitorHook.DBConnect(Self);
947   end;
948  
949 < procedure TIBDatabase.RemoveSQLObject(Idx: Integer);
949 > procedure TIBDataBase.RemoveSQLObject(Idx: Integer);
950   var
951    ds: TIBBase;
952   begin
# Line 960 | Line 960 | begin
960    end;
961   end;
962  
963 < procedure TIBDatabase.RemoveSQLObjects;
963 > procedure TIBDataBase.RemoveSQLObjects;
964   var
965    i: Integer;
966   begin
# Line 972 | Line 972 | begin
972    end;
973   end;
974  
975 < procedure TIBDatabase.RemoveTransaction(Idx: Integer);
975 > procedure TIBDataBase.RemoveTransaction(Idx: Integer);
976   var
977    TR: TIBTransaction;
978   begin
# Line 986 | Line 986 | begin
986    end;
987   end;
988  
989 < procedure TIBDatabase.RemoveTransactions;
989 > procedure TIBDataBase.RemoveTransactions;
990   var
991    i: Integer;
992   begin
# Line 994 | Line 994 | begin
994      RemoveTransaction(i);
995   end;
996  
997 < procedure TIBDatabase.SetDatabaseName(const Value: TIBFileName);
997 > procedure TIBDataBase.SetDatabaseName( const Value: TIBFileName);
998   begin
999    if FDBName <> Value then
1000    begin
# Line 1004 | Line 1004 | begin
1004    end;
1005   end;
1006  
1007 < procedure TIBDatabase.SetDBParamByDPB(const Idx: Integer; Value: String);
1007 > procedure TIBDataBase.SetDBParamByDPB( const Idx: Integer; Value: String);
1008   var
1009    ConstIdx: Integer;
1010   begin
# Line 1023 | Line 1023 | begin
1023    end;
1024   end;
1025  
1026 < procedure TIBDatabase.SetDBParams(Value: TStrings);
1026 > procedure TIBDataBase.SetDBParams(Value: TStrings);
1027   begin
1028    FDBParams.Assign(Value);
1029   end;
1030  
1031 < procedure TIBDatabase.SetDefaultTransaction(Value: TIBTransaction);
1031 > procedure TIBDataBase.SetDefaultTransaction(Value: TIBTransaction);
1032   var
1033    i: Integer;
1034   begin
# Line 1046 | Line 1046 | begin
1046    FDefaultTransaction := Value;
1047   end;
1048  
1049 < procedure TIBDatabase.SetHandle(Value: TISC_DB_HANDLE);
1049 > procedure TIBDataBase.SetHandle(Value: TISC_DB_HANDLE);
1050   begin
1051    if HandleIsShared then
1052      Close
# Line 1056 | Line 1056 | begin
1056    FHandleIsShared := (Value <> nil);
1057   end;
1058  
1059 < procedure TIBDatabase.SetIdleTimer(Value: Integer);
1059 > procedure TIBDataBase.SetIdleTimer(Value: Integer);
1060   begin
1061    if Value < 0 then
1062      IBError(ibxeTimeoutNegative, [nil])
# Line 1075 | Line 1075 | begin
1075        end;
1076   end;
1077  
1078 < function TIBDatabase.TestConnected: Boolean;
1078 > function TIBDataBase.TestConnected: Boolean;
1079   var
1080    DatabaseInfo: TIBDatabaseInfo;
1081   begin
# Line 1096 | Line 1096 | begin
1096    end;
1097   end;
1098  
1099 < procedure TIBDatabase.TimeoutConnection(Sender: TObject);
1099 > procedure TIBDataBase.TimeoutConnection(Sender: TObject);
1100   begin
1101    if Connected then
1102    begin
# Line 1111 | Line 1111 | begin
1111    end;
1112   end;
1113  
1114 < function TIBDatabase.GetIsReadOnly: Boolean;
1114 > function TIBDataBase.GetIsReadOnly: Boolean;
1115   var
1116    DatabaseInfo: TIBDatabaseInfo;
1117   begin
# Line 1129 | Line 1129 | begin
1129    DatabaseInfo.Free;
1130   end;
1131  
1132 < function TIBDatabase.GetSQLDialect: Integer;
1132 > function TIBDataBase.GetSQLDialect: Integer;
1133   begin
1134    Result := FSQLDialect;
1135   end;
1136  
1137  
1138 < procedure TIBDatabase.SetSQLDialect(const Value: Integer);
1138 > procedure TIBDataBase.SetSQLDialect( const Value: Integer);
1139   begin
1140    if (Value < 1) then IBError(ibxeSQLDialectInvalid, [nil]);
1141    if ((FHandle = nil) or (Value <= FDBSQLDialect))  then
# Line 1144 | Line 1144 | begin
1144      IBError(ibxeSQLDialectInvalid, [nil]);
1145   end;
1146  
1147 < function TIBDatabase.GetDBSQLDialect: Integer;
1147 > function TIBDataBase.GetDBSQLDialect: Integer;
1148   var
1149    DatabaseInfo: TIBDatabaseInfo;
1150   begin
# Line 1154 | Line 1154 | begin
1154    DatabaseInfo.Free;
1155   end;
1156  
1157 < procedure TIBDatabase.ValidateClientSQLDialect;
1157 > procedure TIBDataBase.ValidateClientSQLDialect;
1158   begin
1159    if (FDBSQLDialect < FSQLDialect) then
1160    begin
# Line 1164 | Line 1164 | begin
1164    end;
1165   end;
1166  
1167 < procedure TIBDatabase.ApplyUpdates(const DataSets: array of TDataSet);
1167 > procedure TIBDataBase.ApplyUpdates( const DataSets: array of TDataSet);
1168   var
1169    I: Integer;
1170    DS: TIBCustomDataSet;
# Line 1190 | Line 1190 | begin
1190    TR.CommitRetaining;
1191   end;
1192  
1193 < procedure TIBDatabase.CloseDataSets;
1193 > procedure TIBDataBase.CloseDataSets;
1194   var
1195    i: Integer;
1196   begin
# Line 1199 | Line 1199 | begin
1199        DataSets[i].close;
1200   end;
1201  
1202 < function TIBDatabase.GetDataset(Index : longint) : TDataset;
1202 > function TIBDataBase.GetDataset(Index: longint): TDataset;
1203   begin
1204    if (Index >= 0) and (Index < FDataSets.Count) then
1205      Result := TDataSet(FDataSets[Index])
# Line 1207 | Line 1207 | begin
1207      raise Exception.Create('Invalid Index to DataSets');
1208   end;
1209  
1210 < function TIBDatabase.GetDataSetCount : Longint;
1210 > function TIBDataBase.GetDataSetCount: Longint;
1211   begin
1212    Result := FDataSets.Count;
1213   end;
# Line 1228 | Line 1228 | begin
1228    inherited SetConnected(Value);
1229   end;
1230  
1231 < procedure TIBDatabase.GetFieldNames(const TableName: string; List: TStrings);
1231 > procedure TIBDataBase.GetFieldNames( const TableName: string; List: TStrings);
1232   var
1233    Query: TIBSQL;
1234   begin
# Line 1269 | Line 1269 | begin
1269    end;
1270   end;
1271  
1272 < procedure TIBDatabase.GetTableNames(List: TStrings; SystemTables: Boolean);
1272 > procedure TIBDataBase.GetTableNames(List: TStrings; SystemTables: Boolean);
1273   var
1274    Query : TIBSQL;
1275   begin
# Line 1687 | Line 1687 | begin
1687      for i := 0 to FSQLObjects.Count - 1 do
1688        if (FSQLObjects[i] <> nil) and
1689           (TIBBase(FSQLObjects[i]).Database = nil) then
1690 <        SetOrdProp(TIBBase(FSQLObjects[i]).Owner, 'Database', Integer(Value));
1690 >         SetObjectProp(TIBBase(FSQLObjects[i]).Owner, 'Database', Value);
1691    end;
1692    FDefaultDatabase := Value;
1693   end;
# Line 2114 | Line 2114 | end.
2114  
2115  
2116  
2117 <
2117 >

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines