xzzhsp1.dfm

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

object xzzhsp: Txzzhsp
  Left = 311
  Top = 128
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '选择商品'
  ClientHeight = 312
  ClientWidth = 624
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object BitBtn3: TBitBtn
    Left = 530
    Top = 280
    Width = 75
    Height = 25
    Cancel = True
    Caption = '退出'
    ModalResult = 2
    TabOrder = 0
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
      0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
      0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
      0333337F777FFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
  end
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 0
    Width = 624
    Height = 265
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'code'
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alTop
    Color = 15524050
    Font.Charset = GB2312_CHARSET
    Font.Color = 7479077
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnDblClick = dxDBGrid1DblClick
    BandFont.Charset = GB2312_CHARSET
    BandFont.Color = clWindowText
    BandFont.Height = -12
    BandFont.Name = '宋体'
    BandFont.Style = []
    DataSource = DataSource1
    Filter.Active = True
    Filter.FilterStatus = fsAlways
    Filter.Criteria = {00000000}
    GridLineColor = clNavy
    GroupPanelColor = 15524050
    HeaderFont.Charset = GB2312_CHARSET
    HeaderFont.Color = clWindowText
    HeaderFont.Height = -12
    HeaderFont.Name = '宋体'
    HeaderFont.Style = []
    OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
    PreviewFont.Charset = DEFAULT_CHARSET
    PreviewFont.Color = clBlue
    PreviewFont.Height = -12
    PreviewFont.Name = '宋体'
    PreviewFont.Style = []
    object dxDBGrid1code: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 87
      BandIndex = 0
      RowIndex = 0
      FieldName = 'code'
    end
    object dxDBGrid1name: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 199
      BandIndex = 0
      RowIndex = 0
      FieldName = 'name'
    end
    object dxDBGrid1lb: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 70
      BandIndex = 0
      RowIndex = 0
      FieldName = 'lb'
    end
    object dxDBGrid1jldw: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 76
      BandIndex = 0
      RowIndex = 0
      FieldName = 'jldw'
    end
    object dxDBGrid1barcode: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 86
      BandIndex = 0
      RowIndex = 0
      FieldName = 'barcode'
    end
    object dxDBGrid1lsj: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 86
      BandIndex = 0
      RowIndex = 0
      FieldName = 'lsj'
    end
    object dxDBGrid1hyj: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 78
      BandIndex = 0
      RowIndex = 0
      FieldName = 'hyj'
    end
    object dxDBGrid1pfj: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 76
      BandIndex = 0
      RowIndex = 0
      FieldName = 'pfj'
    end
    object dxDBGrid1cxj: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 84
      BandIndex = 0
      RowIndex = 0
      FieldName = 'cxj'
    end
    object dxDBGrid1czsp: TdxDBGridCheckColumn
      ReadOnly = True
      Width = 80
      BandIndex = 0
      RowIndex = 0
      FieldName = 'czsp'
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
  end
  object BitBtn1: TBitBtn
    Left = 432
    Top = 280
    Width = 75
    Height = 25
    Caption = '选择&S'
    TabOrder = 2
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      555555555555555555555555555555555555555555FF55555555555559055555
      55555555577FF5555555555599905555555555557777F5555555555599905555
      555555557777FF5555555559999905555555555777777F555555559999990555
      5555557777777FF5555557990599905555555777757777F55555790555599055
      55557775555777FF5555555555599905555555555557777F5555555555559905
      555555555555777FF5555555555559905555555555555777FF55555555555579
      05555555555555777FF5555555555557905555555555555777FF555555555555
      5990555555555555577755555555555555555555555555555555}
    NumGlyphs = 2
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Filter = 'zhsp=0 and sybz=1'
    Filtered = True
    LockType = ltReadOnly
    TableName = 'SPDA'
    Left = 144
    Top = 200
    object ADOTable1code: TStringField
      DisplayLabel = '货品编码'
      FieldName = 'code'
      Size = 15
    end
    object ADOTable1name: TStringField
      DisplayLabel = '品名称'
      FieldName = 'name'
      Size = 50
    end
    object ADOTable1lb: TStringField
      DisplayLabel = '类别'
      FieldName = 'lb'
    end
    object ADOTable1jldw: TStringField
      DisplayLabel = '计量单位'
      FieldName = 'jldw'
      Size = 10
    end
    object ADOTable1barcode: TStringField
      DisplayLabel = '条码'
      FieldName = 'barcode'
    end
    object ADOTable1lsj: TBCDField
      DisplayLabel = '零售价'
      FieldName = 'lsj'
      Precision = 18
      Size = 2
    end
    object ADOTable1hyj: TBCDField
      DisplayLabel = '会员价'
      FieldName = 'hyj'
      Precision = 18
      Size = 2
    end
    object ADOTable1pfj: TBCDField
      DisplayLabel = '批发价'
      FieldName = 'pfj'
      Precision = 18
      Size = 2
    end
    object ADOTable1cxj: TBCDField
      DisplayLabel = '促销价'
      FieldName = 'cxj'
      Precision = 18
      Size = 2
    end
    object ADOTable1czsp: TBooleanField
      DisplayLabel = '是否称重'
      FieldName = 'czsp'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 136
    Top = 80
  end
end