promain.~dfm

个人信息管理系统

object MainFrm: TMainFrm
  Left = 139
  Top = 125
  Width = 745
  Height = 568
  Caption = #20449#24687#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 0
    Height = 522
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 522
    Width = 737
    Height = 19
    Panels = <
      item
        Width = 123
      end
      item
        Text = '             '#21271#20140#39551#30721#31070#36890#20449#24687#25216#26415#26377#38480#20844#21496
        Width = 50
      end>
  end
  object Panel1: TPanel
    Left = 156
    Top = 0
    Width = 581
    Height = 522
    Align = alClient
    TabOrder = 1
    object Splitter2: TSplitter
      Left = 1
      Top = 116
      Width = 579
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 579
      Height = 115
      Align = alTop
      Color = clWhite
      DataSource = dmfrm.ds_MSg
      DragCursor = crMultiDrag
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 4194304
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      ParentFont = False
      PopupMenu = PopupMenu2
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'TITLE'
          Width = 560
          Visible = True
        end>
    end
    object DM: TDBMemo
      Left = 1
      Top = 119
      Width = 579
      Height = 402
      Align = alClient
      Color = clWhite
      Ctl3D = False
      DataField = 'MSG'
      DataSource = dmfrm.ds_MSg
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 4194304
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
    end
  end
  object GroupBox1: TGroupBox
    Left = 3
    Top = 0
    Width = 153
    Height = 522
    Align = alLeft
    TabOrder = 2
    object GroupBox2: TGroupBox
      Left = 2
      Top = 483
      Width = 149
      Height = 37
      Align = alBottom
      Caption = #25628#32034
      TabOrder = 0
      object Memo1: TMemo
        Left = 2
        Top = 15
        Width = 115
        Height = 20
        Align = alLeft
        Font.Charset = DEFAULT_CHARSET
        Font.Color = 7237230
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          #36755#20837#35201#26816#32034#30340#20851#38190#23383)
        ParentFont = False
        TabOrder = 0
        OnEnter = Memo1Enter
        OnExit = Memo1Exit
      end
      object Button1: TButton
        Left = 119
        Top = 13
        Width = 26
        Height = 21
        Caption = #25628
        TabOrder = 1
        OnClick = Button1Click
      end
    end
    object TV: TTreeView
      Left = 2
      Top = 15
      Width = 149
      Height = 468
      Align = alClient
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 4194304
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Indent = 19
      ParentFont = False
      PopupMenu = PopupMenu1
      ReadOnly = True
      TabOrder = 1
      OnClick = TVClick
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 80
    Top = 128
    object N1: TMenuItem
      Caption = #22686#21152#32452
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #20462#25913#32452
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #21024#38500#32452
      OnClick = N3Click
    end
    object N7: TMenuItem
      Caption = #21047#26032
      OnClick = N7Click
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 352
    Top = 80
    object N4: TMenuItem
      Caption = #22686#21152#26465#30446
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = #20462#25913#26465#30446
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #21024#38500#26465#30446
      OnClick = N6Click
    end
  end
end