⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmscaeen.frm

📁 大型商业学分统计系统原代码说明 1.如果在向导设置班级数为8时,此数值为班级总数
💻 FRM
📖 第 1 页 / 共 3 页
字号:
VERSION 5.00
Object = "{90F3D7B3-92E7-44BA-B444-6A8E2A3BC375}#1.0#0"; "ACTSKIN4.OCX"
Object = "{A8561640-E93C-11D3-AC3B-CE6078F7B616}#1.0#0"; "VSPRINT7.OCX"
Object = "{D76D7130-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSFLEX7D.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FRMSCAEEN 
   Caption         =   "高级数据搜索"
   ClientHeight    =   6600
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10635
   Icon            =   "FRMSCAEEN.frx":0000
   LinkTopic       =   "Form1"
   MinButton       =   0   'False
   ScaleHeight     =   6600
   ScaleWidth      =   10635
   StartUpPosition =   2  '屏幕中心
   Begin VSFlex7DAOCtl.VSFlexGrid Vf 
      Bindings        =   "FRMSCAEEN.frx":0E42
      Height          =   4695
      Left            =   4890
      TabIndex        =   38
      Top             =   780
      Width           =   5250
      _cx             =   9260
      _cy             =   8281
      _ConvInfo       =   1
      Appearance      =   1
      BorderStyle     =   0
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MousePointer    =   0
      BackColor       =   -2147483643
      ForeColor       =   16711680
      BackColorFixed  =   15987696
      ForeColorFixed  =   16777215
      BackColorSel    =   65535
      ForeColorSel    =   255
      BackColorBkg    =   15987696
      BackColorAlternate=   -2147483643
      GridColor       =   12632256
      GridColorFixed  =   15987696
      TreeColor       =   -2147483632
      FloodColor      =   192
      SheetBorder     =   -2147483642
      FocusRect       =   1
      HighLight       =   1
      AllowSelection  =   -1  'True
      AllowBigSelection=   -1  'True
      AllowUserResizing=   1
      SelectionMode   =   1
      GridLines       =   1
      GridLinesFixed  =   2
      GridLineWidth   =   1
      Rows            =   50
      Cols            =   10
      FixedRows       =   1
      FixedCols       =   1
      RowHeightMin    =   0
      RowHeightMax    =   0
      ColWidthMin     =   0
      ColWidthMax     =   0
      ExtendLastCol   =   0   'False
      FormatString    =   ""
      ScrollTrack     =   -1  'True
      ScrollBars      =   3
      ScrollTips      =   -1  'True
      MergeCells      =   0
      MergeCompare    =   0
      AutoResize      =   -1  'True
      AutoSizeMode    =   0
      AutoSearch      =   0
      AutoSearchDelay =   2
      MultiTotals     =   -1  'True
      SubtotalPosition=   1
      OutlineBar      =   0
      OutlineCol      =   0
      Ellipsis        =   0
      ExplorerBar     =   0
      PicturesOver    =   0   'False
      FillStyle       =   1
      RightToLeft     =   0   'False
      PictureType     =   0
      TabBehavior     =   0
      OwnerDraw       =   0
      Editable        =   0
      ShowComboButton =   2
      WordWrap        =   0   'False
      TextStyle       =   0
      TextStyleFixed  =   0
      OleDragMode     =   0
      OleDropMode     =   0
      DataMode        =   1
      VirtualData     =   -1  'True
      ComboSearch     =   3
      AutoSizeMouse   =   -1  'True
      FrozenRows      =   0
      FrozenCols      =   0
      AllowUserFreezing=   3
      BackColorFrozen =   65535
      ForeColorFrozen =   15987696
      WallPaperAlignment=   9
   End
   Begin VB.CommandButton Command4 
      Caption         =   "打印预览"
      Height          =   585
      Left            =   3360
      TabIndex        =   37
      Top             =   5820
      Width           =   1305
   End
   Begin VB.TextBox Text2 
      Height          =   1695
      Left            =   630
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   35
      Text            =   "FRMSCAEEN.frx":0E56
      Top             =   8220
      Visible         =   0   'False
      Width           =   10215
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   23
      Top             =   0
      Visible         =   0   'False
      Width           =   10635
      _ExtentX        =   18759
      _ExtentY        =   1111
      ButtonWidth     =   609
      ButtonHeight    =   953
      Appearance      =   1
      _Version        =   393216
      Begin VB.CommandButton Command3 
         Caption         =   "返回表格"
         Height          =   465
         Left            =   9510
         TabIndex        =   33
         Top             =   60
         Width           =   975
      End
      Begin VB.CommandButton cmdPageSetup 
         Caption         =   "页面设置"
         Height          =   465
         Left            =   180
         TabIndex        =   32
         Top             =   60
         Width           =   1155
      End
      Begin VB.ComboBox cmbPercent 
         ForeColor       =   &H00FF0000&
         Height          =   300
         ItemData        =   "FRMSCAEEN.frx":0E5C
         Left            =   5280
         List            =   "FRMSCAEEN.frx":0E75
         Style           =   2  'Dropdown List
         TabIndex        =   31
         Top             =   150
         Width           =   915
      End
      Begin VB.ComboBox cmbZoomMode 
         ForeColor       =   &H00FF0000&
         Height          =   300
         ItemData        =   "FRMSCAEEN.frx":0EA0
         Left            =   3780
         List            =   "FRMSCAEEN.frx":0EB6
         Style           =   2  'Dropdown List
         TabIndex        =   30
         Top             =   150
         Width           =   1395
      End
      Begin VB.HScrollBar scrlPage 
         Height          =   255
         Left            =   7080
         Max             =   1
         Min             =   1
         TabIndex        =   29
         TabStop         =   0   'False
         Top             =   60
         Value           =   1
         Width           =   1170
      End
      Begin ACTIVESKINLibCtl.SkinLabel lblPage 
         Height          =   165
         Left            =   7140
         OleObjectBlob   =   "FRMSCAEEN.frx":0EF0
         TabIndex        =   28
         Top             =   360
         Width           =   1035
      End
      Begin VB.CommandButton btnFont 
         Caption         =   "字体设置"
         Height          =   450
         Left            =   2580
         TabIndex        =   27
         Top             =   60
         Width           =   1080
      End
      Begin VB.CommandButton Print 
         Caption         =   "开始打印"
         Height          =   465
         Left            =   8400
         TabIndex        =   26
         Top             =   60
         Width           =   975
      End
      Begin VB.CommandButton SETHARD 
         Caption         =   "设置表头"
         Height          =   465
         Left            =   1410
         TabIndex        =   25
         Top             =   60
         Width           =   1035
      End
      Begin VB.ComboBox Combo10 
         ForeColor       =   &H00FF0000&
         Height          =   300
         ItemData        =   "FRMSCAEEN.frx":0F51
         Left            =   6300
         List            =   "FRMSCAEEN.frx":0F6D
         Style           =   2  'Dropdown List
         TabIndex        =   24
         Top             =   150
         Width           =   645
      End
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access 2000;"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   285
      Left            =   10530
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   6600
      Visible         =   0   'False
      Width           =   1185
   End
   Begin VB.Frame Frame3 
      Caption         =   "自定义显示选择"
      Height          =   5535
      Left            =   3180
      TabIndex        =   20
      Top             =   90
      Width           =   1665
      Begin VB.ListBox List1 
         ForeColor       =   &H00D41700&
         Height          =   4680
         Left            =   90
         Style           =   1  'Checkbox
         TabIndex        =   21
         Top             =   300
         Width           =   1485
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "年级数据搜索"
      Height          =   2895
      Left            =   120
      TabIndex        =   11
      Top             =   3540
      Width           =   2985
      Begin VB.TextBox Text3 
         ForeColor       =   &H000000FF&
         Height          =   315
         Left            =   1110
         TabIndex        =   36
         Top             =   1290
         Width           =   1665
      End
      Begin VB.ComboBox Combo9 
         ForeColor       =   &H000000FF&
         Height          =   300
         ItemData        =   "FRMSCAEEN.frx":0F89
         Left            =   1110
         List            =   "FRMSCAEEN.frx":0FA2
         Style           =   2  'Dropdown List
         TabIndex        =   15
         Top             =   810
         Width           =   1695
      End
      Begin VB.CommandButton Command2 
         Caption         =   "开始搜索"
         Height          =   495
         Left            =   1680
         TabIndex        =   14
         Top             =   2220
         Width           =   1155
      End
      Begin VB.ComboBox Combo7 
         ForeColor       =   &H000000FF&
         Height          =   300
         ItemData        =   "FRMSCAEEN.frx":0FC1
         Left            =   1110
         List            =   "FRMSCAEEN.frx":0FDA
         Style           =   2  'Dropdown List
         TabIndex        =   13
         Top             =   330
         Width           =   1695
      End
      Begin VB.ComboBox Combo6 
         BackColor       =   &H00FFFFFF&
         ForeColor       =   &H000000FF&
         Height          =   300
         ItemData        =   "FRMSCAEEN.frx":1018
         Left            =   1110
         List            =   "FRMSCAEEN.frx":1031
         Style           =   2  'Dropdown List
         TabIndex        =   12
         Top             =   1770
         Width           =   1695
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3 
         Height          =   255
         Index           =   6
         Left            =   210
         OleObjectBlob   =   "FRMSCAEEN.frx":106F
         TabIndex        =   16
         Top             =   360
         Width           =   885
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3 
         Height          =   255
         Index           =   7
         Left            =   210
         OleObjectBlob   =   "FRMSCAEEN.frx":10CC
         TabIndex        =   17
         Top             =   840
         Width           =   885

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -