dbstructure.~pas

用DELPH写的DAO访问模块.有连接池.应用了各种模块,把数据库操作

{*******************************************************}
{                                                       }
{       定义了系统中使用到的所有数据结构                }
{                                                       }
{       版权所有 (C) 2009 大道网络                      }
{                                                       }
{*******************************************************}

unit DBStructure;


interface

uses
  Windows, Sysutils, Messages, ComCtrls, Controls, Variants, Classes, Graphics,
  Forms, Dialogs, StdCtrls, Grids, DBGrids, DBCtrls, Mask, ExtCtrls, Contnrs, QButtons;
 
type

  TAllowSetContrl = class of TControl;


const

  s_Key = '#@D1&82X%)#@@#@$iiLE~!jkllk$#%';
  titlestr:array[0..15] of byte=
       ($00,$01,$00,$00,$53,$74,$61,$6E,$64,$61,$72,$64,$20,$4A,$65,$74);
  titlestr2:array[0..15] of byte=
       ($42,$6A,$46,$58,$58,$43,$44,$59,$4B,$4A,$47,$46,$59,$58,$47,$53);


  i_arymax = 12;
  ary_Focus: array[1..i_arymax] of TAllowSetContrl=(TEdit, TCheckBox, TRadioButton,
      TComboBox, TMaskEdit, TLabeledEdit, TDateTimePicker, TComboBoxEx, TDBEdit,
      TDBComboBox,TDBCheckBox, TDBLookupComboBox );



 

    {
  TReportForm =   function(Handle: THandle;
                           const szCaption,
                                 szFuncTag: PAnsiString;
                           const szSQLStr: PWideString;
                                 bPreview: BOOL): Bool; stdcall;
  EDLLLoadError = class(Exception);
  TProMtrOfRtuOrd = function(Handle: THandle; const Rtu_id: Integer): Boolean;
                                               Stdcall; //external 'xcMeterOrd.dll';
   }





implementation

end.