ufrmcqgpsusertype.pas

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

unit ufrmCQGPSUserType;

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

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

  ButtonRefresh   := btnRefresh;

  DBTableName     := 'MSC_UserType';
  DBTableCHNName  := '用户类型';

  AddField('ID','序号', 50, ftInteger, False, False, True);
  AddField('Name', '名称', 100, ftString, False, True);

  InitialInfo;
end;

end.