ufrmtaxicall_ct_taskedit.pas

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

unit ufrmTaxiCall_CT_TaskEdit;

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_TaskEdit = class(TBaseDBEditForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    dxStatusBar: TdxStatusBar;
    btnSave: TcxButton;
    btnCancel: TcxButton;
    gbPlan: TRzGroupBox;
    cxLabel4: TcxLabel;
    TaskNO: TcxTextEdit;
    cxLabel10: TcxLabel;
    TimeCalldate: TcxDateEdit;
    TimeCalltime: TRzDateTimeEdit;
    TimeSubmitInfoBasedate: TcxDateEdit;
    TimeSubmitInfoBasetime: TRzDateTimeEdit;
    cxLabel3: TcxLabel;
    cxLabel6: TcxLabel;
    TimeSubmitInfoAdditionaldate: TcxDateEdit;
    TimeSubmitInfoAdditionaltime: TRzDateTimeEdit;
    TimeBeginContacttime: TRzDateTimeEdit;
    TimeBeginContactdate: TcxDateEdit;
    cxLabel8: TcxLabel;
    TimeDriverConfirmtime: TRzDateTimeEdit;
    TimeDriverConfirmdate: TcxDateEdit;
    cxLabel1: TcxLabel;
    TimeEndContactDate: TcxDateEdit;
    cxLabel12: TcxLabel;
    TimeEndContacttime: TRzDateTimeEdit;
    CallerNO: TcxComboBox;
    cxLabel2: TcxLabel;
    StatusID: TcxComboBox;
    cxLabel5: TcxLabel;
    VehicleID: TcxComboBox;
    cxLabel7: TcxLabel;
    TaskResult: TcxComboBox;
    cxLabel9: TcxLabel;
    SeatUserName: TcxTextEdit;
    cxLabel15: TcxLabel;
    cxLabel11: TcxLabel;
    TimeTaskFinishdate: TcxDateEdit;
    TimeTaskFinishTime: TRzDateTimeEdit;
    procedure FormCreate(Sender: TObject);
    public
//    procedure initial(_is_new:boolean);override;

  end;


implementation
 uses ufrmTAXICALL_Utils;

{$R *.dfm}

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


end.