xsskgc.pas

来自「IT业进销存管理系统源代码Delphi」· PAS 代码 · 共 79 行

unit XsSkgc;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComDj, ActnList, Menus, DBCtrls, ComCtrls, ToolWin, ExtCtrls, StdCtrls,
  Mask, Grids, DBGrids;

type
  TfrmXsSkgc = class(TfrmComDj)
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    DBEdit7: TDBEdit;
    Label14: TLabel;
    DBEdit12: TDBEdit;
    DBText1: TDBText;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    labJEA: TLabel;
    labJEB: TLabel;
    pnlZt: TPanel;
    spZt: TShape;
    labZt: TLabel;
    DBEdit3: TDBEdit;
    procedure FormShow(Sender: TObject);override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmXsSkgc: TfrmXsSkgc;

implementation

uses Dm;

{$R *.DFM}

procedure TfrmXsSkgc.FormShow(Sender: TObject);
var
  dblJE: double;
begin
  inherited;
  pnlZt.Visible := False;
  labJEA.Caption := '0.00';
  labJEB.Caption := '0.00';
  if dsZb.FieldByName('XSLX').AsInteger = 1 then
  begin
    spZt.Pen.Color := clBlue;
    labZt.Font.Color := spZt.Pen.Color;
    labZt.Caption := '现款销售';
    pnlZt.Visible := True;
  end
  else
  begin
    dblJE := 0;
    with dsMx do
    begin
      First;
      while not Eof do
      begin
        dblJE := dblJE + FieldByName('BCJE').AsFloat;
        Next;
      end;
      First;
    end;
    labJEA.Caption := FormatFloat('#,0.00', dblJE);
    labJEB.Caption := FormatFloat('#,0.00', dsZb.FieldByName('JE').AsFloat - dblJE);
    pnlZt.Visible := dsZb.FieldByName('JE').AsFloat = dblJE;
  end;
end;

end.