frmcl.frm

来自「适合于中小型企业管理」· FRM 代码 · 共 1,312 行 · 第 1/5 页

                  SubFormatType   =   0
               EndProperty
            EndProperty
            SplitCount      =   1
            BeginProperty Split0 
               BeginProperty Column00 
                  ColumnWidth     =   1635.024
               EndProperty
               BeginProperty Column01 
                  ColumnWidth     =   1635.024
               EndProperty
            EndProperty
         End
      End
      Begin VB.Frame Frame2 
         Height          =   8640
         Left            =   120
         TabIndex        =   21
         Top             =   431
         Width           =   12180
         Begin VB.Frame Frame5 
            Caption         =   "条件搜索"
            Height          =   1347
            Left            =   120
            TabIndex        =   40
            Top             =   7200
            Width           =   7335
            Begin VB.TextBox TxtPm 
               Height          =   315
               Left            =   5040
               TabIndex        =   53
               Top             =   960
               Width           =   1335
            End
            Begin VB.CommandButton Command5 
               Height          =   500
               Left            =   6600
               Picture         =   "FrmCl.frx":21BD
               Style           =   1  'Graphical
               TabIndex        =   46
               ToolTipText     =   "搜索"
               Top             =   727
               Width           =   615
            End
            Begin VB.CommandButton Command6 
               Height          =   500
               Left            =   6600
               Picture         =   "FrmCl.frx":24C7
               Style           =   1  'Graphical
               TabIndex        =   45
               ToolTipText     =   "搜索"
               Top             =   242
               Width           =   615
            End
            Begin VB.CheckBox OptCJygmx2 
               Caption         =   "输出员工详细信息"
               Height          =   257
               Left            =   1680
               TabIndex        =   44
               Top             =   960
               Width           =   2055
            End
            Begin VB.ComboBox CmbBM2 
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   10.5
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   330
               ItemData        =   "FrmCl.frx":3739
               Left            =   120
               List            =   "FrmCl.frx":373B
               Style           =   2  'Dropdown List
               TabIndex        =   43
               Top             =   606
               Width           =   1560
            End
            Begin VB.CheckBox OptGx2 
               Caption         =   "站机工序"
               Height          =   255
               Left            =   240
               TabIndex        =   42
               Top             =   960
               Width           =   1250
            End
            Begin VB.TextBox TxtRY 
               Alignment       =   2  'Center
               Height          =   315
               Left            =   5040
               TabIndex        =   41
               ToolTipText     =   "人员姓名"
               Top             =   600
               Width           =   1335
            End
            Begin MSComCtl2.DTPicker DTPicker1 
               Height          =   300
               Left            =   1680
               TabIndex        =   47
               Top             =   600
               Width           =   1455
               _ExtentX        =   2566
               _ExtentY        =   529
               _Version        =   393216
               Format          =   71630849
               CurrentDate     =   38589
            End
            Begin MSComCtl2.DTPicker DTPicker2 
               Height          =   300
               Left            =   3360
               TabIndex        =   48
               Top             =   600
               Width           =   1455
               _ExtentX        =   2566
               _ExtentY        =   529
               _Version        =   393216
               Format          =   71630849
               CurrentDate     =   38589
            End
            Begin VB.Label Label11 
               AutoSize        =   -1  'True
               Caption         =   "品 名"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   10.5
                  Charset         =   134
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00000000&
               Height          =   210
               Left            =   4320
               TabIndex        =   54
               ToolTipText     =   "品名"
               Top             =   1005
               Width           =   570
            End
            Begin VB.Label Label3 
               AutoSize        =   -1  'True
               Caption         =   "至"
               ForeColor       =   &H000000FF&
               Height          =   334
               Left            =   3720
               TabIndex        =   52
               Top             =   606
               Width           =   210
            End
            Begin VB.Label Label4 
               AutoSize        =   -1  'True
               Caption         =   "车间名称"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   10.5
                  Charset         =   134
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00000000&
               Height          =   211
               Left            =   120
               TabIndex        =   51
               Top             =   242
               Width           =   900
            End
            Begin VB.Label Label5 
               AutoSize        =   -1  'True
               Caption         =   "工作日期"
               ForeColor       =   &H000000C0&
               Height          =   210
               Left            =   2880
               TabIndex        =   50
               Top             =   240
               Width           =   840
            End
            Begin VB.Label Label7 
               AutoSize        =   -1  'True
               Caption         =   "人员姓名"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   10.5
                  Charset         =   134
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00000000&
               Height          =   210
               Left            =   5160
               TabIndex        =   49
               Top             =   285
               Width           =   900
            End
         End
         Begin VB.Frame Frame6 
            BackColor       =   &H80000009&
            Caption         =   "目标文件："
            Height          =   620
            Left            =   7680
            TabIndex        =   37
            Top             =   7680
            Width           =   3375
            Begin VB.CommandButton Command7 
               Caption         =   "..."
               Height          =   257
               Left            =   2640
               TabIndex        =   39
               Top             =   242
               Width           =   495
            End
            Begin VB.TextBox Text1 
               Height          =   321
               Left            =   120
               TabIndex        =   38
               Text            =   "C:\数据表2.xls"
               Top             =   242
               Width           =   2295
            End
         End
         Begin VB.CommandButton Command8 
            Height          =   500
            Left            =   11280
            Picture         =   "FrmCl.frx":373D
            Style           =   1  'Graphical
            TabIndex        =   36
            ToolTipText     =   "存盘为Excel文件"
            Top             =   7800
            Width           =   615
         End
         Begin MSDataGridLib.DataGrid DataGrid2 
            Bindings        =   "FrmCl.frx":4007
            Height          =   6915
            Left            =   120
            TabIndex        =   22
            Top             =   240
            Width           =   11925
            _ExtentX        =   21034
            _ExtentY        =   12197
            _Version        =   393216
            AllowUpdate     =   0   'False
            AllowArrows     =   0   'False
            DefColWidth     =   57
            HeadLines       =   1
            RowHeight       =   15
            TabAction       =   2
            BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "宋体"