riji.frm

学生宿舍管理系统vb+access

VERSION 5.00
Begin VB.Form riji 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "每日一记"
   ClientHeight    =   3315
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   6555
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3315
   ScaleWidth      =   6555
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command1 
      Caption         =   "退出"
      Height          =   375
      Left            =   5640
      TabIndex        =   12
      Top             =   120
      Width           =   735
   End
   Begin VB.Frame Frame3 
      Height          =   2655
      Left            =   0
      TabIndex        =   10
      Top             =   600
      Width           =   5415
      Begin VB.TextBox txtMemo 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   2340
         Left            =   120
         Locked          =   -1  'True
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   11
         Top             =   240
         Width           =   5160
      End
   End
   Begin VB.Frame Frame2 
      Height          =   2655
      Left            =   5520
      TabIndex        =   4
      Top             =   600
      Width           =   975
      Begin VB.CommandButton cmdNext 
         Caption         =   "下一条"
         Height          =   435
         Left            =   120
         TabIndex        =   9
         ToolTipText     =   "后一记录:F12"
         Top             =   720
         Width           =   765
      End
      Begin VB.CommandButton cmdEdit 
         Caption         =   "编辑"
         Height          =   435
         Left            =   120
         TabIndex        =   8
         Top             =   1680
         Width           =   780
      End
      Begin VB.CommandButton cmdAdd 
         Caption         =   "增加"
         Height          =   435
         Left            =   120
         TabIndex        =   7
         Top             =   1200
         Width           =   780
      End
      Begin VB.CommandButton cmdPrevious 
         Caption         =   "上一条"
         Height          =   435
         Left            =   120
         TabIndex        =   6
         ToolTipText     =   "前一记录F11"
         Top             =   240
         Width           =   765
      End
      Begin VB.CommandButton cmdDelete 
         Caption         =   "删除"
         Height          =   435
         Left            =   120
         TabIndex        =   5
         Top             =   2160
         Width           =   780
      End
   End
   Begin VB.CommandButton cmdFind 
      Caption         =   "查看"
      Height          =   400
      Left            =   3000
      TabIndex        =   3
      ToolTipText     =   "请输入日期:XXXX-XX-XX后按下查询."
      Top             =   80
      Width           =   780
   End
   Begin VB.Frame Frame1 
      Height          =   510
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   2745
      Begin VB.TextBox txtDate 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         Height          =   315
         Left            =   720
         MaxLength       =   10
         TabIndex        =   1
         ToolTipText     =   "请输入日期:XXXX-XX-XX后按下查询."
         Top             =   135
         Width           =   1965
      End
      Begin VB.Label lblDate 
         AutoSize        =   -1  'True
         Caption         =   "&F日期:"
         Height          =   180
         Left            =   135
         TabIndex        =   2
         Top             =   210
         Width           =   540
      End
   End
End
Attribute VB_Name = "riji"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdd_Click()
 Me.Tag = "addnew"
 frminput.Show 1
End Sub

Private Sub cmdDelete_Click()
If txtDate = "" Then
MsgBox "请选择记录!", , "每日一记"
Exit Sub
End If

 Dim Result
  If giRecordCount = 0 Then Exit Sub
  Result = MsgBox("确定删除记录吗？不可恢复", vbQuestion + vbYesNo, "电子日记本")
  If Result = vbYes Then
  DeleteData
  gbFirst = False
  If giCurrentRecord > 1 Then giCurrentRecord = giCurrentRecord - 1
  Form_Load
  End If
End Sub

Private Sub cmdEdit_Click() '修改记录
   If giRecordCount < 1 Then Exit Sub
   Me.Tag = "modify"
   frminput.Show 1
End Sub

Private Sub cmdFind_Click() '按日期查询
   If giRecordCount < 1 Or txtDate.Text = "" Then Exit Sub
   gsSql = txtDate
   FindData gsSql
End Sub

Private Sub cmdNext_Click()   '下一记录
   If giCurrentRecord < giRecordCount Then
      giCurrentRecord = giCurrentRecord + 1
   ReadData (giCurrentRecord)
   End If
End Sub

Private Sub cmdPrevious_Click() '前一记录
   If giCurrentRecord > 1 Then
      giCurrentRecord = giCurrentRecord - 1
   ReadData (giCurrentRecord)
   End If
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) 'F11前一记录,F12后一记录
If KeyCode = vbKeyF11 Then
cmdPrevious.Value = True
ElseIf KeyCode = vbKeyF12 Then
cmdNext.Value = True
End If
End Sub

Private Sub Form_Load()
Dim strcaption$
InitalizeData
'If giRecordCount > 0 Then '如果有记录,且是第一次运行,则设置当前记录为1.
'    If gbFirst Then giCurrentRecord = 1
'    txtDate = goDiarys(giCurrentRecord).fldDate
'    txtMemo = goDiarys(giCurrentRecord).fldMemo
'Else
'    giCurrentRecord = 0
'    txtDate = "": txtMemo = ""
'End If
strcaption = "每日一记   [" & Date & "]  " & Time & "  " & WeekdayName(Weekday(Date)) & "  记录:" & giCurrentRecord & "/" & giRecordCount
Me.Caption = strcaption
End Sub



Private Sub mnuDiaryExit_Click()
Unload Me
End Sub

Private Sub mnuDiaryOption_Click()
frmOption.Show 1
End Sub


Private Sub txtDate_KeyPress(KeyAscii As Integer) '限定输入的数据在0~9和-以类
If KeyAscii >= 48 And KeyAscii <= 57 Then
ElseIf KeyAscii = 8 Then
ElseIf KeyAscii = Asc("-") Then
Else
KeyAscii = 0
End If
End Sub

Private Sub txtDate_KeyUp(KeyCode As Integer, Shift As Integer) '接回连键开始查找
If KeyCode = vbKeyReturn Then cmdFind.Value = True
End Sub