dm.dfm

医院X光片资料管理系统—全部源码 这是源码。去年做的一个小软件。因为这是给一家医院做的

object dmfm: Tdmfm
  OldCreateOrder = False
  Left = 226
  Top = 84
  Height = 467
  Width = 494
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xray.mdb;Mode=ReadW' +
      'rite;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    Top = 16
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    TableName = 'xdata'
    Left = 128
    Top = 16
  end
  object ADOTable2: TADOTable
    Connection = ADOConnection1
    Left = 192
    Top = 16
  end
  object ADOTable3: TADOTable
    Connection = ADOConnection1
    Left = 256
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 24
    Top = 80
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 104
    Top = 80
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 176
    Top = 80
  end
  object ADOQuery4: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    Left = 248
    Top = 80
  end
  object ADOQuery5: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    Left = 320
    Top = 80
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 24
    Top = 136
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 104
    Top = 136
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 176
    Top = 136
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery4
    Left = 248
    Top = 136
  end
  object DataSource5: TDataSource
    DataSet = ADOQuery5
    Left = 320
    Top = 136
  end
  object ADOQuery6: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    Left = 392
    Top = 80
  end
  object DataSource6: TDataSource
    DataSet = ADOQuery6
    Left = 392
    Top = 136
  end
  object ADOQuery7: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select * from xdata')
    Left = 35
    Top = 192
    object ADOQuery7id: TIntegerField
      DisplayLabel = #24207#21495
      DisplayWidth = 4
      FieldName = 'id'
    end
    object ADOQuery7xph: TWideStringField
      DisplayLabel = 'X'#20809#29255#21495
      FieldName = 'xph'
      Size = 8
    end
    object ADOQuery7xm: TWideStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 6
      FieldName = 'xm'
      Size = 10
    end
    object ADOQuery7zyh: TWideStringField
      DisplayLabel = #20303#38498#21495
      DisplayWidth = 6
      FieldName = 'zyh'
      Size = 10
    end
    object ADOQuery7xb: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'xb'
      Size = 2
    end
    object ADOQuery7nl: TSmallintField
      DisplayLabel = #24180#40836
      DisplayWidth = 4
      FieldName = 'nl'
    end
    object ADOQuery7bw: TWideStringField
      DisplayLabel = #25293#29255#37096#20301
      DisplayWidth = 12
      FieldName = 'bw'
      Size = 30
    end
    object ADOQuery7rq: TDateTimeField
      DisplayLabel = #26085#26399
      DisplayWidth = 10
      FieldName = 'rq'
    end
    object ADOQuery7xzd: TWideStringField
      DisplayLabel = 'X'#23556#32447#35786#26029
      DisplayWidth = 20
      FieldName = 'xzd'
      Size = 160
    end
    object ADOQuery7lzd: TWideStringField
      DisplayLabel = #20020#24202#35786#26029
      DisplayWidth = 12
      FieldName = 'lzd'
      Size = 160
    end
    object ADOQuery7yx: TWideStringField
      DisplayLabel = #38452'/'#38451
      FieldName = 'yx'
      Size = 2
    end
    object ADOQuery7fh: TWideStringField
      DisplayLabel = #31526#21512
      FieldName = 'fh'
      Size = 2
    end
    object ADOQuery7zs: TSmallintField
      DisplayLabel = #20809#27425
      DisplayWidth = 2
      FieldName = 'zs'
    end
    object ADOQuery7bz: TWideStringField
      DisplayLabel = #21307#24072
      DisplayWidth = 6
      FieldName = 'bz'
      Size = 50
    end
    object ADOQuery7zy: TWideStringField
      DisplayLabel = #32844#19994
      FieldName = 'zy'
      Size = 10
    end
    object ADOQuery7xg: TWideStringField
      DisplayLabel = #20064#24815
      FieldName = 'xg'
      Size = 10
    end
  end
  object DataSource7: TDataSource
    DataSet = ADOQuery7
    Left = 35
    Top = 248
  end
  object ADOQuery8: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select * from xdata')
    Left = 107
    Top = 192
    object IntegerField1: TIntegerField
      DisplayLabel = #24207#21495
      DisplayWidth = 4
      FieldName = 'id'
    end
    object WideStringField1: TWideStringField
      DisplayLabel = 'X'#20809#29255#21495
      FieldName = 'xph'
      Size = 8
    end
    object WideStringField2: TWideStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 6
      FieldName = 'xm'
      Size = 10
    end
    object WideStringField3: TWideStringField
      DisplayLabel = #20303#38498#21495
      DisplayWidth = 6
      FieldName = 'zyh'
      Size = 10
    end
    object WideStringField4: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'xb'
      Size = 2
    end
    object SmallintField1: TSmallintField
      DisplayLabel = #24180#40836
      DisplayWidth = 4
      FieldName = 'nl'
    end
    object WideStringField5: TWideStringField
      DisplayLabel = #25293#29255#37096#20301
      DisplayWidth = 12
      FieldName = 'bw'
      Size = 30
    end
    object DateTimeField1: TDateTimeField
      DisplayLabel = #26085#26399
      DisplayWidth = 10
      FieldName = 'rq'
    end
    object WideStringField6: TWideStringField
      DisplayLabel = 'X'#23556#32447#35786#26029
      DisplayWidth = 20
      FieldName = 'xzd'
      Size = 160
    end
    object WideStringField7: TWideStringField
      DisplayLabel = #20020#24202#35786#26029
      DisplayWidth = 12
      FieldName = 'lzd'
      Size = 160
    end
    object WideStringField8: TWideStringField
      DisplayLabel = #38452'/'#38451
      FieldName = 'yx'
      Size = 2
    end
    object WideStringField9: TWideStringField
      DisplayLabel = #31526#21512
      FieldName = 'fh'
      Size = 2
    end
    object SmallintField2: TSmallintField
      DisplayLabel = #20809#27425
      DisplayWidth = 2
      FieldName = 'zs'
    end
    object WideStringField10: TWideStringField
      DisplayLabel = #21307#24072
      DisplayWidth = 6
      FieldName = 'bz'
      Size = 50
    end
    object WideStringField11: TWideStringField
      DisplayLabel = #32844#19994
      FieldName = 'zy'
      Size = 10
    end
    object WideStringField12: TWideStringField
      DisplayLabel = #20064#24815
      FieldName = 'xg'
      Size = 10
    end
  end
  object DataSource8: TDataSource
    DataSet = ADOQuery8
    Left = 107
    Top = 248
  end
  object ADOQuery9: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from xdata')
    Left = 171
    Top = 192
    object IntegerField2: TIntegerField
      DisplayLabel = #24207#21495
      DisplayWidth = 4
      FieldName = 'id'
      ReadOnly = True
    end
    object WideStringField13: TWideStringField
      DisplayLabel = 'X'#20809#29255#21495
      FieldName = 'xph'
      Size = 8
    end
    object WideStringField14: TWideStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 6
      FieldName = 'xm'
      Size = 10
    end
    object ADOQuery9xmpy: TWideStringField
      DisplayLabel = #22995#21517#25340#38899
      FieldName = 'xmpy'
      Size = 5
    end
    object WideStringField15: TWideStringField
      DisplayLabel = #20303#38498#21495
      DisplayWidth = 6
      FieldName = 'zyh'
      Size = 10
    end
    object WideStringField16: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'xb'
      Size = 2
    end
    object SmallintField3: TSmallintField
      DisplayLabel = #24180#40836
      DisplayWidth = 4
      FieldName = 'nl'
    end
    object WideStringField17: TWideStringField
      DisplayLabel = #25293#29255#37096#20301
      DisplayWidth = 12
      FieldName = 'bw'
      Size = 30
    end
    object DateTimeField2: TDateTimeField
      DisplayLabel = #26085#26399
      DisplayWidth = 10
      FieldName = 'rq'
    end
    object WideStringField18: TWideStringField
      DisplayLabel = 'X'#23556#32447#35786#26029
      DisplayWidth = 20
      FieldName = 'xzd'
      Size = 160
    end
    object WideStringField19: TWideStringField
      DisplayLabel = #20020#24202#35786#26029
      DisplayWidth = 12
      FieldName = 'lzd'
      Size = 160
    end
    object WideStringField20: TWideStringField
      DisplayLabel = #38452'/'#38451
      FieldName = 'yx'
      Size = 2
    end
    object WideStringField21: TWideStringField
      DisplayLabel = #31526#21512
      FieldName = 'fh'
      Size = 2
    end
    object SmallintField4: TSmallintField
      DisplayLabel = #20809#27425
      DisplayWidth = 2
      FieldName = 'zs'
    end
    object WideStringField22: TWideStringField
      DisplayLabel = #21307#24072
      DisplayWidth = 6
      FieldName = 'bz'
      Size = 50
    end
    object WideStringField23: TWideStringField
      DisplayLabel = #32844#19994
      FieldName = 'zy'
      Size = 10
    end
    object WideStringField24: TWideStringField
      DisplayLabel = #20064#24815
      FieldName = 'xg'
      Size = 10
    end
  end
  object DataSource9: TDataSource
    DataSet = ADOQuery9
    Left = 171
    Top = 248
  end
  object ADOQuery10: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from ys')
    Left = 248
    Top = 192
    object ADOQuery10ysxm: TWideStringField
      DisplayLabel = #21307#24072#21517#23383
      DisplayWidth = 8
      FieldName = 'ysxm'
      Size = 10
    end
    object ADOQuery10xmpy: TWideStringField
      DisplayLabel = #22995#21517#25340#38899
      DisplayWidth = 8
      FieldName = 'xmpy'
      Size = 10
    end
  end
  object DataSource10: TDataSource
    DataSet = ADOQuery10
    Left = 248
    Top = 248
  end
  object ADOQuery11: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from bwmc')
    Left = 320
    Top = 192
    object ADOQuery11bw: TWideStringField
      DisplayLabel = #37096#20301#21517#31216
      DisplayWidth = 12
      FieldName = 'bw'
      Size = 50
    end
    object ADOQuery11py: TWideStringField
      DisplayLabel = #25340#38899
      DisplayWidth = 8
      FieldName = 'py'
      Size = 50
    end
  end
  object DataSource11: TDataSource
    DataSet = ADOQuery11
    Left = 320
    Top = 248
  end
  object ADOQuery12: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from lzd')
    Left = 392
    Top = 192
    object ADOQuery12lzd: TWideStringField
      DisplayLabel = #20020#24202#35786#26029
      FieldName = 'lzd'
      Size = 50
    end
  end
  object DataSource12: TDataSource
    DataSet = ADOQuery12
    Left = 392
    Top = 248
  end
  object ADOQuery13: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from xzd')
    Left = 32
    Top = 312
    object ADOQuery13xzd: TWideStringField
      DisplayLabel = 'X'#20809#25293#29255#35786#26029
      FieldName = 'xzd'
      Size = 50
    end
  end
  object DataSource13: TDataSource
    DataSet = ADOQuery13
    Left = 32
    Top = 368
  end
end