frmriqi1.frm

班主任考核管理系统

VERSION 5.00
Begin VB.Form frmriqi1 
   Caption         =   "津贴日期"
   ClientHeight    =   2685
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4470
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   2685
   ScaleWidth      =   4470
   Begin VB.TextBox Text0 
      Height          =   375
      Index           =   1
      Left            =   2640
      MaxLength       =   7
      TabIndex        =   4
      Top             =   1080
      Width           =   1575
   End
   Begin VB.TextBox Text0 
      Height          =   375
      Index           =   0
      Left            =   360
      MaxLength       =   7
      TabIndex        =   2
      Top             =   1080
      Width           =   1575
   End
   Begin VB.CommandButton Command1 
      Caption         =   "取消"
      Height          =   495
      Left            =   2520
      TabIndex        =   1
      Top             =   1920
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      Caption         =   "确定"
      Height          =   495
      Left            =   720
      TabIndex        =   0
      Top             =   1920
      Width           =   1455
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "至"
      Height          =   180
      Left            =   2160
      TabIndex        =   5
      Top             =   1200
      Width           =   180
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "请输入津贴的时间段(格式如下：2004-5)"
      Height          =   180
      Left            =   600
      TabIndex        =   3
      Top             =   480
      Width           =   3240
   End
End
Attribute VB_Name = "frmriqi1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
  Unload Me
End Sub

Private Sub Command2_Click()
  If Not IsDate(Format(Trim(Text0(0).Text & "-" & "1"), "yyyy-mm-dd")) Then
     MsgBox "请输入正确的日期格式！", vbOKOnly + vbExclamation, "警告"
     Text0(0).SetFocus
     Exit Sub
   End If
    If Not IsDate(Format(Trim(Text0(1).Text & "-" & "1"), "yyyy-mm-dd")) Then
     MsgBox "请输入正确的日期格式！", vbOKOnly + vbExclamation, "警告"
     Text0(1).SetFocus
     Exit Sub
   End If
  Dim mrccc1, mr As ADODB.Recordset
  Dim msgtext1 As String
  Dim txtSQL As String
  Dim a, aa As String
  Dim i As Integer
  i = 1
  txtSQL = "delete from riqi1 where class<>''"
  Set mrccc1 = ExecuteSQL(txtSQL, msgtext1)
  a = Format(CDate(Text0(0).Text & "-" & "1"), "yyyy-mm-dd")
  aa = Format(CDate(Text0(1).Text & "-" & "1"), "yyyy-mm-dd")
  If aa <= a Then
   MsgBox "时间段的结束日期晚于时间段的开始日期", vbOKOnly + vbExclamation, "错误"
   Exit Sub
  End If
  txtSQL = "select * from jintie where riqi<='" & aa & "'and riqi>='" & a & "'"
  Set mrccc1 = ExecuteSQL(txtSQL, msgtext1)
  If mrccc1.EOF = True Then
    MsgBox "找不到任何纪录！", vbOKOnly + vbExclamation, "警告"
    Exit Sub
  Else
      Do While Not mrccc1.EOF
         txtSQL = "insert into riqi1 values('" & mrccc1.Fields(0) & "','" & mrccc1.Fields(1) & "','" & mrccc1.Fields(2) & "','" & mrccc1.Fields(3) & "','" & mrccc1.Fields(4) & "','" & mrccc1.Fields(5) & "','" & mrccc1.Fields(6) & "','" & mrccc1.Fields(7) & "','" & mrccc1.Fields(8) & "','" & mrccc1.Fields(9) & "','" & mrccc1.Fields(10) & "','" & mrccc1.Fields(11) & "','" & mrccc1.Fields(12) & "')"

    Set mr = ExecuteSQL(txtSQL, msgtext1)
      mrccc1.MoveNext
    Loop
    mrccc1.Close
  a = MsgBox(msgtext1 & "是否生成报表？", vbOKCancel, "警告")
  If a = vbOK Then
     DataEnvironment1.Connection1.Close
     DataEnvironment1.Connection1.Open
     DataEnvironment1.Commands("Command2").ActiveConnection = DataEnvironment1.Connection1
     DataEnvironment1.Commands("Command2").CommandText = "dbo.riqi1"
    DataReport2.Show
   End If
  End If
End Sub

Private Sub Form_Load()
  Me.Height = 3090
  Me.Width = 4590
End Sub