ufrmcqgpsdriver.pas

来自「msc map program to control client of too」· PAS 代码 · 共 84 行

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.