月度报表.frm

本系统主要实现小型酒吧的管理

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form 月度报表 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   7245
   ClientLeft      =   2760
   ClientTop       =   4050
   ClientWidth     =   11310
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   7245
   ScaleWidth      =   11310
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "月度报表.frx":0000
      Height          =   7200
      Left            =   -30
      OleObjectBlob   =   "月度报表.frx":0014
      TabIndex        =   0
      Top             =   60
      Width           =   11340
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "C:\Documents and Settings\zjk\桌面\包\包\Support\酒吧管理数据库.mdb"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   285
      Left            =   4050
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "消费记录"
      Top             =   2535
      Visible         =   0   'False
      Width           =   1155
   End
   Begin VB.Menu m1 
      Caption         =   "选择打印内容"
      Begin VB.Menu m11 
         Caption         =   "月度汇总"
      End
      Begin VB.Menu m12 
         Caption         =   "会员个人"
      End
   End
   Begin VB.Menu pr 
      Caption         =   "打印"
   End
End
Attribute VB_Name = "月度报表"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then
   帮助对话框.Show 1
Else
   If KeyCode = vbKeyEscape Then
   Unload Me
   End If
End If

End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\酒吧管理数据库.mdb"
End Sub

Private Sub m11_Click()
Dim d1 As Variant, d2 As Variant
N = Val(InputBox("请输入月份", "选择月份", 1))
If N > Month(Now) Then
MsgBox "该月还没", vbCritical
ElseIf N > 12 Or N < 1 Then
MsgBox "没有这样的月份", vbCritical
Else
d1 = CDate(CStr(Year(Now)) & "-" & N & "-" & "01")
d2 = CDate(CStr(Year(Now)) & "-" & (N + 1) & "-" & "01")
Data1.RecordSource = "select * from 消费记录  where 消费日期 >= " & "#" & d1 & "#" & "and 消费日期< " & "#" & d2 & "#" & " order by 消费日期"
Data1.Refresh
DBGrid1.Refresh
DBGrid1.Caption = N & "月份的消费汇总"
End If

End Sub

Private Sub m12_Click()
Dim N As Integer
N = Int(Val(InputBox("请输入VIP卡号", "选择会员", 999999)))
Data1.RecordSource = "select * from 消费记录  where 卡号 = " & N & " order by 消费日期"
Data1.Refresh
DBGrid1.Refresh
DBGrid1.Caption = "卡号为" & N & "的会员消费汇总"


End Sub

Private Sub pr_Click()
answer = MsgBox("确实要打印吗?", vbYesNo)
If answer = vbYes Then 月度报表.PrintForm

End Sub