dmbb.pas

来自「IT业进销存管理系统源代码Delphi」· PAS 代码 · 共 615 行 · 第 1/2 页

    CkkcMxSL: TFloatField;
    CkkcMxDJ: TFloatField;
    CkkcMxJEA: TFloatField;
    HpCwb: TClientDataSet;
    sHpCwb: TDataSource;
    YfkZb: TClientDataSet;
    YfkZlfx: TClientDataSet;
    YskZb: TClientDataSet;
    YskZlfx: TClientDataSet;
    sYfkZb: TDataSource;
    sYfkZlfx: TDataSource;
    sYskZb: TDataSource;
    sYskZlfx: TDataSource;
    YskZbID: TIntegerField;
    YskZbBH: TWideStringField;
    YskZbMC: TWideStringField;
    YskZbJEA: TFloatField;
    YskZbJEB: TFloatField;
    YskZbJEC: TFloatField;
    YskZbJEC2: TFloatField;
    YskMx: TClientDataSet;
    sYskMx: TDataSource;
    YfkMx: TClientDataSet;
    sYfkMx: TDataSource;
    YskZbcMC: TStringField;
    YskMxLX: TWideStringField;
    YskMxZBID: TIntegerField;
    YskMxRQ: TDateField;
    YskMxDJBH: TWideStringField;
    YskMxJEB: TFloatField;
    YskMxJEC: TFloatField;
    YskMxJED: TFloatField;
    YskZlfxID: TIntegerField;
    YskZlfxBH: TWideStringField;
    YskZlfxMC: TWideStringField;
    YskZlfxTS1: TFloatField;
    YskZlfxTS2: TFloatField;
    YskZlfxTS3: TFloatField;
    YskZlfxTS4: TFloatField;
    YskZlfxTS5: TFloatField;
    YskZlfxTS6: TFloatField;
    YskZlfxTS7: TFloatField;
    YskZlfxTS8: TFloatField;
    YskZlfxHJ: TFloatField;
    YskZlMx: TClientDataSet;
    IntegerField21: TIntegerField;
    DateField13: TDateField;
    WideStringField53: TWideStringField;
    FloatField48: TFloatField;
    FloatField52: TFloatField;
    FloatField53: TFloatField;
    sYskZlMx: TDataSource;
    YfkZlMx: TClientDataSet;
    sYfkZlMx: TDataSource;
    YskZlMxJEA: TFloatField;
    YfkZbID: TIntegerField;
    YfkZbBH: TWideStringField;
    YfkZbMC: TWideStringField;
    YfkZbJEA: TFloatField;
    YfkZbJEB: TFloatField;
    YfkZbJEC: TFloatField;
    YfkZbJED: TFloatField;
    YfkZbcMC: TStringField;
    YfkMxZBID: TIntegerField;
    YfkMxRQ: TDateField;
    YfkMxLX: TWideStringField;
    YfkMxDJBH: TWideStringField;
    YfkMxJEA: TFloatField;
    YfkMxJEB: TFloatField;
    YfkMxJYJE: TFloatField;
    YfkZlfxID: TIntegerField;
    YfkZlfxBH: TWideStringField;
    YfkZlfxMC: TWideStringField;
    YfkZlfxTS1: TFloatField;
    YfkZlfxTS2: TFloatField;
    YfkZlfxTS3: TFloatField;
    YfkZlfxTS4: TFloatField;
    YfkZlfxTS5: TFloatField;
    YfkZlfxTS6: TFloatField;
    YfkZlfxTS7: TFloatField;
    YfkZlfxTS8: TFloatField;
    YfkZlfxHJ: TFloatField;
    YfkZlMxZBID: TIntegerField;
    YfkZlMxRQ: TDateField;
    YfkZlMxTS: TFloatField;
    YfkZlMxDJBH: TWideStringField;
    YfkZlMxJEA: TFloatField;
    YfkZlMxJEB: TFloatField;
    YfkZlMxJEC: TFloatField;
    ZlFxt: TClientDataSet;
    FloatField55: TFloatField;
    sZlfxt: TDataSource;
    ZlFxtMC: TWideStringField;
    ZlFxtcMC: TStringField;
    RqLsz: TClientDataSet;
    GysLsz: TClientDataSet;
    sRqLsz: TDataSource;
    sGysLsz: TDataSource;
    KhLsz: TClientDataSet;
    sKhLsz: TDataSource;
    SzLsz: TClientDataSet;
    IntegerField23: TIntegerField;
    DateField15: TDateField;
    WideStringField59: TWideStringField;
    FloatField76: TFloatField;
    FloatField77: TFloatField;
    sSzLsz: TDataSource;
    RqLszLX: TWideStringField;
    RqLszZBID: TIntegerField;
    RqLszRQ: TDateField;
    RqLszDJBH: TWideStringField;
    RqLszMC: TWideStringField;
    RqLszJEA: TFloatField;
    RqLszMC1: TWideStringField;
    KhLszLX: TWideStringField;
    KhLszID: TIntegerField;
    KhLszRQ: TDateField;
    KhLszDJBH: TWideStringField;
    KhLszJE: TFloatField;
    KhLszBZ: TWideStringField;
    GysLszLX: TWideStringField;
    GysLszID: TIntegerField;
    GysLszRQ: TDateField;
    GysLszDJBH: TWideStringField;
    GysLszJE: TFloatField;
    GysLszBZ: TWideStringField;
    CkLsz: TClientDataSet;
    IntegerField1: TIntegerField;
    DateField14: TDateField;
    WideStringField52: TWideStringField;
    sCkLsz: TDataSource;
    CkLszBH: TWideStringField;
    CkLszPM: TWideStringField;
    CkLszDW: TWideStringField;
    CkLszSL1: TFloatField;
    CkLszDJ1: TFloatField;
    CkLszJE1: TFloatField;
    CkLszLX: TWideStringField;
    SzLszLX: TWideStringField;
    SzLszBZ: TWideStringField;
    SzLszBZ2: TWideStringField;
    SzLszBZ3: TWideStringField;
    YyqkHz: TClientDataSet;
    IntegerField2: TIntegerField;
    WideStringField54: TWideStringField;
    WideStringField55: TWideStringField;
    FloatField54: TFloatField;
    FloatField56: TFloatField;
    FloatField57: TFloatField;
    FloatField58: TFloatField;
    StringField9: TStringField;
    SzHz: TClientDataSet;
    IntegerField22: TIntegerField;
    WideStringField56: TWideStringField;
    WideStringField57: TWideStringField;
    FloatField59: TFloatField;
    FloatField60: TFloatField;
    XjyhHz: TClientDataSet;
    IntegerField24: TIntegerField;
    WideStringField58: TWideStringField;
    WideStringField60: TWideStringField;
    sYyqkHz: TDataSource;
    sSzHz: TDataSource;
    sXjyhHz: TDataSource;
    SzMx: TClientDataSet;
    IntegerField25: TIntegerField;
    DateField16: TDateField;
    WideStringField61: TWideStringField;
    WideStringField62: TWideStringField;
    FloatField78: TFloatField;
    FloatField79: TFloatField;
    sSzMx: TDataSource;
    XjyhMx: TClientDataSet;
    IntegerField26: TIntegerField;
    DateField17: TDateField;
    WideStringField63: TWideStringField;
    FloatField82: TFloatField;
    FloatField83: TFloatField;
    sXjyhMx: TDataSource;
    XjyhHzJEA: TFloatField;
    XjyhHzJEB: TFloatField;
    XjyhHzJEC: TFloatField;
    XjyhHzJED: TFloatField;
    XjyhHzcMC: TStringField;
    XjyhMxLX: TWideStringField;
    XjyhMxJYJE: TFloatField;
    CkkcMxSL1: TFloatField;
    CkkcMxJE1: TFloatField;
    CkkcMxSL12: TFloatField;
    CkkcMxJE12: TFloatField;
    Yylrb: TClientDataSet;
    JdqYsk: TClientDataSet;
    sYylrb: TDataSource;
    sJdqYsk: TDataSource;
    CqYsk: TClientDataSet;
    IntegerField29: TIntegerField;
    DateField20: TDateField;
    WideStringField72: TWideStringField;
    FloatField67: TFloatField;
    sCqYsk: TDataSource;
    JdqYfk: TClientDataSet;
    sJdqYfk: TDataSource;
    CqYfk: TClientDataSet;
    sCqYfk: TDataSource;
    CqYskBH: TWideStringField;
    CqYskMC: TWideStringField;
    CqYskQFJE: TFloatField;
    CqYskQFJE2: TFloatField;
    CqYfkID: TIntegerField;
    CqYfkDJBH: TWideStringField;
    CqYfkBH: TWideStringField;
    CqYfkMC: TWideStringField;
    CqYfkXDRQ: TDateField;
    CqYfkJE: TFloatField;
    CqYfkYSJE: TFloatField;
    CqYfkMSJE: TFloatField;
    JdqYskID: TIntegerField;
    JdqYskDJBH: TWideStringField;
    JdqYskBH: TWideStringField;
    JdqYskMC: TWideStringField;
    JdqYskXDRQ: TDateField;
    JdqYskJE: TFloatField;
    JdqYskYSJE: TFloatField;
    JdqYskMSJE: TFloatField;
    JdqYfkID: TIntegerField;
    JdqYfkDJBH: TWideStringField;
    JdqYfkBH: TWideStringField;
    JdqYfkMC: TWideStringField;
    JdqYfkXDRQ: TDateField;
    JdqYfkJE: TFloatField;
    JdqYfkYSJE: TFloatField;
    JdqYfkMSJE: TFloatField;
    YylrbYF: TIntegerField;
    YylrbJEA: TFloatField;
    YylrbCBJE: TFloatField;
    YylrbLRJE: TFloatField;
    YylrbLRJE2: TFloatField;
    YylrbLRJE3: TFloatField;
    YylrbLRJE4: TFloatField;
    procedure NSLGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure CalcFields_MC(DataSet: TDataSet);
    procedure CalcFields_PM(DataSet: TDataSet);
    procedure CalcFields_YWY(DataSet: TDataSet);
    procedure ZeroToEmpty(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure YWYGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataBb: TDataBb;

implementation

uses Dm;

{$R *.DFM}

//税率
procedure TDataBb.NSLGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text := Sender.AsString + '%';
end;

//Set cMC (用于分析图)
procedure TDataBb.CalcFields_MC(DataSet: TDataSet);
begin
  DataSet['cMC'] := DataSet['MC'];
end;

procedure TDataBb.CalcFields_PM(DataSet: TDataSet);
begin
  DataSet['cPM'] := DataSet['PM'];
end;

procedure TDataBb.CalcFields_YWY(DataSet: TDataSet);
begin
  DataSet['cYWY'] := DataSet['YWY'];
end;

procedure TDataBb.YWYGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if Sender.AsString = '' then
    Text := '其他'
  else
    Text := Sender.AsString;
end;

procedure TDataBb.ZeroToEmpty(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if Sender is TNumericField then
    if TField(Sender).AsFloat = 0 then
      Text := ''
    else
      Text := FormatFloat(TFloatField(Sender).DisplayFormat, TField(Sender).Value);
end;

end.