maindm.pas

DBDesigner 4 is a database design system that integrates database design, modelling, creation and ma

unit MainDM;

interface

uses
  {$IFDEF MSWINDOWS}Windows, {$ENDIF}
  SysUtils, Classes, DBXpress, FMTBcd, DB, SqlExpr, Controls,
  QDialogs, QForms;

type
  PDBConn = ^TDBConn;     // Pointer for DBConn Data
  TDBConn = record
    Name,
    Description,
    DriverName,
    GetDriverFunc,
    LibraryName,
    VendorLib: string;
    TableScope: TTableScopes;
    Params: TStringList;
  end;

  TDMMain = class(TDataModule)
    SQLConn: TSQLConnection;
    SchemaSQLDataSet: TSQLDataSet;

    //Not Case Sensitive MiKe = mike
    function ReplaceText(txt, such, ers: string): string;

    //Case Sensitive MiKe <> mike
    function ReplaceString(txt, such, ers: string): string;


    //Subfunktionen
    function ReplaceText2(txt, such, ers: string): string;
    function ReplaceString2(txt, such, ers: string): string;

    function FormatText4SQL(s: string): string;
    function ShowStringEditor(ATitle, APromt: string; var value: string; SelectionStart: integer = 0; LimitChars: integer = 0): Boolean;

    function GetDBTables(var tablelist: TStringList): Boolean;

    procedure ExecSQL(s: string);

    procedure CreateProz(command, workingdir: string; show, wait4proz: integer);
    procedure KillProz;


    function GetSubStringCountInString(txt, such: string): integer;
    function FixLength(s: string; l: integer; alignLeft: boolean = True; FillChar: char = ' '): string;

    function GetColumnCountFromSepString(s, sep, delim: string): integer;
    function GetColumnFromSepString(s: string; colnr: integer; sep, delim: string): string;
    function GetColumnFromFixLengthString(s: string;
      colnr: integer; SList: TStringList): string;


  private
    { Private declarations }

    {$IFDEF MSWINDOWS}
    ProcessInfo : TProcessInformation;
    {$ENDIF}
  public
    { Public declarations }
    DatabaseTypes: TStringList;
    DefaultDatabaseType: string;
  end;

var
  DMMain: TDMMain;

implementation

uses EditorString;

{$R *.xfm}

function TDMMain.ReplaceText(txt, such, ers: string): string;
begin
  ReplaceText:=ReplaceText2(ReplaceText2(txt, such, '