ufrmcqgpsvehicleowner.pas

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

unit ufrmCQGPSVehicleOwner;

interface

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

  TfrmCQGPSVehicleOwner = 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;
    cxLabel3: TcxLabel;
    IDCardNO: TcxTextEdit;
    PhoneNO: TcxTextEdit;
    cxLabel5: TcxLabel;
    Address: TcxMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

{ TfrmProtectSecurityUser }

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

  DBTableName     := 'MSC_VehicleOwner';
  DBTableCHNName  := '车主信息';

  EditFormClass := TfrmCQGPSVehicleOwnerEdit;

  AddField('ID', '编号', 100, ftInteger, False, True, True);
  AddField('Name', '车主名称', 100, ftString, False, False);
  AddField('PhoneNO', '联系电话', 100, ftString, True, False);
  AddField('Password', '车主密码', 100, ftString, False, False, False, '', '', nil,
           False, 0, False);
  AddField('IDCardNO', '身份证号', 150, ftString, True, False);
  AddField('Address', '车主地址', 150, ftString, True, False);
  
  InitialInfo;
end;

end.