apz.dfm

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

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = 'Apriori'#31639#27861#28436#31034
  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 = 88
    Top = 240
    Width = 57
    Height = 21
    AutoSize = False
    Caption = '  '#35745#25968#38408#20540
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 24
    Top = 272
    Width = 120
    Height = 13
    Caption = #21333#39033#39033#38598#38750#20887#20313#39033#20010#25968
  end
  object Label3: TLabel
    Left = 24
    Top = 304
    Width = 120
    Height = 13
    Caption = #21452#39033#39033#38598#38750#20887#20313#39033#20010#25968
  end
  object Label4: TLabel
    Left = 24
    Top = 336
    Width = 120
    Height = 13
    Caption = #19977#39033#39033#38598#38750#20887#20313#39033#20010#25968
  end
  object Label5: TLabel
    Left = 24
    Top = 368
    Width = 120
    Height = 13
    Caption = #22235#39033#39033#38598#38750#20887#20313#39033#20010#25968
  end
  object Label6: TLabel
    Left = 24
    Top = 400
    Width = 120
    Height = 13
    Caption = #20116#39033#39033#38598#38750#20887#20313#39033#20010#25968
  end
  object Label7: TLabel
    Left = 344
    Top = 280
    Width = 48
    Height = 13
    Caption = #35760#24405#24635#25968
  end
  object Label8: TLabel
    Left = 312
    Top = 256
    Width = 84
    Height = 13
    Caption = #31958#23615#30149#24739#32773#24635#25968
  end
  object Button1: TButton
    Left = 584
    Top = 248
    Width = 75
    Height = 25
    Caption = #36816#34892
    TabOrder = 0
    OnClick = Button1Click
  end
  object ListView1: TListView
    Left = 0
    Top = 0
    Width = 688
    Height = 226
    Align = alTop
    Checkboxes = True
    Columns = <
      item
        Caption = '                         '#39033#38598
        Width = 180
      end
      item
        Caption = '  '#24739#30149#20154#25968
        Width = 80
      end
      item
        Caption = #24739#30149#29575
        Width = 60
      end
      item
        Caption = #20854#20013#31958#23615#30149#24739#32773#20154#25968
        Width = 120
      end
      item
        Caption = #31958#23615#30149#24182#21457#29575
        Width = 90
      end
      item
        Caption = #32622#20449#24230
        Width = 80
      end
      item
        Caption = #20887#20313#39033
      end>
    RowSelect = True
    TabOrder = 1
    ViewStyle = vsReport
  end
  object Button2: TButton
    Left = 584
    Top = 312
    Width = 75
    Height = 25
    Caption = #20851#38381' '
    TabOrder = 2
    OnClick = Button2Click
  end
  object Editgate: TEdit
    Left = 152
    Top = 240
    Width = 49
    Height = 21
    TabOrder = 3
  end
  object Button3: TButton
    Left = 584
    Top = 280
    Width = 75
    Height = 25
    Caption = #22797#20301
    TabOrder = 4
    OnClick = Button3Click
  end
  object Edit1: TEdit
    Left = 152
    Top = 272
    Width = 49
    Height = 21
    TabOrder = 5
  end
  object Edit2: TEdit
    Left = 152
    Top = 304
    Width = 49
    Height = 21
    TabOrder = 6
  end
  object Edit3: TEdit
    Left = 152
    Top = 336
    Width = 49
    Height = 21
    TabOrder = 7
  end
  object Edit4: TEdit
    Left = 152
    Top = 368
    Width = 49
    Height = 21
    TabOrder = 8
  end
  object Edit5: TEdit
    Left = 152
    Top = 400
    Width = 49
    Height = 21
    TabOrder = 9
  end
  object Edit6: TEdit
    Left = 400
    Top = 280
    Width = 57
    Height = 21
    TabOrder = 10
  end
  object Edit7: TEdit
    Left = 400
    Top = 256
    Width = 57
    Height = 21
    TabOrder = 11
  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 = 312
    Top = 168
    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 DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 120
    Top = 136
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=DMT;Data Source=PKU-WFUJT4OHR9P'
    DataSource = DataSource1
    Parameters = <>
    SQL.Strings = (
      '          select * from tjE_g')
    Left = 216
    Top = 152
    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
end