unit2.pas

汽车油耗计算工具 计算个人汽车的油耗记录

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ToolWin;

type
  TForm2 = class(TForm)
    AddOilDate: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    CurKM: TEdit;
    Label4: TLabel;
    OilType: TComboBox;
    Label5: TLabel;
    Label6: TLabel;
    OilPrice: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Oil: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Money: TEdit;
    Label11: TLabel;
    OilStation: TComboBox;
    Label12: TLabel;
    AddOilMemo: TMemo;
    Label13: TLabel;
    isFull: TComboBox;
    CoolBar1: TCoolBar;
    BitBtn1: TSpeedButton;
    BitBtn2: TSpeedButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CurKMKeyPress(Sender: TObject; var Key: Char);
    procedure MoneyChange(Sender: TObject);
    procedure OilExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  Form2.Close;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
var
  AddOilInfo: TAddOilInfo;
begin
  AddOilInfo.AddOilDate:=DateToStr(AddOilDate.Date);
  AddOilInfo.CurKM:=CurKm.Text;
  AddOilInfo.GoKM:='0';
  AddOilInfo.Oil:=Oil.Text;
  AddOilInfo.OilType:=OilType.Text;
  AddOilInfo.Money:=Money.Text;
  AddOilInfo.OilPrice:=OilPrice.Text;
  AddOilInfo.isFull:=isFull.Text;
  AddOilInfo.OilStation:=OilStation.Text;
  AddOilInfo.AddOilMemo:=AddOilMemo.Text;
  Form1.AddListInfo(AddOilInfo);

  form2.Close();
end;
            
procedure TForm2.FormShow(Sender: TObject);
var
  i: integer;
begin
  OilStation.Clear();
  
  //使用加油站list组织选项
  for i:=1 to OilSNum do
  begin
    OilStation.AddItem(OilStationlist[i].name,Sender);
  end;
  OilStation.ItemIndex:=OilStnindex;
end;

procedure TForm2.CurKMKeyPress(Sender: TObject; var Key: Char);
begin
  if not( key  in [#8,#13,'0'..'9','.'] ) then
    key:=#0;
end;

procedure TForm2.MoneyChange(Sender: TObject);
begin
  if ( length(Money.Text)=0 ) then
    Oil.Text:='0'
  else if ( (StrToFloat(Money.Text)<>(StrToFloat(Oil.Text)*StrToFloat(OilPrice.Text)))
     and (length(OilPrice.Text)<>0) and (length(Oil.Text)<>0)
     and (StrToFloat(OilPrice.Text)<>0.00)) then
     Oil.Text:=FloatToStr(Trunc(StrToFloat(Money.Text)/StrToFloat(OilPrice.Text)*100)/100);
end;

procedure TForm2.OilExit(Sender: TObject);
begin
  if (length(OilPrice.Text)<>0) and (length(Oil.Text)<>0) then
  Money.Text:=FloatToStr( StrToFloat(OilPrice.Text)*StrTofloat(Oil.Text) );
end;

end.