jygl.dfm

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

object jygl_Form: Tjygl_Form
  Caption = #22270#20070#20511#38405#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Height = 284
  Position = poDefault
  Visible = True
  Width = 453
  Left = 8
  Top = 8
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Align = alTop
    TabOrder = 0
    Left = 0
    Top = 0
    Width = 445
    Height = 49
    object zh_LEdit: TLabeledEdit
      EditLabel.Caption = #35777#21495'     '
      EditLabel.Height = 13
      EditLabel.Width = 39
      TabOrder = 0
      Left = 16
      Top = 24
      Width = 121
      Height = 21
    end
    object cmdok: TButton
      Caption = #30830'  '#23450
      TabOrder = 1
      Left = 168
      Top = 16
      Width = 57
      Height = 25
      OnClick = cmdokClick
    end
    object cmdclose: TButton
      Caption = #21462'  '#28040
      TabOrder = 2
      Left = 240
      Top = 16
      Width = 59
      Height = 25
    end
  end
  object GroupBox2: TGroupBox
    Align = alTop
    Caption = #35835#32773#20010#20154#20449#24687
    TabOrder = 1
    Left = 0
    Top = 49
    Width = 445
    Height = 64
    object xm_LEdit: TLabeledEdit
      EditLabel.Caption = #22995#21517'      '
      EditLabel.Height = 13
      EditLabel.Width = 42
      ReadOnly = True
      TabOrder = 0
      Left = 8
      Top = 32
      Width = 65
      Height = 21
    end
    object bm_LEdit: TLabeledEdit
      EditLabel.Caption = #37096#38376'       '
      EditLabel.Height = 13
      EditLabel.Width = 45
      ReadOnly = True
      TabOrder = 1
      Left = 160
      Top = 32
      Width = 73
      Height = 21
    end
    object lxmc_LEdit: TLabeledEdit
      EditLabel.Caption = #31867#22411'      '
      EditLabel.Height = 13
      EditLabel.Width = 42
      ReadOnly = True
      TabOrder = 2
      Left = 80
      Top = 32
      Width = 73
      Height = 21
    end
    object jsl_LEdit: TLabeledEdit
      EditLabel.Caption = #21487#20511#25968#37327'      '
      EditLabel.Height = 13
      EditLabel.Width = 66
      ReadOnly = True
      TabOrder = 3
      Left = 240
      Top = 32
      Width = 57
      Height = 21
    end
    object jsq_LEdit: TLabeledEdit
      EditLabel.Caption = #20511#20070#26399'('#26376')   '
      EditLabel.Height = 13
      EditLabel.Width = 63
      ReadOnly = True
      TabOrder = 4
      Left = 368
      Top = 32
      Width = 65
      Height = 21
    end
    object yjsl_LEdit: TLabeledEdit
      EditLabel.Caption = #24050#20511#25968#37327'   '
      EditLabel.Height = 13
      EditLabel.Width = 57
      ReadOnly = True
      TabOrder = 5
      Left = 304
      Top = 32
      Width = 57
      Height = 21
    end
  end
  object DBGrid1: TDBGrid
    Align = alClient
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = PopupMenu1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Left = 0
    Top = 113
    Width = 445
    Height = 137
    Columns = <
      item
        Expanded = False
        FieldName = 'tm'
        Title.Caption = #26465#30721
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sm'
        Title.Caption = #20070#21517
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zh'
        Title.Caption = #35777#21495
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jsrq'
        Title.Caption = #20511#20070#26085#26399
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'hsrq'
        Title.Caption = #36824#20070#26085#26399
        Width = 60
        Visible = True
      end>
  end
  object Query1: TQuery
    Left = 376
    Top = 121
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 376
    Top = 193
  end
  object PopupMenu1: TPopupMenu
    Left = 376
    Top = 160
    object N1: TMenuItem
      Caption = #36824#20070
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #20511#20070
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #32493#20511
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #21024#38500
      OnClick = N4Click
    end
  end
end