xschdcx11.dfm

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

          BandIndex = 0
          RowIndex = 0
          FieldName = 'jldw'
        end
        object dxDBGrid2bzgg: TdxDBGridMaskColumn
          Width = 56
          BandIndex = 0
          RowIndex = 0
          FieldName = 'bzgg'
        end
        object dxDBGrid2js: TdxDBGridMaskColumn
          Width = 51
          BandIndex = 0
          RowIndex = 0
          FieldName = 'js'
        end
        object dxDBGrid2ss: TdxDBGridMaskColumn
          Width = 51
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ss'
        end
        object dxDBGrid2sl: TdxDBGridMaskColumn
          Width = 56
          BandIndex = 0
          RowIndex = 0
          FieldName = 'sl'
        end
        object dxDBGrid2dj: TdxDBGridMaskColumn
          Width = 59
          BandIndex = 0
          RowIndex = 0
          FieldName = 'dj'
        end
        object dxDBGrid2sui: TdxDBGridMaskColumn
          Width = 55
          BandIndex = 0
          RowIndex = 0
          FieldName = 'sui'
        end
        object dxDBGrid2je: TdxDBGridMaskColumn
          Width = 59
          BandIndex = 0
          RowIndex = 0
          FieldName = 'je'
          SummaryFooterType = cstSum
        end
        object dxDBGrid2Column12: TdxDBGridMaskColumn
          Width = 94
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ddcode'
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = '付款情况'
      ImageIndex = 2
      object dxDBGrid3: TdxDBGrid
        Left = 0
        Top = 0
        Width = 573
        Height = 382
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'code'
        ShowSummaryFooter = True
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alClient
        Color = 15524050
        Font.Charset = GB2312_CHARSET
        Font.Color = 7479077
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        BandFont.Charset = GB2312_CHARSET
        BandFont.Color = clWindowText
        BandFont.Height = -12
        BandFont.Name = '宋体'
        BandFont.Style = []
        DataSource = DataSource3
        Filter.Criteria = {00000000}
        GridLineColor = 7479077
        HeaderFont.Charset = GB2312_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -12
        HeaderFont.Name = '宋体'
        HeaderFont.Style = []
        LookAndFeel = lfFlat
        OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoStoreToRegistry, edgoTabThrough, edgoVertThrough]
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -12
        PreviewFont.Name = '宋体'
        PreviewFont.Style = []
        RegistryPath = '\Software\server\xsdcx_s'
        object dxDBGrid3code: TdxDBGridMaskColumn
          Width = 124
          BandIndex = 0
          RowIndex = 0
          FieldName = 'code'
        end
        object dxDBGrid3fkje: TdxDBGridMaskColumn
          Width = 118
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fkje'
          SummaryFooterType = cstSum
        end
        object dxDBGrid3bz: TdxDBGridMaskColumn
          Width = 217
          BandIndex = 0
          RowIndex = 0
          FieldName = 'bz'
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 148
    Top = 215
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery1
    Left = 316
    Top = 223
  end
  object PopupMenu1: TPopupMenu
    Left = 492
    Top = 167
    object N1: TMenuItem
      Caption = '报表设置'
    end
  end
  object Query1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'code'
        DataType = ftString
        Size = 1
        Value = '%'
      end
      item
        Name = 'ghs'
        DataType = ftString
        Size = 1
        Value = '%'
      end
      item
        Name = 'rq1'
        DataType = ftDateTime
        Size = 8
        Value = 37743d
      end
      item
        Name = 'rq2'
        DataType = ftDateTime
        Size = 8
        Value = 37746d
      end
      item
        Name = 'spcode'
        DataType = ftString
        Size = 1
        Value = '%'
      end>
    SQL.Strings = (
      'select * from xschcx_v '
      
        'where code like :code and kh like :ghs and kdrq>=:rq1 and kdrq<=' +
        ':rq2 and code in(select code from xsch002 where spcode like :spc' +
        'ode)')
    Left = 116
    Top = 215
    object Query1code: TStringField
      DisplayLabel = '单号'
      FieldName = 'code'
    end
    object Query1kdrq: TDateTimeField
      DisplayLabel = '开单日期'
      FieldName = 'kdrq'
    end
    object Query1kdr: TStringField
      DisplayLabel = '开单人'
      FieldName = 'kdr'
      Size = 10
    end
    object Query1zje: TBCDField
      DisplayLabel = '总金额'
      FieldName = 'zje'
      Precision = 18
      Size = 3
    end
    object Query1ywy: TStringField
      DisplayLabel = '业务员代码'
      FieldName = 'ywy'
      Size = 10
    end
    object Query1bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 200
    end
    object Query1zt: TStringField
      DisplayLabel = '单据状态'
      FieldName = 'zt'
      Size = 10
    end
    object Query1fplx: TStringField
      DisplayLabel = '发票类型'
      FieldName = 'fplx'
    end
    object Query1ck: TStringField
      DisplayLabel = '仓库代码'
      FieldName = 'ck'
      Size = 5
    end
    object Query1ckname: TStringField
      DisplayLabel = '仓库名称'
      FieldName = 'ckname'
      Size = 200
    end
    object Query1yfje: TBCDField
      DisplayLabel = '已付款'
      FieldName = 'yfje'
      Precision = 18
      Size = 2
    end
    object Query1ywyname: TStringField
      DisplayLabel = '业务员名称'
      FieldName = 'ywyname'
      Size = 10
    end
    object Query1KH: TStringField
      DisplayLabel = '客户编码'
      FieldName = 'KH'
      Size = 5
    end
    object Query1KHname: TStringField
      DisplayLabel = '客户名称'
      FieldName = 'KHname'
      Size = 200
    end
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from cgsh002')
    Left = 284
    Top = 223
    object ADOQuery1spcode: TStringField
      DisplayLabel = '商品编码'
      FieldName = 'spcode'
      Size = 15
    end
    object ADOQuery1spname: TStringField
      DisplayLabel = '商品名称'
      FieldName = 'spname'
      Size = 200
    end
    object ADOQuery1jldw: TStringField
      DisplayLabel = '单位'
      FieldName = 'jldw'
      Size = 10
    end
    object ADOQuery1bzgg: TBCDField
      DisplayLabel = '包装'
      FieldName = 'bzgg'
      Precision = 18
      Size = 0
    end
    object ADOQuery1js: TBCDField
      DisplayLabel = '件数'
      FieldName = 'js'
      Precision = 18
      Size = 3
    end
    object ADOQuery1ss: TBCDField
      DisplayLabel = '散数'
      FieldName = 'ss'
      Precision = 18
      Size = 3
    end
    object ADOQuery1sl: TBCDField
      DisplayLabel = '数量'
      FieldName = 'sl'
      Precision = 18
      Size = 3
    end
    object ADOQuery1dj: TBCDField
      DisplayLabel = '单价'
      FieldName = 'dj'
      Precision = 18
      Size = 3
    end
    object ADOQuery1sui: TBCDField
      DisplayLabel = '税率'
      FieldName = 'sui'
      Precision = 18
      Size = 2
    end
    object ADOQuery1je: TBCDField
      DisplayLabel = '金额'
      FieldName = 'je'
      Precision = 18
      Size = 3
    end
    object ADOQuery1ddcode: TStringField
      DisplayLabel = '订单号'
      FieldName = 'ddcode'
    end
  end
  object ADOQuery2: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from cgfk002')
    Left = 284
    Top = 263
    object ADOQuery2code: TStringField
      DisplayLabel = '付款单号'
      FieldName = 'code'
    end
    object ADOQuery2fkje: TBCDField
      DisplayLabel = '付款金额'
      FieldName = 'fkje'
      Precision = 18
      Size = 2
    end
    object ADOQuery2bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 200
    end
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery2
    Left = 316
    Top = 263
  end
end