gzgl.dfm

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

object gzgl_Form: Tgzgl_Form
  Left = 8
  Top = 8
  Width = 463
  Height = 303
  Caption = #24037#36164#35843#25972#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
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 455
    Height = 65
    Align = alTop
    Caption = #36873#25321#21592#24037
    TabOrder = 0
    object Label1: TLabel
      Left = 104
      Top = 16
      Width = 54
      Height = 13
      Caption = #36873#25321#37096#38376'  '
    end
    object Label2: TLabel
      Left = 208
      Top = 16
      Width = 54
      Height = 13
      Caption = #36873#25321#21592#24037'  '
    end
    object Label4: TLabel
      Left = 8
      Top = 16
      Width = 54
      Height = 13
      Caption = #36873#25321#26376#20221'  '
    end
    object bmdm_CBox: TComboBox
      Left = 104
      Top = 32
      Width = 97
      Height = 22
      Style = csOwnerDrawFixed
      ItemHeight = 16
      TabOrder = 0
      OnChange = bmdm_CBoxChange
    end
    object ygbh_CBox: TComboBox
      Left = 208
      Top = 32
      Width = 121
      Height = 22
      Style = csOwnerDrawFixed
      ItemHeight = 16
      TabOrder = 1
    end
    object cmdok: TButton
      Left = 336
      Top = 24
      Width = 49
      Height = 25
      Caption = #30830' '#23450
      Enabled = False
      TabOrder = 2
      OnClick = cmdokClick
    end
    object cmdclose: TButton
      Left = 392
      Top = 24
      Width = 49
      Height = 25
      Caption = #21462' '#28040
      TabOrder = 3
      OnClick = cmdcloseClick
    end
    object rq_DTP: TDateTimePicker
      Left = 8
      Top = 32
      Width = 89
      Height = 21
      Date = 37934.021825138900000000
      Time = 37934.021825138900000000
      TabOrder = 4
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 250
    Width = 455
    Height = 19
    Panels = <>
    SimpleText = #23454#21457#24037#36164#65306
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 65
    Width = 217
    Height = 185
    Align = alLeft
    Caption = #21592#24037#20449#24687
    TabOrder = 2
    object Label3: TLabel
      Left = 112
      Top = 56
      Width = 60
      Height = 13
      Caption = #24037#20316#26085#26399'    '
    end
    object Label5: TLabel
      Left = 112
      Top = 96
      Width = 60
      Height = 13
      Caption = #21592#24037#32844#31216'    '
    end
    object Label6: TLabel
      Left = 8
      Top = 96
      Width = 60
      Height = 13
      Caption = #21592#24037#32844#21153'    '
    end
    object gzbh_LEdit: TLabeledEdit
      Left = 8
      Top = 32
      Width = 97
      Height = 21
      EditLabel.Width = 57
      EditLabel.Height = 13
      EditLabel.Caption = #24037#36164#32534#21495'   '
      ReadOnly = True
      TabOrder = 0
    end
    object xm_LEdit: TLabeledEdit
      Left = 8
      Top = 72
      Width = 97
      Height = 21
      EditLabel.Width = 33
      EditLabel.Height = 13
      EditLabel.Caption = #22995#21517'   '
      ReadOnly = True
      TabOrder = 1
    end
    object gzrq_DTP: TDateTimePicker
      Left = 112
      Top = 72
      Width = 97
      Height = 21
      Date = 37933.008185555600000000
      Time = 37933.008185555600000000
      Enabled = False
      TabOrder = 2
    end
    object zwdm_CBox: TComboBox
      Left = 8
      Top = 112
      Width = 97
      Height = 22
      Style = csOwnerDrawFixed
      Enabled = False
      ItemHeight = 16
      TabOrder = 3
    end
    object zcdm_CBox: TComboBox
      Left = 112
      Top = 112
      Width = 97
      Height = 22
      Style = csOwnerDrawFixed
      Enabled = False
      ItemHeight = 16
      TabOrder = 4
    end
    object ygbh_LEdit: TLabeledEdit
      Left = 112
      Top = 32
      Width = 97
      Height = 21
      EditLabel.Width = 60
      EditLabel.Height = 13
      EditLabel.Caption = #21592#24037#32534#21495'    '
      ReadOnly = True
      TabOrder = 5
    end
    object zwgz_LEdit: TLabeledEdit
      Left = 8
      Top = 152
      Width = 97
      Height = 21
      EditLabel.Width = 57
      EditLabel.Height = 13
      EditLabel.Caption = #32844#21153#24037#36164'   '
      ReadOnly = True
      TabOrder = 6
    end
    object zcgz_LEdit: TLabeledEdit
      Left = 112
      Top = 152
      Width = 97
      Height = 21
      EditLabel.Width = 60
      EditLabel.Height = 13
      EditLabel.Caption = #32844#31216#24037#36164'    '
      ReadOnly = True
      TabOrder = 7
    end
  end
  object ListView1: TListView
    Left = 217
    Top = 65
    Width = 238
    Height = 185
    Align = alClient
    Columns = <
      item
        Caption = #24037#36164#21517#31216
        Width = 100
      end
      item
        Caption = #24037#36164#37329#39069
        Width = 80
      end
      item
        Caption = 'gzdm'
        Width = 0
      end>
    GridLines = True
    ReadOnly = True
    RowSelect = True
    PopupMenu = PopupMenu1
    ShowWorkAreas = True
    TabOrder = 3
    ViewStyle = vsReport
  end
  object PopupMenu1: TPopupMenu
    Left = 392
    Top = 104
    object N1: TMenuItem
      Caption = #20462#25913#24037#36164
      OnClick = N1Click
    end
  end
end