unit yjcxut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, DB, ADODB, ComCtrls;

type
  Tyjcxfm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    fz: TEdit;
    Label2: TLabel;
    dz: TComboBox;
    Label3: TLabel;
    hwmc: TEdit;
    Label4: TLabel;
    zclx: TComboBox;
    Label5: TLabel;
    jldw: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOQuery: TADOQuery;
    Label8: TLabel;
    sl: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label7: TLabel;
    czrq: TDateTimePicker;
    yj: TMemo;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure zclxChange(Sender: TObject);
    procedure dzChange(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yjcxfm: Tyjcxfm;
  lc,yjl,sum:double;
  sl1:string;
implementation

{$R *.dfm}

procedure Tyjcxfm.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure Tyjcxfm.BitBtn2Click(Sender: TObject);
begin
dz.Text:='';
hwmc.Text:='';
zclx.Text:='';
jldw.Text:='';
sl.Text:='';
end;

procedure Tyjcxfm.FormCreate(Sender: TObject);
var
mypath:string;
begin
mypath:=application.GetNamePath;
adoquery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+'data\yjb.mdb;Persist Security Info=False';
end;

procedure Tyjcxfm.BitBtn1Click(Sender: TObject);
var
hwmc1:string;
begin
yj.text:='貨物運(yùn)價(jià)';
if dz.Text='' then
  begin
    showmessage('請選擇到站');
    exit;
  end;
  if hwmc.Text='' then
  begin
    showmessage('請輸入貨物名稱');
    exit;
  end;
  if zclx.Text='' then
  begin
    showmessage('請選擇裝車類型');
    exit;
  end;
  if jldw.Text='' then
  begin
    showmessage('請選擇計(jì)量單位');
    exit;
  end;
  if sl.Text='' then
  begin
    showmessage('請輸入數(shù)量');
    exit;
  end;
  with adoquery do
    begin
      close;
      sql.Clear;
      sql.Add('select * from 里程表 where 站名=:dz');
      adoquery.Parameters.ParamByName('dz').Value:=trim(dz.Text);
      open;
      if recordcount<1 then
      showmessage('無此到站名!請選擇存在的到站名稱')
      else
      lc:=fieldbyname('里程').AsFloat;
      end;
     // showmessage(floattostr(lc));
     hwmc1:=hwmc.text;
     if (trim(hwmc1)<>'農(nóng)藥') or (trim(hwmc1)<>'礦石') then

     hwmc1:='其他';
    
    with adoquery do
      begin
      close;
      sql.Clear;
      sql.Add('select * from 運(yùn)價(jià)率表 where 貨物名稱=:hwmc and 裝車類型=:zclx and 計(jì)費(fèi)單位=:jldw');
      Parameters.ParamByName('hwmc').Value:=trim(hwmc1);
      Parameters.ParamByName('zclx').Value:=trim(zclx.Text);
      Parameters.ParamByName('jldw').Value:=trim(jldw.Text);
      open;
      if recordcount<1 then
      showmessage('確定是否輸入正確')
      else
      yjl:=fieldbyname('運(yùn)價(jià)率').AsFloat;

    end;
    sl1:=sl.text;;
    sum:=lc*yjl*strtofloat(sl1);
     yj.Lines.Add(floattostr(sum)+'元');
       yj.Lines.Add('里程'+floattostr(lc)+'公里');
       yj.Lines.Add('到站日期'+datetostr(czrq.Date+2+lc / 250));
      end;

procedure Tyjcxfm.zclxChange(Sender: TObject);
begin
with adoquery do
begin
close;
sql.Clear;sql.Add('select * from 運(yùn)價(jià)率表 where 裝車類型=:zclx');
Parameters.ParamByName('zclx').Value:=trim(zclx.Text);
open;
if recordcount<1 then
 showmessage('對不起沒有此裝車類型')
 else
 jldw.Text:=fieldbyname('計(jì)費(fèi)單位').AsString;
 sl.SetFocus;
end;
end;

procedure Tyjcxfm.dzChange(Sender: TObject);
begin
hwmc.SetFocus;
end;

procedure Tyjcxfm.BitBtn3Click(Sender: TObject);
begin
print;
end;

end.