goodinfofrm.dfm

这是一个本人初定的小制作

object GoodInfoDlg: TGoodInfoDlg
  Left = 265
  Top = 125
  BorderStyle = bsDialog
  Caption = #21830#21697#22522#26412#20449#24687
  ClientHeight = 448
  ClientWidth = 647
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object TBMain: TToolBar
    Left = 0
    Top = 0
    Width = 647
    Height = 24
    ButtonHeight = 20
    ButtonWidth = 55
    Caption = 'TBMain'
    Flat = True
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 0
    object TBAdd: TToolButton
      Left = 0
      Top = 0
      AutoSize = True
      Caption = #22686#21152'(&A)'
      ImageIndex = 0
      OnClick = TBAddClick
    end
    object TBEdit: TToolButton
      Left = 53
      Top = 0
      Caption = #32534#36753'(&E)'
      ImageIndex = 1
      OnClick = TBEditClick
    end
    object TBDel: TToolButton
      Left = 108
      Top = 0
      Caption = #21024#38500'(&D)'
      ImageIndex = 2
      OnClick = TBDelClick
    end
    object TBRefresh: TToolButton
      Left = 163
      Top = 0
      Caption = #21047#26032'(&R)'
      ImageIndex = 3
      OnClick = TBRefreshClick
    end
    object TBExit: TToolButton
      Left = 218
      Top = 0
      Caption = #36864#20986'(&R)'
      ImageIndex = 4
      OnClick = TBExitClick
    end
  end
  object GridGoodName: TDBGrid
    Left = 0
    Top = 24
    Width = 169
    Height = 417
    DataSource = DMMain.DSGood
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnKeyPress = GridGoodNameKeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'Name'
        Title.Caption = #21830#21697#21517#31216
        Visible = True
      end>
  end
  object GridGoodInfo: TDBGrid
    Left = 176
    Top = 24
    Width = 465
    Height = 417
    DataSource = DMMain.DSGood
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnKeyPress = GridGoodNameKeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'Id'
        Title.Caption = #32534#21495
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Name'
        Title.Caption = #21517#31216
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Type'
        Title.Caption = #22411#21495
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Unit'
        Title.Caption = #21333#20301
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Price'
        Title.Caption = #21333#20215
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SellBonus'
        Title.Caption = #25240#25187
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SaftyStock'
        Title.Caption = #23433#20840#24211#23384
        Visible = True
      end>
  end
end