main_ysyf_gzgl.frm

餐饮企业的管理系统主要包括前台管理、后台管理、财务管理、报表打印等功能

               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
         BeginProperty Column07 
            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 
            BeginProperty Column00 
               ColumnWidth     =   1769.953
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   1980.284
            EndProperty
            BeginProperty Column02 
               Object.Visible         =   0   'False
               ColumnWidth     =   2009.764
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   615.118
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   629.858
            EndProperty
            BeginProperty Column05 
               ColumnWidth     =   929.764
            EndProperty
            BeginProperty Column06 
               ColumnWidth     =   854.929
            EndProperty
            BeginProperty Column07 
               ColumnWidth     =   824.882
            EndProperty
         EndProperty
      End
   End
   Begin VB.Frame Frame3 
      Height          =   930
      Left            =   7845
      TabIndex        =   14
      Top             =   2595
      Width           =   2370
      Begin VB.CommandButton Comview 
         Caption         =   "查看点单信息"
         Height          =   330
         Left            =   180
         TabIndex        =   4
         Top             =   150
         Width           =   2010
      End
      Begin VB.CommandButton Comprint 
         Caption         =   "打印挂账信息"
         Height          =   330
         Left            =   180
         TabIndex        =   5
         Top             =   525
         Width           =   2010
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "还账功能"
      Height          =   990
      Left            =   7830
      TabIndex        =   15
      Top             =   3525
      Width           =   2370
      Begin VB.CommandButton Comall 
         Caption         =   "全部挂账归还"
         Height          =   330
         Left            =   180
         TabIndex        =   7
         Top             =   585
         Width           =   2010
      End
      Begin VB.CommandButton Comone 
         Caption         =   "单个挂账归还"
         Height          =   330
         Left            =   180
         TabIndex        =   6
         Top             =   225
         Width           =   2010
      End
   End
End
Attribute VB_Name = "main_ysyf_gzgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim newcnn As New Connection     '定义数据库连接
Dim myval, SQL0, SQL1, SQL2, SQL3, SQL4 As String    '定义字符串变量
Dim rs1 As New ADODB.Recordset     '定义数据集对象
Private Sub Form_Load()
   rq.text = Now     '设置时间
   DT2.Value = Date
   DT1.Value = DT2.Value - 1
   rs1.Open "select 挂账人 from 挂账表 group by 挂账人", cnn, adOpenKeyset, adLockOptimistic
   '添加挂账人
   If rs1.BOF = False Then rs1.MoveFirst
   For i = 0 To rs1.RecordCount - 1
       Combo1.AddItem (Trim(rs1.Fields("挂账人")))
       rs1.MoveNext
   Next i
   If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
   rs1.Close
   Me.Caption = Me.Caption & "    " & frm_main.St1.Panels(3).text
    Sql = "select * From 挂账表 "
    sqlStr = "select * From 挂账表 "
    Call FunAdo(Adodc1, Sql)
    Call FunAdo(Adodc2, sqlStr)
End Sub
Private Sub Comfind_Click()     '查询统计挂账信息
 If Combo1.text <> "" Then
    Sql = "select * from 挂账表 where 挂账时间 between '" + Str(DT1.Value) + "'AND '" + Str(DT2.Value + 1) + "'and 挂账人='" + Trim(Combo1.text) + "'"
    Call FunAdo(Adodc1, Sql)
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount > 0 Then
       sqlStr = "select count(*)aS 记录,sum(挂账金额)as 金额合计 from 挂账表 where 挂账时间 between '" + Str(DT1.Value) + "'AND '" + Str(DT2.Value + 1) + "'and 挂账人='" + Trim(Combo1.text) + "'"
       Call FunAdo(Adodc2, sqlStr)
       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 "没有挂账客户！"
        Labjl.Caption = ""
        Labhjje.Caption = ""
     End If
  Else
     MsgBox "请输入挂账人！"
 End If
End Sub
Private Sub ComView_Click()     '显示点单信息
    Dim rs As New ADODB.Recordset
    Dim rs1 As New ADODB.Recordset
    Dim sqlStr, sqlStr1 As String
    sqlStr = "select * from 日点单信息表 where 日点单信息表.单据号='" + Trim(Adodc1.Recordset.Fields("单据号")) + "'"
    sqlStr1 = "select * from 月点单信息表 where 月点单信息表.单据号='" + Trim(Adodc1.Recordset.Fields("单据号")) + "'"
    rs.Open sqlStr, cnn, adOpenStatic, adLockReadOnly
    rs1.Open sqlStr, cnn, adOpenStatic, adLockReadOnly
 If Adodc1.Recordset.RecordCount > 0 Then
    Load main_czgl_ddxx
    main_czgl_ddxx.Show
    If rs.RecordCount > 0 Then
        main_czgl_ddxx.js.text = "3"
    ElseIf rs1.RecordCount > 0 Then
        main_czgl_ddxx.js.text = "1"
    Else
        main_czgl_ddxx.js.text = "4"
    End If
    Me.Enabled = False
 Else
    MsgBox "无点单客户！"
 End If
End Sub
Private Sub Comprint_Click()     '打印挂账信息
  DataE1.rsCommand2.Open "select * from 挂账表 where 挂账表.挂账时间 between '" + Str(DT1.Value) + "'AND '" + Str(DT2.Value + 1) + "'and 挂账人='" + Trim(Combo1.text) + "'", cnn, adOpenKeyset, adLockOptimistic
  DR1_gzdy.Show
End Sub
Private Sub Comone_Click()     '单个挂账归还
  newcnn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=CYGLXT"
 Sql = "select * from 挂账表 where 挂账时间 between '" + Str(DT1.Value) + "'AND '" + Str(DT2.Value + 1) + "'and 挂账人='" + Trim(Combo1.text) + "'"
  Call FunAdo(Adodc1, Sql)
  Adodc1.Refresh
  If Adodc1.Recordset.RecordCount > 0 Then
     myval = MsgBox("确认客户归还账款吗？", vbYesNo)
     If myval = vbYes Then
        SQL0 = "update 挂账表 set 还账时间='" + Trim(rq.text) + "',是否结账='是' where 单据号='" + Trim(Adodc1.Recordset.Fields("单据号")) + "'and 挂账人='" + Trim(Combo1.text) + "'"
        newcnn.Execute SQL0
        SQL1 = "insert 挂账历史表(单据号,挂账时间,还账时间,挂账人,经手人,挂账原因,挂账金额,是否结账) select 单据号,挂账时间,还账时间,挂账人,经手人,挂账原因,挂账金额,是否结账 from 挂账表 where 单据号='" + Trim(Adodc1.Recordset.Fields("单据号")) + "'"
        newcnn.Execute SQL1
        SQL3 = "insert 挂账点单历史表(房台编号,房台类别,商品编号,商品名称,单位,数量,单价,金额,点单日期,结账日期,服务员编号,服务员姓名,状态,单据号,是否结账,备注) select 房台编号,房台类别,商品编号,商品名称,单位,数量,单价,金额,点单日期,结账日期,服务员编号,服务员姓名,状态,单据号,是否结账,备注 from 挂账点单临时表 where 单据号='" + Trim(Adodc1.Recordset.Fields("单据号")) + "'"
        newcnn.Execute SQL3
        SQL4 = "delete 挂账点单临时表 where 单据号='" + Trim(Adodc1.Recordset.Fields("单据号")) + "'"
        newcnn.Execute SQL4
        SQL2 = "delete 挂账表 where 单据号='" + Trim(Adodc1.Recordset.Fields("单据号")) + "'"
        newcnn.Execute SQL2         'Connection 对象的 Execute 方法，执行指定的查询、SQL 语句、存储过程或特定提供者的文本等内容。
        Adodc1.Refresh
        MsgBox "客户已成功归还账款！"
     End If
  Else
     MsgBox "没有挂账客户！"
  End If
  newcnn.Close
  Sql = "select * from 挂账表 where 是否结账='否'"
  Call FunAdo(Adodc1, Sql)
  Adodc1.Refresh
End Sub
Private Sub Comall_Click()     '全部挂账归还
  newcnn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=CYGLXT"
  Sql = "select * from 挂账表 where 挂账时间 between '" + Str(DT1.Value) + "'AND '" + Str(DT2.Value + 1) + "'and 挂账人='" + Trim(Combo1.text) + "'"
  Call FunAdo(Adodc1, Sql)
  Adodc1.Refresh
 If Adodc1.Recordset.RecordCount > 0 Then
    myval = MsgBox("确认客户归还账款吗？", vbYesNo)
    If myval = vbYes Then
       SQL0 = "update 挂账表 set 还账时间='" + Trim(rq.text) + "',是否结账='是' where 挂账人='" + Trim(Combo1.text) + "'"
       newcnn.Execute SQL0
       If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveFirst
        For i = 0 To Adodc1.Recordset.RecordCount - 1
            SQL3 = "insert 挂账点单历史表(房台编号,房台类别,商品编号,商品名称,单位,数量,单价,金额,点单日期,结账日期,服务员编号,服务员姓名,状态,单据号,是否结账,备注) select 房台编号,房台类别,商品编号,商品名称,单位,数量,单价,金额,点单日期,结账日期,服务员编号,服务员姓名,状态,单据号,是否结账,备注 from 挂账点单临时表 where 单据号='" + Trim(Adodc1.Recordset.Fields("单据号")) + "'"
            newcnn.Execute SQL3
            SQL4 = "delete 挂账点单临时表 where 单据号='" + Trim(Adodc1.Recordset.Fields("单据号")) + "'"
            Adodc1.Recordset.MoveNext
        Next i
       SQL1 = "insert 挂账历史表(单据号,挂账时间,还账时间,挂账人,经手人,挂账原因,挂账金额,是否结账) select 单据号,挂账时间,还账时间,挂账人,经手人,挂账原因,挂账金额,是否结账 from 挂账表 where 挂账人='" + Trim(Combo1.text) + "'and 是否结账='是'"
       newcnn.Execute SQL1
       SQL2 = "delete 挂账表 where 挂账人='" + Trim(Combo1.text) + "'"
       newcnn.Execute SQL2
       Adodc1.Refresh
       MsgBox "客户已成功归还账款！"
    End If
 Else
    MsgBox "没有挂账客户！"
 End If
 newcnn.Close
   '重新刷新
     rq.text = Now     '设置时间
   DT2.Value = Date
   DT1.Value = DT2.Value - 1
   rs1.Open "select 挂账人 from 挂账表 group by 挂账人", cnn, adOpenKeyset, adLockOptimistic
   '添加挂账人
   If rs1.BOF = False Then rs1.MoveFirst
   For i = 0 To rs1.RecordCount - 1
       Combo1.AddItem (Trim(rs1.Fields("挂账人")))
       rs1.MoveNext
   Next i
   If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
   rs1.Close
   Me.Caption = Me.Caption & "    " & frm_main.St1.Panels(3).text
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