dyyl.frm

一个进销存系统,界面清楚,操作简单,是一个不错的企业进销存系统

VERSION 5.00
Begin VB.Form dyyl 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "打印预览"
   ClientHeight    =   9345
   ClientLeft      =   45
   ClientTop       =   1545
   ClientWidth     =   15270
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   9345
   ScaleWidth      =   15270
   ShowInTaskbar   =   0   'False
End
Attribute VB_Name = "dyyl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
With dyyl
.Cls
Dim x As Integer
Dim y As Integer
.ScaleMode = 6
.ScaleMode = 6
.FontSize = 15

.CurrentX = 60
.CurrentY = 10
dyyl.Print "查    询       结    果"
.CurrentX = 80
.CurrentY = 15
dyyl.Print "From:河南金升科技发展有限公司"
.FontSize = 12
.CurrentX = 10
.CurrentY = 20
dyyl.Print "________________________________________________________________________"
x = 10
y = 30
.CurrentX = 10
.CurrentY = 30
End With
With jg.Data1.Recordset
While .EOF = False
   y = y + 5
   dyyl.CurrentX = x
   dyyl.CurrentY = y
   dyyl.Print "编号：" + RTrim$(jg.Text1.Text) + "  " + "客户名称：" + jg.Text2.Text
   dyyl.CurrentX = 10
   y = y + 5
   dyyl.Print "商品名称：" + RTrim$(jg.Text3.Text) + "  " + "业务员：" + jg.Text4.Text + "  " + "进价：" + RTrim$(jg.Text5.Text) + "  " + "售价：" + RTrim$(jg.Text6.Text) + "  " + "销售量：" + RTrim$(jg.Text7.Text) + "  " + "毛利：" + RTrim$(jg.Text8.Text)
   dyyl.CurrentX = 10
   y = y + 5
   dyyl.Print "应收：" + RTrim$(jg.Text9.Text) + "  " + "实收：" + RTrim$(jg.Text10.Text) + "  " + "欠款：" + RTrim$(jg.Text11.Text) + "  " + "日期：" + RTrim$(jg.Text12.Text)
   .MoveNext
   dyyl.CurrentX = 8
   y = y + 5
   dyyl.Print "----------------------------------------------------------------------------"
Wend
dyyl.CurrentX = 8
dyyl.CurrentY = y + 10
dyyl.Print "_________________________________________________________________________"
End With
jg.Data1.Recordset.MoveFirst
End Sub