ufrmcqgpsdriver.pas

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

unit ufrmCQGPSDriver;

interface

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

  TfrmCQGPSDriver = class(TBaseDBForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    lvOilType: TTbListView;
    Panel1: TPanel;
    dxDockSite2: TdxDockSite;
    dxDockPanel3: TdxDockPanel;
    dxLayoutDockSite3: TdxLayoutDockSite;
    gbPlan: TRzGroupBox;
    Name: TcxTextEdit;
    cxLabel4: TcxLabel;
    cxLabel1: TcxLabel;
    btnRefresh: TcxButton;
    btnEdit: TcxButton;
    btnDelete: TcxButton;
    btnAdd: TcxButton;
    ilSmall: TImageList;
    ilLarge: TImageList;
    cxLabel2: TcxLabel;
    cxLabel3: TcxLabel;
    UnitID: TcxTextEdit;
    PhoneNO: TcxTextEdit;
    IDCardNO: TcxTextEdit;
    cxLabel5: TcxLabel;
    LicenseNO: TcxTextEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

{ TfrmProtectSecurityUser }

procedure TfrmCQGPSDriver.FormCreate(Sender: TObject);
var
  p_ref_table_unit : PBaseDBRefTable;
begin
  DBListView      := lvOilType;
  ButtonNew       := btnAdd;
  ButtonEdit      := btnEdit;
  ButtonDelete    := btnDelete;
  ButtonRefresh   := btnRefresh;

  DBTableName     := 'MSC_Driver';
  DBTableCHNName  := '司机信息';

  EditFormClass := TfrmCQGPSDriverEdit;

  p_ref_table_unit := AddRefTable('MSC_Unit', '单位信息', 'Name', 'ID');

  AddField('ID', '编号', 100, ftInteger, False, True, True);
  AddField('Name', '司机名称', 100, ftString, False, False);
  AddField('PhoneNO', '联系电话', 100, ftString, True, False);
  AddField('LicenseNO', '驾驶证号', 100, ftString, True, False);
  AddField('IDCardNO', '身份证号', 150, ftString, True, False);
  AddField('UnitID', '所属单位', 150, ftReference, True, False, False,
    '', '', p_ref_table_unit);

  InitialInfo;
end;

end.