工资效益表.frm

一个客车售票系统

       Data2.RecordSource = "Select * from J7 where" & Cxs
      Case "第八组"
       Data2.RecordSource = "Select * from J8 where" & Cxs
   End Select
 Data2.Refresh
  If Text2(1) = "" Then
  MsgBox "  没有" + Datedata + "数据，请作" + Datedata + "的金额统计 ！  "
  Unload Me
  Exit Sub
 End If
 K = 0
 Do While Data2.Recordset.EOF = False
  K = K + 1
  cx(K) = Text2(2): Sr2(cx(K), 1) = Text2(3): Sr2(cx(K), 2) = Text2(4)
 Data2.Recordset.MoveNext
 Loop
 Data2.Recordset.Close
     Select Case Text4(2)
      Case "第一组"
       Data3.RecordSource = "Select * from C1 where" & Cxs
      Case "第二组"
       Data3.RecordSource = "Select * from C2 where" & Cxs
      Case "第三组"
       Data3.RecordSource = "Select * from C3 where" & Cxs
      Case "第四组"
       Data3.RecordSource = "Select * from C4 where" & Cxs
      Case "第五组"
       Data3.RecordSource = "Select * from C5 where" & Cxs
      Case "第六组"
       Data3.RecordSource = "Select * from C6 where" & Cxs
      Case "第七组"
       Data3.RecordSource = "Select * from C7 where" & Cxs
      Case "第八组"
       Data3.RecordSource = "Select * from C8 where" & Cxs
   End Select
 Data3.Refresh
 K = 0
 Do While Data3.Recordset.EOF = False
  K = K + 1
  cx(K) = Text3(1): Cb2(cx(K)) = Text3(2)
  Data3.Recordset.MoveNext
 Loop

Datedata = Format(CDate(Datedata) + 2, "yyyy年m月d日")
Debug.Print Datedata
 Cxs = "[" + Cxtj1 + "]" + "=" + "'" + Datedata + "'"
     Select Case Text4(2)
      Case "第一组"
       Data1.RecordSource = "Select * from B1 where" & Cxs
      Case "第二组"
       Data1.RecordSource = "Select * from B2 where" & Cxs
      Case "第三组"
       Data1.RecordSource = "Select * from B3 where" & Cxs
      Case "第四组"
       Data1.RecordSource = "Select * from B4 where" & Cxs
      Case "第五组"
       Data1.RecordSource = "Select * from B5 where" & Cxs
      Case "第六组"
       Data1.RecordSource = "Select * from B6 where" & Cxs
      Case "第七组"
       Data1.RecordSource = "Select * from B7 where" & Cxs
      Case "第八组"
       Data1.RecordSource = "Select * from B8 where" & Cxs
   End Select
 Data1.Refresh
  If Text1(1) = "" Then
  MsgBox "  没有" + Datedata + "的数据，请作" + Datedata + "的区段密度统计 ！  "
  Unload Me
  Exit Sub
 End If
 K = 0
 Do While Data1.Recordset.EOF = False
 K = K + 1
 cx(K) = Text1(2): Rs1(cx(K), 1) = Text1(3): Rs1(cx(K), 2) = Text1(4)
  Data1.Recordset.MoveNext
Loop
     Select Case Text4(2)
      Case "第一组"
       Data2.RecordSource = "Select * from J1 where" & Cxs
      Case "第二组"
       Data2.RecordSource = "Select * from J2 where" & Cxs
      Case "第三组"
       Data2.RecordSource = "Select * from J3 where" & Cxs
      Case "第四组"
       Data2.RecordSource = "Select * from J4 where" & Cxs
      Case "第五组"
       Data2.RecordSource = "Select * from J5 where" & Cxs
      Case "第六组"
       Data2.RecordSource = "Select * from J6 where" & Cxs
      Case "第七组"
       Data2.RecordSource = "Select * from J7 where" & Cxs
      Case "第八组"
       Data2.RecordSource = "Select * from J8 where" & Cxs
   End Select
 Data2.Refresh
   If Text2(1) = "" Then
  MsgBox "  没有" + Datedata + "数据，请作" + Datedata + "的金额统计 ！  "
  Unload Me
  Exit Sub
 End If
K = 0
 Do While Data2.Recordset.EOF = False
  K = K + 1
  cx(K) = Text2(2): Sr1(cx(K), 1) = Text2(3): Sr1(cx(K), 2) = Text2(4)
  Data2.Recordset.MoveNext
 Loop
     Select Case Text4(2)
      Case "第一组"
       Data3.RecordSource = "Select * from C1 where" & Cxs
      Case "第二组"
       Data3.RecordSource = "Select * from C2 where" & Cxs
      Case "第三组"
       Data3.RecordSource = "Select * from C3 where" & Cxs
      Case "第四组"
       Data3.RecordSource = "Select * from C4 where" & Cxs
      Case "第五组"
       Data3.RecordSource = "Select * from C5 where" & Cxs
      Case "第六组"
       Data3.RecordSource = "Select * from C6 where" & Cxs
      Case "第七组"
       Data3.RecordSource = "Select * from C7 where" & Cxs
      Case "第八组"
       Data3.RecordSource = "Select * from C8 where" & Cxs
   End Select
 Data3.Refresh
K = 0
 Do While Data3.Recordset.EOF = False
  K = K + 1
  cx(K) = Text3(1): Cb1(cx(K)) = Text3(2)
  Data3.Recordset.MoveNext
 Loop
Call Prn
End Sub
Private Sub Prn()
On Error GoTo P1
Dim ZSr1(2) As Single, ZSr2(2) As Single
Dim ZRs1(2) As Single, ZRs2(2) As Single
Dim Zcb(2) As Single
Dim Pp As String, X1 As Single, Dx As Single, Y1 As Single, Dy As Single, Y11 As Single
Dim X2 As Single, Y2 As Single
Dim P As Integer, I As Integer, I1 As Integer, I2 As Integer
Dim Twip As Integer
Dim PrDemo As Integer
Dim mmaccpic As Byte
Dim Px As Integer
vb5prn1.PrBasic
 mmaccpic = 0
If PrDemo = 0 Then
      vb5prn1.PrnsaSet 9, 1, 25, 25, 25, 25, 0, 10
   End If
Twip = 567
Y1 = 5.7
If K > 10 Then
 Px = 2
 Else
 Px = 1
End If
For P = 1 To Px
vb5prn1.PrPageNew
vb5prn1.PrOutText 7.7 * Twip, 1.5 * Twip, "宋体", 20, 0, 0, 0, 0, 0, "人员工资效益表"
vb5prn1.PrOutText 2.5 * Twip, 3.5 * Twip, "宋体", 10, 0, 0, 0, 0, 0, "班组：" & Text4(2)
vb5prn1.PrOutText 6.9 * Twip, 3.5 * Twip, "宋体", 10, 0, 0, 0, 0, 0, "始发日期：" & Format(CDate(Datedata) - 2, "yyyy年m月d日")

X1 = 2.5: Y1 = 4#
X2 = 16.3: Y2 = 26#
vb5prn1.PrOutLine X1 * Twip, Y1 * Twip, X2 * Twip, Y1 * Twip, 0, 3, 0, 13
vb5prn1.PrOutLine X1 * Twip, Y1 * Twip, X1 * Twip, Y2 * Twip, 0, 3, 0, 13
vb5prn1.PrOutLine X1 * Twip, Y2 * Twip, X2 * Twip, Y2 * Twip, 0, 3, 0, 13

Dx = 1.25: X1 = X1 + Dx: Dy = 1.1
''打印竖线
For I = 1 To 11
 If I = 3 Or I = 6 Then
vb5prn1.PrOutLine X1 * Twip, (Y1 + Dy) * Twip, X1 * Twip, Y2 * Twip, 0, 3, 0, 13
    Else
vb5prn1.PrOutLine X1 * Twip, Y1 * Twip, X1 * Twip, Y2 * Twip, 0, 3, 0, 13
 End If
 X1 = X1 + Dx
Next I

X1 = 2.5
vb5prn1.PrOutLine (X1 + 2.5) * Twip, (Y1 + Dy) * Twip, (X1 + 5) * Twip, (Y1 + Dy) * Twip, 0, 3, 0, 13
vb5prn1.PrOutLine (X1 + 6.25) * Twip, (Y1 + Dy) * Twip, (X1 + 8.75) * Twip, (Y1 + Dy) * Twip, 0, 3, 0, 13
Y1 = Y1 + 2.2: Dy = 0.9
For I = 1 To 22
 If I - 2 * (I \ 2) = 0 Then
vb5prn1.PrOutLine (X1 + 1.25) * Twip, Y1 * Twip, X2 * Twip, Y1 * Twip, 0, 3, 0, 13
   Else
vb5prn1.PrOutLine X1 * Twip, Y1 * Twip, X2 * Twip, Y1 * Twip, 0, 3, 0, 13
End If
Y1 = Y1 + Dy
Next I
If Px = 2 And P = 1 Then
  I1 = 1: I2 = 11
  Else
  I1 = 12: I2 = K
End If
If Px = 1 Then
  I1 = 1: I2 = K
End If
X1 = 5.15: Dx = 1.245
Y1 = 6.45: Dy = 0.9: Y11 = 70
For I = I1 To I2
vb5prn1.PrOutText 2.9 * Twip, Y11 / 10 * Twip, "", 10, 0, 0, 0, 0, 0, CStr(cx(I))
vb5prn1.PrOutText 4.05 * Twip, Y1 * Twip, " ", 10, 0, 0, 0, 0, 0, "237"
If Sr1(cx(I), 1) = 0 Then
 Pp = ""
 Else
Pp = vb5prn1.PrPadr(Format(Sr1(cx(I), 1), "0.00"), 7)
End If
vb5prn1.PrOutText X1 * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
If Sr1(cx(I), 2) = 0 Then
 Pp = ""
 Else
 Pp = vb5prn1.PrPadr(Format(Sr1(cx(I), 2), "0.00"), 7)
End If
vb5prn1.PrOutText (X1 + Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
Pp = vb5prn1.PrPadr(Format(Sr1(cx(I), 1) + Sr1(cx(I), 2), "0.00"), 7)
vb5prn1.PrOutText (X1 + 2 * Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
If Rs1(cx(I), 1) = 0 Then
 Pp = ""
 Else
 Pp = vb5prn1.PrPadr(Format(Rs1(cx(I), 1), "0"), 5)
End If
vb5prn1.PrOutText (X1 + 3 * Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
If Rs1(cx(I), 2) = 0 Then
Pp = ""
Else
Pp = vb5prn1.PrPadr(Format(Rs1(cx(I), 2), "0"), 5)
End If
vb5prn1.PrOutText (X1 + 4 * Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
Pp = vb5prn1.PrPadr(Format(Rs1(cx(I), 1) + Rs1(cx(I), 2), "0"), 5)
vb5prn1.PrOutText (X1 + 5 * Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
Pp = vb5prn1.PrPadr(Format(Cb1(cx(I)), "0.00"), 7)
vb5prn1.PrOutText (X1 + 6 * Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
Pp = vb5prn1.PrPadr(Format((Sr1(cx(I), 1) + Sr1(cx(I), 2) - Cb1(cx(I))), "0.00"), 7)
vb5prn1.PrOutText (X1 + 7 * Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
 Pp = vb5prn1.PrPadr(Format((Sr1(cx(I), 1) + Sr1(cx(I), 2) - Cb1(cx(I))) * 0.021, "0.00"), 7)
vb5prn1.PrOutText (X1 + 8 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
Y1 = Y1 + Dy: Y11 = Y11 + 18
vb5prn1.PrOutText 4.05 * Twip, Y1 * Twip, " ", 10, 0, 0, 0, 0, 0, "238"
If Sr2(cx(I), 1) = 0 Then
 Pp = ""
 Else
Pp = vb5prn1.PrPadr(Format(Sr2(cx(I), 1), "0.00"), 7)
End If
vb5prn1.PrOutText X1 * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
If Sr2(cx(I), 2) = 0 Then
 Pp = ""
 Else
 Pp = vb5prn1.PrPadr(Format(Sr2(cx(I), 2), "0.00"), 7)
End If
vb5prn1.PrOutText (X1 + Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
Pp = vb5prn1.PrPadr(Format(Sr2(cx(I), 1) + Sr2(cx(I), 2), "0.00"), 7)
vb5prn1.PrOutText (X1 + 2 * Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
If Rs2(cx(I), 1) = 0 Then
 Pp = ""
 Else
 Pp = vb5prn1.PrPadr(Format(Rs2(cx(I), 1), "0"), 5)
End If
vb5prn1.PrOutText (X1 + 3 * Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
If Rs2(cx(I), 2) = 0 Then
Pp = ""
Else
Pp = vb5prn1.PrPadr(Format(Rs2(cx(I), 2), "0"), 5)
End If
vb5prn1.PrOutText (X1 + 4 * Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
Pp = vb5prn1.PrPadr(Format(Rs2(cx(I), 1) + Rs2(cx(I), 2), "0"), 5)
vb5prn1.PrOutText (X1 + 5 * Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
Pp = vb5prn1.PrPadr(Format(Cb2(cx(I)), "0.00"), 7)
vb5prn1.PrOutText (X1 + 6 * Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
Pp = vb5prn1.PrPadr(Format((Sr2(cx(I), 1) + Sr2(cx(I), 2) - Cb2(cx(I))), "0.00"), 7)
vb5prn1.PrOutText (X1 + 7 * Dx) * Twip, Y1 * Twip, " ", 8, 0, 0, 0, 0, 0, Pp
 Pp = vb5prn1.PrPadr(Format((Sr2(cx(I), 1) + Sr2(cx(I), 2) - Cb2(cx(I))) * 0.021, "0.00"), 7)
vb5prn1.PrOutText (X1 + 8 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
Y1 = Y1 + Dy
ZSr1(1) = ZSr1(1) + Sr1(cx(I), 1): ZSr1(2) = ZSr1(2) + Sr1(cx(I), 2)
ZSr2(1) = ZSr2(1) + Sr2(cx(I), 1): ZSr2(2) = ZSr2(2) + Sr2(cx(I), 2)
ZRs1(1) = ZRs1(1) + Rs1(cx(I), 1): ZRs1(2) = ZRs1(2) + Rs1(cx(I), 2)
ZRs2(1) = ZRs2(1) + Rs2(cx(I), 1): ZRs2(2) = ZRs2(2) + Rs2(cx(I), 2)
Zcb(1) = Zcb(1) + Cb1(cx(I)): Zcb(2) = Zcb(2) + Cb2(cx(I))
Next I
vb5prn1.PrOutText 3 * Twip, 4.5 * Twip, "", 9, 0, 0, 0, 0, 0, "车"
vb5prn1.PrOutText 3 * Twip, 5 * Twip, "", 9, 0, 0, 0, 0, 0, "厢"
vb5prn1.PrOutText 3 * Twip, 5.5 * Twip, "", 9, 0, 0, 0, 0, 0, "号"
vb5prn1.PrOutText 4.2 * Twip, 4.5 * Twip, "", 9, 0, 0, 0, 0, 0, "车"
vb5prn1.PrOutText 4.2 * Twip, 5.5 * Twip, "", 9, 0, 0, 0, 0, 0, "次"
vb5prn1.PrOutText 5.7 * Twip, 4.4 * Twip, "", 9, 0, 0, 0, 0, 0, "收  入"
vb5prn1.PrOutText 5.3 * Twip, 5.4 * Twip, "", 9, 0, 0, 0, 0, 0, "票价"
vb5prn1.PrOutText 6.6 * Twip, 5.4 * Twip, "", 9, 0, 0, 0, 0, 0, "车补"
vb5prn1.PrOutText 7.8 * Twip, 5 * Twip, "", 9, 0, 0, 0, 0, 0, "合计"
vb5prn1.PrOutText 9.5 * Twip, 4.4 * Twip, "", 9, 0, 0, 0, 0, 0, "人  数"
vb5prn1.PrOutText 9 * Twip, 5.5 * Twip, "", 9, 0, 0, 0, 0, 0, "票价"
vb5prn1.PrOutText 10.3 * Twip, 5.5 * Twip, "", 9, 0, 0, 0, 0, 0, "车补"
vb5prn1.PrOutText 11.5 * Twip, 5 * Twip, "", 9, 0, 0, 0, 0, 0, "合计"
vb5prn1.PrOutText 12.8 * Twip, 5 * Twip, "", 9, 0, 0, 0, 0, 0, "成本"
vb5prn1.PrOutText 14 * Twip, 5 * Twip, "", 9, 0, 0, 0, 0, 0, "利润"
vb5prn1.PrOutText 15.3 * Twip, 4.5 * Twip, "", 9, 0, 0, 0, 0, 0, "工资"
vb5prn1.PrOutText 15.3 * Twip, 5.5 * Twip, "", 9, 0, 0, 0, 0, 0, "增减"
vb5prn1.PrOutText 8 * Twip, 26.5 * Twip, "", 10, 0, 0, 0, 0, 0, "-- 第  " & CStr(P) & "  页--"
vb5prn1.PrOutText 12 * Twip, 26.5 * Twip, "", 10, 0, 0, 0, 0, 0, "打印日期： " & Format(Date, "yyyy 年 m 月 d 日")
   If P = 2 Then
       vb5prn1.PrOutText 2.8 * Twip, 25 * Twip, "", 9, 0, 0, 0, 0, 0, "合计"
'    最后一个237 , 238
    vb5prn1.PrOutText 4.05 * Twip, 24.45 * Twip, "", 10, 0, 0, 0, 0, 0, "237"
    vb5prn1.PrOutText 4.05 * Twip, 25.35 * Twip, "", 10, 0, 0, 0, 0, 0, "238"
   
    Y1 = 24.45
    Pp = vb5prn1.PrPadr(Format(ZSr1(1), "0.00"), 7)
    vb5prn1.PrOutText X1 * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(ZSr1(2), "0.00"), 7)
    vb5prn1.PrOutText (X1 + Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(ZSr1(1) + ZSr1(2), "0.00"), 7)
    vb5prn1.PrOutText (X1 + 2 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(ZRs1(1), "0"), 6)
    vb5prn1.PrOutText (X1 + 3 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(ZRs1(2), "0"), 6)
    vb5prn1.PrOutText (X1 + 4 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(ZRs1(1) + ZRs1(2), "0"), 6)
    vb5prn1.PrOutText (X1 + 5 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(Zcb(1), "0.00"), 7)
    vb5prn1.PrOutText (X1 + 6 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(ZSr1(1) + ZSr1(2) - Zcb(1), "0.00"), 7)
    vb5prn1.PrOutText (X1 + 7 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
     Pp = vb5prn1.PrPadr(Format((ZSr1(1) + ZSr1(2) - Zcb(1)) * 0.021, "0.00"), 7)
    vb5prn1.PrOutText (X1 + 8 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
   
    
    Y1 = 25.35
    Pp = vb5prn1.PrPadr(Format(ZSr2(1), "0.00"), 7)
    vb5prn1.PrOutText X1 * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(ZSr2(2), "0.00"), 7)
    vb5prn1.PrOutText (X1 + Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(ZSr2(1) + ZSr2(2), "0.00"), 7)
    vb5prn1.PrOutText (X1 + 2 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(ZRs2(1), "0"), 6)
    vb5prn1.PrOutText (X1 + 3 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(ZRs2(2), "0"), 6)
    vb5prn1.PrOutText (X1 + 4 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(ZRs2(1) + ZRs2(2), "0"), 6)
    vb5prn1.PrOutText (X1 + 5 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(Zcb(2), "0.00"), 7)
    vb5prn1.PrOutText (X1 + 6 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
    Pp = vb5prn1.PrPadr(Format(ZSr2(1) + ZSr2(2) - Zcb(2), "0.00"), 7)
    vb5prn1.PrOutText (X1 + 7 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
      Pp = vb5prn1.PrPadr(Format((ZSr2(1) + ZSr2(2) - Zcb(2)) * 0.021, "0.00"), 7)
    vb5prn1.PrOutText (X1 + 8 * Dx) * Twip, Y1 * Twip, " ", 9, 0, 0, 0, 0, 0, Pp
 End If
Next P
vb5prn1.Show
'vb5prn1.PrintOut
Exit Sub
P1:
  MsgBox "     打印机尚未就绪，请准备好打印机  ！  ", vbExclamation, "提示信息"
End Sub