ufrmcqgpsunit.pas

msc map program to control client of tools,use for map guide

unit ufrmCQGPSUnit;

interface

uses
  Windows, DB, Classes,
  cxTextEdit, cxControls, cxContainer, cxEdit, cxLabel, ExtCtrls, RzPanel,
  StdCtrls, cxButtons, Controls, ComCtrls, TbListView, dxDockPanel,
  dxDockControl, 
  uBaseDBForm, uBaseDBDefs,  ufrmCQGPSUnitEdit, cxLookAndFeelPainters,
  cxMemo, ImgList, dxNavBarCollns, dxNavBarBase, dxNavBar, ufrmBaseDBPurview,
  uBaseSystemNavForm, uBaseDBFormInfor;
type

  TfrmCQGPSUnit = class(TBaseDBForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    lvOilType: TTbListView;
    Panel1: TPanel;
    dxDockSite2: TdxDockSite;
    dxDockPanel3: TdxDockPanel;
    dxLayoutDockSite3: TdxLayoutDockSite;
    gbPlan: TRzGroupBox;
    Name: TcxTextEdit;
    cxLabel4: TcxLabel;
    cxLabel1: TcxLabel;
    btnRefresh: TcxButton;
    btnEdit: TcxButton;
    btnDelete: TcxButton;
    btnAdd: TcxButton;
    ilSmall: TImageList;
    ilLarge: TImageList;
    cxLabel2: TcxLabel;
    PhoneNO: TcxTextEdit;
    cxLabel3: TcxLabel;
    ManagerName: TcxTextEdit;
    Address: TcxMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    IsEdit: Boolean;
    IsAdd: Boolean;
    SelectedItem: TListItem;

    { Public declarations }
  end;

implementation

{$R *.dfm}

{ TfrmProtectSecurityUser }

procedure TfrmCQGPSUnit.FormCreate(Sender: TObject);
begin
  DBListView      := lvOilType;
  ButtonNew       := btnAdd;
  ButtonEdit      := btnEdit;
  ButtonDelete    := btnDelete;
  ButtonRefresh   := btnRefresh;

  DBTableName     := 'MSC_Unit';
  DBTableCHNName  := '单位信息';

  EditFormClass := TfrmCQGPSUnitEdit;

  AddField('ID', '编号', 100, ftInteger, False, True, True);
  AddField('Name', '名称', 100, ftString, False, False);
  AddField('ManagerName', '负责人', 100, ftString, True, False);
  AddField('PhoneNO', '联系电话', 100, ftString, True, False);
  AddField('Address', '地址', 150, ftString, True, False);

  InitialInfo;
end;

end.