b3.frm

制作好的请假系统的小软件

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form b3 
   BackColor       =   &H00FF8080&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "请假情况查询"
   ClientHeight    =   6180
   ClientLeft      =   3585
   ClientTop       =   2760
   ClientWidth     =   9450
   Icon            =   "b3.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "b3.frx":014A
   ScaleHeight     =   6180
   ScaleWidth      =   9450
   StartUpPosition =   2  '屏幕中心
   Begin VB.Data Data1 
      Connect         =   "Access 2000;"
      DatabaseName    =   "D:\ww\管理系统\管理系统数据库.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   2400
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "请假登记表"
      Top             =   6000
      Visible         =   0   'False
      Width           =   2295
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Bindings        =   "b3.frx":2A273
      Height          =   2055
      Left            =   2520
      TabIndex        =   5
      Top             =   1800
      Width           =   5535
      _ExtentX        =   9763
      _ExtentY        =   3625
      _Version        =   393216
      Cols            =   0
      FixedCols       =   0
      FormatString    =   "2"
   End
   Begin VB.ComboBox Combo1 
      DataField       =   "班级"
      DataSource      =   "Data1"
      Height          =   300
      ItemData        =   "b3.frx":2A287
      Left            =   3105
      List            =   "b3.frx":2A29D
      TabIndex        =   1
      Top             =   1320
      Width           =   1695
   End
   Begin VB.Label l8 
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Caption         =   "记录:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   1680
      TabIndex        =   8
      Top             =   6060
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Label l9 
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Caption         =   "共有记录数:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   5520
      TabIndex        =   7
      Top             =   6060
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.Label Label12 
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   6960
      TabIndex        =   6
      Top             =   6060
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.Shape s2 
      BorderColor     =   &H000000FF&
      Height          =   360
      Left            =   7785
      Shape           =   4  'Rounded Rectangle
      Top             =   5160
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Label l5 
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Caption         =   "返  回"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   8025
      TabIndex        =   4
      Top             =   5220
      Width           =   855
   End
   Begin VB.Shape s1 
      BorderColor     =   &H000000FF&
      Height          =   360
      Left            =   5265
      Shape           =   4  'Rounded Rectangle
      Top             =   5160
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Label l4 
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Caption         =   "查  询"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   5505
      TabIndex        =   3
      Top             =   5220
      Width           =   855
   End
   Begin VB.Label l1 
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Caption         =   "班级"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2505
      TabIndex        =   2
      Top             =   1350
      Width           =   495
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Caption         =   "请假情况查询"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   26.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   525
      Index           =   0
      Left            =   3113
      TabIndex        =   0
      Top             =   480
      Width           =   3225
   End
End
Attribute VB_Name = "b3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub Form_Load()
Dim Mpath As String
Dim t As Integer
Mpath = App.Path
If Right(Mpath, 1) <> "\" Then Mpath = Mpath + "\"
Data1.DatabaseName = Mpath + "管理系统数据库"
Data1.RecordSource = "请假登记表"
Data1.Refresh
Combo1.Enabled = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > s1.Left And X < s1.Left + s1.Width And Y > s1.Top And Y < s1.Top + s1.Height Then
s1.Visible = True
l4(0).ForeColor = &HFF&
Else:
s1.Visible = False
l4(0).ForeColor = &H0&
End If

If X > s2.Left And X < s2.Left + s2.Width And Y > s2.Top And Y < s2.Top + s2.Height Then
s2.Visible = True
l5(0).ForeColor = &HFF&
Else:
s2.Visible = False
l5(0).ForeColor = &H0&
End If
End Sub

Private Sub l4_Click(Index As Integer)
Dim bj As String
bj = InputBox$("请输入请假人的班级", "查找窗")
Data1.RecordSource = " select *from 请假登记表 where 班级='" & bj & "'"
Data1.Refresh
If Data1.Recordset.EOF Then
     MsgBox "该班没有学生请假！", 48, "提示"
     Data1.RecordSource = "请假登记表"
     Data1.Refresh
     End If
End Sub

Private Sub l5_Click(Index As Integer)
Unload Me
main.Show
End Sub