frmbiaobiao.frm

提供一个网吧管理系统的VB源代码供大家学习

           frmPrnBaoBiao.ListView1.ColumnHeaders(7).Width = 1000
           frmPrnBaoBiao.ListView1.ColumnHeaders(8).Width = 800
           frmPrnBaoBiao.ListView1.ColumnHeaders(5).Alignment = lvwColumnRight
           frmPrnBaoBiao.ListView1.ColumnHeaders(6).Alignment = lvwColumnRight
           frmPrnBaoBiao.ListView1.ColumnHeaders(7).Alignment = lvwColumnRight
           frmPrnBaoBiao.ListView1.ColumnHeaders(8).Alignment = lvwColumnRight
         
           
         frmPrnBaoBiao.ListView1.ListItems(n).SubItems(1) = .Fields(1) & "号机"
         frmPrnBaoBiao.ListView1.ListItems(n).SubItems(2) = Format(.Fields(2), "yy/mm/dd hh:nn")
         frmPrnBaoBiao.ListView1.ListItems(n).SubItems(3) = Format(.Fields(3), "yy/mm/dd hh:nn")
            
      If .Fields("上机方式") = "P" Then
          frmPrnBaoBiao.ListView1.ListItems(n).SubItems(4) = "通宵 "
      Else
          frmPrnBaoBiao.ListView1.ListItems(n).SubItems(4) = "正常 "
      End If
        frmPrnBaoBiao.ListView1.ListItems(n).SubItems(5) = Format(.Fields(5), "###0.00元")
        frmPrnBaoBiao.ListView1.ListItems(n).SubItems(6) = Format(.Fields(6), "###0.00元")
        frmPrnBaoBiao.ListView1.ListItems(n).SubItems(7) = Format(.Fields(7), "0") & "%"
         For j = 8 To .Fields.Count - 1
          frmPrnBaoBiao.ListView1.ListItems(n).SubItems(j) = .Fields(j)
         Next j


     
   '   a$ = CStr(.Fields("机号")) & "号机  "
   '   a$ = Space(10 - Len(a$)) + a$
   '   frmPrinter.RTBox.SelText = a$ & Format(.Fields("开始时间"), "  yyyy/mm/dd hh:nn") & _
                                  Format(.Fields("结束时间"), "  yyyy/mm/dd hh:nn")

   '   a$ = Format(.Fields("应收款"), "###0.0元")
   '   b$ = Format(.Fields("实收款"), "###0.0元")
   '   a$ = Space(13 - Len(a$)) + a$
   '   b$ = Space(13 - Len(b$)) + b$
   '   e$ = .Fields("结帐人")
   '   f$ = .Fields("客户姓名")
   '   e$ = e$ + Space(17 - LenB(StrConv(e$, vbFromUnicode)))
   '
   '   frmPrinter.RTBox.SelText = a$ & b$ & "     " & e$ + f$ + vbCrLf
      zYsh = zYsh + .Fields("应收款")
      zSsh = zSsh + .Fields("实收款")
      
   ' End If
    .MoveNext
   Next i
  ' frmPrinter.RTBox.SelText = "  ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━" + vbCrLf
  ' frmPrinter.RTBox.SelItalic = True
  '  frmPrinter.RTBox.SelAlignment = 2
  '   frmPrinter.RTBox.SelFontSize = 10
  ' frmPrinter.RTBox.SelText = "   总应收金额：" & Format(zYsh, "###0.0元") & " 总实收金额：" & Format(zSsh, "###0.0元") & "    " & Format(Date, "long date")
  frmPrnBaoBiao.Text1 = "   总应收金额：" & Format(zYsh, "###0.0元") & " 总实收金额：" & Format(zSsh, "###0.0元") & "    " & Format(Date, "long date")
  frmPrnBaoBiao.Show
  
  End With
Case "商品销售统计表"
 Dim zShr As Double, zZhc As Double
  frmPrinter.RTBox.SelFontSize = 12
  frmPrinter.RTBox.SelBold = True
  frmPrinter.RTBox.SelText = "    机号    时间       商品编号     商品名称   商品单价   商品数量   总金额" + vbCrLf
  frmPrinter.RTBox.SelBold = False
  frmPrinter.RTBox.SelFontSize = 9
  frmPrinter.RTBox.SelText = "  ─────────────────────────────────────────────────────────" + vbCrLf
 With frmMain.Data5.Recordset
    .MoveFirst
    For i = 1 To .RecordCount
       frmJinDu.ProgressBar1.Value = Int(i * 100 / .RecordCount)
       DoEvents
    
      If .Fields("时间") > DTP1.Value And .Fields("时间") < DTP2.Value And (Combo2.Text = "全部计算机" Or .Fields("机号") = Combo2.ItemData(Combo2.ListIndex)) Then
           If .Fields("机号") > 0 Then
             a$ = CStr(.Fields("机号")) + "号机"
           Else
             a$ = "零售"
           End If
           a$ = Space(10 - Len(a$)) + a$
           frmPrinter.RTBox.SelText = a$ + Format(.Fields("时间"), "  yyyy-mm-dd hh:nn") + "       " + .Fields("商品编号")
           frmMain.Data3.Recordset.MoveFirst
           For j = 1 To frmMain.Data3.Recordset.RecordCount
             If frmMain.Data3.Recordset.Fields("商品编号") = .Fields("商品编号") Then
               b$ = frmMain.Data3.Recordset.Fields("商品名称")
               cc = frmMain.Data3.Recordset.Fields("零售价格")
               ee = frmMain.Data3.Recordset.Fields("进货价格")
             End If
             
             frmMain.Data3.Recordset.MoveNext
           Next j
            b$ = Space(20 - LenB(StrConv(b$, vbFromUnicode))) + b$
              
            frmPrinter.RTBox.SelText = b$ + Space(12 - Len(Format(cc, "###0.0元"))) + Format(cc, "###0.0元")
            frmPrinter.RTBox.SelText = Space(16 - Len(CStr(.Fields("数量")))) + CStr(.Fields("数量"))
            dd = cc * .Fields("数量")
            frmPrinter.RTBox.SelText = Space(12 - Len(Format(dd, "###0.0元"))) + Format(dd, "###0.0元")
            zShr = zShr + dd
            zZhc = zZhc + ee * .Fields("数量")
            frmPrinter.RTBox.SelText = vbCrLf
          
      End If
      .MoveNext
    Next i
      frmPrinter.RTBox.SelText = "  ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━" + vbCrLf
   frmPrinter.RTBox.SelItalic = True
    frmPrinter.RTBox.SelAlignment = 2
     frmPrinter.RTBox.SelFontSize = 10
   frmPrinter.RTBox.SelText = "   总支出金额：" & Format(zZhc, "###0.0元") & " 总收入金额：" & Format(zShr, "###0.0元") & " 总利润：" & Format(zShr - zZhc, "###0.0元") & "    " & Format(Date, "long date")

 End With
 frmPrinter.Show
Case "收入统计表"
  Dim zJsh As Double, zJshYS As Double, zJshSS As Double, zSPZC As Double, zSPSR As Double
  
  With frmMain.Data4.Recordset
   .MoveFirst
  
   For i = 1 To .RecordCount
   frmJinDu.ProgressBar1.Value = Int(i * 50 / .RecordCount)
   DoEvents
    If .Fields("结束时间") > DTP1.Value And .Fields("结束时间") < DTP2.Value And (Combo2.Text = "全部计算机" Or .Fields("机号") = Combo2.ItemData(Combo2.ListIndex)) Then
      zJsh = zJsh + DateDiff("n", .Fields("开始时间"), .Fields("结束时间"))
      zJshYS = zJshYS + .Fields("应收款")
      zJshSS = zJshSS + .Fields("实收款")
    End If
    .MoveNext
    Next i
   End With
   With frmMain.Data5.Recordset
    .MoveFirst
    For i = 1 To .RecordCount
       frmJinDu.ProgressBar1.Value = 50 + Int(i * 50 / .RecordCount)
       DoEvents
    
      If .Fields("时间") > DTP1.Value And .Fields("时间") < DTP2.Value And (Combo2.Text = "全部计算机" Or .Fields("机号") = Combo2.ItemData(Combo2.ListIndex)) Then
             frmMain.Data3.Recordset.MoveFirst
             For j = 1 To frmMain.Data3.Recordset.RecordCount
             If frmMain.Data3.Recordset.Fields("商品编号") = .Fields("商品编号") Then
               zSPZC = zSPZC + frmMain.Data3.Recordset.Fields("进货价格") * .Fields("数量")
               zSPSR = zSPSR + frmMain.Data3.Recordset.Fields("零售价格") * .Fields("数量")
             End If
             
             frmMain.Data3.Recordset.MoveNext
           Next j
      End If
      .MoveNext
     Next i
    End With
    frmPrinter.RTBox.SelFontSize = 12
    frmPrinter.RTBox.SelText = "      总共上机时间：" & zJsh \ 60 & "小时" & zJsh Mod 60 & "分钟" & vbCrLf
    frmPrinter.RTBox.SelFontSize = 12
    frmPrinter.RTBox.SelText = "      总应收金额：  " & Format(zJshYS, "###0.0元")
    frmPrinter.RTBox.SelText = vbCrLf + "      总实收金额  ： " & Format(zJshSS, "###0.0元")
    frmPrinter.RTBox.SelText = vbCrLf + "        其中      ： "
    frmPrinter.RTBox.SelText = vbCrLf + "         商品零售 ： " & Format(zSPSR, "###0.0元")
    frmPrinter.RTBox.SelText = vbCrLf + "         商品支出 ： " & Format(zSPZC, "###0.0元")
    frmPrinter.RTBox.SelText = vbCrLf + "         商品收入 ： " & Format(zSPSR - zSPZC, "###0.0元") + vbCrLf
    frmPrinter.RTBox.SelFontSize = 9
    frmPrinter.RTBox.SelText = "  ─────────────────────────────────────────────────────────" + vbCrLf
    frmPrinter.RTBox.SelFontSize = 14
    frmPrinter.RTBox.SelBold = True
    frmPrinter.RTBox.SelText = "         总收入 ： " & Format(zJshSS - zSPZC, "###0.0元") + vbCrLf
    frmPrinter.RTBox.SelFontSize = 9
      frmPrinter.RTBox.SelText = "  ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━" + vbCrLf
   frmPrinter.RTBox.SelItalic = True
   frmPrinter.RTBox.SelBold = False
    frmPrinter.RTBox.SelAlignment = 2
     frmPrinter.RTBox.SelFontSize = 10
   frmPrinter.RTBox.SelText = Format(Date, "long date")
 frmPrinter.Show
    
End Select

Unload frmJinDu
Screen.MousePointer = 0
'Unload frmPrinter
Unload Me

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
On Error Resume Next
With frmMain.Data1.Recordset
aa = .AbsolutePosition
.MoveFirst
For i = 1 To .RecordCount
 Combo2.AddItem .Fields("名称")
 Combo2.ItemData(Combo2.NewIndex) = .Fields("机号")
 .MoveNext
Next i
End With
Combo2.Text = "全部计算机"

End Sub