spdacx.dfm

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

        end
        object dxDBGrid1Column13: TdxDBGridMaskColumn
          Width = 118
          BandIndex = 0
          RowIndex = 0
          FieldName = 'wsjj'
        end
        object dxDBGrid1Column15: TdxDBGridMaskColumn
          Width = 171
          BandIndex = 0
          RowIndex = 0
          FieldName = 'bz'
        end
      end
      object ListBox1: TListBox
        Left = 315
        Top = 56
        Width = 153
        Height = 268
        ItemHeight = 12
        TabOrder = 1
        Visible = False
      end
      object ListBox2: TListBox
        Left = 120
        Top = 176
        Width = 121
        Height = 97
        ItemHeight = 12
        TabOrder = 2
        Visible = False
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 208
    Top = 136
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'code'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = '%'
      end
      item
        Name = 'barcode'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = '%'
      end
      item
        Name = 'spname'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = '%'
      end
      item
        Name = 'ghscode'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 5
        Value = '%'
      end
      item
        Name = 'lbid'
        Attributes = [paSigned]
        DataType = ftString
        Precision = 10
        Size = 4
        Value = '%'
      end
      item
        Name = 'pybm'
        DataType = ftString
        Size = 1
        Value = '%'
      end>
    SQL.Strings = (
      'select * from cxspda_v'
      'where code like :code and barcode like :barcode'
      'and name like :spname'
      'and ghscode like :ghscode'
      'and lbid like :lbid'
      'and pybm like :pybm')
    Left = 160
    Top = 136
    object ADOQuery1code: TStringField
      DisplayLabel = '商品编码'
      FieldName = 'code'
      Size = 15
    end
    object ADOQuery1name: TStringField
      DisplayLabel = '商品名称'
      FieldName = 'name'
      Size = 50
    end
    object ADOQuery1jldw: TStringField
      DisplayLabel = '计量单位'
      FieldName = 'jldw'
      Size = 10
    end
    object ADOQuery1bzgg: TBCDField
      DisplayLabel = '包装规格'
      FieldName = 'bzgg'
      Precision = 18
      Size = 0
    end
    object ADOQuery1barcode: TStringField
      DisplayLabel = '条形码'
      FieldName = 'barcode'
    end
    object ADOQuery1lsj: TBCDField
      DisplayLabel = '零售价'
      FieldName = 'lsj'
      Precision = 18
      Size = 2
    end
    object ADOQuery1hyj: TBCDField
      DisplayLabel = '会员价'
      FieldName = 'hyj'
      Precision = 18
      Size = 2
    end
    object ADOQuery1lbid: TIntegerField
      DisplayLabel = '类别编码'
      FieldName = 'lbid'
    end
    object ADOQuery1lbname: TStringField
      DisplayLabel = '类别名称'
      FieldName = 'lbname'
      Size = 50
    end
    object ADOQuery1ghscode: TStringField
      DisplayLabel = '供货商编码'
      FieldName = 'ghscode'
      Size = 5
    end
    object ADOQuery1ghsname: TStringField
      DisplayLabel = '供货商名称'
      FieldName = 'ghsname'
      Size = 200
    end
    object ADOQuery1cxj: TBCDField
      DisplayLabel = '促销价'
      FieldName = 'cxj'
      Precision = 19
    end
    object ADOQuery1jhj: TBCDField
      DisplayLabel = '含税进价'
      FieldName = 'jhj'
      Precision = 18
      Size = 2
    end
    object ADOQuery1wsjj: TBCDField
      DisplayLabel = '无税进价'
      FieldName = 'wsjj'
      Precision = 18
      Size = 2
    end
    object ADOQuery1pfj: TBCDField
      DisplayLabel = '批发价'
      FieldName = 'pfj'
      Precision = 18
      Size = 2
    end
    object ADOQuery1bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 200
    end
    object ADOQuery1pybm: TStringField
      FieldName = 'pybm'
      Size = 50
    end
    object ADOQuery1cd: TStringField
      FieldName = 'cd'
      Size = 50
    end
  end
  object Table1: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    LockType = ltReadOnly
    TableName = 'LBDA'
    Left = 32
    Top = 208
    object Table1lbid: TIntegerField
      FieldName = 'lbid'
    end
    object Table1lbname: TStringField
      DisplayLabel = '类别名称'
      FieldName = 'lbname'
      Size = 50
    end
    object Table1sjlbid: TIntegerField
      FieldName = 'sjlbid'
    end
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 32
    Top = 240
  end
  object dxComponentPrinter1: TdxComponentPrinter
    CurrentLink = dxComponentPrinter1Link1
    PreviewOptions.Caption = '商品档案表'
    PreviewOptions.RegistryPath = 'Software\Developer Express\PrintingSystem\DesignTime'
    PreviewOptions.WindowState = wsMaximized
    PrintTitle = '商品档案表'
    Left = 272
    Top = 216
    object dxComponentPrinter1Link1: TdxDBGridReportLink
      Active = True
      Component = dxDBGrid1
      DateTime = 37853.5647840278
      DesignerHelpContext = 0
      PrinterPage.DMPaper = 256
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 12700
      PrinterPage.Margins.Right = 12700
      PrinterPage.Margins.Top = 12700
      PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageFooter.Font.Color = clWindowText
      PrinterPage.PageFooter.Font.Height = -11
      PrinterPage.PageFooter.Font.Name = 'Tahoma'
      PrinterPage.PageFooter.Font.Style = []
      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageHeader.Font.Color = clWindowText
      PrinterPage.PageHeader.Font.Height = -11
      PrinterPage.PageHeader.Font.Name = 'Tahoma'
      PrinterPage.PageHeader.Font.Style = []
      PrinterPage.PageSize.X = 215900
      PrinterPage.PageSize.Y = 279400
      PrinterPage.ScaleMode = smFit
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportTitle.Font.Charset = DEFAULT_CHARSET
      ReportTitle.Font.Color = clWindowText
      ReportTitle.Font.Height = -19
      ReportTitle.Font.Name = 'Times New Roman'
      ReportTitle.Font.Style = [fsBold]
      ReportTitle.Text = '商品档案表'
      ShrinkToPageWidth = True
      BandFont.Charset = DEFAULT_CHARSET
      BandFont.Color = clWindowText
      BandFont.Height = -11
      BandFont.Name = 'Times New Roman'
      BandFont.Style = []
      EvenFont.Charset = DEFAULT_CHARSET
      EvenFont.Color = clWindowText
      EvenFont.Height = -11
      EvenFont.Name = 'Times New Roman'
      EvenFont.Style = []
      FixedTransparent = True
      Font.Charset = DEFAULT_CHARSET
      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 = []
      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 ADOQuery2: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 200
    Top = 216
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'xls'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 136
    Top = 176
  end
end