ufrmcqgpsusertypeoperationtype.pas

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

unit ufrmCQGPSUserTypeOperationType;

interface

uses
  Windows, DB, Classes, Forms, SysUtils,
  cxTextEdit, cxControls, cxContainer, cxEdit, cxLabel, ExtCtrls, RzPanel,
  StdCtrls, cxButtons, Controls, ComCtrls, TbListView, dxDockPanel,
  dxDockControl, uBaseDBDefs, uBaseDBUtils,
  uBaseDBForm, cxLookAndFeelPainters,
  cxMemo;
type

  TfrmCQGPSUserTypeOperationType = class(TBaseDBForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite2: TdxLayoutDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    lvOilType: TTbListView;
    dxDockPanel2: TdxDockPanel;
    btnRefresh: TcxButton;
    gbPlan: TRzGroupBox;
    cxLabel3: TcxLabel;
    VehicleID: TcxTextEdit;
    ElecMile: TcxTextEdit;
    cxLabel1: TcxLabel;
    SectElecMile: TcxTextEdit;
    cxLabel2: TcxLabel;
    cxLabel4: TcxLabel;
    ActualMile: TcxTextEdit;
    cxLabel5: TcxLabel;
    SectActMile: TcxTextEdit;
    cxLabel6: TcxLabel;
    ReportTime: TcxTextEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { public declarations }
  end;

implementation

{$R *.dfm}

{ TfrmZNTransitPlace }

procedure TfrmCQGPSUserTypeOperationType.FormCreate(Sender: TObject);
begin
  DBListView      := lvOilType;

  ButtonRefresh   := btnRefresh;

  DBTableName     := 'MSC_OperationType';
  DBTableCHNName  := '业务类型';

  AddField('ID', '编号', 50, ftInteger, False, False, True);
  AddField('Name', '类型名称', 100, ftString, False, True);
  AddField('TypeNO', '类型编号', 100, ftInteger, False, True);
  
  InitialInfo;
end;

end.