umain.dfm

用于计算机专业程序设计 大家可以共同的分享. 如果喜欢请收藏

object fmain: Tfmain
  Left = 202
  Top = 32
  BorderStyle = bsSingle
  Caption = #20154#20107#31649#29702#31995#32479
  ClientHeight = 635
  ClientWidth = 573
  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 pcmain: TPageControl
    Left = 0
    Top = 29
    Width = 573
    Height = 606
    ActivePage = TabSheet2
    Align = alClient
    Style = tsFlatButtons
    TabIndex = 0
    TabOrder = 0
    object TabSheet2: TTabSheet
      Caption = #20154#21592#20449#24687
      ImageIndex = 1
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 565
        Height = 36
        Align = alTop
        TabOrder = 0
        object cbdep: TComboBox
          Left = 58
          Top = 6
          Width = 109
          Height = 21
          ItemHeight = 13
          TabOrder = 0
        end
        object chdep: TCheckBox
          Left = 8
          Top = 8
          Width = 51
          Height = 17
          Caption = #37096#38376
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = chdepClick
        end
        object chid: TCheckBox
          Left = 176
          Top = 8
          Width = 79
          Height = 17
          Caption = #32534#21495
          Checked = True
          State = cbChecked
          TabOrder = 2
          OnClick = chidClick
        end
        object eid: TEdit
          Left = 225
          Top = 6
          Width = 85
          Height = 21
          TabOrder = 3
        end
        object chname: TCheckBox
          Left = 318
          Top = 8
          Width = 79
          Height = 17
          Caption = #22995#21517
          Checked = True
          State = cbChecked
          TabOrder = 4
          OnClick = chnameClick
        end
        object ename: TEdit
          Left = 367
          Top = 6
          Width = 85
          Height = 21
          TabOrder = 5
        end
        object bsearch: TButton
          Left = 472
          Top = 4
          Width = 75
          Height = 25
          Caption = #26816#32034
          Default = True
          TabOrder = 6
          OnClick = bsearchClick
        end
      end
      object dbGperson: TDBGrid
        Left = 0
        Top = 36
        Width = 565
        Height = 450
        Align = alClient
        DataSource = dm.dsperson
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDblClick = dbGpersonDblClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ID'
            Title.Alignment = taCenter
            Title.Caption = #20154#21592#32534#21495
            Width = 100
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Pname'
            Title.Alignment = taCenter
            Title.Caption = #22995#21517
            Width = 100
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Psex'
            Title.Alignment = taCenter
            Title.Caption = #24615#21035
            Width = 40
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Pbirth'
            Title.Alignment = taCenter
            Title.Caption = #20986#29983#24180#26376
            Width = 80
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Pindate'
            Title.Alignment = taCenter
            Title.Caption = #32856#29992#26085#26399
            Width = 80
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Poutdate'
            Title.Alignment = taCenter
            Title.Caption = #21512#21516#26399#38480
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pdep'
            Title.Alignment = taCenter
            Title.Caption = #37096#38376
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PTitle'
            Title.Alignment = taCenter
            Title.Caption = #32844#21153
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pphone'
            Title.Alignment = taCenter
            Title.Caption = #32852#31995#26041#24335
            Width = 150
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Ppic'
            Title.Alignment = taCenter
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ppwd'
            Title.Alignment = taCenter
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'Prole'
            Title.Alignment = taCenter
            Title.Caption = #26435#38480
            Width = 200
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pmemo'
            Title.Alignment = taCenter
            Visible = False
          end>
      end
      object DBMemo2: TDBMemo
        Left = 0
        Top = 486
        Width = 565
        Height = 89
        Align = alBottom
        DataField = 'Pmemo'
        DataSource = dm.dsperson
        ReadOnly = True
        TabOrder = 2
      end
    end
    object TabSheet3: TTabSheet
      Caption = #24037#20316#31616#21382
      ImageIndex = 2
      object dbgchang: TDBGrid
        Left = 0
        Top = 0
        Width = 565
        Height = 486
        Align = alClient
        DataSource = dm.Dschang
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDblClick = dbgchangDblClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Expr2'
            Title.Alignment = taCenter
            Title.Caption = #20154#21592#22995#21517
            Width = 100
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'PLX'
            Title.Alignment = taCenter
            Title.Caption = #31867#21035
            Width = 100
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Pdate'
            Title.Alignment = taCenter
            Title.Caption = #26085#26399
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pdep'
            Title.Alignment = taCenter
            Title.Caption = #21407#22987#37096#38376
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pdepnow'
            Title.Alignment = taCenter
            Title.Caption = #24403#21069#37096#38376
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Ptitle'
            Title.Alignment = taCenter
            Title.Caption = #21407#22987#32844#21153
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Ptitlenow'
            Title.Alignment = taCenter
            Title.Caption = #24403#21069#32844#21153