listnadata.dfm

本代码可以较好地计算腹膜透析中合理的钠浓度

object FormNaList: TFormNaList
  Left = 215
  Top = 44
  Width = 602
  Height = 649
  Caption = 'PD'#28342#36136#27987#24230'vs'#25490#20986#24635#37327#21015#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 312
    Width = 96
    Height = 13
    Caption = #36873#20986#28385#36275#26465#20214#30340#39033
  end
  object Label2: TLabel
    Left = 16
    Top = 328
    Width = 60
    Height = 13
    Caption = #35823#24046#20801#35768#65306
  end
  object Label3: TLabel
    Left = 80
    Top = 328
    Width = 38
    Height = 13
    Caption = #25490'Na'#37327
  end
  object Label4: TLabel
    Left = 176
    Top = 328
    Width = 8
    Height = 13
    Caption = '%'
  end
  object Label5: TLabel
    Left = 256
    Top = 328
    Width = 36
    Height = 13
    Caption = #25490#27700#37327
  end
  object Label6: TLabel
    Left = 368
    Top = 328
    Width = 8
    Height = 13
    Caption = '%'
  end
  object ListViewNaCon: TListView
    Left = 16
    Top = 16
    Width = 561
    Height = 281
    Checkboxes = True
    Columns = <
      item
      end
      item
        Caption = #33145#36879#28082#20013#38048#30340#36215#22987#27987#24230
        Width = 140
      end
      item
        Caption = #33145#36879#28082#20013#33889#33796#31958#30340#36215#22987#27987#24230
        Width = 160
      end
      item
        Caption = #30416#20221#30340#25490#20986#24635#37327
        Width = 100
      end
      item
        Caption = #27700#30340#25490#20986#24635#37327
        Width = 90
      end>
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
  end
  object BtRun: TButton
    Left = 120
    Top = 576
    Width = 83
    Height = 25
    Caption = #36816#34892
    TabOrder = 1
    OnClick = BtRunClick
  end
  object BtViewCurve: TButton
    Left = 256
    Top = 576
    Width = 83
    Height = 25
    Caption = #26174#31034#20851#31995#26354#32447
    TabOrder = 2
  end
  object ListViewSelect: TListView
    Left = 16
    Top = 360
    Width = 561
    Height = 201
    Checkboxes = True
    Columns = <
      item
      end
      item
        Caption = #33145#36879#28082#20013#38048#30340#36215#22987#27987#24230
        Width = 140
      end
      item
        Caption = #33145#36879#28082#20013#33889#33796#31958#30340#36215#22987#27987#24230
        Width = 160
      end
      item
        Caption = #30416#20221#30340#25490#20986#24635#37327
        Width = 100
      end
      item
        Caption = #27700#30340#25490#20986#24635#37327
        Width = 90
      end>
    RowSelect = True
    TabOrder = 3
    ViewStyle = vsReport
  end
  object EditGtNa: TEdit
    Left = 120
    Top = 328
    Width = 49
    Height = 21
    TabOrder = 4
    Text = '5'
  end
  object EditGtVol: TEdit
    Left = 312
    Top = 328
    Width = 49
    Height = 21
    TabOrder = 5
    Text = '5'
  end
  object BtClose: TButton
    Left = 384
    Top = 576
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 6
    OnClick = BtCloseClick
  end
end