cgdddcx11.dfm

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

      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 598
        Height = 49
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label7: TLabel
          Left = 328
          Top = 21
          Width = 60
          Height = 12
          Caption = '商品编码：'
        end
        object Label8: TLabel
          Left = 8
          Top = 21
          Width = 48
          Height = 12
          Caption = '时间段：'
        end
        object Label9: TLabel
          Left = 176
          Top = 21
          Width = 12
          Height = 12
          Caption = '至'
        end
        object Edit5: TEdit
          Left = 392
          Top = 13
          Width = 121
          Height = 20
          TabOrder = 0
        end
        object Button2: TButton
          Left = 520
          Top = 8
          Width = 75
          Height = 25
          Caption = '查询'
          Default = True
          TabOrder = 1
          OnClick = Button2Click
        end
        object DateTimePicker3: TDateTimePicker
          Left = 56
          Top = 13
          Width = 105
          Height = 20
          CalAlignment = dtaLeft
          Date = 37259
          Time = 37259
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 2
        end
        object DateTimePicker4: TDateTimePicker
          Left = 200
          Top = 13
          Width = 113
          Height = 20
          CalAlignment = dtaLeft
          Date = 37259.9999884259
          Time = 37259.9999884259
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 3
        end
      end
      object dxDBGrid3: TdxDBGrid
        Left = 0
        Top = 49
        Width = 598
        Height = 333
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'spcode'
        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 = 1
        BandFont.Charset = GB2312_CHARSET
        BandFont.Color = clWindowText
        BandFont.Height = -12
        BandFont.Name = '宋体'
        BandFont.Style = []
        DataSource = DataSource3
        Filter.Active = True
        Filter.Criteria = {00000000}
        GridLineColor = clNavy
        HeaderFont.Charset = GB2312_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -12
        HeaderFont.Name = '宋体'
        HeaderFont.Style = []
        LookAndFeel = lfFlat
        OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoMultiSelect, edgoMultiSort, edgoTabThrough, edgoVertThrough]
        OptionsCustomize = [edgoBandSizing, edgoColumnSizing]
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
        OptionsView = [edgoIndicator, edgoRowSelect]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -12
        PreviewFont.Name = '宋体'
        PreviewFont.Style = []
        object dxDBGrid3spcode: TdxDBGridMaskColumn
          Sorted = csUp
          Width = 94
          BandIndex = 0
          RowIndex = 0
          FieldName = 'spcode'
        end
        object dxDBGrid3spname: TdxDBGridMaskColumn
          Width = 178
          BandIndex = 0
          RowIndex = 0
          FieldName = 'spname'
        end
        object dxDBGrid3sl: TdxDBGridMaskColumn
          Width = 107
          BandIndex = 0
          RowIndex = 0
          FieldName = 'sl'
          SummaryFooterType = cstSum
        end
        object dxDBGrid3jhj: TdxDBGridMaskColumn
          Width = 118
          BandIndex = 0
          RowIndex = 0
          FieldName = 'jhj'
        end
        object dxDBGrid3je: TdxDBGridMaskColumn
          Width = 117
          BandIndex = 0
          RowIndex = 0
          FieldName = 'je'
          SummaryFooterType = cstSum
        end
        object dxDBGrid3dcck: TdxDBGridMaskColumn
          Width = 100
          BandIndex = 0
          RowIndex = 0
          FieldName = 'dcck'
        end
        object dxDBGrid3Column7: TdxDBGridMaskColumn
          Width = 89
          BandIndex = 0
          RowIndex = 0
          FieldName = 'drck'
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 148
    Top = 183
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery1
    Left = 316
    Top = 191
  end
  object PopupMenu1: TPopupMenu
    Left = 492
    Top = 167
    object N1: TMenuItem
      Caption = '报表设置'
    end
  end
  object Query1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ckddcx_v')
    Left = 116
    Top = 183
    object Query1code: TStringField
      DisplayLabel = '单号'
      FieldName = 'code'
    end
    object Query1kdrq: TDateTimeField
      DisplayLabel = '开单日期'
      FieldName = 'kdrq'
    end
    object Query1dkr: TStringField
      DisplayLabel = '操作员编码'
      FieldName = 'dkr'
      Size = 6
    end
    object Query1dcckname: TStringField
      DisplayLabel = '调出仓库'
      FieldName = 'dcckname'
      Size = 200
    end
    object Query1drckname: TStringField
      DisplayLabel = '调入仓库'
      FieldName = 'drckname'
      Size = 200
    end
    object Query1ywy: TStringField
      DisplayLabel = '业务员'
      FieldName = 'ywy'
      Size = 5
    end
    object Query1name: TStringField
      DisplayLabel = '业务员'
      FieldName = 'name'
      Size = 10
    end
    object Query1bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 250
    end
    object Query1zt: TStringField
      DisplayLabel = '单据状态'
      FieldName = 'zt'
      Size = 10
    end
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from ckdd002')
    Left = 284
    Top = 191
    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 ADOQuery1je: TBCDField
      DisplayLabel = '金额'
      FieldName = 'je'
      Precision = 18
      Size = 3
    end
    object ADOQuery1jhj: TBCDField
      DisplayLabel = '成本价'
      FieldName = 'jhj'
      Precision = 18
      Size = 2
    end
  end
  object ADOQuery2: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'rq1'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'rq2'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'spcode'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM ckddhz_v1'
      'where kdrq>=:rq1 and kdrq<=:rq2 and spcode like :spcode')
    Left = 116
    Top = 223
    object ADOQuery2spcode: TStringField
      DisplayLabel = '商品编码'
      FieldName = 'spcode'
      Size = 15
    end
    object ADOQuery2spname: TStringField
      DisplayLabel = '商品名称'
      FieldName = 'spname'
      Size = 100
    end
    object ADOQuery2sl: TBCDField
      DisplayLabel = '数量'
      FieldName = 'sl'
      ReadOnly = True
      Precision = 32
      Size = 2
    end
    object ADOQuery2jhj: TBCDField
      DisplayLabel = '单价'
      FieldName = 'jhj'
      Precision = 18
      Size = 2
    end
    object ADOQuery2je: TBCDField
      DisplayLabel = '金额'
      FieldName = 'je'
      ReadOnly = True
      Precision = 32
      Size = 2
    end
    object ADOQuery2dcck: TStringField
      DisplayLabel = '调出仓库'
      FieldName = 'dcck'
      Size = 5
    end
    object ADOQuery2drck: TStringField
      DisplayLabel = '调入仓库'
      FieldName = 'drck'
      Size = 5
    end
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery2
    Left = 148
    Top = 223
  end
end