spda1.dfm

思微POS连锁超市管理系统 (商业代码),几年前的东西了

      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'Times New Roman'
      FooterFont.Style = []
      GroupNodeFont.Charset = DEFAULT_CHARSET
      GroupNodeFont.Color = clWindowText
      GroupNodeFont.Height = -11
      GroupNodeFont.Name = 'Times New Roman'
      GroupNodeFont.Style = []
      HeaderFont.Charset = DEFAULT_CHARSET
      HeaderFont.Color = clWindowText
      HeaderFont.Height = -11
      HeaderFont.Name = 'Times New Roman'
      HeaderFont.Style = []
      OddColor = 12639424
      OddFont.Charset = DEFAULT_CHARSET
      OddFont.Color = clWindowText
      OddFont.Height = -11
      OddFont.Name = 'Times New Roman'
      OddFont.Style = []
      Options = [tlpoBands, tlpoHeaders, tlpoFooters, tlpoRowFooters, tlpoPreview, tlpoPreviewGrid, tlpoGrid, tlpoFlatCheckMarks, tlpoSoft3D, tlpoRowFooterGrid]
      PreviewFont.Charset = DEFAULT_CHARSET
      PreviewFont.Color = clWindowText
      PreviewFont.Height = -11
      PreviewFont.Name = 'Times New Roman'
      PreviewFont.Style = []
      RowFooterFont.Charset = DEFAULT_CHARSET
      RowFooterFont.Color = clWindowText
      RowFooterFont.Height = -11
      RowFooterFont.Name = 'Times New Roman'
      RowFooterFont.Style = []
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 96
    Top = 176
    object N1: TMenuItem
      Caption = '输出'
      object Excel1: TMenuItem
        Caption = 'Excel格式'
        OnClick = Excel1Click
      end
      object Text1: TMenuItem
        Caption = 'Text格式'
        OnClick = Text1Click
      end
      object Html1: TMenuItem
        Caption = 'Html格式'
        OnClick = Html1Click
      end
      object N30: TMenuItem
        Caption = '打印预览'
        OnClick = N30Click
      end
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = '显示'
      object N4: TMenuItem
        Caption = '货品代码'
        Checked = True
        OnClick = N4Click
      end
      object N5: TMenuItem
        Caption = '货品名称'
        Checked = True
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = '货品类别'
        Checked = True
        OnClick = N6Click
      end
      object N7: TMenuItem
        Caption = '计量单位'
        Checked = True
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = '包装规格'
        Checked = True
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = '条形码'
        Checked = True
        OnClick = N9Click
      end
      object N27: TMenuItem
        Caption = '主供货商'
        Checked = True
        OnClick = N27Click
      end
      object N10: TMenuItem
        Caption = '含税进价'
        Checked = True
        OnClick = N10Click
      end
      object N28: TMenuItem
        Caption = '进价税率'
        Checked = True
        OnClick = N28Click
      end
      object N29: TMenuItem
        Caption = '无税进价'
        Checked = True
        OnClick = N29Click
      end
      object N11: TMenuItem
        Caption = '零售价'
        Checked = True
        OnClick = N11Click
      end
      object N12: TMenuItem
        Caption = '会员价'
        Checked = True
        OnClick = N12Click
      end
      object N13: TMenuItem
        Caption = '批发价'
        Checked = True
        OnClick = N13Click
      end
      object N14: TMenuItem
        Caption = '加权价'
        Checked = True
        OnClick = N14Click
      end
      object N15: TMenuItem
        Caption = '促销价'
        Checked = True
        OnClick = N15Click
      end
      object N22: TMenuItem
        Caption = '是否促销'
        Checked = True
        OnClick = N22Click
      end
      object N16: TMenuItem
        Caption = '是否使用'
        Checked = True
        OnClick = N16Click
      end
      object N17: TMenuItem
        Caption = '组合货品'
        Checked = True
        OnClick = N17Click
      end
      object N20: TMenuItem
        Caption = '库存上限'
        Checked = True
        OnClick = N20Click
      end
      object N21: TMenuItem
        Caption = '库存下限'
        Checked = True
        OnClick = N21Click
      end
      object N26: TMenuItem
        Caption = '备注'
        Checked = True
        OnClick = N26Click
      end
    end
    object N23: TMenuItem
      Caption = '-'
    end
    object N24: TMenuItem
      Caption = '全部展开'
      OnClick = N24Click
    end
    object N25: TMenuItem
      Caption = '全部缩小'
      OnClick = N25Click
    end
  end
  object SaveDialog1: TSaveDialog
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 136
    Top = 176
  end
  object ADOTable3: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    TableName = 'GHSDA'
    Left = 320
    Top = 112
    object ADOTable3code: TStringField
      DisplayLabel = '编码'
      FieldName = 'code'
      Size = 5
    end
    object ADOTable3name: TStringField
      DisplayLabel = '名称'
      FieldName = 'name'
      Size = 200
    end
    object ADOTable3dq: TStringField
      DisplayLabel = '所属地区'
      FieldName = 'dq'
      Size = 50
    end
    object ADOTable3lxr: TStringField
      DisplayLabel = '联系人'
      FieldName = 'lxr'
      Size = 50
    end
    object ADOTable3lxdh: TStringField
      DisplayLabel = '联系电话'
      FieldName = 'lxdh'
      Size = 50
    end
    object ADOTable3cz: TStringField
      DisplayLabel = '传真'
      FieldName = 'cz'
      Size = 50
    end
    object ADOTable3lxdz: TStringField
      DisplayLabel = '联系地址'
      FieldName = 'lxdz'
      Size = 200
    end
  end
  object DataSource3: TDataSource
    DataSet = ADOTable3
    Left = 352
    Top = 112
  end
  object Table1: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    TableName = 'SPDA'
    Left = 160
    Top = 112
    object Table1code: TStringField
      DisplayLabel = '货品编码'
      FieldName = 'code'
      Size = 15
    end
    object Table1name: TStringField
      DisplayLabel = '货品名称'
      FieldName = 'name'
      Size = 50
    end
    object Table1lb: TStringField
      DisplayLabel = '类别'
      DisplayWidth = 50
      FieldName = 'lb'
      Size = 50
    end
    object Table1jldw: TStringField
      DisplayLabel = '计量单位'
      FieldName = 'jldw'
      Size = 10
    end
    object Table1bzgg: TBCDField
      DisplayLabel = '包装规格'
      FieldName = 'bzgg'
      Precision = 18
      Size = 0
    end
    object Table1barcode: TStringField
      DisplayLabel = '条码'
      FieldName = 'barcode'
    end
    object Table1mainghs: TStringField
      DisplayLabel = '供货商编码'
      FieldName = 'mainghs'
      Size = 5
    end
    object Table1ghsname: TStringField
      DisplayLabel = '供货商名称'
      DisplayWidth = 200
      FieldKind = fkLookup
      FieldName = 'ghsname'
      LookupDataSet = ADOTable3
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'mainghs'
      Size = 200
      Lookup = True
    end
    object Table1jhj: TBCDField
      DisplayLabel = '含税进价'
      FieldName = 'jhj'
      Precision = 18
      Size = 2
    end
    object Table1suilu: TBCDField
      DisplayLabel = '进价税率'
      FieldName = 'suilu'
      Precision = 18
      Size = 0
    end
    object Table1hsjj: TBCDField
      DisplayLabel = '无税进价'
      FieldName = 'wsjj'
      Precision = 18
      Size = 2
    end
    object Table1lsj: TBCDField
      DisplayLabel = '零售价'
      FieldName = 'lsj'
      Precision = 18
      Size = 2
    end
    object Table1hyj: TBCDField
      DisplayLabel = '会员价'
      FieldName = 'hyj'
      Precision = 18
      Size = 2
    end
    object Table1pfj: TBCDField
      DisplayLabel = '批发价'
      FieldName = 'pfj'
      Precision = 18
      Size = 2
    end
    object Table1jqj: TBCDField
      DisplayLabel = '加权价'
      FieldName = 'jqj'
      Precision = 18
      Size = 2
    end
    object Table1cxj: TBCDField
      DisplayLabel = '促销价'
      FieldName = 'cxj'
      Precision = 18
      Size = 2
    end
    object Table1cxbz: TBooleanField
      DisplayLabel = '是否促销'
      FieldName = 'cxbz'
    end
    object Table1sybz: TBooleanField
      DisplayLabel = '是否使用'
      FieldName = 'sybz'
    end
    object Table1zhsp: TBooleanField
      DisplayLabel = '组合货品'
      FieldName = 'zhsp'
    end
    object Table1czsp: TBooleanField
      DisplayLabel = '是否称重'
      FieldName = 'czsp'
    end
    object Table1czspbm: TStringField
      DisplayLabel = '称重编码'
      FieldName = 'czspbm'
      Size = 10
    end
    object Table1kcsx: TBCDField
      DisplayLabel = '库存上限'
      FieldName = 'kcsx'
      Precision = 18
      Size = 0
    end
    object Table1kcxx: TBCDField
      DisplayLabel = '库存下限'
      FieldName = 'kcxx'
      Precision = 18
      Size = 0
    end
    object Table1bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 200
    end
    object Table1pybm: TStringField
      DisplayLabel = '拼音编码'
      FieldName = 'pybm'
      Size = 50
    end
    object Table1qckc: TBCDField
      FieldName = 'qckc'
      Precision = 18
      Size = 0
    end
    object Table1id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object Table1cd: TStringField
      DisplayLabel = '产地'
      FieldName = 'cd'
      Size = 50
    end
  end
end