VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} bqdyrep 
   Caption         =   "ActiveReport1"
   ClientHeight    =   8595
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   11880
   StartUpPosition =   2  '屏幕中心
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "bqdyrep.dsx":0000
End
Attribute VB_Name = "bqdyrep"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsTempcar As ADODB.Recordset
Dim abjctmp As String
Dim bq1 As Variant '記錄8個標(biāo)簽的最邊位置
Dim bkdx As Variant '記錄標(biāo)簽邊框大小
Dim picheight As Variant '記錄

Private Sub setimage() '給image賦值
Dim n, m, i As Integer
Dim rightpos, righttmp, righttmp2 As Variant '記錄安標(biāo)右邊位置
 '第二排的shape 往上移了兩次  2006.06.06
 '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
   picleft = Me.Detail.Controls("Shape" & i).Left + piclefttmp
   pictop = Me.Detail.Controls("Shape" & i).Top + pictoptmp
   picleft2 = Me.Detail.Controls("Shape" & i).Left + picleft2tmp
   pictop2 = Me.Detail.Controls("Shape" & i).Top + pictop2tmp
   righttmp = picleft
   righttmp2 = picleft2
   For n = 0 To picnum - 1
      m = n + (i - 1) * 14 + 1
      Call loadpic(picarray(n))
      '2006.06.10 cancel the code
     ' righttmp = righttmp + picwidth + picjj
     righttmp = righttmp + picwidth * pubabpercent + picjj
     If righttmp > bq1 Then
        Me.Detail.Controls("Image" & m).Picture = LoadPicture(abjctmp)
        Me.Detail.Controls("Image" & m).Left = righttmp2
        Me.Detail.Controls("Image" & m).Top = pictop2
        
        '2006.06.05 add the code
        Me.Detail.Controls("Image" & m).Width = picwidth * pubabpercent
        Me.Detail.Controls("Image" & m).Height = picheight * pubabpercent '2006.06.08 add the code
        Me.Detail.Controls("Image" & m).SizeMode = 1
        Me.Detail.Controls("Image" & m).PictureAlignment = 2
        '2006.06.10 cancel the code
       ' righttmp2 = righttmp2 + picwidth + picjj
       righttmp2 = righttmp2 + picwidth * pubabpercent + picjj
      Else
        Me.Detail.Controls("Image" & m).Picture = LoadPicture(abjctmp)
        '2006.06.10 cancel the code
        'Me.Detail.Controls("Image" & m).Left = righttmp - picwidth - picjj
        Me.Detail.Controls("Image" & m).Left = righttmp - picwidth * pubabpercent - picjj
        Me.Detail.Controls("Image" & m).Top = pictop
        
        '2006.06.05 add the code
        Me.Detail.Controls("Image" & m).SizeMode = 1
        Me.Detail.Controls("Image" & m).Width = picwidth * pubabpercent
        Me.Detail.Controls("Image" & m).Height = picheight * pubabpercent '2006.06.08 add the code
        Me.Detail.Controls("Image" & m).PictureAlignment = 2
     End If
  Next
Next
End Sub


Private Sub loadpic(abjcstr As String)
  '調(diào)安標(biāo)
 Dim ajt As String
  abjctmp = ""
  ajt = "無"
  picheight = 0
  Set rsTempcar = New ADODB.Recordset   '初始化數(shù)據(jù)庫
  rsTempcar.CursorType = adOpenKeyset
  rsTempcar.CursorLocation = adUseClient
  rsTempcar.LockType = adLockOptimistic
  rsTempcar.Open "select * from 安標(biāo)表 where 安標(biāo)簡稱='" & ajt & "'", cnSys
  '2006.06.10 cancel the code
 'For n = 0 To 13
 ' If picarray(n) <> "" Then
   If abjcstr <> "" Then '2006.06.10 add the code
      rsTempcar.Close
      rsTempcar.Open "Select * From 安標(biāo)表 Where 安標(biāo)簡稱 = '" & abjcstr & "'", cnSys
      Do While Not rsTempcar.EOF
       abjctmp = pcpath & Trim(rsTempcar("安標(biāo)路徑"))
       picwidth = rsTempcar("安標(biāo)寬度") * stunit
       picheight = rsTempcar("安標(biāo)高度") * stunit '2006.06.08 add the code
       rsTempcar.MoveNext
      Loop
  End If
' Next
End Sub
Private Sub setnull()
Dim i As Integer
 
 For i = 1 To 88  '清空數(shù)據(jù)
   Me.Detail.Controls("Field" & i).Text = ""
 Next
 
For i = 1 To 8
  Me.Detail.Controls("Field" & i * 10).Font.Size = 10
Next
For i = 81 To 88
  Me.Detail.Controls("Field" & i).Text = 10
Next

 bq1 = 0
 
 For i = 0 To 7
   Me.Detail.Controls("Field" & 1 + i * 10).Text = pubpnstr
   Me.Detail.Controls("Field" & 2 + i * 10).Text = typestr
   Me.Detail.Controls("Field" & 3 + i * 10).Text = ratistr
   Me.Detail.Controls("Field" & 4 + i * 10).Text = breastr
   Me.Detail.Controls("Field" & 5 + i * 10).Text = capastr
   Me.Detail.Controls("Field" & 6 + i * 10).Text = qntystr
   Me.Detail.Controls("Field" & 7 + i * 10).Text = datestr
   Me.Detail.Controls("Field" & 8 + i * 10).Text = lotnstr
   Me.Detail.Controls("Field" & 9 + i * 10).Text = inspstr
   Me.Detail.Controls("Field" & 10 + i * 10).Text = otherstr
 Next
 
 For i = 81 To 88
    Me.Detail.Controls("Field" & i).Text = otherab
 Next
  
End Sub

Private Sub ActiveReport_Initialize()
   bqdyrep.Printer.PaperSize = commpapersize
   If printflag = 1 Then
      bqdyrep.Printer.PrintDialog
   End If
End Sub

Private Sub Detail_AfterPrint()
  printnum = 0
End Sub


Private Sub Detail_Format()
 ' bqdyrep.Printer.SetupDialog
 ' bqdyrep.Printer.Orientation = ddOPortrait  ' ddOPortrait  ddOLandscape 設(shè)置橫向、縱向End Sub
 '  Printer.Copies = printnum
 Dim i As Integer
  
 bkdx = 48 * stunit '標(biāo)簽邊框的長度
  Call setnull
  If prnflag = "打印" Then
    Call setimage    '給image賦值
  End If
End Sub