ufrmshowcarinfo4oil.pas

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

unit uFrmShowCarInfo4Oil;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxLookAndFeelPainters, StdCtrls, cxButtons, Grids, ValEdit;

type
  TFrmShowCarInfo4Oil = class(TForm)
    Label1: TLabel;
    lblCarCode: TLabel;
    lblCarID: TLabel;
    vleCarInfo: TValueListEditor;
    ListBox1: TListBox;
    lblCompanyCars: TLabel;
    btnSave: TcxButton;
    btnCancel: TcxButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmShowCarInfo4Oil: TFrmShowCarInfo4Oil;

implementation

{$R *.dfm}

procedure TFrmShowCarInfo4Oil.FormCreate(Sender: TObject);
begin
  Font.Name := '宋体';
  Font.Size := 9;
end;

end.