usergl.dfm

欢迎大家相互学习。delphi系统 四个文件夹分别对应书中的四个实例

object usergl_Form: Tusergl_Form
  Left = 8
  Top = 8
  Width = 343
  Height = 276
  Caption = #29992#25143#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = True
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 195
    Height = 242
    Align = alClient
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'yhm'
        Title.Caption = #31995#32479#29992#25143#21517
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'qx'
        Title.Caption = #31995#32479#26435#38480
        Width = 60
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 195
    Top = 0
    Width = 140
    Height = 242
    Align = alRight
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 88
      Width = 60
      Height = 13
      Caption = #31995#32479#26435#38480'    '
    end
    object yhm_LEdit: TLabeledEdit
      Left = 16
      Top = 24
      Width = 105
      Height = 21
      EditLabel.Width = 75
      EditLabel.Height = 13
      EditLabel.Caption = #31995#32479#29992#25143#21517'     '
      TabOrder = 0
    end
    object mm_LEdit: TLabeledEdit
      Left = 16
      Top = 64
      Width = 105
      Height = 21
      EditLabel.Width = 66
      EditLabel.Height = 13
      EditLabel.Caption = #30331#24405#23494#30721'      '
      PasswordChar = '*'
      TabOrder = 1
    end
    object cmdmodi: TButton
      Left = 32
      Top = 136
      Width = 65
      Height = 25
      Caption = #20462' '#25913
      TabOrder = 2
      OnClick = cmdmodiClick
    end
    object cmdadd: TButton
      Left = 32
      Top = 168
      Width = 65
      Height = 25
      Caption = #28155' '#21152
      TabOrder = 3
      OnClick = cmdaddClick
    end
    object cmddel: TButton
      Left = 32
      Top = 200
      Width = 65
      Height = 25
      Caption = #21024' '#38500
      TabOrder = 4
      OnClick = cmddelClick
    end
    object qx_CBox: TComboBox
      Left = 16
      Top = 104
      Width = 105
      Height = 22
      Style = csOwnerDrawFixed
      ItemHeight = 16
      TabOrder = 5
      Items.Strings = (
        #31995#32479#29992#25143
        #38144#21806#21592
        #25910#38134#21592
        #21462#33647#21592
        #37319#36141#21592)
    end
  end
  object Query1: TQuery
    Left = 160
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 160
    Top = 80
  end
end