dmwh.dfm

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

object dmwhfm: Tdmwhfm
  Left = 76
  Top = 70
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #20195#30721#32500#25252
  ClientHeight = 430
  ClientWidth = 694
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 694
    Height = 33
    Align = alTop
    Caption = #20195#30721#32500#25252
    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 = 694
    Height = 397
    Align = alClient
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 144
      Height = 395
      Align = alLeft
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 1
        Top = 73
        Width = 142
        Height = 321
        Align = alClient
        Ctl3D = False
        DataSource = dmfm.DataSource10
        FixedColor = clMoneyGreen
        ParentCtl3D = False
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object Panel7: TPanel
        Left = 1
        Top = 1
        Width = 142
        Height = 72
        Align = alTop
        Color = clMoneyGreen
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 1
        object BitBtn1: TBitBtn
          Left = 40
          Top = 8
          Width = 80
          Height = 25
          Caption = #21024#38500#21307#24072
          TabOrder = 0
          OnClick = BitBtn1Click
        end
        object BitBtn5: TBitBtn
          Left = 40
          Top = 40
          Width = 80
          Height = 25
          Caption = #20462#25913#25552#31034
          TabOrder = 1
          OnClick = BitBtn5Click
        end
      end
    end
    object Panel4: TPanel
      Left = 145
      Top = 1
      Width = 168
      Height = 395
      Align = alLeft
      TabOrder = 1
      object DBGrid2: TDBGrid
        Left = 1
        Top = 73
        Width = 166
        Height = 321
        Align = alClient
        Ctl3D = False
        DataSource = dmfm.DataSource11
        FixedColor = clMoneyGreen
        ParentCtl3D = False
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object Panel8: TPanel
        Left = 1
        Top = 1
        Width = 166
        Height = 72
        Align = alTop
        Color = clMoneyGreen
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 1
        object BitBtn2: TBitBtn
          Left = 40
          Top = 8
          Width = 80
          Height = 25
          Caption = #21024#38500#37096#20301
          TabOrder = 0
          OnClick = BitBtn2Click
        end
        object BitBtn6: TBitBtn
          Left = 40
          Top = 40
          Width = 80
          Height = 25
          Caption = #20462#25913#25552#31034
          TabOrder = 1
          OnClick = BitBtn6Click
        end
      end
    end
    object Panel5: TPanel
      Left = 313
      Top = 1
      Width = 200
      Height = 395
      Align = alLeft
      TabOrder = 2
      object DBGrid3: TDBGrid
        Left = 1
        Top = 73
        Width = 198
        Height = 321
        Align = alClient
        Ctl3D = False
        DataSource = dmfm.DataSource12
        FixedColor = clMoneyGreen
        ParentCtl3D = False
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object Panel9: TPanel
        Left = 1
        Top = 1
        Width = 198
        Height = 72
        Align = alTop
        Color = clMoneyGreen
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 1
        object BitBtn3: TBitBtn
          Left = 64
          Top = 8
          Width = 80
          Height = 25
          Caption = #21024#38500#20020#24202#35786#26029
          TabOrder = 0
          OnClick = BitBtn3Click
        end
        object BitBtn7: TBitBtn
          Left = 64
          Top = 40
          Width = 80
          Height = 25
          Caption = #20462#25913#25552#31034
          TabOrder = 1
          OnClick = BitBtn7Click
        end
      end
    end
    object Panel6: TPanel
      Left = 513
      Top = 1
      Width = 180
      Height = 395
      Align = alClient
      TabOrder = 3
      object DBGrid4: TDBGrid
        Left = 1
        Top = 73
        Width = 178
        Height = 321
        Align = alClient
        Ctl3D = False
        DataSource = dmfm.DataSource13
        FixedColor = clMoneyGreen
        ParentCtl3D = False
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object Panel10: TPanel
        Left = 1
        Top = 1
        Width = 178
        Height = 72
        Align = alTop
        Color = clMoneyGreen
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 1
        object BitBtn4: TBitBtn
          Left = 56
          Top = 8
          Width = 80
          Height = 25
          Caption = #21024#38500'X'#29255#35786#26029
          TabOrder = 0
          OnClick = BitBtn4Click
        end
        object BitBtn8: TBitBtn
          Left = 56
          Top = 40
          Width = 80
          Height = 25
          Caption = #20462#25913#25552#31034
          TabOrder = 1
          OnClick = BitBtn8Click
        end
      end
    end
  end
end