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

📄 frmstartquery3.frm

📁 一个管理程序(实用)VB
💻 FRM
📖 第 1 页 / 共 3 页
字号:
VERSION 5.00
Begin VB.Form frmStartQuery3 
   Caption         =   "教师考勤查询"
   ClientHeight    =   1050
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4080
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1050
   ScaleWidth      =   4080
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox txtFields 
      DataField       =   "姓名"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   0
      Left            =   840
      MaxLength       =   10
      MousePointer    =   99  'Custom
      TabIndex        =   103
      Top             =   1200
      Width           =   975
   End
   Begin VB.TextBox txtFields 
      DataField       =   "编号"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   1
      Left            =   2880
      MaxLength       =   10
      MousePointer    =   99  'Custom
      TabIndex        =   102
      Top             =   1200
      Width           =   1215
   End
   Begin VB.TextBox txtFields 
      DataField       =   "日期"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   2
      Left            =   7800
      MousePointer    =   99  'Custom
      TabIndex        =   101
      Top             =   1200
      Width           =   1455
   End
   Begin VB.TextBox txtFields 
      DataField       =   "学院"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   3
      Left            =   5160
      MousePointer    =   99  'Custom
      TabIndex        =   100
      Top             =   1200
      Width           =   1455
   End
   Begin VB.Frame Frame1 
      Caption         =   "出勤情况统计(天)"
      ForeColor       =   &H00FF0000&
      Height          =   3735
      Left            =   120
      TabIndex        =   31
      Top             =   1680
      Width           =   10335
      Begin VB.TextBox txtFields 
         DataField       =   "事假"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   4
         Left            =   1080
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   79
         Top             =   840
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "事假1"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   5
         Left            =   1080
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   78
         Top             =   1320
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "事假2"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   6
         Left            =   1080
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   77
         Top             =   1800
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "事假3"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   7
         Left            =   1080
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   76
         Top             =   2280
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "事假4"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   8
         Left            =   1080
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   75
         Top             =   2760
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "事假5"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   9
         Left            =   1080
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   74
         Top             =   3240
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "病假"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   10
         Left            =   2040
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   73
         Top             =   840
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "病假1"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   11
         Left            =   2040
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   72
         Top             =   1320
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "病假2"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   12
         Left            =   2040
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   71
         Top             =   1800
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "病假3"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   13
         Left            =   2040
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   70
         Top             =   2280
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "病假4"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   14
         Left            =   2040
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   69
         Top             =   2760
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "病假5"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   15
         Left            =   2040
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   68
         Top             =   3240
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "旷课"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   16
         Left            =   3000
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   67
         Top             =   840
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "旷课1"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   17
         Left            =   3000
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   66
         Top             =   1320
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "旷课2"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   18
         Left            =   3000
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   65
         Top             =   1800
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "旷课3"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   19
         Left            =   3000
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   64
         Top             =   2280
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "旷课4"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   20
         Left            =   3000
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   63
         Top             =   2760
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "旷课5"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   21
         Left            =   3000
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   62
         Top             =   3240
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "旷工"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   22
         Left            =   3840
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   61
         Top             =   840
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "旷工1"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   23
         Left            =   3840
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   60
         Top             =   1320
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "旷工2"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   24
         Left            =   3840
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   59
         Top             =   1800
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "旷工3"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   25
         Left            =   3840
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   58
         Top             =   2280
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "旷工4"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   26
         Left            =   3840
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   57
         Top             =   2760
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "旷工5"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   27
         Left            =   3840
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   56
         Top             =   3240
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "事假6"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   28
         Left            =   6360
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   55
         Top             =   840
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "事假7"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   29
         Left            =   6360
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   54
         Top             =   1320
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "事假8"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   30
         Left            =   6360
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   53
         Top             =   1800
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "事假9"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   31
         Left            =   6360
         MaxLength       =   10
         MousePointer    =   99  'Custom
         TabIndex        =   52
         Top             =   2280
         Width           =   495
      End
      Begin VB.TextBox txtFields 
         DataField       =   "事假10"
         DataSource      =   "Data1"

⌨️ 快捷键说明

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