ufrmtaxicall_ct_task.pas

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

unit ufrmTaxiCall_CT_Task;

interface

uses
  Windows, DB, Classes,Forms,
  variants,
  cxTextEdit, cxControls, cxContainer, cxEdit, cxLabel, ExtCtrls, RzPanel,
  StdCtrls, cxButtons, Controls, ComCtrls, TbListView, dxDockPanel,
  dxDockControl, uBaseDBDefs, 
  uBaseDBForm, ufrmTaxiCall_CT_TaskEdit, cxLookAndFeelPainters,
  cxMemo, ImgList, cxMaskEdit, cxDropDownEdit, cxCalendar, dxNavBarCollns,
  dxNavBarBase, dxNavBar, uBaseDBFunctionPanel,uBaseDBLog4SQL, SysUtils,dbclient,ufrmBaseDBSimpleView;
type



  TfrmTaxiCall_CT_Task = 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;
    cxLabel3: TcxLabel;
    TimeCall: TcxTextEdit;
    SeatUserName: TcxTextEdit;
    cxLabel5: TcxLabel;
    CallerNO: TcxTextEdit;
    cxLabel6: TcxLabel;
    TimeSubmitInfoBase: TcxTextEdit;
    StatusID: TcxTextEdit;
    cxLabel7: TcxLabel;
    cxLabel8: TcxLabel;
    TimeSubmitInfoAdditional: TcxTextEdit;
    cxLabel9: TcxLabel;
    VehicleID: TcxTextEdit;
    TimeBeginContact: TcxTextEdit;
    cxLabel10: TcxLabel;
    TimeEndContact: TcxTextEdit;
    cxLabel1: TcxLabel;
    cxLabel11: TcxLabel;
    TimeDriverConfirm: TcxTextEdit;
    TaskResult: TcxTextEdit;
    cxLabel18: TcxLabel;
    TimeTaskFinish: TcxTextEdit;
    cxLabel14: TcxLabel;
    procedure FormCreate(Sender: TObject);
    procedure dtedtFromPropertiesChange(Sender: TObject);
    procedure biYesterdayClick(Sender: TObject);
  private
    { Private declarations }
  public
    IsEdit: Boolean;
    IsAdd: Boolean;
    SelectedItem: TListItem;

    search_ID_fieldname  : string;//原表字段
    search_ID_fieldname_list:array[0..1] of  string;//本表字段

    search_value_fieldname  : string;//原表字段

    search_ID_fieldname_maxnumber :integer;


    search_fieldname     : string;//数据原表字段
    search_values        : string;
    get_data_sql_str     : string;

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




implementation
   uses uBaseDBUtils;      
{$R *.dfm}

{ TfrmZNTransitPlace }

procedure TfrmTaxiCall_CT_Task.FormCreate(Sender: TObject);

var
  p_ref_SeatID_provice         : PBaseDBRefTable;
  p_ref_VehicleID_provice      : PBaseDBRefTable;
  p_ref_CallerNO_provice       : PBaseDBRefTable;
  p_ref_StateID_provice        : PBaseDBRefTable;
  p_ref_FeedbackID_provice     : PBaseDBRefTable;
  p_ref_TaskResult_provice     : PBaseDBRefTable;

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

  DBTableName     := 'CT_Task';
  DBTableCHNName  := '任务管理';
  SelectSQL       :=  'select * from v_task_all';
  EditFormClass                 := TfrmTaxiCall_CT_TaskEdit;
//  p_ref_SeatID_provice          := AddRefTable('v_SeatUser', '座席id', 'UserName', 'ID');
  p_ref_VehicleID_provice       := AddRefTable('CT_Vehicle', '车辆编码', 'RegistrationNO', 'ID');
  p_ref_CallerNO_provice        := AddRefTable('CT_Customer', '客人编码', 'CallerIAName', 'ID');
  p_ref_StateID_provice         := AddRefTable('CT_TaskState', '任务状态编码', 'name', 'ID');
  p_ref_FeedbackID_provice      := AddRefTable('CT_Feedback', '客户反馈', 'name', 'ID');
  p_ref_TaskResult_provice      := AddRefTable('CT_TaskEndResion', '任务结束类型', 'name', 'ID');

  AddField('ID', '任务编号', 50, ftInteger, False, False, True);
  AddField('TaskNO', '任务流水号',  100,ftString);
  AddField('SeatUserName', '座席名', 100, ftString);
  AddField('CallerNO', '客人称呼', 100, ftReference,
    False, False, False, '', '', p_ref_CallerNO_provice);

  AddField('StatusID', '任务状态',  100,  ftReference,
    False, False, False, '', '', p_ref_StateID_provice);

  AddField('VehicleID', '车牌号', 100,  ftReference,
    False, False, False, '', '', p_ref_VehicleID_provice);
    
  AddField('TimeCall', '召车时间', 100, ftdatetime);
  AddField('TimeSubmitInfoBase', '提交基本信息时间', 100, ftdatetime);
  AddField('TimeSubmitInfoAdditional', '提交附加信息时间', 100, ftdatetime);
  AddField('TimeBeginContact', '开始联系时间', 100,  ftdatetime);
  AddField('TimeDriverConfirm', '司机确认时间', 100, ftdatetime);
  AddField('TimeEndContact', '联系成功时间', 100, ftdatetime);
  AddField('TimeTaskFinish', '任务成功时间', 100, ftdatetime);

//  AddField('TimeContactFail', '联系失败时间', 100, ftdatetime);
//  AddField('TimeCancelTask', '任务取消时间', 100, ftdatetime);
  AddField('TaskResult', '任务结束类型', 100, ftReference,
    False, False, False, '', '', p_ref_TaskResult_provice);

  InitialInfo(False);

  TBaseDBFuncPanelUtils.ChangeFilterDateTimeValue(dtedtFrom, dtedtTo);
end;



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

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



end.