unit1.~dfm

毕业设计

object Form1: TForm1
  Left = 225
  Top = 112
  Width = 475
  Height = 445
  Caption = '住院部财务汇总系统'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clFuchsia
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000099999999000000000000000000000999999999999990000000000000
    000999999FFFFFF99999900000000000009999999FFFFFF99999990000000000
    099999999FFFFFF99999999000000000999999999FFFFFF99999999900000009
    999999999FFFFFF99999999990000099999999999FFFFFF99999999999000099
    999999999FFFFFF99999999999000999999999999FFFFFF99999999999900999
    999999999FFFFFF99999999999900999999999999FFFFFF99999999999909999
    999999999FFFFFF999999999999999FFFFFFFFFFFFFFFFFFFFFFFFFFFF9999FF
    FFFFFFFFFFFFFFFFFFFFFFFFFF9999FFFFFFFFFFFFFFFFFFFFFFFFFFFF9999FF
    FFFFFFFFFFFFFFFFFFFFFFFFFF9999FFFFFFFFFFFFFFFFFFFFFFFFFFFF9999FF
    FFFFFFFFFFFFFFFFFFFFFFFFFF999999999999999FFFFFF99999999999990999
    999999999FFFFFF99999999999900999999999999FFFFFF99999999999900999
    999999999FFFFFF99999999999900099999999999FFFFFF99999999999000099
    999999999FFFFFF99999999999000009999999999FFFFFF99999999990000000
    999999999FFFFFF99999999900000000099999999FFFFFF99999999000000000
    009999999FFFFFF99999990000000000000999999FFFFFF99999900000000000
    000009999999999999900000000000000000000099999999000000000000FFF0
    0FFFFF8001FFFE00007FFC00003FF800001FF000000FE0000007C0000003C000
    0003800000018000000180000001000000000000000000000000000000000000
    0000000000000000000000000000800000018000000180000001C0000003C000
    0003E0000007F000000FF800001FFC00003FFE00007FFF8001FFFFF00FFF}
  Menu = MainMenu1
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 0
    Top = 25
    Width = 467
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 467
    Height = 25
    Caption = 'ToolBar1'
    Images = ImageList1
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Hint = '住院录入|录入数据'
      Caption = '录入(&N)'
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 2
      Hint = '开支录入'
      Caption = 'ToolButton2'
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 46
      Top = 2
      Hint = '出院结算'
      Caption = 'ToolButton3'
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 69
      Top = 2
      Width = 23
      Caption = 'ToolButton4'
      ImageIndex = 3
      Style = tbsDivider
    end
    object ToolButton5: TToolButton
      Left = 92
      Top = 2
      Hint = '按病人姓名查看'
      Caption = 'ToolButton5'
      ImageIndex = 4
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 115
      Top = 2
      Hint = '按日期查看'
      Caption = 'ToolButton6'
      ImageIndex = 5
      OnClick = ToolButton6Click
    end
    object ToolButton7: TToolButton
      Left = 138
      Top = 2
      Hint = '按病室查看'
      Caption = 'ToolButton7'
      ImageIndex = 6
      OnClick = ToolButton7Click
    end
    object ToolButton8: TToolButton
      Left = 161
      Top = 2
      Hint = '按收据号查看'
      Caption = 'ToolButton8'
      ImageIndex = 7
      OnClick = ToolButton8Click
    end
    object ToolButton9: TToolButton
      Left = 184
      Top = 2
      Hint = '按住院号查看'
      Caption = 'ToolButton9'
      ImageIndex = 8
      OnClick = ToolButton9Click
    end
    object ToolButton10: TToolButton
      Left = 207
      Top = 2
      Hint = '按经办人查看'
      Caption = 'ToolButton10'
      ImageIndex = 9
      OnClick = ToolButton10Click
    end
    object ToolButton13: TToolButton
      Left = 230
      Top = 2
      Width = 23
      Caption = 'ToolButton13'
      ImageIndex = 12
      Style = tbsDivider
    end
    object ToolButton14: TToolButton
      Left = 253
      Top = 2
      Hint = '打印收据单'
      Caption = 'ToolButton14'
      ImageIndex = 17
      OnClick = ToolButton14Click
    end
    object ToolButton11: TToolButton
      Left = 276
      Top = 2
      Width = 23
      Caption = 'ToolButton11'
      ImageIndex = 15
      Style = tbsDivider
    end
    object ToolButton16: TToolButton
      Left = 299
      Top = 2
      Hint = '系统帮助'
      Caption = 'ToolButton16'
      ImageIndex = 16
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton16Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 364
    Width = 465
    Height = 33
    Align = alNone
    BiDiMode = bdRightToLeft
    Panels = <
      item
        Text = '现在时间是：'
        Width = 150
      end
      item
        Text = '今天是：'