jpbqrep.dsr

用于电子行业打印复杂报表格式和不干胶标签

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} jpbqrep 
   Caption         =   "ActiveReport1"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   StartUpPosition =   2  '屏幕中心
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "jpbqrep.dsx":0000
End
Attribute VB_Name = "jpbqrep"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsTempcar As ADODB.Recordset
Dim jabjctmp As String
Dim bq1 As Single '记录8个标签的最边位置
Dim bkdx As Single '记录标签边框大小
Dim tmppicjl, tmppiccd, picjpheight As Single '记录标签框左边点的位置,安标宽度，安标高度

Private Sub jsetimage() '给image赋值
Dim n, m, i As Integer
Dim rightpos, righttmp, righttmp2 As Variant '记录安标右边位置

 '2006.06.05
 For m = 1 To 112
   Me.Detail.Controls("Image" & m).Height = pubabheight * pubabpercent
 Next

 For i = 1 To 8
   bq1 = Me.Detail.Controls("Shape" & i).Left + bkdx
   jpicleft = Me.Detail.Controls("Shape" & i).Left + jpiclefttmp
   jpictop = Me.Detail.Controls("Shape" & i).Top + jpictoptmp
   jpicleft2 = Me.Detail.Controls("Shape" & i).Left + jpicleft2tmp
   jpictop2 = Me.Detail.Controls("Shape" & i).Top + jpictop2tmp
   righttmp = jpicleft
   righttmp2 = jpicleft2
   For n = 0 To jpicnum - 1
      m = n + (i - 1) * 14 + 1
      Call jloadpic(jpicarray(n))
      righttmp = righttmp + tmppiccd * pubabpercent + jpicjj
     If righttmp > bq1 Then
        Me.Detail.Controls("Image" & m).Picture = LoadPicture(jabjctmp)
        Me.Detail.Controls("Image" & m).Left = righttmp2
        Me.Detail.Controls("Image" & m).Top = jpictop2
        righttmp2 = righttmp2 + tmppiccd * pubabpercent + jpicjj
        
        '2006.06.05 add the code  picjpheight
        Me.Detail.Controls("Image" & m).Width = tmppiccd * pubabpercent
        Me.Detail.Controls("Image" & m).Height = picjpheight * pubabpercent '2006.06.08 add the code
        Me.Detail.Controls("Image" & m).SizeMode = 1
        Me.Detail.Controls("Image" & m).PictureAlignment = 2
      Else
        Me.Detail.Controls("Image" & m).Picture = LoadPicture(jabjctmp)
        Me.Detail.Controls("Image" & m).Left = righttmp - tmppiccd * pubabpercent - jpicjj
        Me.Detail.Controls("Image" & m).Top = jpictop
        
        '2006.06.05 add the code
        Me.Detail.Controls("Image" & m).Width = tmppiccd * pubabpercent
        Me.Detail.Controls("Image" & m).Height = picjpheight * pubabpercent '2006.06.08 add the code
        Me.Detail.Controls("Image" & m).SizeMode = 1
        Me.Detail.Controls("Image" & m).PictureAlignment = 2
     End If
  Next
Next
End Sub

Private Sub jloadpic(abjcstr As String)
  '调安标
 Dim ajt As String
  jabjctmp = ""
  ajt = "无"
  tmppiccd = 0
  picjpheight = 0
  Set rsTempcar = New ADODB.Recordset   '初始化数据库
  rsTempcar.CursorType = adOpenKeyset
  rsTempcar.CursorLocation = adUseClient
  rsTempcar.LockType = adLockOptimistic
  rsTempcar.Open "select * from 安标表 where 安标简称='" & ajt & "'", cnSys
 '2006.06.10 cancel the code
 'For n = 0 To 13
 ' If jpicarray(n) <> "" Then
   If abjcstr <> "" Then
      rsTempcar.Close
      rsTempcar.Open "Select * From 安标表 Where 安标简称 = '" & abjcstr & "'", cnSys
      Do While Not rsTempcar.EOF
       jabjctmp = pcpath & Trim(rsTempcar("安标路径"))
       tmppiccd = rsTempcar("安标宽度") * stunit
       picjpheight = rsTempcar("安标高度") * stunit '2006.06.08 add the code
       rsTempcar.MoveNext
      Loop
  End If
' Next
End Sub

Private Sub setjpnull()
Dim i As Integer
 bq1 = 0
 For i = 1 To 88  '清空数据
   Me.Detail.Controls("Field" & i).Text = ""
 Next
 
 For i = 0 To 7
   Me.Detail.Controls("Field" & 1 + i * 10).Text = jtypestr
   Me.Detail.Controls("Field" & 2 + i * 10).Text = jpnstr
   Me.Detail.Controls("Field" & 3 + i * 10).Text = jratistr
   Me.Detail.Controls("Field" & 4 + i * 10).Text = jinterstr
   Me.Detail.Controls("Field" & 5 + i * 10).Text = jqntystr
   Me.Detail.Controls("Field" & 6 + i * 10).Text = jlotnstr
   Me.Detail.Controls("Field" & 7 + i * 10).Text = jdatestr
   Me.Detail.Controls("Field" & 8 + i * 10).Text = jinspstr
   'Me.Detail.Controls("Field" & 9 + i * 10).Text = minspstr
   'Me.Detail.Controls("Field" & 10 + i * 10).Text = jotherstr  '2006.10.28 cancel the code
   
   '2006.10.28 add the code
   If jotherab = "" Then
      Me.Detail.Controls("Field" & 10 + i * 10).Text = ""
    Else
      Me.Detail.Controls("Field" & 10 + i * 10).Text = jotherstr
   End If
 Next
 
 For i = 81 To 88
   ' Me.Detail.Controls("Field" & i).Text = jotherab   2006.10.28 cancel the code
   
   '2006.10.28 add the code
   If jotherab = "" Then
      Me.Detail.Controls("Field" & i).Text = jotherstr
    Else
      Me.Detail.Controls("Field" & i).Text = jotherab
   End If
   
 Next
  
End Sub

Private Sub ActiveReport_Initialize()
  jpbqrep.Printer.PaperSize = commpapersize
  If jprintflag = 1 Then
   jpbqrep.Printer.PrintDialog
  End If
End Sub

Private Sub ActiveReport_ReportStart()
  ' jpbqrep.Printer.PaperSize = commpapersize
End Sub

Private Sub Detail_AfterPrint()
  jprintnum = 0
End Sub

Private Sub Detail_Format()
Dim i As Integer
  
 bkdx = 48 * stunit '标签边框的长度
  Call setjpnull
  If prnflag = "打印" Then
    Call jsetimage    '给image赋值
  End If
End Sub