⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 yrqd_bb_f_.dfm

📁 delphi 医院管理系统 自带数据库 只要附加上就可以用
💻 DFM
📖 第 1 页 / 共 2 页
字号:
          254
          1166.8125)
        Shape = qrsHorLine
      end
      object QRShape15: TQRShape
        Left = 0
        Top = 128
        Width = 441
        Height = 9
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          23.8125
          0
          338.666666666667
          1166.8125)
        Shape = qrsHorLine
      end
    end
    object QRBand2: TQRBand
      Left = 38
      Top = 38
      Width = 718
      Height = 40
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        105.833333333333
        1899.70833333333)
      BandType = rbPageHeader
    end
    object DetailBand1: TQRBand
      Left = 38
      Top = 217
      Width = 718
      Height = 32
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        84.6666666666667
        1899.70833333333)
      BandType = rbDetail
      object QRDBText3: TQRDBText
        Left = 48
        Top = 8
        Width = 97
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          127
          21.1666666666667
          256.645833333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = ADOQyrqd_bb
        DataField = #39033#30446#36153#29992#21517#31216
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRDBText5: TQRDBText
        Left = 312
        Top = 8
        Width = 33
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          825.5
          21.1666666666667
          87.3125)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = ADOQyrqd_bb
        DataField = #21333#20301
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRDBText6: TQRDBText
        Left = 256
        Top = 8
        Width = 33
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          677.333333333333
          21.1666666666667
          87.3125)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = ADOQyrqd_bb
        DataField = #25968#37327
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRDBText7: TQRDBText
        Left = 384
        Top = 8
        Width = 33
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1016
          21.1666666666667
          87.3125)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = ADOQyrqd_bb
        DataField = #36153#29992
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
    end
    object QRBand3: TQRBand
      Left = 38
      Top = 249
      Width = 718
      Height = 72
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        190.5
        1899.70833333333)
      BandType = rbSummary
      object QRLabel9: TQRLabel
        Left = 0
        Top = 16
        Width = 101
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          0
          42.3333333333333
          267.229166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #20170#26085#36153#29992#24635#21644':'
        Color = clWhite
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRExpr1: TQRExpr
        Left = 104
        Top = 16
        Width = 158
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          275.166666666667
          42.3333333333333
          418.041666666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'SUM(ADOQyrqd_bb.'#36153#29992')'
        FontSize = 10
      end
      object QRDBText8: TQRDBText
        Left = 352
        Top = 16
        Width = 65
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          931.333333333333
          42.3333333333333
          171.979166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = ADOQyrqd_bb
        DataField = #21097#20313#25276#37329
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRLabel10: TQRLabel
        Left = 280
        Top = 16
        Width = 69
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          740.833333333333
          42.3333333333333
          182.5625)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #21097#20313#25276#37329':'
        Color = clWhite
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRShape14: TQRShape
        Left = 0
        Top = -5
        Width = 441
        Height = 9
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          23.8125
          0
          -13.2291666666667
          1166.8125)
        Shape = qrsHorLine
      end
    end
  end
  object ADOQyrqd_bb: TADOQuery
    Connection = DMzygl.ADOCzygl
    CursorType = ctStatic
    Parameters = <
      item
        Name = #30149#20154'id'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = #26085#26399
        DataType = ftString
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      'select * from '#27599#26085#28165#21333#34920' where ('#30149#20154'id=:'#30149#20154'id) and ('#26085#26399'=:'#26085#26399')'
      '')
    Left = 120
    Top = 264
    object ADOQyrqd_bbid: TStringField
      FieldName = #30149#20154'id'
      Size = 10
    end
    object ADOQyrqd_bbDSDesigner: TStringField
      FieldName = #39033#30446#36153#29992#21517#31216
      Size = 40
    end
    object ADOQyrqd_bbDSDesigner2: TIntegerField
      FieldName = #25968#37327
    end
    object ADOQyrqd_bbDSDesigner3: TStringField
      FieldName = #21333#20301
      Size = 2
    end
    object ADOQyrqd_bbDSDesigner4: TFloatField
      FieldName = #36153#29992
    end
    object ADOQyrqd_bbDSDesigner5: TDateTimeField
      FieldName = #26085#26399
    end
    object ADOQyrqd_bbStringField: TStringField
      FieldKind = fkLookup
      FieldName = #30149#20154#21517#31216
      LookupDataSet = DMzygl.ADOTbab
      LookupKeyFields = #30149#20154'id'
      LookupResultField = #22995#21517
      KeyFields = #30149#20154'id'
      Size = 8
      Lookup = True
    end
    object ADOQyrqd_bbField: TStringField
      FieldKind = fkLookup
      FieldName = #21097#20313#25276#37329
      LookupDataSet = DMzygl.ADOTbab
      LookupKeyFields = #30149#20154'id'
      LookupResultField = #25276#37329
      KeyFields = #30149#20154'id'
      Size = 8
      Lookup = True
    end
  end
  object DSyrqd_bb: TDataSource
    DataSet = ADOQyrqd_bb
    Left = 152
    Top = 264
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -