frmoutbd.frm

以前写的一个销售的管理系统,是牙刷销存管理系统,有销售,进货等功能,刚学ＶＢ时写的

    Printer.CurrentX = 185
    Printer.CurrentY = 42
    Printer.Line (186, 42)-(186, 47)
    'Printer.Print "|"
    Printer.Line (5.75, 47)-(185.75, 47)
    CurrentY = 47
        
        
        Do While rs1.EOF <> True
1         Printer.FontSize = 10
          CurrentX = 5.75
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          CurrentX = CurrentX + 1
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY + 1
          Printer.Print rs1.Fields("产品编号")
          CurrentX = 31
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          CurrentX = CurrentX + 1
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY + 1
          Printer.Print rs1.Fields("规格")
          CurrentX = 66
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          
          CurrentX = 85
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY
          jg = Format$(rs1.Fields("单价"), "0.00")
          i = 1
          Do While i <= Len(jg)
             Printer.CurrentX = CurrentX
             Printer.CurrentY = CurrentY + 1
             Printer.Print Right(jg, i)
             i = i + 1
             CurrentX = CurrentX - 2
             If i > Len(jg) Then
                Exit Do
             End If
          Loop
          'Printer.Print Format$(rs1.Fields("单价"), "0.00")
          
          CurrentX = 86
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          CurrentX = CurrentX + 1
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY + 1
          Printer.Print rs1.Fields("数量")
          CurrentX = 106
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          CurrentX = 135
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY
          jg = Format$(rs1.Fields("总金额"), "0.00")
          i = 1
          Do While i <= Len(jg)
             Printer.CurrentX = CurrentX
             Printer.CurrentY = CurrentY + 1
             Printer.Print Right(jg, i)
             i = i + 1
             CurrentX = CurrentX - 2
             If i > Len(jg) Then
                Exit Do
             End If
          Loop
          'Printer.Print Format$(rs1.Fields("总金额"), "0.00")
          CurrentX = 136
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          CurrentX = CurrentX + 1
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY + 1
          Printer.Print rs1.Fields("备注")
          CurrentX = 186
          Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
          Printer.Line (5.75, CurrentY + 5)-(185.75, CurrentY + 5)
          CurrentY = CurrentY + 5
          zsl = zsl + rs1.Fields("数量")
          zje = zje + rs1.Fields("总金额")
          rs1.MoveNext
          If CurrentY >= 250 Then
             Printer.NewPage
             CurrentY = 15
             Printer.Line (5.75, CurrentY)-(185.75, CurrentY)
             GoTo 1
          End If
          If rs1.EOF = True Then
             Exit Do
          End If
   Loop
   Printer.FontSize = 10
   Printer.CurrentY = CurrentY
   CurrentX = 5.75
   Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
   Printer.CurrentX = 9
   Printer.CurrentY = CurrentY + 1
   Printer.Print "合   计"
   CurrentX = 31
   Printer.CurrentX = CurrentX
    Printer.CurrentY = CurrentY
    Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
    CurrentX = 36
    Printer.CurrentX = CurrentX
    Printer.CurrentY = CurrentY
    Printer.Print ""
    CurrentX = 66
    Printer.CurrentX = CurrentX
    Printer.CurrentY = CurrentY
    Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
    CurrentX = 67
    Printer.CurrentX = CurrentX
    Printer.CurrentY = CurrentY
    Printer.Print ""
    CurrentX = 86
    Printer.CurrentX = CurrentX
    Printer.CurrentY = CurrentY
    Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
    CurrentX = 87
    Printer.CurrentX = CurrentX
    Printer.CurrentY = CurrentY + 1
    Printer.Print zsl
    CurrentX = 106
    Printer.CurrentX = CurrentX
    Printer.CurrentY = CurrentY
    Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
    CurrentX = 135
    Printer.CurrentX = CurrentX
    Printer.CurrentY = CurrentY
    jg = Format$(zje, "0.00")
    i = 1
    Do While i <= Len(jg)
       Printer.CurrentX = CurrentX
       Printer.CurrentY = CurrentY + 1
       Printer.Print Right(jg, i)
       i = i + 1
       CurrentX = CurrentX - 2
       If i > Len(jg) Then
          Exit Do
       End If
    Loop
    
    CurrentX = 136
    Printer.CurrentX = CurrentX
    Printer.CurrentY = CurrentY
    Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
    CurrentX = 137
    Printer.CurrentX = CurrentX
    Printer.CurrentY = CurrentY
    Printer.Print ""
    CurrentX = 186
    Printer.CurrentX = CurrentX
    Printer.CurrentY = CurrentY
    Printer.Line (CurrentX, CurrentY)-(CurrentX, CurrentY + 5)
    Printer.Line (5.75, CurrentY + 5)-(185.75, CurrentY + 5)
    Printer.CurrentY = CurrentY + 10
    Printer.CurrentX = 10
    Printer.Print "发 货 员:______________"
    Printer.CurrentX = 70
    Printer.CurrentY = CurrentY + 10
    Printer.Print "发货日期:"
    Printer.CurrentX = 90
    Printer.CurrentY = CurrentY + 10
    rs1.MoveFirst
    Printer.Print rs1.Fields("发货单日期")
    Printer.CurrentX = 125
    Printer.CurrentY = CurrentY + 10
    Printer.Print "制单日期:"
    Printer.CurrentX = 145
    Printer.CurrentY = CurrentY + 10
    Dim nian As String
 
 nian = CStr(Year(Now))
 yue = CStr(Month(Now))
 ri = CStr(Day(Now))
 str = nian & "-" & yue & "-" & ri
 
    Printer.Print Format$(str, "ddddd")
    Dim nr As String
    Dim substr As String
    
    Set rs2 = db.OpenRecordset("sm", dbOpenDynaset, dbwrite, dbOptimistic)
    rs2.MoveFirst
    Do While rs2.EOF <> True
       If rs2.Fields("发货单编号") = Trim(txtid.Text) Then
          Exit Do
       Else
         rs2.MoveNext
       End If
       If rs2.EOF = True Then
          Exit Do
       End If
   Loop
    nr = rs2.Fields("其他说明")
    CurrentX = 15
    CurrentY = CurrentY + 20
    Printer.CurrentX = CurrentX
    Printer.CurrentY = CurrentY
    Printer.Print "备    注:"
    CurrentX = 25
    CurrentY = CurrentY + 5
    Printer.CurrentX = CurrentX
    Printer.CurrentY = CurrentY
    Printer.Print "本次金额:"
    Printer.CurrentX = 60
    Printer.CurrentY = CurrentY
    Printer.Print rs2.Fields("本次金额")
    CurrentY = CurrentY + 5
    If rs2.Fields("上次欠款") <> "0" Then
       Printer.CurrentX = CurrentX
       Printer.CurrentY = CurrentY
       Printer.Print "上次欠款:"
       Printer.CurrentX = 60
       Printer.CurrentY = CurrentY
       Printer.Print rs2.Fields("上次欠款")
       CurrentY = CurrentY + 5
    End If
    If rs2.Fields("汇款1") <> 0 Then
       Printer.CurrentX = CurrentX
       Printer.CurrentY = CurrentY
       Printer.Print rs2.Fields("日期1")
       Printer.CurrentX = 60
       Printer.CurrentY = CurrentY
       Printer.Print rs2.Fields("汇款1")
       CurrentY = CurrentY + 5
    End If
    If rs2.Fields("汇款2") <> 0 Then
       Printer.CurrentX = CurrentX
       Printer.CurrentY = CurrentY
       Printer.Print rs2.Fields("日期2")
       Printer.CurrentX = 60
       Printer.CurrentY = CurrentY
       Printer.Print rs2.Fields("汇款2")
       CurrentY = CurrentY + 5
    End If
    If rs2.Fields("汇款3") <> 0 Then
       Printer.CurrentX = CurrentX
       Printer.CurrentY = CurrentY
       Printer.Print rs2.Fields("日期3")
       Printer.CurrentX = 60
       Printer.CurrentY = CurrentY
       Printer.Print rs2.Fields("汇款3")
       CurrentY = CurrentY + 5
    End If
    If rs2.Fields("下欠货款") <> 0 Then
       Printer.CurrentX = CurrentX
       Printer.CurrentY = CurrentY
       Printer.Print "下欠货款:"
       Printer.CurrentX = 60
       Printer.CurrentY = CurrentY
       Printer.Print rs2.Fields("下欠货款")
       CurrentY = CurrentY + 5
    End If
    i = 1
    Do While Len(nr) <= 500
          Printer.CurrentX = CurrentX
          Printer.CurrentY = CurrentY
          substr = Mid(nr, i, 1)
          Printer.Print substr
          CurrentX = CurrentX + 4
          CurrentY = CurrentY
       If i Mod 40 = 0 Then
          CurrentX = 25
          Printer.CurrentX = CurrentX
          CurrentY = CurrentY + 5
          Printer.CurrentY = CurrentY
       End If
       i = i + 1
       If i > 500 Then
          Exit Do
       End If
    Loop
    
       
  
    Printer.EndDoc
     rs1.Close
End Sub