tixingset.frm

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

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form tixingset 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "提醒设置"
   ClientHeight    =   4170
   ClientLeft      =   7380
   ClientTop       =   3120
   ClientWidth     =   3615
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4170
   ScaleWidth      =   3615
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame2 
      Caption         =   "定时提醒设置"
      ForeColor       =   &H000080FF&
      Height          =   3255
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   3375
      Begin MSComCtl2.DTPicker DTPicker1 
         Height          =   375
         Left            =   1080
         TabIndex        =   8
         Top             =   840
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   661
         _Version        =   393216
         CalendarTitleBackColor=   16744576
         CalendarTrailingForeColor=   33023
         Format          =   60162049
         CurrentDate     =   38678
      End
      Begin VB.TextBox Text1 
         Height          =   1215
         Left            =   120
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   6
         Text            =   "tixingset.frx":0000
         Top             =   1800
         Width           =   3135
      End
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   1080
         TabIndex        =   4
         Top             =   360
         Width           =   1575
      End
      Begin VB.Label Label3 
         Caption         =   "提醒内容"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF8080&
         Height          =   375
         Left            =   120
         TabIndex        =   7
         Top             =   1440
         Width           =   1215
      End
      Begin VB.Label Label2 
         Caption         =   "提醒时间"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   960
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "提醒对像"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   480
         Width           =   855
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   " "
      Height          =   735
      Left            =   120
      TabIndex        =   0
      Top             =   3360
      Width           =   3375
      Begin VB.CommandButton Command2 
         Caption         =   "放弃添加"
         Height          =   375
         Left            =   1800
         TabIndex        =   9
         Top             =   240
         Width           =   1335
      End
      Begin VB.CommandButton Command1 
         Caption         =   "确认添加"
         Height          =   375
         Left            =   240
         TabIndex        =   2
         Top             =   240
         Width           =   1215
      End
   End
End
Attribute VB_Name = "tixingset"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Public conn As New ADODB.Connection
Public connstring As String

Private Sub Command1_Click()
If Text2.text = "" Then

MsgBox "请输入要提醒的对像", vbOKOnly + 32, "提示信息"
Exit Sub
End If
If Text1.text = "" Then
MsgBox "请输入要提醒的内容", vbOKOnly + 32, "提示信息"
Exit Sub
End If
If DTPicker1.Value <= Now() Then
MsgBox "请输入大于当前日期的提醒时间", vbOKOnly + 32, "提示信息"
Exit Sub
End If
sql = "select * from tixing"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
rs.AddNew
rs.Fields("name") = Trim(Text2.text)
rs.Fields("text") = Trim(Text1.text)
rs.Fields("time") = DTPicker1.Value
rs.Update
MsgBox "添加成功", , "提示框"
rs.Close
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim name, text As String
Dim time As String

'connstring = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\rsgl.mdb"
Call strsql(connstring)
conn.Open connstring


End Sub

Private Sub Form_Unload(Cancel As Integer)
conn.Close
End Sub