mf110bqdyrep.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} mf110bqdyrep 
   Caption         =   "ActiveReport1"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   StartUpPosition =   2  '屏幕中心
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "mf110bqdyrep.dsx":0000
End
Attribute VB_Name = "mf110bqdyrep"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsTempcar As ADODB.Recordset
Dim mabjctmp As String
Dim bq1 As Single '记录8个标签的最边位置
Dim bkdx As Single '记录标签边框大小
Dim tmppicjl, tmppiccd, tmppicheight As Single '记录标签框左边点的位置,安标宽度 安标高度
Private Sub msetimage() '给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
   mpicleft = Me.Detail.Controls("Shape" & i).Left + mpiclefttmp
   mpictop = Me.Detail.Controls("Shape" & i).Top + mpictoptmp
   mpicleft2 = Me.Detail.Controls("Shape" & i).Left + mpicleft2tmp
   mpictop2 = Me.Detail.Controls("Shape" & i).Top + mpictop2tmp
   righttmp = mpicleft
   righttmp2 = mpicleft2
   For n = 0 To mpicnum - 1
      m = n + (i - 1) * 14 + 1
      Call mloadpic(mpicarray(n))
      'righttmp = righttmp + tmppiccd + mpicjj  2006.06.10 cancel the code
      righttmp = righttmp + tmppiccd * pubabpercent + mpicjj
     If righttmp > bq1 Then
        Me.Detail.Controls("Image" & m).Picture = LoadPicture(mabjctmp)
        Me.Detail.Controls("Image" & m).Left = righttmp2
        Me.Detail.Controls("Image" & m).Top = mpictop2
        'righttmp2 = righttmp2 + tmppiccd + mpicjj  2006.06.10 cancel the code
        righttmp2 = righttmp2 + tmppiccd * pubabpercent + mpicjj
        
        '2006.06.05 add the code
        Me.Detail.Controls("Image" & m).Width = tmppiccd * pubabpercent
        Me.Detail.Controls("Image" & m).Height = tmppicheight * 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(mabjctmp)
        'Me.Detail.Controls("Image" & m).Left = righttmp - tmppiccd - mpicjj 2006.06.10 cancel the code
        Me.Detail.Controls("Image" & m).Left = righttmp - tmppiccd * pubabpercent - mpicjj
        Me.Detail.Controls("Image" & m).Top = mpictop
        '2006.06.05 add the code
        Me.Detail.Controls("Image" & m).Width = tmppiccd * pubabpercent
        Me.Detail.Controls("Image" & m).Height = tmppicheight * 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 mloadpic(abjcstr As String)
  '调安标
 Dim ajt As String
 Dim tmpc2 As String
  mabjctmp = ""
  ajt = "无"
  tmppiccd = 0
  tmppicheight = 0
  tmpc2 = ""
  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 mpicarray(n) <> "" Then
   If abjcstr <> "" Then
    '2006.06.10 add the code
     '2006.06.22 cancel the code
      'If abjcstr = "C1" Then
      '    tmpc2 = "C2"
      '  Else
      '    tmpc2 = ""
      'End If
      '2006.06.10 modify the code
      '2006.06.22 modify the code
      'If tmpc2 = "" Then
           rsTempcar.Close
           rsTempcar.Open "Select * From 安标表 Where 安标简称 = '" & abjcstr & "'", cnSys
      '   Else
      '     rsTempcar.Close
      '     rsTempcar.Open "Select * From 安标表 Where 安标简称 = '" & tmpc2 & "'", cnSys
      'End If
      Do While Not rsTempcar.EOF
       mabjctmp = pcpath & Trim(rsTempcar("安标路径"))
       tmppiccd = rsTempcar("安标宽度") * stunit
       tmppicheight = rsTempcar("安标高度") * stunit
       rsTempcar.MoveNext
      Loop
  End If
 'Next
End Sub
Private Sub setmfnull()
Dim i As Integer
 
 bq1 = 0
 For i = 1 To 88  '清空数据
   Me.Detail.Controls("Field" & i).Text = ""
 Next
 
 '2006.06.12 add the code
 'If InStr(mpnstr, "110%") > 0 Then
  If InStr(mpnstr, "110%") > 0 Or pnwidth > 1600 Then  '2006.06.24 add the code
   For i = 1 To 88
     Me.Detail.Controls("field" & i).Font.Size = 9
     Me.Detail.Controls("field" & i).VerticalAlignment = ddTXMiddle   '2006.06.15 add the code
   Next
   For i = 0 To 7
     Me.Detail.Controls("Field" & 2 + i * 10).Width = 2000 '2006.06.12 add the code  1700   2007.01.27 原来是 1800
     Me.Detail.Controls("Field" & 2 + i * 10).Font.Size = 8
   Next
   '2007.01.27  add the code
   For i = 0 To 7
     'Me.Detail.Controls("Field" & 1 + i * 10).Left = Me.Detail.Controls("Field" & 1 + i * 10).Left - 70
     'Me.Detail.Controls("Field" & 2 + i * 10).Left = Me.Detail.Controls("Field" & 2 + i * 10).Left - 70
     'Me.Detail.Controls("Field" & 3 + i * 10).Left = Me.Detail.Controls("Field" & 3 + i * 10).Left - 70
     'Me.Detail.Controls("Field" & 4 + i * 10).Left = Me.Detail.Controls("Field" & 4 + i * 10).Left - 70
     'Me.Detail.Controls("Field" & 5 + i * 10).Left = Me.Detail.Controls("Field" & 5 + i * 10).Left - 70
     'Me.Detail.Controls("Field" & 6 + i * 10).Left = Me.Detail.Controls("Field" & 6 + i * 10).Left - 70
     'Me.Detail.Controls("Field" & 7 + i * 10).Left = Me.Detail.Controls("Field" & 7 + i * 10).Left - 70
     'Me.Detail.Controls("Field" & 8 + i * 10).Left = Me.Detail.Controls("Field" & 8 + i * 10).Left - 70
     'Me.Detail.Controls("Field" & 9 + i * 10).Left = Me.Detail.Controls("Field" & 9 + i * 10).Left - 70
   Next
   
 End If
 
 
 For i = 0 To 7
   Me.Detail.Controls("Field" & 1 + i * 10).Text = mtypestr
   Me.Detail.Controls("Field" & 2 + i * 10).Text = mpnstr
   Me.Detail.Controls("Field" & 3 + i * 10).Text = mratistr
   If addrddlflag = 1 Then
      Me.Detail.Controls("Field" & 4 + i * 10).Text = "10000A 125V a.c."
      Me.Detail.Controls("Field" & 5 + i * 10).Text = mrating & "  " & minterstr
    Else
      Me.Detail.Controls("Field" & 4 + i * 10).Text = minterstr
      Me.Detail.Controls("Field" & 5 + i * 10).Text = mrating
   End If
   Me.Detail.Controls("Field" & 6 + i * 10).Text = mqntystr
   Me.Detail.Controls("Field" & 7 + i * 10).Text = mlotnstr
   Me.Detail.Controls("Field" & 8 + i * 10).Text = mdatestr
   Me.Detail.Controls("Field" & 9 + i * 10).Text = minspstr
   Me.Detail.Controls("Field" & 10 + i * 10).Text = motherstr
 Next
 
 For i = 81 To 88
    Me.Detail.Controls("Field" & i).Text = motherab
 Next

End Sub

Private Sub ActiveReport_Initialize()
  mf110bqdyrep.Printer.PaperSize = commpapersize
  If mprintflag = 1 Then
    mf110bqdyrep.Printer.PrintDialog
  End If
End Sub

Private Sub Detail_AfterPrint()
  mprintnum = 0
End Sub

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