david
fff1b2a4dc
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
77 lines
2.4 KiB
ObjectPascal
77 lines
2.4 KiB
ObjectPascal
|
|
//////////////////////////////////////////////////
|
|
// SQL Server Access Components
|
|
// Copyright © 1998-2005 Core Lab. All right reserved.
|
|
// SDAC Params Frame
|
|
//////////////////////////////////////////////////
|
|
|
|
{$IFNDEF CLR}
|
|
|
|
{$I SDac.inc}
|
|
|
|
unit MSParamsFrame;
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, ExtCtrls, DAParamsFrame, MSAccess;
|
|
|
|
type
|
|
TMSParamsFrame = class(TDAParamsFrame)
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$IFDEF IDE}
|
|
{$R *.dfm}
|
|
{$ENDIF}
|
|
{$IFDEF MSWINDOWS}
|
|
{$R MSParamsFrame.dfm}
|
|
{$ENDIF}
|
|
|
|
uses
|
|
DB;
|
|
|
|
{ TMSParamsFrame }
|
|
|
|
constructor TMSParamsFrame.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
|
|
AddDataType('Unknown', ftUnknown, True, False, False, '');
|
|
AddDataType('String', ftString, False, True, True, '');
|
|
AddDataType('WideString', ftWideString, False, True, True, '');
|
|
AddDataType('Smallint', ftSmallint, True, True, False, '0');
|
|
AddDataType('Integer', ftInteger, True, True, False, '0');
|
|
AddDataType('Word', ftWord, True, True, False, '0');
|
|
AddDataType('LargeInt', ftLargeInt, True, True, False, '0');
|
|
AddDataType('Boolean', ftBoolean, False, True, True, 'False');
|
|
AddDataType('Float', ftFloat, True, True, False, '0');
|
|
AddDataType('Currency', ftCurrency, True, True, False, '0');
|
|
AddDataType('BCD', ftBCD, True, True, False, '0');
|
|
{$IFDEF VER6P}
|
|
AddDataType('FMTBcd', ftFMTBcd, True, True, False, '0');
|
|
{$ENDIF}
|
|
AddDataType('DateTime', ftDateTime, True, True, False, '');
|
|
AddDataType('Memo', ftMemo, False, True, False, '');
|
|
{$IFDEF VER10P}
|
|
AddDataType('WideMemo', ftWideMemo, False, True, False, '');
|
|
{$ENDIF}
|
|
AddDataType('Bytes', ftBytes, False, False, True, '');
|
|
AddDataType('VarBytes', ftVarBytes, False, False, True, '');
|
|
AddDataType('Blob', ftBlob, False, False, False, '');
|
|
AddDataType('GUID', ftGuid, False, False, False, '');
|
|
AddDataType('Variant', ftVariant, False, False, False, '');
|
|
AddDataType('XML', TFieldType(ftMSXML), False, True, False, '');
|
|
|
|
AddParamType('IN', ptInput);
|
|
AddParamType('IN/OUT', ptInputOutput);
|
|
AddParamType('RESULT', ptResult);
|
|
end;
|
|
|
|
end.
|