ufrmcqgpsusertypedetailoperationtype.pas

来自「msc map program to control client of too」· PAS 代码 · 共 71 行

unit ufrmCQGPSUserTypeDetailOperationType;

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

  TfrmCQGPSUserTypeDetailOperationType = 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 TfrmCQGPSUserTypeDetailOperationType.FormCreate(Sender: TObject);
var
  p_ref_type_id : PBaseDBRefTable;
begin
  DBListView      := lvOilType;

  ButtonRefresh   := btnRefresh;

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

  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.