baseinfo.dfm

某大型医院护士站

object frmBaseInfo: TfrmBaseInfo
  Left = 67
  Top = 97
  BorderStyle = bsDialog
  Caption = '基础信息'
  ClientHeight = 401
  ClientWidth = 656
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Splitter1: TSplitter
    Left = 161
    Top = 41
    Width = 3
    Height = 360
    Cursor = crHSplit
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 656
    Height = 41
    Align = alTop
    TabOrder = 0
    object fcLabel1: TfcLabel
      Left = 32
      Top = 7
      Width = 156
      Height = 29
      Caption = '基础信息查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -24
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      TextOptions.Alignment = taLeftJustify
      TextOptions.ExtrudeEffects.Depth = 3
      TextOptions.ExtrudeEffects.Enabled = True
      TextOptions.OutlineColor = clNavy
      TextOptions.Style = fclsOutline
      TextOptions.VAlignment = vaTop
    end
    object BitBtn1: TBitBtn
      Left = 474
      Top = 8
      Width = 84
      Height = 23
      Caption = '刷新'
      TabOrder = 0
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333000003333333333F777773FF333333008877700
        33333337733FFF773F33330887000777033333733F777FFF73F330880F9F9F07
        703337F37733377FF7F33080F00000F07033373733777337F73F087F0091100F
        77037F3737333737FF7F08090919110907037F737F3333737F7F0F0F0999910F
        07037F737F3333737F7F0F090F99190908037F737FF33373737F0F7F00FF900F
        780373F737FFF737F3733080F00000F0803337F73377733737F330F80F9F9F08
        8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
        3333333773FFFF77333333333000003333333333377777333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 563
      Top = 8
      Width = 84
      Height = 23
      Caption = '关闭'
      TabOrder = 1
      Kind = bkClose
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 161
    Height = 360
    Align = alLeft
    Caption = 'Panel2'
    TabOrder = 1
    object StaticText1: TStaticText
      Left = 1
      Top = 1
      Width = 159
      Height = 18
      Align = alTop
      Alignment = taCenter
      BorderStyle = sbsSunken
      Caption = '基础表'
      Color = 16770250
      ParentColor = False
      TabOrder = 0
    end
    object tvTable: TTreeView
      Left = 1
      Top = 19
      Width = 159
      Height = 340
      Align = alClient
      Images = ImageList1
      Indent = 19
      ReadOnly = True
      TabOrder = 1
      OnChange = tvTableChange
      Items.Data = {
        050000001F0000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
        06D3C3B7A8B1ED1F0000000000000000000000FFFFFFFFFFFFFFFF0000000000
        00000006B4CECAFDB1ED230000000000000000000000FFFFFFFFFFFFFFFF0000
        0000000000000AB7A2D2A9B4CECAFDB1ED230000000000000000000000FFFFFF
        FFFFFFFFFF00000000000000000AB8BDBCD3CFEEC4BFB1ED2300000000000000
        00000000FFFFFFFFFFFFFFFF00000000000000000AD6B4D0D0B5D8B5E3B1ED}
    end
  end
  object Panel3: TPanel
    Left = 164
    Top = 41
    Width = 492
    Height = 360
    Align = alClient
    Caption = 'Panel3'
    TabOrder = 2
    object stTableTitle: TStaticText
      Left = 1
      Top = 1
      Width = 490
      Height = 18
      Align = alTop
      Alignment = taCenter
      BorderStyle = sbsSunken
      Caption = '用法表'
      Color = 14803455
      ParentColor = False
      TabOrder = 0
    end
    object pcInfo: TPageControl
      Left = 1
      Top = 19
      Width = 490
      Height = 340
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 1
      object TabSheet1: TTabSheet
        Caption = 'TabSheet1'
        TabVisible = False
        object wwDBGrid1: TwwDBGrid
          Left = 0
          Top = 0
          Width = 482
          Height = 330
          Selected.Strings = (
            'USAGEID'#9'10'#9'代号'#9'F'
            'NAME'#9'17'#9'名称'#9'F'
            'EXITEM'#9'14'#9'是否有附加项目'#9'F')
          IniAttributes.Delimiter = ';;'
          TitleColor = clBtnFace
          FixedCols = 0
          ShowHorzScrollBar = True
          Align = alClient
          DataSource = srcUsage
          ReadOnly = True
          TabOrder = 0
          TitleAlignment = taLeftJustify
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -14
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          TitleLines = 1
          TitleButtons = False
          IndicatorColor = icBlack
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'TabSheet2'
        ImageIndex = 1
        TabVisible = False
        object wwDBGrid2: TwwDBGrid
          Left = 0
          Top = 0
          Width = 484
          Height = 350
          Selected.Strings = (
            'FREQID'#9'7'#9'代号'
            'NAME'#9'10'#9'名称'
            'NUMB'#9'8'#9'执行次数'
            'DIFFDAY'#9'8'#9'间隔天数'
            'EXETIME'#9'27'#9'规定执行时间')
          IniAttributes.Delimiter = ';;'
          TitleColor = clBtnFace
          FixedCols = 0
          ShowHorzScrollBar = True
          Align = alClient
          DataSource = srcFrequency
          ReadOnly = True
          TabOrder = 0
          TitleAlignment = taLeftJustify
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -14
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          TitleLines = 1
          TitleButtons = False
          IndicatorColor = icBlack
        end
      end
      object TabSheet3: TTabSheet
        Caption = 'TabSheet3'
        ImageIndex = 2
        TabVisible = False
        object wwDBGrid3: TwwDBGrid
          Left = 0
          Top = 0
          Width = 484
          Height = 350
          Selected.Strings = (
            'NAME'#9'10'#9'次数'
            'ShrTime'#9'10'#9'时间点'
            'RTIMES'#9'10'#9'停医嘱剩余次数'
            'STIMES'#9'10'#9'开医嘱补发次数')
          IniAttributes.Delimiter = ';;'
          TitleColor = clBtnFace
          FixedCols = 0
          ShowHorzScrollBar = True
          Align = alClient
          DataSource = srcMedtimes
          ReadOnly = True
          TabOrder = 0
          TitleAlignment = taLeftJustify
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -14
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          TitleLines = 1
          TitleButtons = False
          IndicatorColor = icBlack
        end
      end
      object TabSheet4: TTabSheet
        Caption = 'TabSheet4'
        ImageIndex = 3
        TabVisible = False
        object wwDBGrid4: TwwDBGrid
          Left = 0
          Top = 0
          Width = 484
          Height = 350