ufrmtaxicall_ct_customeredit.pas

来自「a voice guide client ,it is the second p」· PAS 代码 · 共 89 行

unit ufrmTaxiCall_CT_CustomerEdit;

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, Mask, RzEdit;

type
  TfrmTaxiCall_CT_CustomerEdit = class(TBaseDBEditForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    btnSave: TcxButton;
    btnCancel: TcxButton;
    dxStatusBar: TdxStatusBar;
    gbPlan: TRzGroupBox;
    cxLabel4: TcxLabel;
    CallerIAName: TcxTextEdit;
    cxLabel5: TcxLabel;
    CallerIAHeight: TcxTextEdit;
    CallerIBPhoneNO: TcxTextEdit;
    cxLabel9: TcxLabel;
    CallerIBPositionLon: TcxTextEdit;
    cxLabel10: TcxLabel;
    cxLabel11: TcxLabel;
    CallerIBPositionLat: TcxTextEdit;
    CallerIBMaxWaitTime: TcxTextEdit;
    cxLabel12: TcxLabel;
    cxLabel13: TcxLabel;
    CallerIBMaxTaxiDistance: TcxTextEdit;
    CallerIAGender: TcxComboBox;
    cxLabel1: TcxLabel;
    CallerIAFeedbackTypeID: TcxComboBox;
    cxLabel2: TcxLabel;
    CallerIAOtherInfo: TcxMemo;
    cxLabel7: TcxLabel;
    CallerIAHasInfoAdditional: TcxComboBox;
    cxLabel8: TcxLabel;
    cxLabel14: TcxLabel;
    cxLabel6: TcxLabel;
    CallerIAAgeSegmentID: TcxComboBox;
    cxLabel3: TcxLabel;
    cxLabel18: TcxLabel;
    cxLabel15: TcxLabel;
    CallerIAGuestCount: TcxTextEdit;
    CallerIAHasPackage: TcxComboBox;
    cxLabel19: TcxLabel;
    CallerIBIsBook: TcxComboBox;
    cxLabel16: TcxLabel;
    CallerIBBookTime: TRzDateTimeEdit;
    procedure FormCreate(Sender: TObject);
//    public
//      procedure initial(_is_new:boolean);override;

  end;


implementation


{$R *.dfm}

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

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

end.