ufrmcqgpsoperationedit.pas

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

unit ufrmCQGPSOperationEdit;

interface

uses
  Windows, cxLookAndFeelPainters, cxGraphics, dxStatusBar, StdCtrls,
  cxButtons, cxTextEdit, cxControls, cxContainer, cxEdit, cxLabel,
  ExtCtrls, RzPanel, dxDockPanel, dxDockControl, Classes, Controls,
  uBaseDBEditForm, cxMemo, cxMaskEdit, cxDropDownEdit, Mask, RzEdit,
  cxCalendar, SysUtils, uBaseDBDefs, Menus;

type
  TfrmCQGPSOperationEdit = class(TBaseDBEditForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    btnSave: TcxButton;
    btnCancel: TcxButton;
    dxStatusBar: TdxStatusBar;
    gbPlan: TRzGroupBox;
    cxLabel12: TcxLabel;
    cxLabel22: TcxLabel;
    GPSTimeTime: TRzDateTimeEdit;
    cxLabel13: TcxLabel;
    cxLabel15: TcxLabel;
    OperationTypeID: TcxComboBox;
    cxLabel6: TcxLabel;
    GPSTimeDate: TcxDateEdit;
    cxLabel1: TcxLabel;
    GenerateTimeTime: TRzDateTimeEdit;
    cxLabel2: TcxLabel;
    cxLabel4: TcxLabel;
    OperationLevelID: TcxComboBox;
    GenerateTimeDate: TcxDateEdit;
    VehicleID: TcxComboBox;
    OperationDescription: TcxMemo;
    procedure FormCreate(Sender: TObject);
  public

  end;

implementation

{$R *.dfm}

procedure TfrmCQGPSOperationEdit.FormCreate(Sender: TObject);
begin
  CaptionControl := dxDockPanel1;
  HintControl    := dxStatusBar;
  ButtonConfirm  := btnSave;
  ButtonCancel   := btnCancel;
end;

end.