zhspda1.dfm

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

object zhspda: Tzhspda
  Left = 348
  Top = 244
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '组合货品档案'
  ClientHeight = 195
  ClientWidth = 494
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 320
    Top = 179
    Width = 36
    Height = 12
    Caption = '数量：'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 0
    Width = 494
    Height = 153
    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 = 0
    BandFont.Charset = GB2312_CHARSET
    BandFont.Color = clWindowText
    BandFont.Height = -12
    BandFont.Name = '宋体'
    BandFont.Style = []
    DataSource = DataSource1
    Filter.Criteria = {00000000}
    GridLineColor = clNavy
    HeaderFont.Charset = GB2312_CHARSET
    HeaderFont.Color = clWindowText
    HeaderFont.Height = -12
    HeaderFont.Name = '宋体'
    HeaderFont.Style = []
    OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoMultiSelect, edgoTabThrough, edgoVertThrough]
    OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
    PreviewFont.Charset = DEFAULT_CHARSET
    PreviewFont.Color = clBlue
    PreviewFont.Height = -12
    PreviewFont.Name = '宋体'
    PreviewFont.Style = []
    object dxDBGrid1spcode: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 94
      BandIndex = 0
      RowIndex = 0
      FieldName = 'spcode'
    end
    object dxDBGrid1name: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 239
      BandIndex = 0
      RowIndex = 0
      FieldName = 'name'
    end
    object dxDBGrid1sl: TdxDBGridMaskColumn
      ReadOnly = True
      Width = 118
      BandIndex = 0
      RowIndex = 0
      FieldName = 'sl'
    end
    object dxDBGrid1code: TdxDBGridMaskColumn
      Visible = False
      Width = 82
      BandIndex = 0
      RowIndex = 0
      FieldName = 'code'
    end
    object dxDBGrid1id: TdxDBGridMaskColumn
      Visible = False
      Width = 56
      BandIndex = 0
      RowIndex = 0
      FieldName = 'id'
    end
  end
  object BitBtn1: TBitBtn
    Left = 16
    Top = 166
    Width = 75
    Height = 25
    Caption = '增加&A'
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
      0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
      33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 104
    Top = 166
    Width = 75
    Height = 25
    Caption = '删除&D'
    TabOrder = 2
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF33333333333330003333333333333777333333333333
      300033FFFFFF3333377739999993333333333777777F3333333F399999933333
      3300377777733333337733333333333333003333333333333377333333333333
      3333333333333333333F333333333333330033333F33333333773333C3333333
      330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
      993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
      333333377F33333333FF3333C333333330003333733333333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
  end
  object BitBtn3: TBitBtn
    Left = 192
    Top = 166
    Width = 75
    Height = 25
    Cancel = True
    Caption = '退出'
    ModalResult = 2
    TabOrder = 3
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
      0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
      0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
      0333337F777FFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
  end
  object dxDBEdit1: TdxDBEdit
    Left = 360
    Top = 171
    Width = 121
    Color = 12639424
    TabOrder = 4
    OnExit = dxDBEdit1Exit
    OnKeyDown = dxDBEdit1KeyDown
    DataField = 'sl'
    DataSource = DataSource2
  end
  object ADOTable1: TADOTable
    Active = True
    AutoCalcFields = False
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Filtered = True
    LockType = ltReadOnly
    TableName = 'ZHSPDA_V'
    Left = 40
    Top = 48
    object ADOTable1spcode: TStringField
      DisplayLabel = '货品代码'
      FieldName = 'spcode'
      Size = 15
    end
    object ADOTable1name: TStringField
      DisplayLabel = '货品名称'
      FieldName = 'name'
      Size = 50
    end
    object ADOTable1sl: TBCDField
      DisplayLabel = '数量'
      FieldName = 'sl'
      Precision = 18
      Size = 3
    end
    object ADOTable1code: TStringField
      FieldName = 'code'
      Size = 15
    end
    object ADOTable1id: TAutoIncField
      DisplayLabel = 'ID'
      FieldName = 'id'
      ReadOnly = True
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 80
    Top = 48
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 40
    Top = 88
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'id'
    MasterFields = 'id'
    MasterSource = DataSource1
    TableName = 'ZHSPDA'
    Left = 408
    Top = 112
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 368
    Top = 112
  end
end