ufrmcqgpsvehicle.pas

msc map program to control client of tools,use for map guide

unit ufrmCQGPSVehicle;

interface

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

  TfrmCQGPSVehicle = class(TBaseDBForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    lvOilType: TTbListView;
    Panel1: TPanel;
    dxDockSite2: TdxDockSite;
    dxDockPanel3: TdxDockPanel;
    dxLayoutDockSite3: TdxLayoutDockSite;
    gbPlan: TRzGroupBox;
    cxLabel1: TcxLabel;
    RegistrationNO: TcxTextEdit;
    btnRefresh: TcxButton;
    btnEdit: TcxButton;
    btnDelete: TcxButton;
    btnAdd: TcxButton;
    ilSmall: TImageList;
    ilLarge: TImageList;
    cxLabel2: TcxLabel;
    GroupID: TcxTextEdit;
    cxLabel3: TcxLabel;
    VehicleColorID: TcxTextEdit;
    RzGroupBox3: TRzGroupBox;
    cxLabel5: TcxLabel;
    VehicleTypeID: TcxTextEdit;
    VehicleUsageID: TcxTextEdit;
    cxLabel7: TcxLabel;
    cxLabel15: TcxLabel;
    VehicleOwnerID: TcxTextEdit;
    cxLabel6: TcxLabel;
    VehicleBandID: TcxTextEdit;
    VehicleManufactoryID: TcxTextEdit;
    cxLabel8: TcxLabel;
    cxLabel16: TcxLabel;
    TerminalTypeID: TcxTextEdit;
    RzGroupBox1: TRzGroupBox;
    cxLabel9: TcxLabel;
    EngineNO: TcxTextEdit;
    CommNO: TcxTextEdit;
    cxLabel11: TcxLabel;
    PurchaseDate: TcxTextEdit;
    cxLabel13: TcxLabel;
    cxLabel17: TcxLabel;
    FirstDriverID: TcxTextEdit;
    cxLabel10: TcxLabel;
    ChasisNO: TcxTextEdit;
    FrameNO: TcxTextEdit;
    cxLabel12: TcxLabel;
    cxLabel14: TcxLabel;
    PACTLNO: TcxTextEdit;
    SecondDriverID: TcxTextEdit;
    cxLabel18: TcxLabel;
    RzGroupBox2: TRzGroupBox;
    cxLabel20: TcxLabel;
    SIMNO: TcxTextEdit;
    cxLabel22: TcxLabel;
    SetupWorker: TcxTextEdit;
    cxLabel24: TcxLabel;
    Description: TcxTextEdit;
    cxLabel21: TcxLabel;
    SetupDate: TcxTextEdit;
    IsPhoneEnable: TcxTextEdit;
    cxLabel23: TcxLabel;
    cxLabel4: TcxLabel;
    LoadingCapacity: TcxTextEdit;
    cxLabel19: TcxLabel;
    TotalWeight: TcxTextEdit;
    OilTypeID: TcxTextEdit;
    cxLabel25: TcxLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    IsEdit: Boolean;
    IsAdd: Boolean;
    SelectedItem: TListItem;

    { Public declarations }
  end;

implementation

{$R *.dfm}

{ TfrmProtectSecurityUser }

procedure TfrmCQGPSVehicle.FormCreate(Sender: TObject);
var
  p_ref_table_group            : PBaseDBRefTable;
  p_ref_table_vehicle_type     : PBaseDBRefTable;
  p_ref_table_vehicle_band     : PBaseDBRefTable;
  p_ref_table_vehicle_usage    : PBaseDBRefTable;
  p_ref_table_vehicle_factory  : PBaseDBRefTable;
  p_ref_table_vehicle_onwer    : PBaseDBRefTable;
  p_ref_table_vehicle_color    : PBaseDBRefTable;
  p_ref_table_vehicle_driver   : PBaseDBRefTable;
  p_ref_table_vehicle_terminal : PBaseDBRefTable;
  p_ref_table_vehicle_unit     : PBaseDBRefTable;
  p_ref_table_oil_type         : PBaseDBRefTable;
  str_sql                      : string;
  group_id                     : Integer;
begin
  DBListView      := lvOilType;
  ButtonNew       := btnAdd;
  ButtonEdit      := btnEdit;
  ButtonDelete    := btnDelete;
  ButtonRefresh   := btnRefresh;

  DBTableName     := 'MSC_Vehicle';
  SelectSQL       := Format('select * from MSC_Vehicle Where ID '+
                     'In (Select * from F_GetVehicleTableByUserID(%d))',
                     [BaseDBGlobal.UserIDByName(AppName)]);

  DBTableCHNName  := '车辆信息';

  group_id        := BaseDBGlobal.UserGroupIDByName(AppName);

  str_sql         := format('Select ID,RTrim(Name)+'' ''+dbo.F_GetParentGroupNameByGroupID(ID) as Name '+
                            'from MSC_Group '+
                            'Where ID In (Select GroupID from F_GetAllGroupTabelByGroupID(%d))',
                             [group_id]);

  EditFormClass := TfrmCQGPSVehicleEdit;

  p_ref_table_group            := AddRefTable('MSC_Group', '用户组', 'Name',
                                              'ID', str_sql);
  p_ref_table_vehicle_type     := AddRefTable('MSC_VehicleType', '车辆类型', 'Name', 'ID');
  p_ref_table_vehicle_band     := AddRefTable('MSC_VehicleBand', '车辆品牌', 'Name', 'ID');
  p_ref_table_vehicle_usage    := AddRefTable('MSC_VehicleUsage', '车辆用途', 'Name', 'ID');
  p_ref_table_vehicle_factory  := AddRefTable('MSC_VehicleManufactory', '厂商型号', 'Name', 'ID');
  p_ref_table_vehicle_onwer    := AddRefTable('MSC_VehicleOwner', '车主', 'Name', 'ID');
  p_ref_table_vehicle_color    := AddRefTable('MSC_VehicleColor', '车辆颜色', 'Name', 'ID');
  p_ref_table_vehicle_driver   := AddRefTable('MSC_Driver', '司机配置', 'Name,UnitID', 'ID');
  p_ref_table_vehicle_terminal := AddRefTable('MSC_TerminalType', '终端类型', 'Name', 'ID');
  p_ref_table_vehicle_unit     := AddRefTable('MSC_Unit', '单位名称', 'Name', 'ID');
  p_ref_table_oil_type         := AddRefTable('MSC_OilType', '油品类型', 'Name', 'ID');

  AddField('ID', '编号', 100, ftInteger, False, False, True);
  AddField('RegistrationNO', '车牌号', 100, ftString, False, True);
  AddField('GroupID', '所属分组', 150, ftReference, False, False, False,
    '', '', p_ref_table_group);
  AddField('VehicleColorID', '车辆颜色', 100, ftReference, True, False, False,
    '', '', p_ref_table_vehicle_color);
  AddField('VehicleTypeID', '车辆类型', 100, ftReference, True, False, False,
    '', '', p_ref_table_vehicle_type);
  AddField('VehicleBandID', '车辆品牌', 100, ftReference, True, False, False,
    '', '', p_ref_table_vehicle_band);
  AddField('VehicleUsageID', '车辆用途', 100, ftReference, True, False, False,
    '', '', p_ref_table_vehicle_usage);
  AddField('VehicleManufactoryID', '厂商型号', 100, ftReference, True, False, False,
    '', '', p_ref_table_vehicle_factory);
  AddField('VehicleOwnerID', '车主', 100, ftReference, True, False, False,
    '', '', p_ref_table_vehicle_onwer);
  AddField('TerminalTypeID', '终端类型', 100, ftReference, False, False, False,
    '', '', p_ref_table_vehicle_terminal);
  AddField('UnitID', '单位名称', 100, ftReference, True, False, False,
    '', '', p_ref_table_vehicle_unit, True, 0, False, '', False, False, True);
  AddField('FirstDriverID', '第一司机', 100, ftReference, True, False, False,
    '', '', p_ref_table_vehicle_driver);
  AddField('SecondDriverID', '第二司机', 100, ftReference, True, False, False,
    '', '', p_ref_table_vehicle_driver);
  AddField('LoadingCapacity', '核载重量', 100, ftFloat);
  AddField('TotalWeight', '车重', 100, ftFloat);
  AddField('OilTypeID', '用油类型', 100, ftReference, True, False, False,
    '', '', p_ref_table_oil_type);
  AddField('EngineNO', '引擎号', 100, ftString, True);
  AddField('ChasisNO', '底盘号', 100, ftString, True);
  AddField('CommNO', '通讯号', 100, ftInteger, False, True, False);
  AddField('FrameNO', '车架号', 100, ftString, True);
  AddField('PurchaseDate', '生产日期', 130, ftDate);
  AddField('PACTLNO', '行驶证号', 100, ftString, True);
  AddField('SIMNO', 'SIM卡号', 100, ftString, True);
  AddField('SetupDate', '安装日期', 130, ftDate);
  AddField('SetupWorker', '终端安装人员', 100, ftString, True);
  AddField('IsPhoneEnable', '有无语音', 100, ftBoolean, True, False, False, '是', '否');
  AddField('Description', '备注', 200, ftString, True);

  InitialInfo;
end;

end.