feemanage_unit.pas

货源代理管理系统 同样是DELPHI7下的

unit FeeManage_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, DBGrids, StdCtrls, DBCtrls, Mask, Buttons,
  RpCon, RpConDS, RpBase, RpSystem, RpDefine, RpRave;

type
  TfrmFeeManage = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    SpeedButton2: TSpeedButton;
    btnFee: TBitBtn;
    Panel3: TPanel;
    DBGrid2: TDBGrid;
    btnAuditing: TBitBtn;
    btnPrint: TBitBtn;
    RvProject1: TRvProject;
    RvSystem1: TRvSystem;
    RvDataSetConnection1: TRvDataSetConnection;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnFeeClick(Sender: TObject);
    procedure btnAuditingClick(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure btnPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmFeeManage: TfrmFeeManage;

implementation

uses DateChoice_Unit, ClientDM_Unit;

{$R *.dfm}

procedure TfrmFeeManage.SpeedButton2Click(Sender: TObject);
begin
  Flag := 4;
  frmDateChoice := TfrmDateChoice.Create(Self);
  try
    frmDateChoice.ShowModal;
  finally
    frmDateChoice.Free;
  end;
end;

procedure TfrmFeeManage.FormShow(Sender: TObject);
begin
  with DM.cdsShippingHeader do
  begin
    ACtive := False;
    ACtive := True;
  end;
  with DM.cdsShippingBody do
  begin
    ACtive := False;
    ACtive := True;
  end;
end;

procedure TfrmFeeManage.btnFeeClick(Sender: TObject);
begin
  if DBEdit2.Text = '' then
  begin
    Application.MessageBox('收费日期不能为空!','提示',64);
    Exit; 
  end;
  with DM.cdsShippingHeader do
  begin
    if FieldByName('Auditing').AsBoolean then
    begin
      Application.MessageBox('已经审核不能重复收费!','提示',64);
      Exit;
    end;
    if ChangeCount > 0 then
      DM.cdsShippingHeader.ApplyUpdates(-1);
  end;
  Application.MessageBox('收费成功!','提示',64); 
end;

procedure TfrmFeeManage.btnAuditingClick(Sender: TObject);
begin

  with DM.cdsShippingHeader do
  begin
    if FieldByName('Auditing').AsBoolean = True then
    begin
      Application.MessageBox('已经审核过此货运单据!','提示',64);
      Exit;
    end;
    Edit;
    FieldByName('Auditing').AsBoolean := True;
    Post;
    ApplyUpdates(-1);
  end;
  Application.MessageBox('审核成功!','提示',64);
end;

procedure TfrmFeeManage.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if DM.cdsShippingHeader.FieldByName('Auditing').AsBoolean then
  begin
    DBGrid1.Canvas.Brush.Color := clMoneyGreen;
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

procedure TfrmFeeManage.btnPrintClick(Sender: TObject);
begin
  RvProject1.ProjectFile := 'ShippingFee.rav';
  RvProject1.Execute;
end;

end.