VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} comm6hpic 
   Caption         =   "ActiveReport1"
   ClientHeight    =   5895
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11595
   StartUpPosition =   2  '屏幕中心
   _ExtentX        =   20452
   _ExtentY        =   10398
   SectionData     =   "comm6hpic.dsx":0000
End
Attribute VB_Name = "comm6hpic"
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 picheight As Variant '記錄

Private Sub setimage() '給image賦值
Dim n, m, i As Integer

If bq6habnum = 1 Then
  Image1.Left = 90: Image8.Left = 3150
End If
If bq6habnum = 2 Then
  Image1.Left = 90: Image2.Left = 610
  Image8.Left = 3150: Image9.Left = 3670
End If
If bq6habnum = 3 Then
  Image1.Left = 90: Image2.Left = 610: Image3.Left = 1130
  Image8.Left = 3150: Image9.Left = 3670: Image10.Left = 4190
End If
If bq6habnum = 4 Then
  Image1.Left = 90: Image2.Left = 555: Image3.Left = 1020: Image4.Left = 1485
  Image8.Left = 3150: Image9.Left = 3615: Image10.Left = 4080: Image11.Left = 4545
End If
If bq6habnum = 5 Then
  Image1.Left = 90: Image2.Left = 535: Image3.Left = 980: Image4.Left = 1425: Image5.Left = 1870
  Image8.Left = 3150: Image9.Left = 3595: Image10.Left = 4040: Image11.Left = 4485: Image12.Left = 4930
End If

 For i = 1 To 2
   For n = 0 To bq6habnum - 1
      m = n + (i - 1) * 7 + 1
      Call loadpic(bq6habarray(n))
      Me.Detail.Controls("Image" & m).Picture = LoadPicture(abjctmp)
      Me.Detail.Controls("Image" & m).SizeMode = 1
      Me.Detail.Controls("Image" & m).Width = picwidth * pubabpercent
      Me.Detail.Controls("Image" & m).Height = picheight * pubabpercent
      Me.Detail.Controls("Image" & m).PictureAlignment = 2
  Next
 Next
End Sub

Private Sub loadpic(abjcstr As String)
  '調安標
 Dim ajt As String
  abjctmp = ""
  ajt = "無"
  Set rsTempcar = New ADODB.Recordset   '初始化數據庫
  rsTempcar.CursorType = adOpenKeyset
  rsTempcar.CursorLocation = adUseClient
  rsTempcar.LockType = adLockOptimistic
  rsTempcar.Open "select * from 安標表 where 安標簡稱='" & ajt & "'", cnSys
  If abjcstr <> "" Then
      rsTempcar.Close
      rsTempcar.Open "Select * From 安標表 Where 安標簡稱 = '" & abjcstr & "'", cnSys
      Do While Not rsTempcar.EOF
       abjctmp = pcpath & Trim(rsTempcar("安標路徑"))
       picwidth = rsTempcar("安標寬度") * stunit
       picheight = rsTempcar("安標高度") * stunit
       rsTempcar.MoveNext
      Loop
  End If
End Sub


Private Sub ActiveReport_Initialize()
  comm6hpic.Printer.PaperSize = bgjpapersize
  If bq6hprintflag = 1 Then
   comm6hpic.Printer.PrintDialog
  End If
End Sub

Private Sub ActiveReport_ReportStart()
 '2007.01.30 cancel the code
 ' If bq6habnum >= 4 Then
 '    Field3.Left = 0
 '    Field3.Width = 2800
 '    Field8.Left = 3075
 '    Field8.Width = 2800
 '   Else
 '    Field3.Left = 1080
 '    Field3.Width = 1710
 '    Field8.Left = 4155
 '    Field8.Width = 1710
 ' End If

 'If bq6habnum >= 6 Then
 '  For i = 1 To 10
 '    Me.Detail.Controls("field" & i).Font.Size = 9
 '    Me.Detail.Controls("field" & i).VerticalAlignment = ddTXMiddle   '2006.06.15 add the code
 '  Next
 '  Label2.Font.Size = 9: Label6.Font.Size = 9: Label7.Font.Size = 9: Label8.Font.Size = 9
 'End If
End Sub

Private Sub Detail_AfterPrint()
  bq6hprint = 0
End Sub

Private Sub setjpnull()
Dim i As Integer
 For i = 1 To 10  '清空數據
   Me.Detail.Controls("Field" & i).Text = ""
 Next

For i = 1 To 14
  Me.Detail.Controls("Image" & i).Picture = LoadPicture()
Next

 For i = 0 To 1
 '2006.06.02 modify the code
   If bq6hcc <> "" Then
      Me.Detail.Controls("Field" & 1 + i * 5).Text = bq6htype & "  " & bq6hcc & "  " & "FUSE"
     Else
      Me.Detail.Controls("Field" & 1 + i * 5).Text = bq6htype
   End If
   Me.Detail.Controls("Field" & 2 + i * 5).Text = bq6hratings
   'Me.Detail.Controls("Field" & 3 + i * 5).Text = bq6hab
   Me.Detail.Controls("Field" & 4 + i * 5).Text = bq6hqty
   Me.Detail.Controls("Field" & 5 + i * 5).Text = bq6hother
 Next
End Sub

Private Sub Detail_Format()
   Call setjpnull
   Call setimage    '給image賦值
End Sub