bassmessage_goods.dfm

商场管理系统源码 一套值得初学者学习的源码包含全部源码,控件

inherited Frm_bassmessage_goods: TFrm_bassmessage_goods
  Width = 633
  Height = 461
  Caption = 'Frm_bassmessage_goods'
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 12
  inherited PanelBkGnd: TPanel
    Width = 625
    Height = 434
    object Splitter1: TSplitter [0]
      Left = 147
      Top = 40
      Width = 4
      Height = 373
      Cursor = crHSplit
    end
    inherited ControlBar1: TControlBar
      Width = 625
      inherited ToolBar1: TToolBar
        inherited TB_add: TToolButton
          OnClick = TB_addClick
        end
        inherited TB_EDIT: TToolButton
          OnClick = TB_EDITClick
        end
        inherited TB_DEL: TToolButton
          OnClick = TB_DELClick
        end
        inherited TB_QUERY: TToolButton
          Enabled = False
        end
      end
    end
    inherited DBG_BASSMESS: TDBGrid
      Left = 151
      Width = 474
      Height = 373
      Columns = <
        item
          Expanded = False
          FieldName = 'ID'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NAME'
          Title.Alignment = taCenter
          Title.Caption = #21830#21697#21517#31216
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TYPE'
          Title.Alignment = taCenter
          Title.Caption = #21830#21697#22411#21495
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRICE'
          Title.Alignment = taCenter
          Title.Caption = #26368#36817#21333#20215
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SELLPRICE'
          Title.Alignment = taCenter
          Title.Caption = #38144#21806#25552#25104
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'UNIT'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MEMO'
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end>
    end
    inherited StatusBar: TStatusBar
      Top = 413
      Width = 625
    end
    object DBG_name: TDBGrid
      Left = 0
      Top = 40
      Width = 147
      Height = 373
      Align = alLeft
      DataSource = DataSource_name
      FixedColor = 14540253
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 3
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBG_BASSMESSDblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'NAME'
          Title.Caption = #21830#21697#21517#31216
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 150
          Visible = True
        end>
    end
  end
  inherited DataSource: TDataSource
    Left = 205
    Top = 158
  end
  inherited Query_data: TQuery
    DatabaseName = 'THINKSHOP'
    DataSource = DataSource_name
    Left = 238
    Top = 159
  end
  object DataSource_name: TDataSource
    DataSet = Query_name
    Left = 38
    Top = 135
  end
  object Query_name: TQuery
    Left = 71
    Top = 136
  end
  object Query_DEL: TQuery
    Left = 224
    Top = 253
  end
end