main.~dfm

delphi＋sql编写的医院信息系统

object F_Main: TF_Main
  Left = 206
  Top = 119
  Width = 598
  Height = 419
  Hint = #21033#29992#24038#36793#21487#20197#24555#36895#23548#33322#20351#29992#21307#38498#20449#24687#31995#32479#30340#30456#24212#21151#33021
  Caption = #21307#38498#20449#24687#31995#32479
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 331
    Top = 183
    Width = 210
    Height = 29
    Caption = #21307#38498#20449#24687#31995#32479'  '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 227
    Top = 223
    Width = 335
    Height = 33
    Caption = 'Hospital Infomation Software'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 179
    Top = 271
    Width = 210
    Height = 29
    Caption = #21452#36194#31185#25216#22312#32447#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 374
    Top = 266
    Width = 212
    Height = 33
    Caption = 'www.2wintech.net'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = 'Times New Roman'
    Font.Style = [fsUnderline]
    ParentFont = False
  end
  object mxLBar: TmxOutlookBarPro
    Left = 0
    Top = 44
    Width = 177
    Height = 329
    Background.AlphaBlend = 255
    Background.Color = clWhite
    Background.Gradient.BeginColor = 15310715
    Background.Gradient.EndColor = 14055268
    Background.Style = btGradient
    BevelOuter = bvLowered
    Border.Bottom = 5
    Border.Left = 5
    Border.Right = 5
    Border.Separator = 5
    Border.Top = 5
    BorderStyle = bsNone
    CommonStyle = True
    CloseButton.Caption = 'Favorites'
    CloseButton.Font.Charset = DEFAULT_CHARSET
    CloseButton.Font.Color = clWindowText
    CloseButton.Font.Height = -11
    CloseButton.Font.Name = 'MS Sans Serif'
    CloseButton.Font.Style = []
    CloseButton.Height = 22
    CloseButton.ImageIndex = -1
    CloseButton.Margin = 4
    CloseButton.Transparent = False
    Headers = <
      item
        Background.AlphaBlend = 50
        Background.Color = clWhite
        Background.Gradient.BeginColor = clBtnFace
        Background.Style = btTransparent
        Glyph.Position = gpTopRight
        Images.Small = ImageList5
        Buttons = <
          item
            AutoSize = True
            AllowGrayed = False
            ButtonIndex = 0
            ButtonStyle = bsLarge
            ButtonView = bvNormal
            BiDiMode = bdLeftToRight
            Checked = False
            Caption = #38376#35786#25346#21495#31995#32479
            Color = clBtnFace
            CheckState = cbUnchecked
            Enabled = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            HighlightFont.Charset = DEFAULT_CHARSET
            HighlightFont.Color = clWindowText
            HighlightFont.Height = -11
            HighlightFont.Name = 'MS Sans Serif'
            HighlightFont.Style = []
            HelpContext = 0
            ImageIndex = 0
            Name = 'mxButton1'
            ParentBiDiMode = False
            Transparent = True
            Options = [boAutoWidthLabel, boUnderlineFont]
            Visible = True
            OnClick = mxLBarHeaders0Buttons0Click
          end
          item
            AutoSize = True
            AllowGrayed = False
            ButtonIndex = 1
            ButtonStyle = bsLarge
            ButtonView = bvNormal
            BiDiMode = bdLeftToRight
            Checked = False
            Caption = #38376#35786#21010#20215#25910#36153#21462#33647
            Color = clBtnFace
            CheckState = cbUnchecked
            Enabled = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            HighlightFont.Charset = DEFAULT_CHARSET
            HighlightFont.Color = clWindowText
            HighlightFont.Height = -11
            HighlightFont.Name = 'MS Sans Serif'
            HighlightFont.Style = []
            HelpContext = 0
            ImageIndex = 1
            Name = 'mxButton2'
            ParentBiDiMode = False
            Transparent = True
            Options = [boAutoWidthLabel, boUnderlineFont]
            Visible = True
            OnClick = mxLBarHeaders0Buttons1Click
          end
          item
            AutoSize = True
            AllowGrayed = False
            ButtonIndex = 2
            ButtonStyle = bsLarge
            ButtonView = bvNormal
            BiDiMode = bdLeftToRight
            Checked = False
            Caption = #38376#35786#25346#21495#31867#21035#32500#25252
            Color = clBtnFace
            CheckState = cbUnchecked
            Enabled = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            HighlightFont.Charset = DEFAULT_CHARSET
            HighlightFont.Color = clWindowText
            HighlightFont.Height = -11
            HighlightFont.Name = 'MS Sans Serif'
            HighlightFont.Style = []
            HelpContext = 0
            ImageIndex = 2
            Name = 'mxButton3'
            ParentBiDiMode = False
            Transparent = True
            Options = [boAutoWidthLabel, boUnderlineFont]
            Visible = True
            OnClick = mxLBarHeaders0Buttons2Click
          end>
        BiDiMode = bdLeftToRight
        Caption = #38376#35786#31649#29702
        FirstButtonTop = 10
        HeaderIndex = 0
        HeaderState = hsClosed
        Settings.ButtonUp.AlphaBlend = 255
        Settings.ButtonUp.Gradient.BeginColor = clBtnFace
        Settings.ButtonDown.AlphaBlend = 255
        Settings.ButtonDown.Gradient.BeginColor = clBtnFace
        Settings.ButtonFocused.AlphaBlend = 255
        Settings.ButtonFocused.Gradient.BeginColor = clBtnFace
        Settings.ButtonDisabled.AlphaBlend = 255
        Settings.ButtonDisabled.Gradient.BeginColor = clBtnFace
        Settings.ButtonFont.Charset = DEFAULT_CHARSET
        Settings.ButtonFont.Color = clWindowText
        Settings.ButtonFont.Height = -11
        Settings.ButtonFont.Name = 'MS Sans Serif'
        Settings.ButtonFont.Style = []
        Settings.ButtonHighlightFont.Charset = DEFAULT_CHARSET
        Settings.ButtonHighlightFont.Color = clWindowText
        Settings.ButtonHighlightFont.Height = -11
        Settings.ButtonHighlightFont.Name = 'MS Sans Serif'
        Settings.ButtonHighlightFont.Style = []
        Settings.ButtonStyle = bsLarge
        Settings.ButtonView = bvNormal
        Settings.ExplorerAddOn = 12
        Settings.Font.Charset = DEFAULT_CHARSET
        Settings.Font.Color = clWindowText
        Settings.Font.Height = -11
        Settings.Font.Name = 'MS Sans Serif'
        Settings.Font.Style = []
        Settings.HighlightFont.Charset = DEFAULT_CHARSET
        Settings.HighlightFont.Color = clWindowText
        Settings.HighlightFont.Height = -11
        Settings.HighlightFont.Name = 'MS Sans Serif'
        Settings.HighlightFont.Style = []
        Settings.Height = 22
        Settings.Layout = glGlyphRight
        Settings.LargeWidth = 60
        Settings.LargeHeight = 60
        Settings.PicLabDistance = 8
        Settings.StatusButton.ArrowColor = clBlack
        Settings.StatusButton.Background = clWhite
        Settings.StatusButton.BorderColor = clGray
        Settings.SmallHeight = 20
        Settings.XPColors.BorderColor = clNavy
        Settings.XPColors.Background = 14199984
        Settings.XPColors.PressedBackground = 13076383
        Settings.XPColors.UseShadow = True
        Settings.XPColors.ShadowColor = clBlack
        ImageIndex = 0
        Name = 'mxH_Clinical'
        Options = [hoButtonDown, hoDrawBorder, hoRoundedHeader, hoShowStatusButton]
        Opened = False
      end
      item
        Background.AlphaBlend = 50
        Background.Color = clWhite
        Background.Gradient.BeginColor = clBtnFace
        Background.Style = btTransparent
        Buttons = <
          item
            AutoSize = True
            AllowGrayed = False
            ButtonIndex = 0
            ButtonStyle = bsLarge
            ButtonView = bvNormal
            BiDiMode = bdLeftToRight
            Checked = False
            Caption = #33647#21697#20837#24211
            Color = clBtnFace
            CheckState = cbUnchecked
            Enabled = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            HighlightFont.Charset = DEFAULT_CHARSET
            HighlightFont.Color = clWindowText
            HighlightFont.Height = -11
            HighlightFont.Name = 'MS Sans Serif'
            HighlightFont.Style = []
            HelpContext = 0
            ImageIndex = 3
            Name = 'mxButton1'
            ParentBiDiMode = False
            Transparent = True
            Options = [boAutoWidthLabel, boUnderlineFont]
            Visible = True
            OnClick = mxLBarHeaders1Buttons0Click
          end
          item
            AutoSize = True
            AllowGrayed = False
            ButtonIndex = 1
            ButtonStyle = bsLarge
            ButtonView = bvNormal
            BiDiMode = bdLeftToRight
            Checked = False
            Caption = #33647#21697#20986#24211
            Color = clBtnFace
            CheckState = cbUnchecked
            Enabled = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            HighlightFont.Charset = DEFAULT_CHARSET
            HighlightFont.Color = clWindowText
            HighlightFont.Height = -11
            HighlightFont.Name = 'MS Sans Serif'
            HighlightFont.Style = []
            HelpContext = 0
            ImageIndex = 4
            Name = 'mxButton2'
            ParentBiDiMode = False
            Transparent = True
            Options = [boAutoWidthLabel, boUnderlineFont]
            Visible = True
            OnClick = mxLBarHeaders1Buttons1Click
          end
          item
            AutoSize = True
            AllowGrayed = False
            ButtonIndex = 2
            ButtonStyle = bsLarge