c45.dfm

以从医院病案室获得的3022例数据为样本

object Form1: TForm1
  Left = 258
  Top = 111
  Width = 578
  Height = 574
  Caption = 'c45'
  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 ListView1: TListView
    Left = 24
    Top = 24
    Width = 265
    Height = 497
    Columns = <
      item
        Caption = #20998#23618
      end
      item
        Caption = #21521#19979#29983#38271#30340#26641#33410#28857
        Width = 120
      end
      item
        Caption = #20449#24687#22686#30410#29575
        Width = 80
      end>
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
  end
  object Button1: TButton
    Left = 432
    Top = 64
    Width = 75
    Height = 25
    Caption = #36816#34892
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 432
    Top = 120
    Width = 75
    Height = 25
    Caption = #22797#20301
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 432
    Top = 176
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 3
    OnClick = Button3Click
  end
  object ADOTable1: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=DMT;Data Source=PKU-WFUJT4OHR9P'
    TableName = 'tjE_g'
    Left = 192
    Top = 96
    object ADOTable1gxy: TBooleanField
      FieldName = 'gxy'
    end
    object ADOTable1xlsc: TBooleanField
      FieldName = 'xlsc'
    end
    object ADOTable1dmyh2: TBooleanField
      FieldName = 'dmyh2'
    end
    object ADOTable1gxb: TBooleanField
      FieldName = 'gxb'
    end
    object ADOTable1gxz: TBooleanField
      FieldName = 'gxz'
    end
    object ADOTable1nxg: TBooleanField
      FieldName = 'nxg'
    end
    object ADOTable1wy: TBooleanField
      FieldName = 'wy'
    end
    object ADOTable1wky: TBooleanField
      FieldName = 'wky'
    end
    object ADOTable1chy: TBooleanField
      FieldName = 'chy'
    end
    object ADOTable1jxgy: TBooleanField
      FieldName = 'jxgy'
    end
    object ADOTable1yxgy: TBooleanField
      FieldName = 'yxgy'
    end
    object ADOTable1gyh: TBooleanField
      FieldName = 'gyh'
    end
    object ADOTable1szjb: TBooleanField
      FieldName = 'szjb'
    end
    object ADOTable1mxzqg: TBooleanField
      FieldName = 'mxzqg'
    end
    object ADOTable1fxb: TBooleanField
      FieldName = 'fxb'
    end
    object ADOTable1fjh: TBooleanField
      FieldName = 'fjh'
    end
    object ADOTable1jzb: TBooleanField
      FieldName = 'jzb'
    end
    object ADOTable1ggj: TBooleanField
      FieldName = 'ggj'
    end
    object ADOTable1jzy: TBooleanField
      FieldName = 'jzy'
    end
    object ADOTable1dsz: TBooleanField
      FieldName = 'dsz'
    end
    object ADOTable1dny: TBooleanField
      FieldName = 'dny'
    end
    object ADOTable1qlx: TBooleanField
      FieldName = 'qlx'
    end
    object ADOTable1fgg: TBooleanField
      FieldName = 'fgg'
    end
    object ADOTable1zhi: TBooleanField
      FieldName = 'zhi'
    end
    object ADOTable1pfb: TBooleanField
      FieldName = 'pfb'
    end
    object ADOTable1yany: TBooleanField
      FieldName = 'yany'
    end
    object ADOTable1quchi: TBooleanField
      FieldName = 'quchi'
    end
    object ADOTable1bnz: TBooleanField
      FieldName = 'bnz'
    end
    object ADOTable1qgy: TBooleanField
      FieldName = 'qgy'
    end
    object ADOTable1swm: TBooleanField
      FieldName = 'swm'
    end
    object ADOTable1erl: TBooleanField
      FieldName = 'erl'
    end
    object ADOTable1bdy: TBooleanField
      FieldName = 'bdy'
    end
    object ADOTable1feiy: TBooleanField
      FieldName = 'feiy'
    end
    object ADOTable1jzcy: TBooleanField
      FieldName = 'jzcy'
    end
    object ADOTable1weiy: TBooleanField
      FieldName = 'weiy'
    end
    object ADOTable1shiy: TBooleanField
      FieldName = 'shiy'
    end
    object ADOTable1gany: TBooleanField
      FieldName = 'gany'
    end
    object ADOTable1ruxy: TBooleanField
      FieldName = 'ruxy'
    end
    object ADOTable1gjy: TBooleanField
      FieldName = 'gjy'
    end
    object ADOTable1biyy: TBooleanField
      FieldName = 'biyy'
    end
    object ADOTable1bgy: TBooleanField
      FieldName = 'bgy'
    end
    object ADOTable1tnb: TBooleanField
      FieldName = 'tnb'
    end
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=DMT;Data Source=PKU-WFUJT4OHR9P'
    Parameters = <>
    SQL.Strings = (
      '              select * from tjE_g')
    Left = 160
    Top = 144
    object ADOQuery1gxy: TBooleanField
      FieldName = 'gxy'
    end
    object ADOQuery1xlsc: TBooleanField
      FieldName = 'xlsc'
    end
    object ADOQuery1dmyh2: TBooleanField
      FieldName = 'dmyh2'
    end
    object ADOQuery1gxb: TBooleanField
      FieldName = 'gxb'
    end
    object ADOQuery1gxz: TBooleanField
      FieldName = 'gxz'
    end
    object ADOQuery1nxg: TBooleanField
      FieldName = 'nxg'
    end
    object ADOQuery1wy: TBooleanField
      FieldName = 'wy'
    end
    object ADOQuery1wky: TBooleanField
      FieldName = 'wky'
    end
    object ADOQuery1chy: TBooleanField
      FieldName = 'chy'
    end
    object ADOQuery1jxgy: TBooleanField
      FieldName = 'jxgy'
    end
    object ADOQuery1yxgy: TBooleanField
      FieldName = 'yxgy'
    end
    object ADOQuery1gyh: TBooleanField
      FieldName = 'gyh'
    end
    object ADOQuery1szjb: TBooleanField
      FieldName = 'szjb'
    end
    object ADOQuery1mxzqg: TBooleanField
      FieldName = 'mxzqg'
    end
    object ADOQuery1fxb: TBooleanField
      FieldName = 'fxb'
    end
    object ADOQuery1fjh: TBooleanField
      FieldName = 'fjh'
    end
    object ADOQuery1jzb: TBooleanField
      FieldName = 'jzb'
    end
    object ADOQuery1ggj: TBooleanField
      FieldName = 'ggj'
    end
    object ADOQuery1jzy: TBooleanField
      FieldName = 'jzy'
    end
    object ADOQuery1dsz: TBooleanField
      FieldName = 'dsz'
    end
    object ADOQuery1dny: TBooleanField
      FieldName = 'dny'
    end
    object ADOQuery1qlx: TBooleanField
      FieldName = 'qlx'
    end
    object ADOQuery1fgg: TBooleanField
      FieldName = 'fgg'
    end
    object ADOQuery1zhi: TBooleanField
      FieldName = 'zhi'
    end
    object ADOQuery1pfb: TBooleanField
      FieldName = 'pfb'
    end
    object ADOQuery1yany: TBooleanField
      FieldName = 'yany'
    end
    object ADOQuery1quchi: TBooleanField
      FieldName = 'quchi'
    end
    object ADOQuery1bnz: TBooleanField
      FieldName = 'bnz'
    end
    object ADOQuery1qgy: TBooleanField
      FieldName = 'qgy'
    end
    object ADOQuery1swm: TBooleanField
      FieldName = 'swm'
    end
    object ADOQuery1erl: TBooleanField
      FieldName = 'erl'
    end
    object ADOQuery1bdy: TBooleanField
      FieldName = 'bdy'
    end
    object ADOQuery1feiy: TBooleanField
      FieldName = 'feiy'
    end
    object ADOQuery1jzcy: TBooleanField
      FieldName = 'jzcy'
    end
    object ADOQuery1weiy: TBooleanField
      FieldName = 'weiy'
    end
    object ADOQuery1shiy: TBooleanField
      FieldName = 'shiy'
    end
    object ADOQuery1gany: TBooleanField
      FieldName = 'gany'
    end
    object ADOQuery1ruxy: TBooleanField
      FieldName = 'ruxy'
    end
    object ADOQuery1gjy: TBooleanField
      FieldName = 'gjy'
    end
    object ADOQuery1biyy: TBooleanField
      FieldName = 'biyy'
    end
    object ADOQuery1bgy: TBooleanField
      FieldName = 'bgy'
    end
    object ADOQuery1tnb: TBooleanField
      FieldName = 'tnb'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 200
    Top = 192
  end
end