mainform.dfm

一套DELPHI病历管理源码

      Top = 0
      Width = 25
      Height = 25
      Hint = #21462#28040#26368#36817#26410#23384#20648#30340#20462#25913
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Cancel'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 9
      Style = nbsCancel
    end
    object wwDBNavigator1Refresh: TwwNavButton
      Left = 250
      Top = 0
      Width = 25
      Height = 25
      Hint = #21047#26032
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Refresh'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 10
      Style = nbsRefresh
    end
    object wwDBNavigator1SaveBookmark: TwwNavButton
      Left = 275
      Top = 0
      Width = 25
      Height = 25
      Hint = #25554#20837#20070#31614
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1SaveBookmark'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 11
      Style = nbsSaveBookmark
    end
    object wwDBNavigator1RestoreBookmark: TwwNavButton
      Left = 300
      Top = 0
      Width = 25
      Height = 25
      Hint = #31227#21040#20070#31614
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1RestoreBookmark'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 12
      Style = nbsRestoreBookmark
    end
    object wwDBNavigator1Button: TwwNavButton
      Left = 325
      Top = 0
      Width = 30
      Height = 25
      Hint = 'Locate a specific record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = #26597#25214#30149#20154
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Dialog = ld1
      Index = 13
      Style = nbsLocateDialog
    end
  end
  object wwExpandButton3: TwwExpandButton
    Left = 344
    Top = 443
    Width = 154
    Height = 48
    DisableThemes = False
    Grid = wwDataInspector1
    Caption = 'wwExpandButton3'
    ShowText = True
    TabOrder = 7
  end
  object wwExpandButton4: TwwExpandButton
    Left = 371
    Top = 430
    Width = 148
    Height = 48
    DisableThemes = False
    Grid = wwDataInspector2
    Caption = 'wwExpandButton4'
    ShowText = True
    TabOrder = 9
  end
  object pc1: TRzPageControl
    Left = 44
    Top = 84
    Width = 676
    Height = 346
    ActivePage = ts2
    TabIndex = 1
    TabOrder = 10
    Transparent = True
    Visible = False
    OnEnter = pc1Enter
    object ts1: TRzTabSheet
      Caption = #30456#23545#22266#23450#20449#24687
      object RzGroupBar1: TRzGroupBar
        Left = 0
        Top = 0
        Width = 672
        Height = 323
        ColorAdjustment = 30
        GroupBorderSize = 0
        Style = gbsOutlook
        UseGradients = False
        Align = alClient
        Color = clBtnShadow
        ParentColor = False
        TabOrder = 0
        object rgJiWangShi: TRzGroup
          Items = <>
          Opened = True
          OpenedHeight = 223
          UseGradients = True
          Caption = #26082#24448#21490
          ParentColor = False
          object RzDBMemo1: TRzDBMemo
            Left = 0
            Top = 20
            Width = 672
            Height = 203
            Align = alClient
            BorderStyle = bsNone
            DataField = 'JiWangShi'
            DataSource = DataSource1
            TabOrder = 0
          end
        end
        object RzGroup4: TRzGroup
          Items = <>
          Opened = False
          OpenedHeight = 223
          UseGradients = True
          Caption = #20010#20154#21490
          ParentColor = False
          object RzDBMemo4: TRzDBMemo
            Left = 0
            Top = 20
            Width = 672
            Height = 0
            Align = alClient
            BorderStyle = bsNone
            DataField = 'GeRenShi'
            DataSource = DataSource1
            TabOrder = 0
          end
        end
        object rgYueJingShi: TRzGroup
          Items = <>
          Opened = False
          OpenedHeight = 223
          UseGradients = True
          Caption = #26376#32463#21490
          ParentColor = False
          object RzDBMemo2: TRzDBMemo
            Left = 0
            Top = 20
            Width = 672
            Height = 0
            Align = alClient
            BorderStyle = bsNone
            DataField = 'YueJingShi'
            DataSource = DataSource1
            TabOrder = 0
          end
        end
        object RzGroup3: TRzGroup
          Items = <>
          Opened = False
          OpenedHeight = 223
          UseGradients = True
          Caption = #23130#32946#21490
          ParentColor = False
          object RzDBMemo3: TRzDBMemo
            Left = 0
            Top = 20
            Width = 672
            Height = 0
            Align = alClient
            BorderStyle = bsNone
            DataField = 'HunYuShi'
            DataSource = DataSource1
            TabOrder = 0
          end
        end
        object RzGroup5: TRzGroup
          Items = <>
          Opened = False
          OpenedHeight = 223
          UseGradients = True
          Caption = #36807#25935#21490
          ParentColor = False
          object RzDBMemo5: TRzDBMemo
            Left = 0
            Top = 20
            Width = 672
            Height = 0
            Align = alClient
            BorderStyle = bsNone
            DataField = 'GuoMinShi'
            DataSource = DataSource1
            TabOrder = 0
          end
        end
        object RzGroup6: TRzGroup
          Items = <>
          Opened = False
          OpenedHeight = 223
          UseGradients = True
          Caption = #23478#26063#21490
          ParentColor = False
          object RzDBMemo6: TRzDBMemo
            Left = 0
            Top = 20
            Width = 672
            Height = 0
            Align = alClient
            BorderStyle = bsNone
            DataField = 'JiaZuShi'
            DataSource = DataSource1
            TabOrder = 0
          end
        end
      end
    end
    object ts2: TRzTabSheet
      Caption = #23601#35786#20449#24687
      object wwDBGrid1: TwwDBGrid
        Left = 0
        Top = 25
        Width = 672
        Height = 298
        DisableThemesInTitle = False
        ControlType.Strings = (
          'temp;CustomEdit;wwExpandButton1;F'
          'ChuZhen;CustomEdit;wwExpandButton5;F'
          'ShiJian;CustomEdit;wwExpandButton6;F'
          'temp1;CustomEdit;wwExpandButton7;F'
          'YiSheng;CustomEdit;wwExpandButton1;F')
        Selected.Strings = (
          'temp1'#9'3'#9#9'F'
          'No'#9'2'#9#27425#9#9
          'BingQu'#9'16'#9#30149#21306#9#9
          'ZhuYuanHao'#9'7'#9#20303#38498#21495#9'F'
          'ChuZhen'#9'15'#9#21021#27493#35786#26029#9'F'
          'ShiJian'#9'11'#9#30456#20851#26102#38388#9'F'
          'YiSheng'#9'9'#9#21307#29983#9'F'
          'GongShiZhe'#9'7'#9#20379#21490#32773#9#9
          'KeXinDu'#9'6'#9#21487#20449#24230#9#9
          'FaBingJieQi'#9'10'#9#21457#30149#33410#27668#9#9
          'ZhiLiaoXiaoGuo'#9'14'#9#27835#30103#25928#26524#9'F')
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        Align = alClient
        Color = clMoneyGreen
        DataSource = DataSource2
        KeyOptions = []
        RowHeightPercent = 120
        TabOrder = 0
        TitleAlignment = taCenter
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        TitleLines = 2
        TitleButtons = False
        UseTFields = False
        OnCalcTitleImage = grdMainCalcTitleImage
        TitleImageList = ImageList1
      end
      object wwDBNavigator2: TwwDBNavigator
        Left = 0
        Top = 0
        Width = 672
        Height = 25
        DataSource = DataSource2
        ShowHint = True
        RepeatInterval.InitialDelay = 500
        RepeatInterval.Interval = 100
        Align = alTop
        ParentShowHint = False
        object wwNavButton1: TwwNavButton
          Left = 0
          Top = 0
          Width = 25
          Height = 25
          Hint = #31227#21160#21040#26368#24320#22987
          ImageIndex = -1
          NumGlyphs = 2
          Spacing = 4
          Transparent = False
          Caption = 'wwDBNavigator1First'
          Enabled = False
          DisabledTextColors.ShadeColor = clGray
          DisabledTextColors.HighlightColor = clBtnHighlight
          Index = 0
          Style = nbsFirst
        end
        object wwNavButton2: TwwNavButton
          Left = 25
          Top = 0
          Width = 25
          Height = 25
          Hint = #21521#19978#32763#19968#39029
          ImageIndex = -1
          NumGlyphs = 2
          Spacing = 4
          Transparent = False
          Caption = 'wwDBNavigator1PriorPage'
          Enabled = False
          DisabledTextColors.ShadeColor = clGray
          DisabledTextColors.HighlightColor = clBtnHighlight
          Index = 1
          Style = nbsPriorPage
        end
        object wwNavButton3: TwwNavButton
          Left = 50
          Top = 0
          Width = 25