ufrmtaxicall_ct_vehicle.pas

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

unit ufrmTaxiCall_CT_Vehicle;

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_VehicleEdit, cxLookAndFeelPainters,
  cxMemo, ImgList, dxNavBarCollns, dxNavBarBase, dxNavBar, ufrmBaseDBPurview,
  uBaseSystemNavForm, uBaseDBFormInfor, cxMaskEdit, cxDropDownEdit,
  cxCheckBox;
type

  TfrmTaxiCall_CT_Vehicle = 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;
    RegistrationNO: TcxTextEdit;
    cxLabel1: TcxLabel;
    AreaID: TcxTextEdit;
    cxLabel2: TcxLabel;
    TerminalTypeID: TcxTextEdit;
    cxLabel5: TcxLabel;
    CommCode: TcxTextEdit;
    AppearanceType: TcxTextEdit;
    cxLabel3: TcxLabel;
    cxLabel6: TcxLabel;
    DriverID: TcxTextEdit;
    cxLabel7: TcxLabel;
    CallFlag: TcxTextEdit;
    VehicleModel: TcxTextEdit;
    cxLabel8: TcxLabel;
    procedure FormCreate(Sender: TObject);
  end;

implementation

{$R *.dfm}

{ TfrmProtectSecurityUser }

procedure TfrmTaxiCall_CT_Vehicle.FormCreate(Sender: TObject);
var
      p_ref_CT_DriverID_provice         : PBaseDBRefTable;
      p_ref_TerminalTypeID_provice      : PBaseDBRefTable;
      p_ref_AreaID_provice              : PBaseDBRefTable;
      p_ref_OutLookType_provice         : PBaseDBRefTable;
      p_ref_VehicleModel_provice        : PBaseDBRefTable;

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

  DBTableName     := 'CT_Vehicle';
  DBTableCHNName  := '车辆信息';

  EditFormClass := TfrmTaxiCall_CT_VehicleEdit;
  p_ref_CT_DriverID_provice    := AddRefTable('CT_Driver', '司机姓名', 'DriverName', 'ID');
  p_ref_TerminalTypeID_provice := AddRefTable('CT_TerminalType', '终端类型编号', 'Name', 'ID');
  p_ref_AreaID_provice := AddRefTable('CT_areaName', '区域编号', 'Name', 'ID');
  p_ref_OutLookType_provice := AddRefTable('CT_VehicleOutLookType', '车辆外观类型', 'Name', 'ID');
  p_ref_VehicleModel_provice := AddRefTable('CT_VehicleType', '车辆类型', 'Name', 'ID');

  AddField('ID', '车辆流水号', 50, ftInteger, False, False, True);

  AddField('RegistrationNO', '车牌号码', 100, ftString,false);
  AddField('VehicleModel', '车辆类型', 100, ftReference,
    False, False, False, '', '', p_ref_VehicleModel_provice);

  AddField('TerminalTypeID', '终端类型编号', 100, ftReference,
    False, False, False, '', '', p_ref_TerminalTypeID_provice);
  AddField('CommCode', '终端通信号', 100,ftString);

  AddField('AreaID', '区域编号', 100, ftReference,
    False, False, False, '', '', p_ref_AreaID_provice);

  AddField('AppearanceType', '车辆外观类型', 100, ftReference,
    False, False, False, '', '', p_ref_OutLookType_provice);

  AddField('DriverID', '司机编号', 100,ftReference,
    False, False, False, '', '', p_ref_CT_DriverID_provice);

  AddField('CallFlag', '电召标志', 100, ftBoolean, false, False, False,
    '参与电召', '不参与电召');

  InitialInfo;
end;

end.