main_czgl_njzfx.frm

餐饮管理系统 餐饮管理系统 餐饮管理系统

         _ExtentX        =   15584
         _ExtentY        =   4789
         _Version        =   393216
         AllowUpdate     =   -1  'True
         HeadLines       =   1
         RowHeight       =   15
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   7
         BeginProperty Column00 
            DataField       =   "结帐单据号"
            Caption         =   "结帐单据号"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "房台编号"
            Caption         =   "房台编号"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "日期"
            Caption         =   "日期"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "结款金额"
            Caption         =   "结款金额"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "结款人"
            Caption         =   "结款人"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column05 
            DataField       =   "结款方式"
            Caption         =   "结款方式"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column06 
            DataField       =   "结款说明"
            Caption         =   "结款说明"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            MarqueeStyle    =   4
            BeginProperty Column00 
               ColumnWidth     =   1665.071
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   810.142
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   2025.071
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   824.882
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   629.858
            EndProperty
            BeginProperty Column05 
               ColumnWidth     =   854.929
            EndProperty
            BeginProperty Column06 
               ColumnWidth     =   1620.284
            EndProperty
         EndProperty
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "统计信息 "
      Height          =   690
      Left            =   30
      TabIndex        =   0
      Top             =   3945
      Width           =   4875
      Begin VB.Label Labhjje 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H000000FF&
         Height          =   225
         Left            =   3210
         TabIndex        =   3
         Top             =   315
         Width           =   1320
      End
      Begin VB.Label Labjl 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H000000FF&
         Height          =   225
         Left            =   930
         TabIndex        =   2
         Top             =   285
         Width           =   1155
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "单据数：                合计金额："
         Height          =   255
         Left            =   90
         TabIndex        =   1
         Top             =   315
         Width           =   5295
      End
   End
End
Attribute VB_Name = "main_czgl_njzfx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()     '初始化日期
 DT2.Value = Date
 DT1.Value = DT2.Value - 365
End Sub
Private Sub Comtj_Click()     '统计营业信息
 Adodc1.RecordSource = "select * from 结帐历史信息表 where 日期 between '" + Str(DT1.Value) + "'AND '" + Str(DT2.Value) + "'"
 Adodc1.Refresh
 Set DataGrid1.DataSource = Adodc1
 If Adodc1.Recordset.RecordCount > 0 Then
   Adodc2.RecordSource = "select count(*)as 记录,sum(结款金额)as 金额合计 from 结帐历史信息表 where 日期 between '" + Str(DT1.Value) + "'AND '" + Str(DT2.Value) + "'"
   Adodc2.Refresh
   If Adodc2.Recordset.Fields(0) <> "" Then Labjl.Caption = Adodc2.Recordset.Fields(0) Else Labjl.Caption = "0"
   If Adodc2.Recordset.Fields(1) <> "" Then Labhjje.Caption = Format(Adodc2.Recordset.Fields(1), "0.00") Else Labhjje.Caption = "0.00"
  Else
   MsgBox "此日期区间无营业信息！"
 End If
End Sub
Private Sub ComView_Click()     '查看点单信息
 If Adodc1.Recordset.RecordCount > 0 Then
    Load main_czgl_ddxx
    main_czgl_ddxx.Show
    main_czgl_ddxx.js.text = "2"
    Me.Enabled = False
  Else
    MsgBox "无点单客户！"
 End If
End Sub
Private Sub Comprint_Click()     '打印结帐信息
 DataE1.rsCommand5.Open "select * from 结帐历史信息表 where 结帐历史信息表.日期 between '" + Str(DT1.Value) + "'AND '" + Str(DT2.Value) + "'", cnn, adOpenKeyset, adLockOptimistic
 DR1_njdy.Show
End Sub
Private Sub comend_Click()
 frm_main.Enabled = True
 Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
 frm_main.Enabled = True
End Sub