zygl_.dfm

delphi 医院管理系统 自带数据库 只要附加上就可以用

        object Label46: TLabel
          Left = 344
          Top = 72
          Width = 17
          Height = 13
          AutoSize = False
          Caption = #20803
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label58: TLabel
          Left = 472
          Top = 48
          Width = 33
          Height = 13
          AutoSize = False
          Caption = #22791#27880
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Ebrid: TEdit
          Left = 56
          Top = 8
          Width = 57
          Height = 21
          TabOrder = 0
          OnChange = EbridChange
          OnKeyPress = EbridKeyPress
        end
        object Exmfymc: TEdit
          Left = 8
          Top = 64
          Width = 153
          Height = 21
          Enabled = False
          TabOrder = 1
          OnKeyPress = ExmfymcKeyPress
        end
        object Esl: TEdit
          Left = 184
          Top = 64
          Width = 25
          Height = 21
          Enabled = False
          TabOrder = 2
          OnChange = EslChange
          OnKeyPress = EslKeyPress
        end
        object Edw: TEdit
          Left = 224
          Top = 64
          Width = 41
          Height = 21
          Enabled = False
          ReadOnly = True
          TabOrder = 3
        end
        object Efy: TEdit
          Left = 288
          Top = 64
          Width = 49
          Height = 21
          Enabled = False
          ReadOnly = True
          TabOrder = 4
        end
        object Erq: TEdit
          Left = 384
          Top = 64
          Width = 73
          Height = 21
          Enabled = False
          TabOrder = 5
        end
        object Button4: TButton
          Left = 632
          Top = 60
          Width = 75
          Height = 25
          Caption = #25552#20132
          Enabled = False
          TabOrder = 6
          OnClick = Button4Click
        end
        object DBGrid3: TDBGrid
          Left = 8
          Top = 96
          Width = 777
          Height = 113
          DataSource = DMzygl.DSyrqdXG
          FixedColor = clSilver
          ReadOnly = True
          TabOrder = 7
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = #30149#20154'id'
              Visible = True
            end
            item
              Expanded = False
              FieldName = #39033#30446#36153#29992#21517#31216
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25968#37327
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21333#20301
              Visible = True
            end
            item
              Expanded = False
              FieldName = #36153#29992
              Visible = True
            end
            item
              Expanded = False
              FieldName = #26085#26399
              Visible = True
            end
            item
              Expanded = False
              FieldName = #22791#27880
              Visible = True
            end>
        end
        object Ebz: TEdit
          Left = 472
          Top = 64
          Width = 137
          Height = 21
          MaxLength = 100
          TabOrder = 8
        end
      end
      object Panel7: TPanel
        Left = 0
        Top = 281
        Width = 733
        Height = 225
        Align = alTop
        Color = cl3DLight
        TabOrder = 2
        object Label48: TLabel
          Left = 584
          Top = 16
          Width = 57
          Height = 13
          AutoSize = False
          Caption = #21333#20301#36153#29992
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label49: TLabel
          Left = 712
          Top = 16
          Width = 17
          Height = 13
          AutoSize = False
          Caption = #20803
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label50: TLabel
          Left = 264
          Top = 8
          Width = 145
          Height = 24
          AutoSize = False
          Caption = #19968#26085#28165#21333#20462#25913
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clTeal
          Font.Height = -19
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label51: TLabel
          Left = 8
          Top = 40
          Width = 41
          Height = 13
          AutoSize = False
          Caption = #30149#20154'id'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label52: TLabel
          Left = 112
          Top = 40
          Width = 97
          Height = 13
          AutoSize = False
          Caption = #39033#30446#36153#29992#21517#31216
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label53: TLabel
          Left = 8
          Top = 88
          Width = 41
          Height = 13
          AutoSize = False
          Caption = #25968#37327
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label55: TLabel
          Left = 112
          Top = 88
          Width = 41
          Height = 13
          AutoSize = False
          Caption = #36153#29992
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label54: TLabel
          Left = 165
          Top = 112
          Width = 17
          Height = 13
          AutoSize = False
          Caption = #20803
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label56: TLabel
          Left = 192
          Top = 88
          Width = 41
          Height = 13
          AutoSize = False
          Caption = #26085#26399
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label57: TLabel
          Left = 56
          Top = 88
          Width = 33
          Height = 13
          AutoSize = False
          Caption = #21333#20301
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label59: TLabel
          Left = 8
          Top = 144
          Width = 33
          Height = 13
          AutoSize = False
          Caption = #22791#27880
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBGqdXG: TDBGrid
          Left = 304
          Top = 40
          Width = 465
          Height = 153
          Color = clMoneyGreen
          DataSource = DMzygl.DSyrqdXG1
          FixedColor = clInfoBk
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = DBGqdXGCellClick
          Columns = <
            item
              Expanded = False
              FieldName = #30149#20154'id'
              Visible = True
            end
            item
              Expanded = False
              FieldName = #39033#30446#36153#29992#21517#31216
              Width = 200
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25968#37327
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21333#20301
              Visible = True
            end
            item
              Expanded = False
              FieldName = #36153#29992
              Visible = True
            end
            item
              Expanded = False
              FieldName = #26085#26399
              Visible = True
            end
            item
              Expanded = False
              FieldName = #22791#27880
              Visible = True
            end>
        end
        object Button5: TButton
          Left = 8
          Top = 8
          Width = 97
          Height = 25
          Caption = #20462#25913#30149#20154#28165#21333
          TabOrder = 1
          OnClick = Button5Click
        end
        object Button6: TButton
          Left = 120
          Top = 8
          Width = 75
          Height = 25
          Caption = #36864#20986#20462#25913
          Enabled = False
          TabOrder = 2
          OnClick = Button6Click
        end
        object Edwfy: TEdit