ufrmtaxicall_ct_customer.pas

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

unit ufrmTaxiCall_CT_Customer;

interface

uses
  Windows, DB, Classes, SysUtils,
  cxTextEdit, cxControls, cxContainer, cxEdit, cxLabel, ExtCtrls, RzPanel,
  StdCtrls, cxButtons, Controls, ComCtrls, TbListView, dxDockPanel,
  dxDockControl, uBaseDBUtils, Graphics, 
  uBaseDBForm, uBaseDBDefs,  ufrmTaxiCall_CT_CustomerEdit, cxLookAndFeelPainters,
  cxMemo, ImgList, dxNavBarCollns, dxNavBarBase, dxNavBar, ufrmBaseDBPurview,
  uBaseSystemNavForm, uBaseDBFormInfor, cxMaskEdit, cxDropDownEdit,
  cxCheckBox;
type

  TfrmTaxiCall_CT_Customer = class(TBaseDBForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    lvOilType: TTbListView;
    Panel1: TPanel;
    dxDockSite2: TdxDockSite;
    dxDockPanel3: TdxDockPanel;
    dxLayoutDockSite3: TdxLayoutDockSite;
    gbPlan: TRzGroupBox;
    btnRefresh: TcxButton;
    btnEdit: TcxButton;
    btnDelete: TcxButton;
    btnAdd: TcxButton;
    ilSmall: TImageList;
    ilLarge: TImageList;
    cxLabel4: TcxLabel;
    CallerIAName: TcxTextEdit;
    cxLabel2: TcxLabel;
    CallerIAGender: TcxTextEdit;
    cxLabel5: TcxLabel;
    CallerIAHeight: TcxTextEdit;
    cxLabel3: TcxLabel;
    CallerIAHasInfoAdditional: TcxTextEdit;
    cxLabel6: TcxLabel;
    CallerIAFeedbackTypeID: TcxTextEdit;
    CallerIBPhoneNO: TcxTextEdit;
    cxLabel8: TcxLabel;
    CallerIBPositionLon: TcxTextEdit;
    cxLabel9: TcxLabel;
    cxLabel10: TcxLabel;
    CallerIBPositionLat: TcxTextEdit;
    CallerIBMaxWaitTime: TcxTextEdit;
    cxLabel11: TcxLabel;
    cxLabel12: TcxLabel;
    CallerIBMaxTaxiDistance: TcxTextEdit;
    CallerIAOtherInfo: TcxMemo;
    cxLabel7: TcxLabel;
    cxLabel13: TcxLabel;
    cxLabel14: TcxLabel;
    CallerIAAgeSegmentID: TcxTextEdit;
    cxLabel1: TcxLabel;
    CallerIAGuestCount: TcxTextEdit;
    cxLabel15: TcxLabel;
    CallerIAHasPackage: TcxTextEdit;
    cxLabel16: TcxLabel;
    CallerIBIsBook: TcxTextEdit;
    cxLabel17: TcxLabel;
    CallerIBBookTime: TcxTextEdit;
    cxLabel18: TcxLabel;
    procedure FormCreate(Sender: TObject);
  end;

implementation

{$R *.dfm}

{ TfrmProtectSecurityUser }

procedure TfrmTaxiCall_CT_Customer.FormCreate(Sender: TObject);
var
      p_ref_CallerIAFeedbackTypeID_provice      : PBaseDBRefTable;
      p_ref_CallerIASex_provice                 : PBaseDBRefTable;
      p_ref_CallerIAAgeSegmentID_provice        : PBaseDBRefTable;
      p_ref_CallerIAHasPackage_provice          : PBaseDBRefTable;
begin
  DBListView      := lvOilType;
//  ButtonNew       := btnAdd;
//  ButtonEdit      := btnEdit;
  ButtonDelete    := btnDelete;
  ButtonRefresh   := btnRefresh;
  btnAdd.Visible  :=  false;
  btnEdit.Visible :=  false;
  DBTableName     := 'CT_Customer';
  DBTableCHNName  := '客人信息';

  EditFormClass := TfrmTaxiCall_CT_CustomerEdit;
  p_ref_CallerIAFeedbackTypeID_provice      := AddRefTable('CT_Feedback', '客人满意度', 'Name', 'ID');
  p_ref_CallerIASex_provice                 := AddRefTable('Base_Sex', '性别', 'Name', 'ID');
  p_ref_CallerIAAgeSegmentID_provice        := AddRefTable('CT_AgeSegment', '年龄段', 'Name', 'ID');
  p_ref_CallerIAHasPackage_provice          := AddRefTable('CT_Customer_HasPackage', '客人是否有行李', 'Name', 'ID');

  AddField('ID', '流水号', 50, ftInteger, False, False, True);
  AddField('CallerIAName', '客人姓名', 100, ftString);
  AddField('CallerIAGender', '性别', 100, ftReference,
    False, False, False, '', '', p_ref_CallerIASex_provice);
  AddField('CallerIAHeight', '身高', 100, ftinteger);
  AddField('CallerIAAgeSegmentID', '年龄段', 100,  ftReference,
    False, False, False, '', '', p_ref_CallerIAAgeSegmentID_provice);
  AddField('CallerIAOtherInfo', '其它详细信息', 100, ftString);
  AddField('CallerIAFeedbackTypeID', '客人满意度', 100, ftReference,
    true, False, False, '', '', p_ref_CallerIAFeedbackTypeID_provice);

  AddField('CallerIAGuestCount', '客人数量', 100, ftinteger);

  AddField('CallerIAHasPackage', '客人是否有行李', 100, ftReference,
    False, False, False, '', '', p_ref_CallerIAHasPackage_provice);

  AddField('CallerIBIsBook', '客人有否订约', 100,  ftBoolean,
   true, False, False,'是', '否');

  AddField('CallerIBBookTime', '订约时间', 100, fttime);

  AddField('CallerIBPhoneNO', '客人电话', 100, ftString);
  AddField('CallerIBPositionLon', '客人位置经度', 100, ftfloat,false,false,false,'','',nil,false,6);
  AddField('CallerIBPositionLat', '客人位置纬度', 100, ftfloat,false,false,false,'','',nil,false,6);
  AddField('CallerIBMaxWaitTime', '客人最大等待时间', 100, ftinteger);
  AddField('CallerIBMaxTaxiDistance', '联系最远空车距离', 100, ftinteger);
  AddField('CallerIAHasInfoAdditional', '是否已有附加信息', 100, ftBoolean,
   true, False, False,'是', '否');

  InitialInfo;
end;

end.