frmdyjz.frm

餐饮管理系统 包括29个功能模板 内容丰富

VERSION 5.00
Begin VB.Form Frmdyjz 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "月结账管理"
   ClientHeight    =   3180
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5265
   Icon            =   "Frmdyjz.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3180
   ScaleWidth      =   5265
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Caption         =   "当月结账>>"
      Height          =   3135
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   5055
      Begin VB.ComboBox Combo1 
         Height          =   300
         ItemData        =   "Frmdyjz.frx":7D42
         Left            =   2160
         List            =   "Frmdyjz.frx":7D58
         Style           =   2  'Dropdown List
         TabIndex        =   5
         Top             =   1837
         Width           =   735
      End
      Begin VB.CommandButton Command4 
         Caption         =   "检索"
         Height          =   375
         Left            =   240
         TabIndex        =   4
         Top             =   1800
         Width           =   1815
      End
      Begin VB.CommandButton Command3 
         Caption         =   "开始当月结账"
         Default         =   -1  'True
         Height          =   375
         Left            =   240
         TabIndex        =   3
         Top             =   1080
         Width           =   1815
      End
      Begin VB.CommandButton Command2 
         Caption         =   "退出(&Q)"
         Height          =   375
         Left            =   3840
         TabIndex        =   2
         Top             =   2640
         Width           =   975
      End
      Begin VB.CommandButton Command1 
         Caption         =   "打印(P)"
         Height          =   375
         Left            =   120
         TabIndex        =   1
         Top             =   2640
         Width           =   975
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "Label3"
         Height          =   180
         Left            =   2160
         TabIndex        =   8
         Top             =   1200
         Width           =   540
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "月结账情况"
         Height          =   180
         Left            =   3000
         TabIndex        =   7
         Top             =   1890
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "Label1"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   120
         TabIndex        =   6
         Top             =   360
         Width           =   630
      End
   End
End
Attribute VB_Name = "Frmdyjz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim m '保存金额
Dim d As Integer '保存检索天数

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click() '当月结账
Dim b1 As String
d = 0
If rs1.State Then rs1.Close
rs1.Open "select * from 月结账 where 结算月期 like '" & Year(Date) & "-" & Month(Date) & "%'", conn, adOpenKeyset
If rs1.BOF And rs1.EOF Then
  Call sumje '计算金额
  Call addjr '添加记录
End If
If Not rs1.BOF And Not rs1.EOF Then
  Call sumje '计算金额
  Call upjr '更新记录
End If
MsgBox "结账成功！", vbOKOnly + vbInformation, "提示"
End Sub
Private Sub Command4_Click() '检索结账情况
For d = Val(Combo1.Text) To 1 Step -1
    If rs1.State Then rs1.Close
    rs1.Open "select * from 月结账 where 结算月期 like'" & Left(Date - d * 30, 7) & "%'", conn, adOpenKeyset
    If rs1.BOF And rs1.EOF Then
      n = MsgBox(Left(Date - d * 30, 7) & "未结账, 是否进补结账处理", vbYesNo + vbInformation + vbDefaultButton1, "提示")
      If n = vbYes Then
        Call sumje '计算金额
        Call addjr '添加记录
      End If
    End If
    If Not rs1.BOF And Not rs1.EOF Then
      n = MsgBox(Left(Date - d * 30, 7) & "已结过账, 是否进重结账处理？", vbYesNo + vbInformation + vbDefaultButton1, "提示")
      If n = vbYes Then
        Call sumje '计算金额
        Call upjr '更新记录
      End If
    End If
Next
MsgBox "结账成功！", vbOKOnly + vbInformation, "提示"
End Sub
Private Sub Form_Load()
Label1.Caption = "当前结账时间:" & Format(Date, "yyyy 年 mm 月")
Label3.Caption = "当前无结算金额"
Combo1.ListIndex = 0
End Sub
Public Sub addjr() '添加记录
  cmd.ActiveConnection = conn
  cmd.CommandText = "insert into 月结账 values('" & Date - (d * 30) & "','" & m & "','" & uname & "')"
  cmd.Execute
End Sub
Public Sub upjr() '更新记录
  cmd.ActiveConnection = conn
  cmd.CommandText = "update 月结账 set 结算月期='" & Date - (d * 30) & "',结算总金额='" & m & "',结算人='" & uname & "' where 结算月期 like '" & Left(Date - d * 30, 7) & "%'"
  cmd.Execute
End Sub
Public Sub sumje() '计算金额
  Dim k As Integer
  m = 0
  If rs2.State Then rs2.Close
  rs2.Open "select * from 日结账 where 结算日期 like '" & Left(Date - d * 30, 7) & "%'", conn, adOpenKeyset
  If Not rs2.EOF And Not rs2.BOF Then
     For k = 1 To rs2.RecordCount
         m = m + rs2.Fields("结算总金额")
         rs2.MoveNext
     Next
     Label3.Caption = "当前结算金额：" & m
     Else
     Label3.Caption = "当前结算金额:：0"
  End If
End Sub