layerstruce.~pas

delphi+mapx应用实例,包含MAPX所有功能!值得下载学习!

unit layerstruce;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,MapXLib_TLB, ComObj;

type
  Taddinfolayer = class(TForm)
    ListBoxinfo: TListBox;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    lyrname: TEdit;
    Label2: TLabel;
    ComboBoxtype: TComboBox;
    Label3: TLabel;
    valuewith: TEdit;
    Button3: TButton;
    Button4: TButton;
    Label5: TLabel;
    layername: TEdit;
    Label6: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addinfolayer: Taddinfolayer;
  layerinfo : cmapxlayerinfo;
  flds : cmapxfields;

implementation

uses formmain, addlayerinfo;

{$R *.dfm}

procedure Taddinfolayer.FormCreate(Sender: TObject);
begin
  listboxinfo.Clear;
  lyrname.Text := '';
  ComboBoxtype.Items.Add('character');
  ComboBoxtype.Items.Add('integer');
  ComboBoxtype.Items.Add('small integer');
  ComboBoxtype.Items.Add('float');
  ComboBoxtype.Items.Add('decimal');
  ComboBoxtype.Items.Add('date');
  ComboBoxtype.Items.Add('logical');
  valuewith.Text := '10';
end;

procedure Taddinfolayer.Button3Click(Sender: TObject);
begin
  flds := cofields.Create;
  if comboboxtype.Text = 'character' then

  begin
    flds.AddStringField(lyrname.Text,strtoint(valuewith.Text),emptyparam);
    ListBoxinfo.Items.Add(lyrname.Text);
  end;
  if comboboxtype.Text = 'integer' then
  begin
    flds.AddIntegerField(lyrname.Text);
    ListBoxinfo.Items.Add(lyrname.Text);
  end;
  if comboboxtype.Text = 'small integer' then
  begin
    flds.AddSmallIntField(lyrname.Text);
    ListBoxinfo.Items.Add(lyrname.Text);
  end;
  if comboboxtype.Text = 'float' then
  begin
    flds.AddFloatField(lyrname.Text);
    ListBoxinfo.Items.Add(lyrname.Text);
  end;
  if comboboxtype.Text = 'decimal' then
  begin
    flds.AddNumericField(lyrname.Text,strtoint(valuewith.Text)-2,2);
    ListBoxinfo.Items.Add(lyrname.Text);
  end;
  if comboboxtype.Text = 'date' then
  begin
    flds.AddDateField(lyrname.Text);
    ListBoxinfo.Items.Add(lyrname.Text);
  end;
  if comboboxtype.Text = 'logical' then
  begin
    flds.AddLogicalField(lyrname.Text);
    ListBoxinfo.Items.Add(lyrname.Text);
  end;
end;

procedure Taddinfolayer.Button1Click(Sender: TObject);
var
  lyr :  cmapxlayer;
begin
  layerinfo := colayerinfo.Create;
  layerinfo.Type_ := milayerinfotypetemp;
  layerinfo.AddParameter('filespec','my layer');
  layerinfo.AddParameter('name',layername.Text);
  layerinfo.AddParameter('fields',flds);
  lyr := mainform.map1.layers.add(layerinfo,1);
  layerform.layerListBox.items.add(lyr.Name);
  listboxinfo.Clear;
  close;
end;

procedure Taddinfolayer.Button2Click(Sender: TObject);
var
  lyr :  cmapxlayer;
begin
  layerinfo := colayerinfo.Create;
  layerinfo.Type_ := milayerinfotypetemp;
  layerinfo.AddParameter('filespec','my layer');
  layerinfo.AddParameter('name','my layer');
  layerinfo.AddParameter('fields',flds);
  close;
end;

end.