sqllib.pas

公司ERP系统

unit sqllib;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TSqlLibForm = class(TForm)
    LocalCommandQuery: TQuery;
    CommandQuery: TQuery;
  function  GetSQL(vColumn: Array of String):String;
//  function  UpdateSQL(vColumn: Array of String):String;
  procedure UpdateSQL(vTable : String;
                      vColumn: Array of String;
                      vWhere : Array of String);
  procedure CreateTmpTable(vTable : String ;
                           vColumn: Array of String;
                           vIndexColumn : Array of String );
  Procedure DropTmpTable(vTable : String );
  Procedure CreateIndex(vTable ,
                        vIndexNAme: String;
                        vColumn: Array of String);
  Procedure CreateUniqueIndex(vTable ,
                              vIndexNAme: String;
                              vColumn: Array of String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SqlLibForm: TSqlLibForm;

implementation
Const CarriageReturn=#13#10;

{$R *.DFM}

//―SQL 粂猭い