ufrmtaxicall_ct_driver.pas

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

unit ufrmTaxiCall_CT_Driver;

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

  TfrmTaxiCall_CT_Driver = 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;
    DriverName: TcxTextEdit;
    cxLabel1: TcxLabel;
    OnDutyFlag: TcxTextEdit;
    cxLabel2: TcxLabel;
    IDCardNO: TcxTextEdit;
    cxLabel5: TcxLabel;
    DriverMobileNO: TcxTextEdit;
    procedure FormCreate(Sender: TObject);
  end;

implementation

{$R *.dfm}

{ TfrmProtectSecurityUser }

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

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

  EditFormClass := TfrmTaxiCall_CT_DriverEdit;


  AddField('ID', '司机流水号', 50, ftInteger, False, False, True);
  AddField('DriverName', '司机姓名', 100, ftString,false);
  AddField('IDCardNO', '身份证号码', 100, ftString,false);
  AddField('DriverMobileNO', '司机电话', 100, ftString);
  AddField('OnDutyFlag', '是否在岗', 100, ftBoolean, false, False, False,
    '在岗', '不在岗');

  InitialInfo;
end;

end.