tj.dfm

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

object tjfm: Ttjfm
  Left = 20
  Top = 97
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #36164#26009#32479#35745
  ClientHeight = 435
  ClientWidth = 718
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 718
    Height = 33
    Align = alTop
    Caption = #21508#31181#36164#26009#32479#35745
    Color = clMoneyGreen
    Font.Charset = GB2312_CHARSET
    Font.Color = clMaroon
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 33
    Width = 718
    Height = 402
    Align = alClient
    Color = clMoneyGreen
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 716
      Height = 88
      Align = alTop
      Caption = #32479#35745#26465#20214#35774#23450
      TabOrder = 0
      object Label1: TLabel
        Left = 384
        Top = 58
        Width = 12
        Height = 12
        Caption = #33267
      end
      object Label2: TLabel
        Left = 130
        Top = 58
        Width = 12
        Height = 12
        Caption = #33267
      end
      object CheckBox1: TCheckBox
        Left = 8
        Top = 16
        Width = 49
        Height = 17
        Caption = #32844#19994#65309
        TabOrder = 0
      end
      object CheckBox2: TCheckBox
        Left = 160
        Top = 16
        Width = 49
        Height = 17
        Caption = #24615#21035#65309
        TabOrder = 1
      end
      object CheckBox3: TCheckBox
        Left = 288
        Top = 16
        Width = 73
        Height = 17
        Caption = #26159#21542#38451#24615#65309
        TabOrder = 2
      end
      object CheckBox4: TCheckBox
        Left = 432
        Top = 16
        Width = 73
        Height = 17
        Caption = #20020#24202#31526#21512#65309
        TabOrder = 3
      end
      object CheckBox5: TCheckBox
        Left = 576
        Top = 16
        Width = 49
        Height = 17
        Caption = #21307#24072#65309
        TabOrder = 4
      end
      object CheckBox6: TCheckBox
        Left = 8
        Top = 52
        Width = 73
        Height = 17
        Caption = #24180#40836#33539#22260
        TabOrder = 5
      end
      object CheckBox7: TCheckBox
        Left = 216
        Top = 52
        Width = 65
        Height = 17
        Caption = #25293#29255#26102#38388
        TabOrder = 6
      end
      object ComboBox1: TComboBox
        Left = 64
        Top = 16
        Width = 81
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 7
      end
      object ComboBox2: TComboBox
        Left = 216
        Top = 16
        Width = 49
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 8
        Items.Strings = (
          #30007
          #22899)
      end
      object ComboBox3: TComboBox
        Left = 368
        Top = 16
        Width = 41
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 9
        Items.Strings = (
          #26159
          #21542)
      end
      object ComboBox4: TComboBox
        Left = 512
        Top = 16
        Width = 49
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 10
        Items.Strings = (
          #26159
          #21542)
      end
      object Edit1: TEdit
        Left = 80
        Top = 52
        Width = 25
        Height = 20
        TabOrder = 11
        Text = '0'
      end
      object Edit2: TEdit
        Left = 152
        Top = 52
        Width = 25
        Height = 20
        TabOrder = 12
        Text = '0'
      end
      object Edit3: TEdit
        Left = 640
        Top = 16
        Width = 65
        Height = 20
        TabOrder = 13
        OnDblClick = Edit3DblClick
      end
      object UpDown1: TUpDown
        Left = 105
        Top = 52
        Width = 17
        Height = 20
        Associate = Edit1
        Min = 0
        Position = 0
        TabOrder = 14
        Wrap = False
      end
      object UpDown2: TUpDown
        Left = 177
        Top = 52
        Width = 17
        Height = 20
        Associate = Edit2
        Min = 0
        Position = 0
        TabOrder = 15
        Wrap = False
      end
      object DateTimePicker1: TDateTimePicker
        Left = 288
        Top = 52
        Width = 90
        Height = 20
        CalAlignment = dtaLeft
        Date = 37491.9860917824
        Time = 37491.9860917824
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 16
      end
      object DateTimePicker2: TDateTimePicker
        Left = 400
        Top = 52
        Width = 89
        Height = 20
        CalAlignment = dtaLeft
        Date = 37491.9869971065
        Time = 37491.9869971065
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 17
      end
      object BitBtn1: TBitBtn
        Left = 504
        Top = 48
        Width = 57
        Height = 25
        Caption = #32479#35745
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 18
        OnClick = BitBtn1Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object BitBtn2: TBitBtn
        Left = 648
        Top = 48
        Width = 57
        Height = 25
        Caption = #36864#20986
        TabOrder = 19
        OnClick = BitBtn2Click
        Kind = bkClose
      end
      object BitBtn3: TBitBtn
        Left = 576
        Top = 48
        Width = 57
        Height = 25
        Caption = #28165#38500#26465#20214
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 20
        OnClick = BitBtn3Click
      end
    end
    object StatusBar1: TStatusBar
      Left = 1
      Top = 382
      Width = 716
      Height = 19
      Panels = <
        item
          Alignment = taCenter
          Width = 350
        end
        item
          Alignment = taCenter
          Width = 50
        end>
      SimplePanel = False
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 89
      Width = 716
      Height = 293
      Align = alClient
      DataSource = dmfm.DataSource8
      TabOrder = 2
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
  end
end