mainform.dfm

医院病历管理简易版,完全用DELPHI实现.

object fmMain: TfmMain
  Left = 212
  Top = 119
  Width = 750
  Height = 550
  Caption = #21307#38498#30149#20363#31649#29702'-'#31616#26131#29256
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000000000000A80800001600000028000000200000004000
    000001000800000000008004000000000000000000000001000000000000FFFF
    FF0099FFFF0066CCFF000099FF00FF00FF00CCCCCC0099CCCC003399CC00FFCC
    990099CC99000066990000339900CC9966006666660033663300C0C0C000FF00
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000001F1F
    1F1F1F1F1F1F1F0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D1F1F
    1F1F1F1F1F1F1F0D0500000000000000000000000000000000000000000D1F1F
    1F1F1F1F1F1F1F0D0500000000000000000000000000000000000000000D1F1F
    1F1F1F1F1F1F1F0D0500000000000000000000000000000000000000000D1F1F
    1F1F1F1F1F1F1F0D050D00000D00000D00000D00000D00000D00000D000D1F1F
    1F1F1F1F1F1F1F0D0500000000000000000000000000000000000000000D1F1F
    1F1F1F1F1F1F1F0D0500000000000000000000000000000000000000000D1F1F
    1F1F1F1F1F1F1F0D050D01010D01010D00000D00000D00000D00000D000D1F1F
    1F1F0A11111F1F0D0501010404040101000000000000000000000000000D1F1F
    1F0A020202111F0D0501040000000401000000000000000000000000000D1F1F
    0A0203030203110D050D04001100040D00000D00000D00000D00000D000D1F1F
    0A0203020202110D0501040000000401000000000000000000000000000D1F11
    0211000002111F0D0501010404040101000000000000000000000000000D0A02
    0302110A0A1F1F0D050101010C0C010C10080C0C10000C0808100000000D0703
    020002111F1F1F0D0500000000000C10080C1000080C100800000000000D0702
    030002111F1F1F0D0500000000000000000000000000000000000000000D1F07
    0A0A0A1F1F1F110D0500000000000D0D000000000000000D0D000000000D1F1F
    1F1F1F1F1F110A0D050000000000000D00000000000000000D000000000D1F1F
    1F1F1F1F110A060D050505050505050D05050505050505050D050505050D1F1F
    1F1F1F110A0A0B0D0D0D0D0D0D0D0D050D0D0D0D0D0D0D0D050D0D0D0D0D1F1F
    1F1F110A060B0A060A0A0B0A05110D050A060A060B00110D051F1F1F1F1F1F1F
    1F110A060A0B060A0A0A0B0A090D0D05060A0A0A060E0D0D051F1F1F1F1F1F1F
    110A0A06060A0B0A0A0B0A06110A0A0B0A0606060B1F1F1F1F1F1F1F1F1F1F1F
    0A060A0A06060A0B0B0A06110A060A0B0A0A060B1F1F1F1F1F1F1F1F1F1F1F1F
    1F0B0A06060606060606110B060A0B0A0A060B1F1F1F1F1F1F1F1F1F1F1F1F1F
    1F1F0B06060A06060611060A0B0B0A0A060B1F1F1F1F1F1F1F1F1F1F1F1F1F1F
    1F1F1F0B060B0A0611060A0606060A060B1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
    1F1F1F1F0B0A0611060A060A060A060B1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
    1F1F1F1F1F11111F0D060A0B0A060B1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
    1F1F1F1F1F1F1F1F1F0D060A060B1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
    1F1F1F1F1F1F1F1F1F1F0D060B1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F
    1F1F1F1F1F1F1F1F1F1F1F0D1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1FFF80
    0000FF800000FF800000FF800000FF800000FF800000FF800000FF800000F180
    0000E0800000C0000000C0000000808000000180000003800000038000008700
    0000FE000000FC000000F8000000F000001FE000001FC00001FFC00003FFE000
    07FFF0000FFFF8001FFFFC003FFFFE407FFFFFE0FFFFFFF1FFFFFFFBFFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object grdMain: TwwDBGrid
    Left = 0
    Top = 25
    Width = 778
    Height = 466
    DisableThemesInTitle = False
    LineStyle = gls3D
    ControlType.Strings = (
      'Orders;CustomEdit;wwExpandButton1;F'
      'Company;URL-Link'
      'State;CustomEdit;wwDBEdit2;F'
      'ID;CustomEdit;wwExpandButton2;F'
      'XingBie;CustomEdit;wwRadioGroup5;F'
      'HunKuang;CustomEdit;wwRadioGroup1;F'
      'temp1;CustomEdit;wwExpandButton2;F'
      'Addr;CustomEdit;wwExpandButton3;F'
      'Natr;CustomEdit;wwExpandButton4;F')
    Selected.Strings = (
      'temp1'#9'3'#9#9'F'
      'XingMing'#9'10'#9#22995#21517#9'F'
      'XingBie'#9'10'#9#24615#21035#9'F'
      'NianLing'#9'5'#9#24180#40836#9'F'
      'HunKuang'#9'12'#9#23130#20917#9'F'
      'MinZu'#9'8'#9#27665#26063#9'F'
      'ZhiYe'#9'12'#9#32844#19994#9'F'
      'Addr'#9'25'#9#20303#22336#9'F'
      'Natr'#9'24'#9#31821#36143#9'F')
    IniAttributes.FileName = 'm:\ip2001\temp.ini'
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    Color = clInfoBk
    DataSource = DataSource1
    KeyOptions = []
    RowHeightPercent = 300
    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
    LineColors.HighlightColor = clHighlightText
    OnCalcTitleImage = grdMainCalcTitleImage
    TitleImageList = ImageList1
    PaintOptions.AlternatingRowColor = 12320251
    PaintOptions.BackgroundOptions = [coFillDataCells, coBlendFixedRow, coBlendFixedColumn, coBlendAlternatingRow]
  end
  object wwRadioGroup5: TwwRadioGroup
    Left = 240
    Top = 419
    Width = 64
    Height = 48
    DisableThemes = False
    TransparentActiveItem = True
    ButtonFrame.Transparent = True
    Images = radiomacballimagelist
    GlyphImages = sexImageList
    Transparent = True
    DataField = 'XingBie'
    DataSource = DataSource1
    Items.Strings = (
      #22899
      #30007)
    TabOrder = 2
    Values.Strings = (
      #22899
      #30007)
  end
  object wwRadioGroup1: TwwRadioGroup
    Left = 236
    Top = 440
    Width = 76
    Height = 48
    DisableThemes = False
    TransparentActiveItem = True
    ButtonFrame.Transparent = True
    Images = radiomacballimagelist
    GlyphImages = maritalImageList
    Transparent = True
    DataField = 'HunKuang'
    DataSource = DataSource1
    Items.Strings = (
      #26410#23130
      #24050#23130)
    TabOrder = 3
    Values.Strings = (
      'False'
      'True')
  end
  object wwDBNavigator1: TwwDBNavigator
    Left = 0
    Top = 0
    Width = 355
    Height = 25
    DataSource = DataSource1
    ShowHint = True
    RepeatInterval.InitialDelay = 500
    RepeatInterval.Interval = 100
    Align = alTop
    ParentShowHint = False
    object wwDBNavigator1First: 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 wwDBNavigator1PriorPage: 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 wwDBNavigator1Prior: TwwNavButton
      Left = 50
      Top = 0
      Width = 25
      Height = 25
      Hint = #31227#21040#19978#19968#20010
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Prior'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 2
      Style = nbsPrior
    end
    object wwDBNavigator1Next: TwwNavButton
      Left = 75
      Top = 0
      Width = 25
      Height = 25
      Hint = #31227#21040#19979#19968#20010
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Next'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 3
      Style = nbsNext
    end
    object wwDBNavigator1NextPage: TwwNavButton
      Left = 100
      Top = 0
      Width = 25
      Height = 25
      Hint = #21521#19979#32763#19968#39029
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1NextPage'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 4
      Style = nbsNextPage
    end
    object wwDBNavigator1Last: TwwNavButton
      Left = 125
      Top = 0
      Width = 25
      Height = 25
      Hint = #31227#21040#26368#21518
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Last'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 5
      Style = nbsLast
    end
    object wwDBNavigator1Insert: TwwNavButton
      Left = 150
      Top = 0
      Width = 25
      Height = 25
      Hint = #22686#21152#19968#20010#26032#30340
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Insert'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 6
      Style = nbsInsert
    end
    object wwDBNavigator1Delete: TwwNavButton
      Left = 175
      Top = 0
      Width = 25
      Height = 25
      Hint = #21024#38500#24403#21069#30340
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Delete'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 7
      Style = nbsDelete
    end
    object wwDBNavigator1Post: TwwNavButton
      Left = 200
      Top = 0
      Width = 25
      Height = 25
      Hint = #23384#20648#20462#25913
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Post'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 8
      Style = nbsPost
    end
    object wwDBNavigator1Cancel: TwwNavButton
      Left = 225