frmmain.dfm

一个基于局域网的公司公文管理系统

object Frmmain: TFrmmain
  Left = 138
  Top = 104
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #20844#25991#31649#29702
  ClientHeight = 532
  ClientWidth = 779
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  DesignSize = (
    779
    532)
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 779
    Height = 29
    ButtonHeight = 26
    ButtonWidth = 29
    Images = ImageList1
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Hint = #26597#30475#20840#25991
      Caption = 'ToolButton1'
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = BitBtn1Click
    end
    object ToolButton3: TToolButton
      Left = 29
      Top = 2
      Hint = #25311#31295
      Caption = 'ToolButton3'
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = BitBtn3Click
    end
    object ToolButton4: TToolButton
      Left = 58
      Top = 2
      Hint = #21024#38500
      Caption = 'ToolButton4'
      ImageIndex = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = BitBtn4Click
    end
    object ToolButton2: TToolButton
      Left = 87
      Top = 2
      Hint = #21457#36865
      Caption = 'ToolButton2'
      ImageIndex = 13
      ParentShowHint = False
      ShowHint = True
      OnClick = BitBtn11Click
    end
    object ToolButton5: TToolButton
      Left = 116
      Top = 2
      Hint = #31995#32479#26368#23567#21270
      Caption = #36864#20986
      ImageIndex = 10
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton5Click
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 29
    Width = 779
    Height = 212
    Align = alTop
    TabOrder = 1
    object Panel3: TPanel
      Left = 5
      Top = 14
      Width = 129
      Height = 187
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Caption = 'Panel3'
      TabOrder = 5
    end
    object TreeView1: TTreeView
      Left = 12
      Top = 40
      Width = 121
      Height = 155
      Color = clSkyBlue
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      Indent = 19
      ParentFont = False
      TabOrder = 0
      OnChange = TreeView1Change
      Items.Data = {
        020000001F0000000000000000000000FFFFFFFFFFFFFFFF0000000004000000
        06CAD5CEC4BCFE210000000000000000000000FFFFFFFFFFFFFFFF0000000000
        00000008D6D8D2AACDA8D6AA210000000000000001000000FFFFFFFFFFFFFFFF
        000000000000000008B9ABCBBECEC4BCFE210000000000000002000000FFFFFF
        FFFFFFFFFF000000000000000008BBE1D2E9BEF6D2E921000000000000000300
        0000FFFFFFFFFFFFFFFF000000000000000008C6E4CBFCCEC4BCFE1F00000000
        00000002000000FFFFFFFFFFFFFFFF000000000400000006B7A2CEC4BCFE2100
        00000000000000000000FFFFFFFFFFFFFFFF000000000000000008D6D8D2AACD
        A8D6AA210000000000000001000000FFFFFFFFFFFFFFFF000000000000000008
        B9ABCBBECEC4BCFE210000000000000002000000FFFFFFFFFFFFFFFF00000000
        0000000008BBE1D2E9BEF6D2E9210000000000000003000000FFFFFFFFFFFFFF
        FF000000000000000008C6E4CBFCCEC4BCFE}
    end
    object DBGrid1: TDBGrid
      Left = 144
      Top = 16
      Width = 329
      Height = 185
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = cl3DDkShadow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      OnDrawColumnCell = DBGrid1DrawColumnCell
      Columns = <
        item
          Expanded = False
          FieldName = 'title'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowFrame
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #26631#39064
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 117
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'name'
          Title.Alignment = taCenter
          Title.Caption = #21457#31295#20154
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'time'
          Title.Alignment = taCenter
          Title.Caption = #21457#31295#26102#38388
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 111
          Visible = True
        end>
    end
    object Panel1: TPanel
      Left = 649
      Top = 16
      Width = 121
      Height = 185
      BevelInner = bvLowered
      BevelOuter = bvLowered
      TabOrder = 2
      object BitBtn1: TBitBtn
        Left = 10
        Top = 8
        Width = 100
        Height = 33
        Caption = #26597#30475#20840#25991
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 10
        Top = 43
        Width = 100
        Height = 33
        Caption = #38468#20214
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = AddAccessoryPopupMenu1
        TabOrder = 1
        OnClick = BitBtn2Click
      end
      object BitBtn3: TBitBtn
        Left = 10
        Top = 78
        Width = 100
        Height = 33
        Caption = #25311#31295
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = BitBtn3Click
      end
      object BitBtn4: TBitBtn
        Left = 10
        Top = 113
        Width = 100
        Height = 33
        Caption = #21024#38500
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = BitBtn4Click
      end
      object BitBtn11: TBitBtn
        Left = 10
        Top = 148
        Width = 100
        Height = 33
        Caption = #21457#36865'...'
        Font.Charset = DEFAULT_CHARSET