fpindata.frm

该程序基于RS232串口通讯的激光检测钻头钻孔内径及外径等相关参数从而判断该产品是否为OK/NG

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "{B0475000-7740-11D1-BDC3-0020AF9F8E6E}#6.1#0"; "TTF16.OCX"
Begin VB.Form Formstatistic 
   Caption         =   "报表输出"
   ClientHeight    =   8850
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10035
   Icon            =   "fpindata.frx":0000
   LinkTopic       =   "Form3"
   ScaleHeight     =   8850
   ScaleWidth      =   10035
   StartUpPosition =   2  'CenterScreen
   Begin MSComDlg.CommonDialog Dialog1 
      Left            =   8400
      Top             =   1200
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin TTF160Ctl.F1Book F1Book1 
      Height          =   8415
      Left            =   0
      TabIndex        =   3
      Top             =   480
      Width           =   9975
      _ExtentX        =   17595
      _ExtentY        =   14843
      _0              =   $"fpindata.frx":030A
      _1              =   $"fpindata.frx":0713
      _2              =   $"fpindata.frx":0B1D
      _3              =   $"fpindata.frx":0F26
      _4              =   $"fpindata.frx":132F
      _count          =   5
      _ver            =   2
   End
   Begin ComCtl3.CoolBar CoolBar1 
      Height          =   435
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   12015
      _ExtentX        =   21193
      _ExtentY        =   767
      BandCount       =   2
      _CBWidth        =   12015
      _CBHeight       =   435
      _Version        =   "6.7.8988"
      Child1          =   "Command1"
      MinHeight1      =   375
      Width1          =   1890
      NewRow1         =   0   'False
      Child2          =   "Command3"
      MinHeight2      =   375
      Width2          =   1890
      NewRow2         =   0   'False
      Begin VB.CommandButton Command3 
         Caption         =   "打印报表"
         Height          =   375
         Left            =   2085
         TabIndex        =   2
         Top             =   30
         Width           =   9840
      End
      Begin VB.CommandButton Command1 
         Caption         =   "保存报表"
         Height          =   375
         Left            =   165
         TabIndex        =   1
         Top             =   30
         Width           =   1695
      End
   End
   Begin VB.Menu mprint 
      Caption         =   "操作报表"
      Visible         =   0   'False
      Begin VB.Menu mcopy 
         Caption         =   "复制(&C)"
         Shortcut        =   ^C
      End
      Begin VB.Menu mplase 
         Caption         =   "粘贴(&P)"
         Shortcut        =   ^V
      End
      Begin VB.Menu mjianqie 
         Caption         =   "剪切(&C)"
         Shortcut        =   ^X
      End
      Begin VB.Menu fff 
         Caption         =   "-"
      End
      Begin VB.Menu uu 
         Caption         =   "打印报表(&P)"
         Index           =   1
      End
      Begin VB.Menu uu 
         Caption         =   "另存为EXCEL文件(&S)"
         Index           =   2
      End
      Begin VB.Menu uu 
         Caption         =   "-"
         Index           =   3
      End
      Begin VB.Menu uu 
         Caption         =   "设计该表(&D)"
         Index           =   4
      End
      Begin VB.Menu uu 
         Caption         =   "页面设置(&P)"
         Index           =   5
      End
      Begin VB.Menu uu 
         Caption         =   "对齐格式(&M)"
         Index           =   6
      End
      Begin VB.Menu uu 
         Caption         =   "字体格式(&F)"
         Index           =   7
      End
      Begin VB.Menu uu 
         Caption         =   "自定义名字(&N)"
         Index           =   8
      End
      Begin VB.Menu uu 
         Caption         =   "查找(&F)"
         Index           =   9
      End
      Begin VB.Menu uu 
         Caption         =   "分类排序(&C)"
         Index           =   10
      End
   End
End
Attribute VB_Name = "Formstatistic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error GoTo ErrHandler
    With Dialog1
        .DialogTitle = "选择文件的保存路径"
        .Filter = "xls文件(*.xls)|*.xls|所有文件(*.*)|*.*"
        .Flags = &H2000
        .ShowSave
    End With
Dialog1.CancelError = True
If Dir(Dialog1.FileName, vbNormal) <> "" Then
    If MsgBox("该文件名已存在，是否覆盖此文件？", vbOKCancel + vbInformation, "提示") = vbOK Then
                Kill Dialog1.FileName
             Else
                Exit Sub
            End If
            End If
    F1Book1.Write Dialog1.FileName, 4
ErrHandler:
       Exit Sub
End Sub



Private Sub Command3_Click()
On Error Resume Next
Dim i, j As Integer
If pincount > 4 Then
     For i = pincount + 5 To 256
        F1Book1.ColHidden(i) = True
     Next i
     F1Book1.FilePrint True
     For i = pincount + 5 To 256
        F1Book1.ColHidden(i) = False
     Next i
Else
     For i = 9 To 256
        F1Book1.ColHidden(i) = True
     Next i
     F1Book1.FilePrint True
     For i = 9 To 256
        F1Book1.ColHidden(i) = False
     Next i
End If
End Sub

Private Sub Command4_Click()

End Sub



Private Sub Form_Resize()
On Error Resume Next
F1Book1.Width = Formstatistic.Width - 100
CoolBar1.Width = Formstatistic.Width - 50
F1Book1.Height = Formstatistic.Height - CoolBar1.Height - 580
End Sub

Private Sub F1Book1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
     Formstatistic.PopupMenu mprint
     End If
End Sub

Private Sub maddreport_Click()
F1Book1.EditInsertSheets

End Sub

Private Sub mcopy_Click()
F1Book1.EditCopy
End Sub

Private Sub mcutoff_Click()
F1Book1.EditCut
End Sub

Private Sub mdelete_Click()
On Error Resume Next
F1Book1.EditDeleteSheets
End Sub

Private Sub mjianqie_Click()
F1Book1.EditCut
End Sub

Private Sub mplase_Click()
F1Book1.EditPaste
End Sub

Private Sub uu_Click(Index As Integer)
   On Error Resume Next
Select Case Index
   Case 1
   F1Book1.FilePrint True
   Case 2
      Command1_Click
   Case 4
   F1Book1.LaunchDesigner
  Case 5
  F1Book1.FilePageSetupDlg
  Case 6
   F1Book1.FormatAlignmentDlg
  Case 7
   F1Book1.FormatFontDlg
   Case 8
   F1Book1.DefinedNameDlg
     Case 9
   F1Book1.GotoDlg
     Case 10
  F1Book1.SortDlg

   End Select
   
End Sub