name_gl.dfm

一个用VC写的超市管理系统

object fm_name_gl: Tfm_name_gl
  Left = 212
  Top = 175
  BorderStyle = bsDialog
  Caption = #36135#21517#31649#29702
  ClientHeight = 341
  ClientWidth = 536
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 72
    Width = 36
    Height = 16
    Caption = #36135#21495#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 96
    Width = 36
    Height = 16
    Caption = #36135#21517#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 16
    Top = 240
    Width = 36
    Height = 16
    Caption = #36135#21495#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 16
    Top = 264
    Width = 36
    Height = 16
    Caption = #36135#21517#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 40
    Top = 176
    Width = 185
    Height = 16
    AutoSize = False
    Caption = #22312#21491#36793#36873#25321#19968#20010#21697#21517#28982#21518
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 32
    Top = 200
    Width = 201
    Height = 16
    AutoSize = False
    Caption = #22312#19979#36793#36827#34892#20462#25913#25110#21024#38500#25805#20316
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 64
    Top = 32
    Width = 121
    Height = 16
    AutoSize = False
    Caption = #22686#21152#21697#21517#21450#20195#30721
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 43
    Top = 136
    Width = 177
    Height = 16
    AutoSize = False
    Caption = #27880': '#36135#21517#26368#22810#20026#19971#20010#27721#23383
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object add: TButton
    Left = 192
    Top = 64
    Width = 57
    Height = 25
    Caption = #22686#21152
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = addClick
  end
  object cancel: TButton
    Left = 104
    Top = 304
    Width = 57
    Height = 25
    Caption = #21462#28040
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = cancelClick
  end
  object save: TButton
    Left = 192
    Top = 304
    Width = 57
    Height = 25
    Caption = #20445#23384#20462#25913
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = saveClick
  end
  object Button4: TButton
    Left = 192
    Top = 96
    Width = 57
    Height = 25
    Caption = #21462#28040
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button4Click
  end
  object brow: TDBGrid
    Left = 264
    Top = 16
    Width = 257
    Height = 305
    DataSource = dm_data.dc_name_gl
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'code'
        Width = 89
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Width = 116
        Visible = True
      end>
  end
  object no: TEdit
    Left = 56
    Top = 72
    Width = 121
    Height = 21
    MaxLength = 13
    TabOrder = 5
    OnKeyPress = noKeyPress
  end
  object name: TEdit
    Left = 56
    Top = 96
    Width = 121
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MaxLength = 14
    ParentFont = False
    TabOrder = 6
    OnKeyPress = nameKeyPress
  end
  object DBEdit1: TDBEdit
    Left = 56
    Top = 240
    Width = 121
    Height = 21
    DataField = 'code'
    DataSource = dm_data.dc_name_gl
    Enabled = False
    TabOrder = 7
  end
  object DBEdit2: TDBEdit
    Left = 56
    Top = 264
    Width = 121
    Height = 21
    DataField = 'name'
    DataSource = dm_data.dc_name_gl
    Enabled = False
    TabOrder = 8
  end
  object xg: TButton
    Left = 16
    Top = 304
    Width = 57
    Height = 25
    Caption = #20462#25913#36135#21517
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = xgClick
  end
  object Button1: TButton
    Left = 192
    Top = 240
    Width = 57
    Height = 25
    Caption = #21024#38500
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = Button1Click
  end
  object close: TButton
    Left = 192
    Top = 24
    Width = 57
    Height = 25
    Caption = #20851#38381
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    OnClick = closeClick
  end
end