monthreport.~dfm

图书销售管理小系统 本系统没有用到任何第三方控件,你只要安装了Delphi7,并且在把QuickReport(Bindclqrt70.bpl)添加进去就可以了. 系统使用方法: 1

object MonthReportFrm: TMonthReportFrm
  Left = 582
  Top = 29
  Width = 812
  Height = 566
  BorderIcons = []
  Caption = #26376#25253#34920
  Color = clCream
  Ctl3D = False
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  object LblQueryYear: TLabel
    Left = 51
    Top = 68
    Width = 28
    Height = 14
    Caption = #24180#20221
  end
  object LblFrmTitle: TLabel
    Left = 357
    Top = 16
    Width = 52
    Height = 16
    Caption = #26376#25253#34920
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LblQueryMonth: TLabel
    Left = 187
    Top = 70
    Width = 28
    Height = 14
    Caption = #26376#20221
  end
  object DBGridBookInfo: TDBGrid
    Left = 28
    Top = 92
    Width = 749
    Height = 341
    DataSource = DM.PurchaseAccountDSource
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'BookID'
        Title.Caption = #22270#20070#32534#21495
        Width = 66
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BookName'
        Title.Caption = #22270#20070#21517#31216
        Width = 171
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Author'
        Title.Caption = #20316#32773
        Width = 74
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Press'
        Title.Caption = #20986#29256#31038
        Width = 147
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LMonthHave'
        Title.Caption = #19978#26376#32467#23384
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TMonthPurchase'
        Title.Caption = #26412#26376#37319#36141
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TMonthSales'
        Title.Caption = #26412#26376#38144#21806
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TMonthHave'
        Title.Caption = #26412#26376#32467#23384
        Visible = True
      end>
  end
  object BtnClose: TButton
    Left = 377
    Top = 447
    Width = 81
    Height = 25
    Caption = #20851' '#38381
    TabOrder = 1
    OnClick = BtnCloseClick
  end
  object EdtMonth: TEdit
    Left = 224
    Top = 66
    Width = 82
    Height = 20
    ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
    TabOrder = 2
  end
  object BtnCreateReport: TButton
    Left = 330
    Top = 63
    Width = 113
    Height = 25
    Caption = #29983#25104#26376#25253#34920
    TabOrder = 3
    OnClick = BtnCreateReportClick
  end
  object EdtYear: TEdit
    Left = 88
    Top = 67
    Width = 84
    Height = 20
    ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
    TabOrder = 4
  end
  object BtnOutputReport: TButton
    Left = 468
    Top = 64
    Width = 113
    Height = 25
    Caption = #25171#21360#26376#25253#34920
    TabOrder = 5
    OnClick = BtnOutputReportClick
  end
end