VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} mfbqrep 
   Caption         =   "ActiveReport1"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   StartUpPosition =   2  '屏幕中心
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "mfbqrep.dsx":0000
End
Attribute VB_Name = "mfbqrep"
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  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
   '2006.06.10 add the code   1245     4275     7290  10335      1605
   '2006.06.12 cancel the code
   'If InStr(mpnstr, "110%") > 0 Then
   '    Field2.Left = 1000: Field2.Width = 1950: Field12.Left = 4030: Field12.Width = 1950
   '    Field22.Left = 7045: Field22.Width = 1950: Field32.Left = 10090: Field32.Width = 1950
   '    Field42.Left = 1000: Field42.Width = 1950: Field52.Left = 4030: Field52.Width = 1950
   '    Field62.Left = 7045: Field62.Width = 1950: Field72.Left = 10090: Field72.Width = 1950
   '  Else
   '    Field2.Left = 1245: Field2.Width = 1605: Field12.Left = 4275: Field12.Width = 1605
   '    Field22.Left = 7290: Field22.Width = 1605: Field32.Left = 10335: Field32.Width = 1605
   '    Field42.Left = 1245: Field42.Width = 1605: Field52.Left = 4275: Field52.Width = 1605
   '    Field62.Left = 7290: Field62.Width = 1605: Field72.Left = 10335: Field72.Width = 1605
   'End If
   
   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()
  mfbqrep.Printer.PaperSize = commpapersize
  If mprintflag = 1 Then
    mfbqrep.Printer.PrintDialog
  End If
End Sub

Private Sub ActiveReport_ReportStart()
  ' mfbqrep.Printer.PaperSize = commpapersize
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