sptmda1.dfm

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

object sptmda: Tsptmda
  Left = 359
  Top = 187
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '商品条码档案'
  ClientHeight = 278
  ClientWidth = 280
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object dxDBGrid1: TdxDBGrid
    Left = 8
    Top = 8
    Width = 265
    Height = 217
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'barcode'
    SummaryGroups = <>
    SummarySeparator = ', '
    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 = DataSource1
    Filter.Criteria = {00000000}
    HeaderFont.Charset = GB2312_CHARSET
    HeaderFont.Color = clWindowText
    HeaderFont.Height = -12
    HeaderFont.Name = '宋体'
    HeaderFont.Style = []
    OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
    PreviewFont.Charset = DEFAULT_CHARSET
    PreviewFont.Color = clBlue
    PreviewFont.Height = -12
    PreviewFont.Name = '宋体'
    PreviewFont.Style = []
    object dxDBGrid1spcode: TdxDBGridMaskColumn
      ReadOnly = True
      BandIndex = 0
      RowIndex = 0
      FieldName = 'spcode'
    end
    object dxDBGrid1barcode: TdxDBGridMaskColumn
      BandIndex = 0
      RowIndex = 0
      FieldName = 'barcode'
    end
  end
  object wwDBNavigator1: TwwDBNavigator
    Left = 80
    Top = 234
    Width = 200
    Height = 40
    DataSource = DataSource1
    Flat = False
    ImageList = ImageList1
    RepeatInterval.InitialDelay = 500
    RepeatInterval.Interval = 100
    object wwDBNavigator1Insert: TwwNavButton
      Left = 0
      Top = 0
      Width = 40
      Height = 40
      Hint = 'Insert new record'
      ImageIndex = 2
      NumGlyphs = 2
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = '增加&A'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 0
      Style = nbsInsert
    end
    object wwDBNavigator1Edit: TwwNavButton
      Left = 40
      Top = 0
      Width = 40
      Height = 40
      Hint = 'Edit current record'
      ImageIndex = 4
      NumGlyphs = 2
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = '修改&E'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 1
      Style = nbsEdit
    end
    object wwDBNavigator1Post: TwwNavButton
      Left = 80
      Top = 0
      Width = 40
      Height = 40
      Hint = 'Post changes of current record'
      ImageIndex = 8
      NumGlyphs = 2
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = '保存&S'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 2
      Style = nbsPost
    end
    object wwDBNavigator1Cancel: TwwNavButton
      Left = 120
      Top = 0
      Width = 40
      Height = 40
      Hint = 'Cancel changes made to current record'
      ImageIndex = 10
      NumGlyphs = 2
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = '取消&C'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 3
      Style = nbsCancel
    end
    object wwDBNavigator1Button: TwwNavButton
      Left = 160
      Top = 0
      Width = 40
      Height = 40
      ImageIndex = 0
      NumGlyphs = 1
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = '退出&X'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 4
      Style = nbsCustom
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 144
    Top = 64
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'spcode'
    MasterFields = 'code'
    MasterSource = spdawh.DataSource1
    TableName = 'SPTMDA'
    Left = 104
    Top = 64
    object ADOTable1spcode: TStringField
      DisplayLabel = '商品编码'
      FieldName = 'spcode'
      Size = 15
    end
    object ADOTable1barcode: TStringField
      DisplayLabel = '商品条形码'
      FieldName = 'barcode'
    end
    object ADOTable1id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
  end
  object ImageList1: TImageList
    Left = 40
    Top = 104
    Bitmap = {
      494C010116001800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000006000000001001000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000