ufrmtaxicall_ct_vehicleedit.pas

a voice guide client ,it is the second part of voice guide center

unit ufrmTaxiCall_CT_VehicleEdit;

interface

uses
  Windows, cxLookAndFeelPainters, cxGraphics, dxStatusBar, StdCtrls,
  cxButtons, cxTextEdit, cxControls, cxContainer, cxEdit, cxLabel,
  ExtCtrls, RzPanel, dxDockPanel, dxDockControl, Classes, Controls,
  uBaseDBEditForm, cxMemo, cxMaskEdit, cxDropDownEdit, ComCtrls,
  TbListView, uBaseDBDefs, uBaseDBUtils, Variants, SysUtils,
  Dialogs, cxCalendar,DBClient,uBaseDBForm;

type
  TfrmTaxiCall_CT_VehicleEdit = class(TBaseDBEditForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    btnSave: TcxButton;
    btnCancel: TcxButton;
    dxStatusBar: TdxStatusBar;
    gbPlan: TRzGroupBox;
    cxLabel4: TcxLabel;
    RegistrationNO: TcxTextEdit;
    cxLabel5: TcxLabel;
    CommCode: TcxTextEdit;
    CallFlag: TcxComboBox;
    cxLabel8: TcxLabel;
    DriverID: TcxComboBox;
    cxLabel7: TcxLabel;
    cxLabel6: TcxLabel;
    AppearanceType: TcxComboBox;
    TerminalTypeID: TcxComboBox;
    cxLabel9: TcxLabel;
    VehicleModel: TcxComboBox;
    cxLabel2: TcxLabel;
    AreaID: TcxComboBox;
    cxLabel3: TcxLabel;
    procedure FormCreate(Sender: TObject);
//    public
//      procedure initial(_is_new:boolean);override;

  end;


implementation


{$R *.dfm}

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

//procedure TfrmTaxiCall_CT_VehicleEdit.initial(_is_new: boolean);
//begin
//  inherited;
//
//end;

end.