daytixing.frm

这是学生做的人事档案系统

VERSION 5.00
Begin VB.Form daytxset 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "今日提醒"
   ClientHeight    =   4860
   ClientLeft      =   7875
   ClientTop       =   2745
   ClientWidth     =   5025
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4860
   ScaleWidth      =   5025
   Begin VB.Frame Frame2 
      Height          =   855
      Left            =   120
      TabIndex        =   1
      Top             =   3960
      Width           =   4815
      Begin VB.CommandButton Command3 
         Caption         =   "退出"
         Height          =   495
         Left            =   3840
         TabIndex        =   4
         Top             =   240
         Width           =   855
      End
      Begin VB.CommandButton Command2 
         Caption         =   "下一条"
         Height          =   495
         Left            =   2880
         TabIndex        =   3
         Top             =   240
         Width           =   855
      End
      Begin VB.CheckBox Check1 
         Caption         =   "在启动时显示"
         ForeColor       =   &H000080FF&
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   360
         Width           =   1455
      End
   End
   Begin VB.Frame Frame1 
      Height          =   3975
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   4815
      Begin VB.PictureBox Picture1 
         BackColor       =   &H00FFFFFF&
         ForeColor       =   &H00000000&
         Height          =   3735
         Left            =   120
         ScaleHeight     =   3675
         ScaleWidth      =   4515
         TabIndex        =   5
         Top             =   240
         Width           =   4575
         Begin VB.TextBox Text1 
            ForeColor       =   &H00FF80FF&
            Height          =   1695
            Left            =   0
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   10
            Top             =   2040
            Width           =   4575
         End
         Begin VB.Label Label5 
            BackStyle       =   0  'Transparent
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   14.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   375
            Left            =   1320
            TabIndex        =   11
            Top             =   1320
            Width           =   3015
         End
         Begin VB.Label Label4 
            BackStyle       =   0  'Transparent
            Caption         =   "提示内容："
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   14.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   375
            Left            =   0
            TabIndex        =   9
            Top             =   1680
            Width           =   1455
         End
         Begin VB.Label Label3 
            BackStyle       =   0  'Transparent
            Caption         =   "提示对像："
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   14.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Left            =   0
            TabIndex        =   8
            Top             =   1320
            Width           =   1455
         End
         Begin VB.Label Label2 
            BackColor       =   &H00FFFFFF&
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   375
            Left            =   1560
            TabIndex        =   7
            Top             =   720
            Width           =   2895
         End
         Begin VB.Label Label1 
            BackColor       =   &H00FFFFFF&
            Caption         =   "今日提醒…"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   375
            Left            =   480
            TabIndex        =   6
            Top             =   240
            Width           =   1335
         End
      End
   End
End
Attribute VB_Name = "daytxset"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Public sql As String
Public conn As New ADODB.Connection
Public tixing As String








Private Sub Command2_Click()

rs.MoveNext
If rs.EOF = True Then
MsgBox "今日提醒已完！"
Command2.Enabled = False
Exit Sub
Else

Label5.Caption = rs.Fields("name")
Text1.text = rs.Fields("text")

End If

End Sub

Private Sub Command3_Click()

Unload Me
End Sub

Private Sub Form_Load()
Check1.Value = 1
Dim n, X As Long
n = 0
X = 0
Call strsql(connstring)
conn.Open connstring

sql = "select * from tixing"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic

rs.find "time='" & Date & "'"
Do While rs.EOF = False
n = n + 1
rs.MoveNext
rs.find "time='" & Date & "'"
Loop
If n = 0 Then
Command2.Enabled = False
End If
Label2.Caption = "共有提示信息 " & n & " 条"
tixing = Year(Date) & " - " & Month(Date) & " - " & Day(Date)
If rs.RecordCount = 0 Then
MsgBox "当前库中没有记录"
Command2.Enabled = False
Exit Sub
End If
rs.MoveFirst
rs.Close
tixing = "2005-12-20"
sql = "select * from tixing where time  like '" & "%" & Date & "%" & "'"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic

'rs.find "time='" & Date & "'"
If rs.EOF = False Then
Text1.text = rs.Fields("text")
Label5.Caption = rs.Fields("name")

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
rs.Close
sql = "select * from tixing where time like  '" & "%" & Date - 1 & "%" & "'"
rs.Open sql
Do While rs.EOF = False
MsgBox "过期一天的提醒信息删除！ "
rs.Delete
rs.Update
rs.MoveNext
Loop
rs.Close
sql = "select * from qidong"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
If Check1.Value = 1 Then
rs.Fields("qidong") = 1
Else
rs.Fields("qidong") = 0
End If
rs.Update
rs.Close
conn.Close
End Sub