umapx_oracle.~pas

Mapx在delphi下的开发筐架软件.是学习的参考资料

unit uMapX_Oracle;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, MapXLib_TLB, ExtCtrls, ADODB, DB, StdCtrls;

type
  TForm1 = class(TForm)
    Map1: TMap;
    Panel1: TPanel;
    Panel2: TPanel;
    Conn: TADOConnection;
    Q: TADOQuery;
    Qry: TADOQuery;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function BindOracleDataSet(Map :TMap;Layer: CMapXLayer; TableName: string;
      Query: TADOQuery;DoQuery: TADOQuery): CmapXDataset;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function TForm1.BindOracleDataSet(Map :TMap;Layer: CMapXLayer; TableName: string;
  Query: TADOQuery;DoQuery: TADOQuery): CmapXDataset;
var
  Fields: CMapXFields;
  COLUMN_NAMEStr,StrLayer :string;
  param, ds: variant;
begin
  TVarData(EmptyParam).vType := varError;
  TVarData(EmptyParam).vError := longword(DISP_E_PARAMNOTFOUND);

  Query.Close;
  Query.SQL.Text :='select * from '+UPPERCASE(TableName);
  try
  Query.Open;
  except
  end;
  //从Oracle得到TableName表的字段信息
  DoQuery.sql.text :=
  'Select TABLE_NAME,COLUMN_NAME,DATA_TYPE FROM '
  +' user_tab_columns where TABLE_NAME='+#39
  +UPPERCASE(TableName)+#39;
  try
  DoQuery.open;
  except
  exit;
  end;
  DoQuery.First;

  //加上字段
  Fields := CoFields.Create;
  while not DoQuery.Eof do
  begin
  //字段名称
  COLUMN_NAMEStr :=UPPERCASE(DoQuery.fieldbyname('COLUMN_NAME').asstring);
  begin
  //字段类型
  if UPPERCASE(DoQuery.fieldbyname('DATA_TYPE').asstring)='VARCHAR2' then
  Fields.Add(COLUMN_NAMEStr,COLUMN_NAMEStr, miAggregationAuto,0);
  if UPPERCASE(DoQuery.fieldbyname('DATA_TYPE').asstring)='NUMBER' then
  Fields.Add(COLUMN_NAMEStr,COLUMN_NAMEStr, miAggregationAuto,3);
  //日期也要加上
  if UPPERCASE(DoQuery.fieldbyname('DATA_TYPE').asstring)='DATE' then
  Fields.Add(COLUMN_NAMEStr,COLUMN_NAMEStr, miAggregationAuto,2);
  end;
  DoQuery.Next;
  end;

  try //Uppercase(TableName)+'_ID'
    // Result :=Map.Datasets.Add(miDataSetADO,Query.Recordset,
    //注意add带的第一个参数，MAPX5用midatasetado,MAPX4而用midataado
    Result :=Map.Datasets.Add(miDataSetADO,Query.Recordset,
    Uppercase(Layer.Name),'ID', EmptyParam,Layer, fields,EmptyParam);
  except
    exit;
  end;
end;
//'ID' 是在.tab的索引字段

procedure TForm1.Button1Click(Sender: TObject);
var
  layer:CMapXLayer;
begin
  layer:=Map1.Layers.AddUserDrawLayer('AAA',1);
  BindOracleDataSet(Map1,layer,'RAILWAY',Q,Qry);
end;

end.