umain.dfm

在公司做的一个小的系统源代码

object frmmain: Tfrmmain
  Left = 195
  Top = 163
  AutoScroll = False
  Caption = #20840#30465#25307#26631#37319#36141#20215#26684#24211
  ClientHeight = 592
  ClientWidth = 951
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 184
    Top = 160
    Width = 588
    Height = 51
    Caption = '                                                 '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -48
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 40
    Top = 96
    Width = 528
    Height = 51
    Caption = #20840#30465#25307#26631#37319#36141#33647#21697#20215#26684#24211
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -48
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 951
    Height = 33
    ButtonHeight = 25
    ButtonWidth = 168
    Caption = 'ToolBar1'
    Color = clActiveBorder
    ParentColor = False
    TabOrder = 0
    object Sptnluru: TSpeedButton
      Left = 0
      Top = 2
      Width = 89
      Height = 25
      Hint = #33258#21046#21058#20215#26684#24405#20837
      Caption = #24405#20837'(&L)'
      Flat = True
      Glyph.Data = {
        EE000000424DEE000000000000007600000028000000100000000F0000000100
        0400000000007800000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        88888880808080888888888888888008888888888888800088888888888880B7
        08888000000080B80888880FF008880B7088880FFFF0880B8088800FFF008880
        B708000FFFF08880B00800FFF0FF08880110000FF07088880008000FFF088888
        888800000000888888888000000888888888}
      ParentShowHint = False
      ShowHint = True
      OnClick = N1Click
    end
    object sptnquery: TSpeedButton
      Left = 89
      Top = 2
      Width = 80
      Height = 25
      Hint = #32508#21512#26597#35810
      Caption = #26597#35810'(&Q)'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000CE0E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
        2222222222222222422222222222222244222224242424444442222222222222
        4422222222222222422222222222222222220002220002222222000222000222
        2222080020800222222207002070022222220000000002222222208000802222
        2222220020022222222222002002222222222222222222222222}
      ParentShowHint = False
      ShowHint = True
      OnClick = A2Click
    end
    object Sptnliulan: TSpeedButton
      Left = 169
      Top = 2
      Width = 88
      Height = 25
      Hint = #27983#35272
      Caption = #27983#35272'(&B)'
      Flat = True
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
        000000000000FF00FF00FF00FF00800000008000000080000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000000000008080
        8000808080000000000080000000FFFF0000FF00000080000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00000000000000000080808000FF00FF0000FF
        FF00FF00FF0080000000FFFF0000FF00000080000000FF00FF00FF00FF00FF00
        FF00FF00FF00000000000000000080808000FF00FF0000FFFF0000FFFF00FF00
        FF0080000000FFFF0000FF00000080000000FF00FF00FF00FF00FF00FF000000
        00000000000080808000FF00FF0000FFFF0000FFFF0000808000008080008000
        0000FFFF0000FF00000080000000FF00FF0000000000FF00FF00808080008080
        8000FF00FF0000FFFF0000FFFF0000808000808080000000000000000000FFFF
        FF00FF00000080000000FF00FF0080808000FF00FF000000000080808000FF00
        FF0000FFFF000080800000808000808080008080000080800000808000000000
        000080808000FFFFFF0080808000000000008080800000000000808080000000
        000000000000000000008080800080800000FFFF0000FF00FF00FFFF00008080
        000000000000FF00FF0000FFFF0080808000FF00FF0000000000FF00FF008080
        8000FFFFFF008080800080808000FFFFFF00FFFFFF00FFFF0000FF00FF00FFFF
        00000000000000FFFF00FF00FF00FF00FF008080800000000000FF00FF00FF00
        FF0080808000FFFFFF0080808000FFFFFF00FFFF0000FF00FF00FFFF0000FF00
        FF0080808000FF00FF0000FFFF00FFFFFF00FF00FF0000000000FF00FF00FF00
        FF00FF00FF0080808000FFFFFF0080808000FFFFFF00FFFFFF00FF00FF008080
        800000000000FF00FF00FF00FF008080800080808000FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF0080808000FFFFFF008080800080808000808080008080
        8000808080000000000080808000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF0080808000FFFFFF00FF00FF00FFFFFF00FF00
        FF00FFFFFF00FF00FF0000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF0080808000FFFFFF00FF00FF00FFFF
        FF00FF00FF00FFFFFF00FF00FF0000000000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0080808000808080008080
        8000FFFFFF00FF00FF00FFFFFF00FF00FF0000000000FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF008080800080808000808080008080800080808000FF00FF00}
      ParentShowHint = False
      ShowHint = True
      OnClick = B1Click
    end
    object SpeedButton1: TSpeedButton
      Left = 257
      Top = 2
      Width = 88
      Height = 25
      Hint = #36864#20986#31995#32479
      Caption = #20851#38381'(&E)'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888808077708888888880807770880800008080777088888880008077
        7088888880088078708800808000807770888888000000777088888888008007
        7088888880008077708888888800800770888888888880000088888888888888
        8888888888884444888888888888488488888888888844448888}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 567
    Width = 951
    Height = 25
    Panels = <
      item
        Width = 200
      end
      item
        Width = 500
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = -56
    Top = 472
    Width = 1001
    Height = 57
    BevelOuter = bvNone
    Color = clSkyBlue
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    object Label3: TLabel
      Left = 712
      Top = 0
      Width = 216
      Height = 25
      Caption = #23665#19996#30465#29289#20215#23616#20215#26684#22788
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -24
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 664
      Top = 32
      Width = 312
      Height = 25
      Caption = #27982#21335#20122#29233#29305#36719#20214#26377#38480#20844#21496#21046#20316
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -24
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
    end
  end
  object MainMenu1: TMainMenu
    Left = 368
    Top = 56
    object A1: TMenuItem
      Caption = #24405#20837'(&L)'
      object N1: TMenuItem
        Caption = #25307#26631#37319#36141#20215#26684#24405#20837'(&L)'
        OnClick = N1Click
      end
    end
    object Q1: TMenuItem
      Caption = #26597#35810'(&Q)'
      object A2: TMenuItem
        Caption = #32508#21512#26597#35810'( &Q)'
        OnClick = A2Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object B1: TMenuItem
        Caption = #27983#35272'(&B)'
        OnClick = B1Click
      end
    end
    object S1: TMenuItem