unitdatamodule.pas

在delphi下基于MapX5.0的GIS程序

unit UnitDataModule;

interface

uses
  SysUtils, Classes, DB, ADODB, DBTables;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOQueryAll: TADOQuery;
    ADOQueryLayerToTable: TADOQuery;
    ADOQuerySymbolStyle: TADOQuery;
    ADOQueryLineStyle: TADOQuery;
    ADOQueryRegionStyle: TADOQuery;
    ADOQuerySymbolStyleID: TStringField;
    ADOQuerySymbolStyleType: TStringField;
    ADOQuerySymbolStyleName: TStringField;
    ADOQuerySymbolStyleSizes: TWordField;
    ADOQuerySymbolStyleCharacters: TWordField;
    ADOQuerySymbolStyleColor: TStringField;
    ADOQuerySymbolStyleHalo: TBooleanField;
    ADOQuerySymbolStyleBox: TBooleanField;
    ADOQuerySymbolStyleBackColor: TStringField;
    ADOQueryLineStyleID: TStringField;
    ADOQueryLineStyleType: TStringField;
    ADOQueryLineStyleStyle: TWordField;
    ADOQueryLineStyleColor: TStringField;
    ADOQueryLineStyleLineWidthUnit: TWordField;
    ADOQueryLineStyleWidth: TWordField;
    ADOQueryLineStyleInterleaved: TBooleanField;
    ADOQueryRegionStyleID: TStringField;
    ADOQueryRegionStyleType: TStringField;
    ADOQueryRegionStylePattern: TWordField;
    ADOQueryRegionStyleColor: TStringField;
    ADOQueryRegionStyleBackColor: TStringField;
    ADOQueryRegionStyleTransparent: TBooleanField;
    ADOQueryRegionStyleBorderStyle: TWordField;
    ADOQueryRegionStyleBorderColor: TStringField;
    ADOQueryRegionStyleBorderWidthUnit: TWordField;
    ADOQueryRegionStyleBorderWidth: TWordField;
    ADOQueryTextStyle: TADOQuery;
    ADOQueryTextStyleID: TStringField;
    ADOQueryTextStyleType: TStringField;
    ADOQueryTextStyleName: TStringField;
    ADOQueryTextStyleSizes: TWordField;
    ADOQueryTextStyleColor: TStringField;
    ADOQueryTextStyleRotation: TSmallintField;
    ADOQueryTextStyleHalo: TBooleanField;
    ADOQueryTextStyleBox: TBooleanField;
    ADOQueryTextStyleBackcolor: TStringField;
    ADOQueryText: TADOQuery;
    ADOQueryTextID: TStringField;
    ADOQueryTextName: TStringField;
    ADOQueryTextType: TStringField;
    ADOQueryTextZoom: TSmallintField;
    ADOQueryTextRotation: TSmallintField;
    ADOQueryTextHideLabel: TBooleanField;
    ADOQuerySearchAll: TADOQuery;
    ADOQueryCenterFind: TADOQuery;
    ADOQueryBus_SpotS: TADOQuery;
    ADOQueryBus_WayS: TADOQuery;
    ADOQueryBus_SpotE: TADOQuery;
    ADOQueryBus_WayE: TADOQuery;
    ADOQueryFileData: TADOQuery;
    ADOQueryUsers: TADOQuery;
    ADOQueryRecord: TADOQuery;
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;
  SQLString: String;

implementation

{$R *.dfm}

procedure TDM.DataModuleDestroy(Sender: TObject);
begin
  ADOQueryLayerToTable.Close;
  ADOQuerySymbolStyle.Close;
  ADOQueryLineStyle.Close;
  ADOQueryRegionStyle.Close;
  ADOQueryTextStyle.Close;
  ADOQueryText.Close;
  ADOQueryAll.Close;
  ADOQuerySearchAll.Close;
  ADOQueryCenterFind.Close;
  ADOQueryBus_SpotS.Close;
  ADOQueryBus_SpotE.Close;
  ADOQueryBus_WayS.Close;
  ADOQueryBus_WayE.Close;
  ADOQueryFileData.Close;
  ADOQueryUsers.Close;
  if ADOConnection1.Connected then
    ADOConnection1.Connected := False; 
end;

end.