main.dfm

我的信息管理中心程序（源码）适合初级

object FRMMAIN: TFRMMAIN
  Left = 196
  Top = 112
  AutoScroll = False
  BorderIcons = []
  Caption = #25105#30340#20449#24687#31649#29702#20013#24515
  ClientHeight = 585
  ClientWidth = 752
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object bsSkinSplitter1: TbsSkinSplitter
    Left = 129
    Top = 33
    Width = 10
    Height = 531
    Cursor = crHSplit
    MinSize = 10
    DefaultSize = 10
    SkinDataName = 'vsplitter'
    SkinData = frmlogo.bsSkinData1
  end
  object bsSkinControlBar1: TbsSkinControlBar
    Left = 0
    Top = 0
    Width = 752
    Height = 33
    SkinDataName = 'controlbar'
    SkinData = frmlogo.bsSkinData1
    SkinBevel = False
    Align = alTop
    AutoDrag = False
    AutoSize = True
    RowSnap = False
    TabOrder = 0
    object bsSkinToolBar1: TbsSkinToolBar
      Left = 11
      Top = 2
      Width = 734
      Height = 25
      TabOrder = 0
      SkinData = frmlogo.bsSkinData1
      SkinDataName = 'toolpanel'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 25
      UseSkinFont = True
      RealHeight = -1
      AutoEnabledControls = True
      CheckedMode = False
      Checked = False
      DefaultAlignment = taLeftJustify
      DefaultCaptionHeight = 22
      BorderStyle = bvNone
      CaptionMode = False
      RollUpMode = False
      RollUpState = False
      NumGlyphs = 1
      Spacing = 2
      Caption = 'bsSkinToolBar1'
      Align = alClient
      Flat = False
      object bsSkinSpeedButton1: TbsSkinSpeedButton
        Left = 0
        Top = 0
        Width = 65
        Height = 25
        SkinData = frmlogo.bsSkinData1
        SkinDataName = 'toolbutton'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        ImageIndex = 0
        RepeatMode = False
        RepeatInterval = 100
        Transparent = False
        Flat = False
        AllowAllUp = False
        Down = False
        GroupIndex = 0
        Caption = #20998#31867#32534#36753
        NumGlyphs = 1
        Align = alLeft
        Spacing = 1
        OnClick = bsSkinSpeedButton1Click
      end
      object bsSkinSpeedButton2: TbsSkinSpeedButton
        Left = 65
        Top = 0
        Width = 72
        Height = 25
        SkinData = frmlogo.bsSkinData1
        SkinDataName = 'toolbutton'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        ImageIndex = 0
        RepeatMode = False
        RepeatInterval = 100
        Transparent = False
        Flat = False
        AllowAllUp = False
        Down = False
        GroupIndex = 0
        Caption = #20449#24687#32534#36753
        NumGlyphs = 1
        Align = alLeft
        Spacing = 1
        OnClick = bsSkinSpeedButton2Click
      end
      object bsSkinSpeedButton3: TbsSkinSpeedButton
        Left = 201
        Top = 0
        Width = 64
        Height = 25
        SkinData = frmlogo.bsSkinData1
        SkinDataName = 'toolbutton'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        ImageIndex = 0
        RepeatMode = False
        RepeatInterval = 100
        Transparent = False
        Flat = False
        AllowAllUp = False
        Down = False
        GroupIndex = 0
        Caption = #36864#20986
        NumGlyphs = 1
        Align = alLeft
        Spacing = 1
        OnClick = bsSkinSpeedButton3Click
      end
      object bsSkinSpeedButton4: TbsSkinSpeedButton
        Left = 137
        Top = 0
        Width = 64
        Height = 25
        SkinData = frmlogo.bsSkinData1
        SkinDataName = 'toolbutton'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        ImageIndex = 0
        RepeatMode = False
        RepeatInterval = 100
        Transparent = False
        Flat = False
        AllowAllUp = False
        Down = False
        GroupIndex = 0
        Caption = #21024#38500#20449#24687
        NumGlyphs = 1
        Align = alLeft
        Spacing = 1
        OnClick = bsSkinSpeedButton4Click
      end
    end
  end
  object bsSkinPanel1: TbsSkinPanel
    Left = 0
    Top = 33
    Width = 129
    Height = 531
    TabOrder = 1
    SkinData = frmlogo.bsSkinData1
    SkinDataName = 'panel'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    RealHeight = -1
    AutoEnabledControls = True
    CheckedMode = False
    Checked = False
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvFrame
    CaptionMode = False
    RollUpMode = False
    RollUpState = False
    NumGlyphs = 1
    Spacing = 2
    Caption = 'bsSkinPanel1'
    Align = alLeft
    object bsSkinTreeView1: TbsSkinTreeView
      Left = 1
      Top = 1
      Width = 127
      Height = 529
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = -14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      UseSkinFont = True
      SkinData = frmlogo.bsSkinData1
      SkinDataName = 'treeview'
      DefaultColor = clWindow
      Align = alClient
      AutoExpand = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = []
      Images = ImageList1
      Indent = 19
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      OnChange = bsSkinTreeView1Change
      OnDblClick = bsSkinTreeView1DblClick
    end
  end
  object bsSkinPanel2: TbsSkinPanel
    Left = 139
    Top = 33
    Width = 613
    Height = 531
    TabOrder = 2
    SkinData = frmlogo.bsSkinData1
    SkinDataName = 'panel'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    RealHeight = -1
    AutoEnabledControls = True
    CheckedMode = False
    Checked = False
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvFrame
    CaptionMode = False
    RollUpMode = False
    RollUpState = False
    NumGlyphs = 1
    Spacing = 2
    Caption = 'bsSkinPanel2'
    Align = alClient
    object bsSkinSplitter2: TbsSkinSplitter
      Left = 1
      Top = 90
      Width = 611
      Height = 10
      Cursor = crVSplit
      Align = alTop
      AutoSnap = False
      MinSize = 10
      DefaultSize = 10
      SkinDataName = 'vsplitter'
      SkinData = frmlogo.bsSkinData1
    end
    object bsSkinPanel3: TbsSkinPanel
      Left = 1
      Top = 1
      Width = 611
      Height = 89
      TabOrder = 0
      SkinDataName = 'panel'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      RealHeight = -1
      AutoEnabledControls = True
      CheckedMode = False
      Checked = False
      DefaultAlignment = taLeftJustify
      DefaultCaptionHeight = 22
      BorderStyle = bvFrame
      CaptionMode = False
      RollUpMode = False
      RollUpState = False
      NumGlyphs = 1
      Spacing = 2
      Caption = 'bsSkinPanel3'
      Align = alTop
      object bsSkinDBGrid1: TbsSkinDBGrid
        Left = 1
        Top = 1
        Width = 590
        Height = 87
        TabOrder = 0
        SkinData = frmlogo.bsSkinData1
        SkinDataName = 'grid'
        UseSkinFont = True
        UseSkinCellHeight = True
        VScrollBar = bsSkinScrollBar2
        GridLineColor = clWindowText
        DefaultCellHeight = 20
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        DefaultRowHeight = 17
        MouseWheelSupport = False
        SkinMessage = frmlogo.bsSkinMessage1
        SaveMultiSelection = False
        PickListBoxSkinDataName = 'listbox'
        PickListBoxCaptionMode = False
        Align = alClient
        DataSource = DSMYINFO
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ParentFont = False
        ReadOnly = True
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'SDATE'
            Title.Caption = #26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TXDATE'
            Title.Caption = #25552#37266#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TITLE'
            Title.Caption = #20027#39064
            Width = 306
            Visible = True
          end>
      end
      object bsSkinScrollBar2: TbsSkinScrollBar
        Left = 591
        Top = 1
        Width = 19
        Height = 87
        TabOrder = 1
        Visible = False
        SkinData = frmlogo.bsSkinData1
        SkinDataName = 'vscrollbar'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 19
        DefaultHeight = 0