yjcxut.~pas

密码：yfq 物流管理插件 物流管理系统－插件

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:='货物运价';
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('请选择计量单位');
    exit;
  end;
  if sl.Text='' then
  begin
    showmessage('请输入数量');
    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)<>'农药') or (trim(hwmc1)<>'矿石') then

     hwmc1:='其他';
    
    with adoquery do
      begin
      close;
      sql.Clear;
      sql.Add('select * from 运价率表 where 货物名称=:hwmc and 装车类型=:zclx and 计费单位=: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('运价率').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 运价率表 where 装车类型=:zclx');
Parameters.ParamByName('zclx').Value:=trim(zclx.Text);
open;
if recordcount<1 then
 showmessage('对不起没有此装车类型')
 else
 jldw.Text:=fieldbyname('计费单位').AsString;
 sl.SetFocus;
end;
end;

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

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

end.