ufrmtaxicall_ct_autopoints.pas

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

unit ufrmTAXICALL_CT_AutoPoints;

interface

uses
  Windows, DB, Classes, SysUtils, DateUtils,
  cxTextEdit, cxControls, cxContainer, cxEdit, cxLabel, ExtCtrls, RzPanel,
  StdCtrls, cxButtons, Controls, ComCtrls, TbListView, dxDockPanel,
  dxDockControl, ufrmTAXICALL_CT_AutoPointsEdit,
  cxLookAndFeelPainters,
  uBaseDBForm, uBaseDBDefs, 
  cxMemo, ImgList, cxMaskEdit, cxDropDownEdit, cxCalendar, dxNavBarCollns,
  dxNavBarBase, dxNavBar;
type

  TfrmTAXICALL_CT_AutoPoints = class(TBaseDBForm)
    Panel1: TPanel;
    dxDockPanel2: TdxDockPanel;
    lvOilType: TTbListView;
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    Splitter1: TSplitter;
    ilSmall: TImageList;
    ilLarge: TImageList;
    btnAdd: TcxButton;
    btnDelete: TcxButton;
    btnRefresh: TcxButton;
    btnEdit: TcxButton;
    RzGroupBox1: TRzGroupBox;
    Longitude: TcxTextEdit;
    cxLabel3: TcxLabel;
    cxLabel13: TcxLabel;
    Latitude: TcxTextEdit;
    name: TcxTextEdit;
    cxLabel5: TcxLabel;
    procedure FormCreate(Sender: TObject);
  public
    class procedure InitialFieldDefine(_base_db_form: TBaseDBForm); override;
  end;

implementation

//uses ufrmZSPoliceEDBControlPerson;

{$R *.dfm}

{ TfrmGPSANAAnalyserToll }

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

  InitialFieldDefine(Self);

  InitialInfo;
end;

class procedure TfrmTAXICALL_CT_AutoPoints.InitialFieldDefine(
  _base_db_form: TBaseDBForm);
var
  p_ref_table_police   : PBaseDBRefTable;
begin
  inherited;

  _base_db_form.DBTableName     := 'CT_SelfPoints';
//  _base_db_form.SelectSQL       := 'select * from ZSPoliceEDB_PoliceStation';
  _base_db_form.DBTableCHNName  := '自定义站点';

  _base_db_form.EditFormClass := TfrmTAXICALL_CT_AutoPointsEdit;


  _base_db_form.AddField('ID', '编号', 50, ftInteger, False,  false, True);
  _base_db_form.AddField('Name', '站点名称', 100, ftString, False,true);
  _base_db_form.AddField('Longitude', '经度', 100, ftFloat, True, False, False, '', '', nil, False, 6);
  _base_db_form.AddField('Latitude', '纬度', 100, ftFloat, True, False, False, '', '', nil, False, 6);

end;

end.