tmcf1.dfm

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

object tmcf: Ttmcf
  Left = 104
  Top = 177
  Width = 605
  Height = 446
  Caption = '条形码重复商品'
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 0
    Width = 597
    Height = 419
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'code'
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alClient
    Color = 15524050
    PopupMenu = PopupMenu1
    TabOrder = 0
    OnDblClick = dxDBGrid1DblClick
    DataSource = DataSource1
    Filter.Active = True
    Filter.Criteria = {00000000}
    GridLineColor = clNavy
    OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoMultiSort, edgoTabThrough, edgoVertThrough]
    OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
    OptionsView = [edgoAutoWidth, edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
    object dxDBGrid1code: TdxDBGridMaskColumn
      Sorted = csUp
      BandIndex = 0
      RowIndex = 0
      FieldName = 'code'
      SortedOrder = 1
    end
    object dxDBGrid1name: TdxDBGridMaskColumn
      BandIndex = 0
      RowIndex = 0
      FieldName = 'name'
    end
    object dxDBGrid1barcode: TdxDBGridMaskColumn
      Sorted = csUp
      BandIndex = 0
      RowIndex = 0
      FieldName = 'barcode'
      SortedOrder = 0
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select code,name,barcode from spda where barcode in'
      '(select barcode from spda'
      'where barcode<>'#39#39
      'group by barcode'
      'having count(barcode)>1)'
      'order by barcode')
    Left = 168
    Top = 192
    object ADOQuery1code: TStringField
      DisplayLabel = '商品编码'
      FieldName = 'code'
      Size = 15
    end
    object ADOQuery1name: TStringField
      DisplayLabel = '商品名称'
      FieldName = 'name'
      Size = 50
    end
    object ADOQuery1barcode: TStringField
      DisplayLabel = '条形码'
      FieldName = 'barcode'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 200
    Top = 192
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'xls'
    Filter = '*.xls|*.xls'
    Left = 128
    Top = 96
  end
  object PopupMenu1: TPopupMenu
    Left = 232
    Top = 72
    object Excel1: TMenuItem
      Caption = '导出Excel'
      OnClick = Excel1Click
    end
  end
end