dailystorestatfrm.dfm

来自「相关的销售服务管理行业的一个软件」· DFM 代码 · 共 111 行

inherited DailyStoreStatForm: TDailyStoreStatForm
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = 'DailyStoreStatForm'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 800
    end
  end
  inherited Panel2: TPanel
    Width = 800
    inherited rgStoreStype: TRadioGroup
      Visible = False
    end
  end
  inherited Panel3: TPanel
    Width = 800
    Height = 456
    inherited DBGridEh1: TDBGridEh
      Width = 788
      Height = 444
      FooterColor = clInfoBk
      Columns = <
        item
          Alignment = taCenter
          FieldName = '分销店名称'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.TitleButton = True
          Width = 161
          Footer.Font.Charset = GB2312_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          Footer.ValueType = fvtStaticText
          Footer.Value = '合计：'
          KeyList.Strings = ()
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = '数量'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.TitleButton = True
          Width = 113
          Footer.Font.Charset = GB2312_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          Footer.ValueType = fvtSum
          Footer.FieldName = '数量'
          KeyList.Strings = ()
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = '金额'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.TitleButton = True
          Width = 138
          Footer.Font.Charset = GB2312_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          Footer.ValueType = fvtSum
          Footer.FieldName = '金额'
          KeyList.Strings = ()
          Footers = <>
        end>
    end
  end
  inherited ActionList1: TActionList
    inherited APrint: TAction
      OnExecute = APrintExecute
    end
    inherited AReview: TAction
      OnExecute = AReviewExecute
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      '')
    object ADOQuery1DSDesigner: TWideStringField
      FieldName = '分销店名称'
      Size = 50
    end
    object ADOQuery1DSDesigner3: TFloatField
      FieldName = '数量'
      ReadOnly = True
      DisplayFormat = '#0 双'
    end
    object ADOQuery1DSDesigner4: TFloatField
      FieldName = '金额'
      ReadOnly = True
      DisplayFormat = '￥ #0.00'
    end
  end
end