ufrmtaxicall_ct_taskresponse.pas

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

unit ufrmTaxiCall_CT_TaskResponse;

interface

uses
  Windows, DB, Classes,Forms,
  cxTextEdit, cxControls, cxContainer, cxEdit, cxLabel, ExtCtrls, RzPanel,
  StdCtrls, cxButtons, Controls, ComCtrls, TbListView, dxDockPanel,
  dxDockControl, uBaseDBDefs, 
  uBaseDBForm, ufrmTaxiCall_CT_TaskResponseEdit, cxLookAndFeelPainters,
  cxMemo, ImgList, cxMaskEdit, cxDropDownEdit, cxCalendar, dxNavBarCollns,
  dxNavBarBase, dxNavBar, uBaseDBFunctionPanel,uBaseDBLog4SQL, SysUtils,dbclient;
type
  TfrmTaxiCall_CT_TaskResponse = class(TBaseDBForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite2: TdxLayoutDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    lvOilType: TTbListView;
    dxDockPanel2: TdxDockPanel;
    btnEdit: TcxButton;
    btnAdd: TcxButton;
    btnRefresh: TcxButton;
    btnDelete: TcxButton;
    Panel1: TPanel;
    Panel2: TPanel;
    dxNavBar1: TdxNavBar;
    dxNavBar1Group1: TdxNavBarGroup;
    dxNavBar1Group2: TdxNavBarGroup;
    biYesterday: TdxNavBarItem;
    biToday: TdxNavBarItem;
    biThisMonth: TdxNavBarItem;
    biLastMonth: TdxNavBarItem;
    dxNavBar1Group1Control: TdxNavBarGroupControl;
    cxLabel12: TcxLabel;
    dtedtFrom: TcxDateEdit;
    cxLabel13: TcxLabel;
    dtedtTo: TcxDateEdit;
    ilSmall: TImageList;
    ilLarge: TImageList;
    dxTabContainerDockSite1: TdxTabContainerDockSite;
    dxDockPanel10: TdxDockPanel;
    RzGroupBox9: TRzGroupBox;
    ETERP_TaskBill: TTbListView;
    cxLabel17: TcxLabel;
    Label1: TLabel;
    gbPlan: TRzGroupBox;
    cxLabel4: TcxLabel;
    cxLabel2: TcxLabel;
    TaskNO: TcxTextEdit;
    RegistrationNO: TcxTextEdit;
    cxLabel3: TcxLabel;
    Answer: TcxTextEdit;
    ReplyTime: TcxTextEdit;
    cxLabel1: TcxLabel;
    procedure FormCreate(Sender: TObject);
    procedure dtedtFromPropertiesChange(Sender: TObject);
    procedure biYesterdayClick(Sender: TObject);
  private
    { Private declarations }
  public

//    procedure CommandExecuteDelete; override;
//    procedure CommandExecuteEdit; override;
    { Public declarations }
  end;

implementation
{$R *.dfm}

{ TfrmZNTransitPlace }

procedure TfrmTaxiCall_CT_TaskResponse.FormCreate(Sender: TObject);

var
  p_ref_TaskNO_provice            : PBaseDBRefTable;
  p_ref_RegistrationNO_provice    : PBaseDBRefTable;
//  p_ref_DriverName_provice        : PBaseDBRefTable;


begin
  DBListView      := lvOilType;
//  ButtonNew       := btnAdd;
  ButtonEdit      := btnEdit;
  ButtonDelete    := btnDelete;
  ButtonRefresh   := btnRefresh;

  DBTableName     := 'CT_TaskResponse';
  DBTableCHNName  := '电召应答';

  EditFormClass := TfrmTaxiCall_CT_TaskResponseEdit;

  p_ref_TaskNO_provice              := AddRefTable('CT_Task', '任务编号', 'TaskNO', 'ID');
  p_ref_RegistrationNO_provice      := AddRefTable('CT_Vehicle', '车牌号', 'RegistrationNO', 'ID');
//  p_ref_DriverName_provice          := AddRefTable('CT_Driver', '司机姓名', 'drivername', 'ID');

  AddField('ID', '流水号', 50, ftInteger, False, False, True);
  AddField('Answer', '司机应答',  100, ftBoolean,
   false, False, False,'答应', '拒绝');
  AddField('ReplyTime', '应答时间',  100, ftdatetime);
  AddField('TaskNO', '任务编号', 100,  ftReference,
    False, False, False, '', '', p_ref_TaskNO_provice);

  AddField('RegistrationNO', '车牌号', 100,  ftReference,
    False, False, False, '', '', p_ref_RegistrationNO_provice);

//  AddField('DriverName', '司机姓名', 100,ftReference,
//    False, False, False, '', '', p_ref_DriverName_provice);




  InitialInfo(False);

  TBaseDBFuncPanelUtils.ChangeFilterDateTimeValue(dtedtFrom, dtedtTo);
end;

procedure TfrmTaxiCall_CT_TaskResponse.dtedtFromPropertiesChange(
  Sender: TObject);
begin
  RefreshCondition(
    Format('(ReplyTime >= ''%s'') and (ReplyTime <= ''%s'')', [
      FormatDateTime('yyyy-mm-dd 00:00:00', dtedtFrom.Date),
      FormatDateTime('yyyy-mm-dd 23:59:59', dtedtTo.Date)
    ])
    );
end;

procedure TfrmTaxiCall_CT_TaskResponse.biYesterdayClick(
  Sender: TObject);
begin
  TBaseDBFuncPanelUtils.ChangeFilterDateTimeRange(
    TBaseDBFuncPanelDateRange(TComponent(Sender).Tag),
    dtedtFrom, dtedtTo);
end;





end.