www.pudn.com > new xsc.rar > 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