main.dfm

退休资料查询!我公司离退老干部数据管理!基于ACCESS数据库,提供了一个数据库压缩的源码和导出为EXCEL功能!

        BorderColor = 6842472
        ArrowColor = clBlack
        ButtonColor = 14609391
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -24
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 24
        ParentFont = False
        TabOrder = 0
        Text = 'ComboBox1'
        OnChange = ComboBox1Change
      end
      object ToolButton1: TToolButton
        Left = 169
        Top = 0
        Hint = #25171#24320#26032#30340#25968#25454#25991#20214
        Caption = #25171#24320#25968#25454#25991#20214
        ImageIndex = 9
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 248
        Top = 0
        Hint = #20999#25442#27169#24335
        Caption = #26597#35810#27169#24335
        ImageIndex = 6
        OnClick = ToolButton2Click
      end
      object ToolButton6: TToolButton
        Left = 327
        Top = 0
        Hint = #23548#20986#25968#25454#21040'EXCL'#25991#20214
        Caption = #24314#31435#25991#20214
        ImageIndex = 2
        OnClick = ToolButton6Click
      end
      object ToolButton7: TToolButton
        Left = 406
        Top = 0
        Caption = #24314#31435#26032#34920
        ImageIndex = 5
        OnClick = ToolButton7Click
      end
      object ToolButton3: TToolButton
        Left = 485
        Top = 0
        Hint = #20851#20110#36719#20214
        Caption = #20851'   '#20110
        ImageIndex = 4
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 564
        Top = 0
        Width = 4
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 568
        Top = 0
        Hint = #36864#20986#36719#20214
        Caption = #36864'   '#20986
        ImageIndex = 3
        OnClick = ToolButton5Click
      end
    end
    object suiPageControl1: TsuiPageControl
      Left = 0
      Top = 86
      Width = 649
      Height = 403
      Align = alClient
      UIStyle = WinXP
      LeftMargin = 10
      BorderColor = 6842472
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TabOrder = 3
      ActivePage = suiTabSheet1
      Pages = (
        suiTabSheet1
        suiTabSheet2)
      object suiTabSheet2: TsuiTabSheet
        Left = 3
        Top = 22
        Width = 643
        Height = 378
        PageIndex = 1
        Caption = #24405#20837#31995#32479
        TabVisible = True
        Color = clWhite
        Enabled = False
        TabOrder = 2
        PageControl = suiPageControl1
        object inputBox: TsuiGroupBox
          Left = 0
          Top = 0
          Width = 643
          Height = 378
          UIStyle = WinXP
          BiDiMode = bdRightToLeft
          Align = alClient
          Caption = #36755#20837#20449#24687
          Font.Charset = GB2312_CHARSET
          Font.Color = 13583874
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = True
          ParentBiDiMode = False
          ParentFont = False
          TabOrder = 0
          BorderColor = 6842472
          object Label1: TLabel
            Left = 16
            Top = 24
            Width = 42
            Height = 12
            Caption = #24207#21495':  '
            Font.Charset = GB2312_CHARSET
            Font.Color = 13583874
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label2: TLabel
            Left = 16
            Top = 48
            Width = 42
            Height = 12
            Caption = #22995#21517':  '
            Font.Charset = GB2312_CHARSET
            Font.Color = 13583874
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label3: TLabel
            Left = 16
            Top = 72
            Width = 42
            Height = 12
            Caption = #24615#21035':  '
            Font.Charset = GB2312_CHARSET
            Font.Color = 13583874
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label4: TLabel
            Left = 16
            Top = 96
            Width = 42
            Height = 12
            Caption = #27665#26063':  '
            Font.Charset = GB2312_CHARSET
            Font.Color = 13583874
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label5: TLabel
            Left = 16
            Top = 120
            Width = 66
            Height = 12
            Caption = #36523#20221#35777#21495':  '
            Font.Charset = GB2312_CHARSET
            Font.Color = 13583874
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label6: TLabel
            Left = 192
            Top = 24
            Width = 42
            Height = 12
            Caption = #30005#35805':  '
            Font.Charset = GB2312_CHARSET
            Font.Color = 13583874
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label7: TLabel
            Left = 192
            Top = 48
            Width = 66
            Height = 12
            Caption = #23478#24237#20303#22336':  '
            Font.Charset = GB2312_CHARSET
            Font.Color = 13583874
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label8: TLabel
            Left = 192
            Top = 72
            Width = 66
            Height = 12
            Caption = #36864#20241#26102#38388':  '
            Font.Charset = GB2312_CHARSET
            Font.Color = 13583874
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label11: TLabel
            Left = 192
            Top = 96
            Width = 90
            Height = 12
            Caption = #26376#36864#20241#20859#32769#37329':  '
            Font.Charset = GB2312_CHARSET
            Font.Color = 13583874
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label12: TLabel
            Left = 192
            Top = 120
            Width = 66
            Height = 12
            Caption = #36523#20307#29366#20917':  '
            Font.Charset = GB2312_CHARSET
            Font.Color = 13583874