u.~dfm

对于医院的影像室的资料进行管理,主要方便查阅,特别是对于病人的照片的病前后比较对于病情的发展很有价值

object F_filmstage: TF_filmstage
  Left = 231
  Top = 145
  Width = 382
  Height = 309
  Caption = #29031#29255#31561#32423
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 16
    Top = 24
    Width = 169
    Height = 217
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'filmstage'
        Title.Caption = #29031#29255#31561#32423
        Width = 121
        Visible = True
      end>
  end
  object Edit1: TEdit
    Left = 208
    Top = 24
    Width = 97
    Height = 21
    TabOrder = 1
  end
  object btnAdd: TBitBtn
    Left = 209
    Top = 56
    Width = 75
    Height = 25
    Caption = #22686'  '#21152
    TabOrder = 2
    OnClick = btnADDClick
    Glyph.Data = {
      42020000424D4202000000000000420000002800000010000000100000000100
      1000030000000002000000000000000000000000000000000000007C0000E003
      00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C00001F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C007C007C00001F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C007C007C00001F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C007C007C007C007C007C00001F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C007C007C007C007C007C007C00001F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7CEF3D007C007C00001F7C007C007C007C00001F7C1F7C1F7C
      1F7C1F7C1F7CEF3D007C00001F7C1F7C1F7C1F7C007C007C00001F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C007C007C00001F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C007C00001F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C007C007C00001F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CEF3D007C0000
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CEF3D007C
      00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      007C007C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C}
  end
  object btnDele: TBitBtn
    Left = 209
    Top = 152
    Width = 75
    Height = 25
    Caption = #21024'    '#38500
    TabOrder = 3
    OnClick = btnDeleClick
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888888800008888888888888888889800008898888888888888898800008899
      88777777777798880000889990000000000998880000888990BFFFBFFF998888
      0000888899FCCCCCCF97888800008888999FBFFFB9978888000088888999CCC9
      990788880000888880999FB99F0788880000888880FC9999CF07888800008888
      80FF9999BF0788880000888880FC9999000788880000888880B99F099F078888
      0000888880999F099998888800008888999FBF0F089988880000889999000000
      8889988800008899988888888888898800008888888888888888889800008888
      88888888888888880000}
  end
  object btnClose: TBitBtn
    Left = 209
    Top = 184
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 4
    OnClick = btnCloseClick
    Glyph.Data = {
      42020000424D4202000000000000420000002800000010000000100000000100
      1000030000000002000000000000000000000000000000000000007C0000E003
      00001F0000001F7C0000EF3D0000EF3D0000EF3DFF03EF3DFF0300001F7CEF01
      00000000EF3D1F7C0000000000000000000000000000FF03EF3D0000FF7FEF3D
      EF01000000001F7C1F7C1F7C1F7C0000000000000000000000000000FF7FEF01
      EF01EF0100001F7C1F7C1F7C1F7C0000007C0000FF03FF7F003C0000FF7FEF3D
      EF01EF3D000000000000000000000000007C007C0000FF03003C0000FF7FEF01
      EF3DEF0100000000007C007C007C007C007C007C007C0000003C0000FF7FEF3D
      0000EF3D00000000007C007C007C007C007C007C007C0000003C0000FF7F0000
      0000EF01000000000000000000000000007C007C0000FF03003C0000FF7FEF01
      0000EF3D00001F7C1F7C1F7C1F7C0000007C0000FF03FF7F003C0000FF7FEF3D
      EF01EF0100001F7C1F7C1F7C1F7C000000000000FF7FFF03003C0000FF7FEF3D
      EF01EF3D00001F7C1F7C1F7C1F7C00001F7C0000FF03FF7F003C0000FF7FEF01
      EF01EF0100001F7C1F7C1F7C1F7C1F7C1F7C0000FF7FFF03003C0000FF7FEF3D
      EF01EF3D00001F7C1F7C1F7C1F7C1F7C1F7C0000FF03FF7FFF03FF7F0000FF7F
      EF3DEF0100001F7C1F7C1F7C1F7C1F7C1F7C0000FF7FFF03FF7FFF03FF7FFF03
      FF7FEF3D00001F7C1F7C1F7C1F7C1F7C1F7C0000000000000000000000000000
      0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C}
  end
  object btnChoose: TBitBtn
    Left = 209
    Top = 215
    Width = 75
    Height = 25
    Caption = #36873#21462
    TabOrder = 5
    OnClick = btnChooseClick
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00007B00008484840084848400FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF0000CE0000007B000084848400FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF0000CE000000CE0000007B00008484840084848400FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF0000CE000000FF000000FF000000CE0000007B000084848400FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF0000FF000000FF000000FF000000CE0000007B00008484840084848400FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000CE
      000000FF000000FF000000FF000000FF000000CE0000007B0000848484008484
      8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FF
      000063FF630000FF0000007B000000FF000000FF000000CE0000007B00008484
      840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FF
      000094FF940063FF6300007B0000FFFFFF0000FF000000FF000000CE0000007B
      0000848484008484840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF0000FF000000FF0000FFFFFF00FFFFFF00FFFFFF0000FF000000FF000000CE
      0000007B0000007B000084848400848484008484840084848400FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FF
      000000FF000000CE0000007B0000007B0000007B000084848400FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF0000FF000000FF000000CE0000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
  end
  object ADOQuery1: TADOQuery
    Connection = Dm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from filmstage')
    Left = 160
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 160
    Top = 64
  end
end