sbsz.dfm

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

        Width = 612
        Height = 91
        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 = (
          240.770833333333
          1619.25)
        BandType = rbPageHeader
        object QRLabel1: TQRLabel
          Left = 264
          Top = 8
          Width = 89
          Height = 22
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            58.2083333333333
            698.5
            21.1666666666667
            235.479166666667)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = 'QRLabel1'
          Color = clWhite
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = [fsUnderline]
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 16
        end
        object QRLabel2: TQRLabel
          Left = 104
          Top = 56
          Width = 77
          Height = 22
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            58.2083333333333
            275.166666666667
            148.166666666667
            203.729166666667)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #31867#21035#32534#30721
          Color = clWhite
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 14
        end
        object QRLabel3: TQRLabel
          Left = 404
          Top = 56
          Width = 77
          Height = 22
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            58.2083333333333
            1068.91666666667
            148.166666666667
            203.729166666667)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #31867#21035#21517#31216
          Color = clWhite
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 14
        end
        object QRShape1: TQRShape
          Left = 48
          Top = 82
          Width = 511
          Height = 8
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            21.1666666666667
            127
            216.958333333333
            1352.02083333333)
          Pen.Width = 2
          Shape = qrsHorLine
        end
      end
      object DetailBand1: TQRBand
        Left = 38
        Top = 129
        Width = 612
        Height = 26
        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 = (
          68.7916666666667
          1619.25)
        BandType = rbDetail
        object QRDBText1: TQRDBText
          Left = 102
          Top = 2
          Width = 41
          Height = 22
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            58.2083333333333
            269.875
            5.29166666666667
            108.479166666667)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = Query1
          DataField = 'lbbm'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 14
        end
        object QRDBText2: TQRDBText
          Left = 405
          Top = 2
          Width = 41
          Height = 22
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            58.2083333333333
            1071.5625
            5.29166666666667
            108.479166666667)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = Query1
          DataField = 'lbmc'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 14
        end
      end
    end
  end
  object Query1: TQuery
    CachedUpdates = True
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM leibie leibie'
      'order by lbbm')
    UpdateObject = UpdateSQL1
    Left = 136
    Top = 45
    object Query1lbbm: TStringField
      FieldName = 'lbbm'
      Origin = 'CCC.leibie.lbbm'
    end
    object Query1lbmc: TStringField
      FieldName = 'lbmc'
      Origin = 'CCC.leibie.lbmc'
    end
    object Query1pym: TStringField
      FieldName = 'pym'
      Origin = 'CCC.leibie.pym'
      Size = 10
    end
    object Query1Id: TIntegerField
      FieldName = 'Id'
      Origin = 'CCC.leibie.Id'
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update leibie'
      'set'
      '  lbbm = :lbbm,'
      '  lbmc = :lbmc,'
      '  pym = :pym'
      'where'
      '  Id = :OLD_Id')
    InsertSQL.Strings = (
      'insert into leibie'
      '  (lbbm, lbmc, pym)'
      'values'
      '  (:lbbm, :lbmc, :pym)')
    DeleteSQL.Strings = (
      'delete from leibie'
      'where'
      '  Id = :OLD_Id')
    Left = 224
    Top = 45
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 184
    Top = 45
  end
end