ufrmcqgpsoperationlevel.pas

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

unit ufrmCQGPSOperationLevel;

interface

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

  TfrmCQGPSOperationLevel = 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;
    LevelNO: TcxTextEdit;
    btnRefresh: TcxButton;
    btnEdit: TcxButton;
    btnDelete: TcxButton;
    btnAdd: TcxButton;
    ilSmall: TImageList;
    ilLarge: TImageList;
    cxLabel2: TcxLabel;
    TypeID: TcxTextEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    IsEdit: Boolean;
    IsAdd: Boolean;
    SelectedItem: TListItem;

    { Public declarations }
  end;

implementation

{$R *.dfm}

{ TfrmProtectSecurityUser }

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

  DBTableName     := 'MSC_OperationLevel';
  DBTableCHNName  := '业务等级';

  EditFormClass := TfrmCQGPSOperationLevelEdit;

  p_ref_type_id := AddRefTable('MSC_OperationType', '业务类型', 'Name', 'ID');

  AddField('ID', '编号', 50, ftInteger, False, False, True);
  AddField('TypeID', '类型名称', 100, ftReference, False, False, False,
           '', '', p_ref_type_id);
  AddField('Name', '等级名称', 100, ftString, False, True);
  AddField('LevelNO', '等级编号', 100, ftInteger, False, True);

  InitialInfo;
end;

end.