⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frmout.frm

📁 以前写的一个销售的管理系统,是牙刷销存管理系统,有销售,进货等功能,刚学ＶＢ时写的
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
    Printer.CurrentX = 12
    Printer.CurrentY = 35
    Printer.FontSize = 10
    Printer.Print "客户名称:"
    Printer.CurrentX = 35
    Printer.CurrentY = 35
    Printer.Print rs1.Fields("单位名称")
    Printer.CurrentX = 115
    Printer.CurrentY = 35
    Printer.Print "发货单编号:"
    Printer.CurrentX = 140
    Printer.CurrentY = 35
    Printer.Print rs1.Fields("发货单编号")
    Printer.CurrentX = 5.5
    Printer.CurrentY = 31
    Printer.Line (6, 41.5)-(186, 41.5)
    Printer.CurrentX = 5
    Printer.CurrentY = 42
    Printer.Line (6, 42)-(6, 47)
    'Printer.Print "|"
    Printer.CurrentX = 7
    Printer.CurrentY = 42
    Printer.Print "  产品型号"
    Printer.CurrentX = 30
    Printer.CurrentY = 42
    Printer.Line (31, 42)-(31, 47)
    'Printer.Print "|"
    Printer.CurrentX = 36
    Printer.CurrentY = 42
    Printer.Print "  规    格"
    Printer.CurrentX = 65
    Printer.CurrentY = 42
    Printer.Line (66, 42)-(66, 47)
    'Printer.Print "|"
    Printer.CurrentX = 67
    Printer.CurrentY = 42
    Printer.Print "单价" & "(" & "元" & "/" & "箱" & ")"
    Printer.CurrentX = 85
    Printer.CurrentY = 42
    Printer.Line (86, 42)-(86, 47)
    'Printer.Print "|"
    Printer.CurrentX = 87
    Printer.CurrentY = 42
    Printer.Print " 数量(箱)"
    Printer.CurrentX = 105
    Printer.CurrentY = 42
    Printer.Line (106, 42)-(106, 47)
    'Printer.Print "|"
    Printer.CurrentX = 107
    Printer.CurrentY = 42
    Printer.Print "  金  额(元)"
    Printer.CurrentX = 135
    Printer.CurrentY = 42
    Printer.Line (136, 42)-(136, 47)
    'Printer.Print "|"
    Printer.CurrentX = 137
    Printer.CurrentY = 42
    Printer.Print "      备       注"
    Printer.CurrentX = 185
    Printer.CurrentY = 42
    Printer.Line (186, 42)-(186, 47)
    'Printer.Print "|"
    Printer.Line (5.75, 47)-(185.75, 47)
    CurrentY = 47
    Dim zje As Currency
    zje = 0
    Dim zsl As Long
    zsl = 0
    Dim riqi As String
    riqi = CStr(rs1.Fields("发货单日期"))
    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 = 125
    Printer.CurrentY = CurrentY + 10
    Printer.Print "制单日期:"
    Printer.CurrentX = 145
    Printer.CurrentY = CurrentY + 10
    Printer.Print riqi
    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(txtfh.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
    
       
   rs1.Close
   Printer.EndDoc
   
  Set rs1 = db.OpenRecordset("temp", dbOpenDynaset, dbwrite, dbOptimistic)
  rs1.MoveFirst
  Do While rs1.EOF <> True
     rs1.Delete
     rs1.MoveNext
     If rs1.EOF = True Then
        Exit Do
     End If
  Loop
 Command2.Enabled = False
 commok.Enabled = False
 Command1.Enabled = True
 txtfh.Text = ""
 txtcp.Text = ""
 txtdw.Text = ""
 txtdj.Text = ""
 txtsl.Text = ""
 txtzje.Text = ""
 txtysr.Text = ""
 txtch.Text = ""
 txtbz.Text = ""
 txtkh.Text = ""
 txtgg.Text = ""
 txtname.Text = ""
 txtname.Enabled = False
 txtkh.Enabled = False
 txtdate.Text = ""
 Command2.Enabled = False
 Command1.Enabled = True
 txtfh.Enabled = False
 txtcp.Enabled = False
 txtdw.Enabled = False
 txtdj.Enabled = False
 txtsl.Enabled = False
 txtzje.Enabled = False
 txtysr.Enabled = False
 txtch.Enabled = False
 txtbz.Enabled = False
 txtdate.Enabled = False
Else
 Set rs1 = db.OpenRecordset("temp", dbOpenDynaset, dbwrite, dbOptimistic)
  rs1.MoveFirst
  Do While rs1.EOF <> True
     rs1.Delete
     rs1.MoveNext
     If rs1.EOF = True Then
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -