frmbegin.frm

财务信息管理系统,适合做毕业论文的人使用

VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Begin VB.Form frmBegin 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "注意"
   ClientHeight    =   1440
   ClientLeft      =   45
   ClientTop       =   300
   ClientWidth     =   4365
   Icon            =   "frmBegin.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1440
   ScaleWidth      =   4365
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdrq 
      Height          =   270
      Left            =   3885
      Style           =   1  'Graphical
      TabIndex        =   4
      TabStop         =   0   'False
      Top             =   255
      Width           =   270
   End
   Begin EDITLib.Edit Editrq 
      Height          =   270
      Left            =   2775
      TabIndex        =   0
      Top             =   255
      Width           =   1035
      _Version        =   65536
      _ExtentX        =   1826
      _ExtentY        =   476
      _StockProps     =   253
      ForeColor       =   0
      BackColor       =   16777215
      Appearance      =   1
      Property        =   5
      MaxLength       =   10
   End
   Begin VB.CommandButton cmdfind 
      Default         =   -1  'True
      Height          =   365
      Left            =   735
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   825
      Width           =   1080
   End
   Begin VB.CommandButton cmdcancel 
      Cancel          =   -1  'True
      Height          =   365
      Left            =   2560
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   825
      Width           =   1080
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "请输入资金管理启用时间"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   225
      TabIndex        =   1
      Top             =   285
      Width           =   2490
   End
End
Attribute VB_Name = "frmBegin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 系统启用日期
'作者: 魏小黎

'========================================================
' 修    改 : CuiDong
' 日    期 : 2000-05-25 14:00 - 16:15
' 著 作 权 : 北京用友软件(集团)有限公司
'
' 错误1：ZJGL.VBP中第118行：Form=frmBegin 错误，改正为Form=frmBegin.frm
'
' 错误2：frmBegin.cmdfind_Click()
'        第34行：Dim rq As String, rsTemp As Recordset, iIndex As Long, iTemp As Integer
'        改正为：Dim rq As String, rsTemp As UfRecordset, iIndex As Long, iTemp As Integer
'        第64、79、98、107行的 .Close 改为 .oClose
'
' 错误3：frmBegin.cmdfind_Click()
'        第103行：Set rsTemp = zjLogInfo.UfSystemDb.OpenRecordset("select iYear, iID from UA_Period where cAcc_ID='" & zjLogInfo.cacc_id & "' And dbegin <=#" & rq & "# and dEnd >=#" & rq & "#", dbOpenSnapshot)
'        改正为 ：Set rsTemp = zjLogInfo.UfSystemDb.OpenRecordset("select iYear, iID from UA_Period where cAcc_ID='" & zjLogInfo.cacc_id & "' And dbegin <='" & rq & "' and dEnd >='" & rq & "'", dbOpenSnapshot)
'
' 错误4：2000-06-08 frmBegin.cmdfind_Click()
'        第79行：Set rsTemp = zjLogInfo.UfSystemDb.OpenRecordset("select dBegin, dend from UA_Period where cAcc_ID='" & zjLogInfo.cacc_id & "' And iYear=" & zjLogInfo.ciyear & " order by iID", dbOpenSnapshot)
'        改正为：Set rsTemp = zjLogInfo.UfSystemDb.OpenRecordset("select iYear, iMonth from ua_Account where cAcc_ID='" & zjLogInfo.cacc_id & "'", dbOpenSnapshot)
'                Set rsTemp = zjLogInfo.UfSystemDb.OpenRecordset("select dBegin, dend from UA_Period where cAcc_ID='" & zjLogInfo.cacc_id & "' And iYear=" & zjLogInfo.ciyear & " And dEnd >= '" & rsTemp.Fields(0).Value & "-" & rsTemp.Fields(1).Value & "-01" & "' order by iID", dbOpenSnapshot)
'========================================================

Option Explicit

Private Sub cmdcancel_Click()
    Unload Me
    View_Bref = True
End Sub

Private Sub cmdfind_Click()

    On Error Resume Next
    Dim rq As String, rsTemp As UfRecordset, iIndex As Long, iTemp As Integer
    If Editrq.Text = "" Then
        Beep
        MsgBox "业务日期不能为空，请检查！", vbCritical, zjGl_Name
        Editrq.SetFocus
        Exit Sub
    Else
        Editrq.Text = ForDate(Editrq.Text)
        If Not IsDate(Editrq.Text) Then
            Beep
            MsgBox "日期非法，请检查！", vbCritical, zjGl_Name
            SetTxtFocus Editrq
            Exit Sub
        End If
        If CDate(Editrq.Text) > Date Then
            Beep
            MsgBox "启用日期不能超过机器时间！", vbCritical, zjGl_Name
            SetTxtFocus Editrq
            Exit Sub
        End If
        
        iIndex = 100
        zjLogInfo.GetAccInfo iIndex, iTemp
        rq = Trim(str(iTemp))
        
        iIndex = 101
        zjLogInfo.GetAccInfo iIndex, iTemp
        
'        Set rsTemp = zjLogInfo.UfSystemDb.OpenRecordset("select dBegin from UA_Period where cAcc_ID='" & zjLogInfo.cacc_id & "' And iYear=" & rq & " and iID=" & iTemp, dbOpenSnapshot) '( WeiXiaoLi ) Cuidong 2000/08/21
'        rq = Format(rsTemp!dbegin, "yyyy-mm-dd") '( WeiXiaoLi ) Cuidong 2000/08/21
'        rsTemp.oClose                            '( WeiXiaoLi ) Cuidong 2000/08/21
'
'        If CDate(Editrq.Text) < CDate(rq) Then   '( WeiXiaoLi ) Cuidong 2000/08/21
'            Beep                                 '( WeiXiaoLi ) Cuidong 2000/08/21
'            MsgBox "资金管理启用日期不能小于整个系统启用日期！", vbCritical, zjGl_Name '( WeiXiaoLi ) Cuidong 2000/08/21
'            SetTxtFocus Editrq                   '( WeiXiaoLi ) Cuidong 2000/08/21
'            Exit Sub                             '( WeiXiaoLi ) Cuidong 2000/08/21
'        End If                                   '( WeiXiaoLi ) Cuidong 2000/08/21
        
        'Set rsTemp = zjLogInfo.UfSystemDb.OpenRecordset("select iYear, iMonth from ua_Account where cAcc_ID='" & zjLogInfo.cacc_id & "'", dbOpenSnapshot) '( WeiXiaoLi ) Cuidong 2000/08/21 'Cuidong
        'Set rsTemp = zjLogInfo.UfSystemDb.OpenRecordset("select dBegin, dend from UA_Period where cAcc_ID='" & zjLogInfo.cacc_id & "' And iYear=" & zjLogInfo.cIYear & " And dEnd >= '" & rsTemp.Fields(0).Value & "-" & rsTemp.Fields(1).Value & "-01" & "' order by iID", dbOpenSnapshot) '( WeiXiaoLi ) Cuidong 2000/08/21 'Cuidong
        Set rsTemp = zjLogInfo.UfSystemDb.OpenRecordset("select dBegin, dend from UA_Period where cAcc_ID='" & zjLogInfo.cacc_id & "' And iYear=" & zjLogInfo.cIYear & " And (iid=1 or iid=12) order by iID", dbOpenSnapshot) '( WeiXiaoLi ) Cuidong 2000/08/21
'        Set rsTemp = zjLogInfo.UfSystemDb.OpenRecordset("select dBegin, dend from UA_Period where cAcc_ID='" & zjLogInfo.cacc_id & "' And iYear=" & zjLogInfo.ciyear & " order by iID", dbOpenSnapshot) 'Cuidong
        rsTemp.MoveFirst
        rq = Format(rsTemp!dbegin, "YYYY-MM-DD")
        Dim rq1 As String
        rsTemp.MoveLast
        rq1 = Format(rsTemp!dEnd, "YYYY-MM-DD")
        rsTemp.oClose
        
        If CDate(Editrq.Text) < CDate(rq) Or CDate(Editrq.Text) > CDate(rq1) Then '( WeiXiaoLi ) Cuidong 2000/08/21 'Cuidong
        'If CDate(Editrq.Text) < CDate(rq) Or Format(CDate(Editrq.Text), "YYYY") <> Format(CDate(rq1), "YYYY") Then '( WeiXiaoLi ) Cuidong 2000/08/21 'Cuidong
            Beep
            MsgBox "资金管理启用日期必须在本会计年度内！", vbCritical, zjGl_Name '( WeiXiaoLi ) Cuidong 2000/08/21 'Cuidong
'            MsgBox "资金管理启用日期不应小于本账套的启用日期！   " & vbCrLf & vbCrLf & "账套启用日期：" & Format(CDate(rq), "Long Date"), vbCritical, zjGl_Name '( WeiXiaoLi ) Cuidong 2000/08/21 'Cuidong
            SetTxtFocus Editrq
            Exit Sub
        End If
    End If
    
    rq = Editrq.Text
    Unload Me
    
    Set rsTemp = dbsZJ.OpenRecordset("select * from FD_Option", dbOpenDynaset)
    With rsTemp
        .MoveFirst
        .edit
        ![Option1] = CDate(rq)
        .Update
        .oClose
    End With
    
    ZjAccInfo.zjStartdate = CDate(rq)
    
    Set rsTemp = zjLogInfo.UfSystemDb.OpenRecordset("select iYear, iID from UA_Period where cAcc_ID='" & zjLogInfo.cacc_id & "' And dbegin <='" & rq & "' and dEnd >='" & rq & "'", dbOpenSnapshot)
    If Not rsTemp.EOF Then
        rq = "" & rsTemp!iYear & "-" & rsTemp!iID & "-01"
    End If
    rsTemp.oClose
    
    iIndex = 200
    zjLogInfo.GetAccInfo iIndex, CDate(rq)
    
    Set rsTemp = Nothing
    View_Bref = False
End Sub

Private Sub cmdrq_Click()
    View_Calendar Me, Editrq, 0
End Sub

Private Sub cmdrq_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 113 Then    'F2
        View_Calendar Me, Editrq, 0
    End If
End Sub

Private Sub Editrq_Keyup(KeyCode As Integer, Shift As Integer)
    If KeyCode = 113 Then    'F2
        View_Calendar Me, Editrq, 0
    End If
End Sub

Private Sub Form_Load()
    CenterForm Me
    Me.Icon = LoadResPicture(109, vbResIcon)
    Editrq.Text = Format(Date, "yyyy-mm-dd")
    cmdrq.Picture = LoadResPicture(1108, vbResBitmap)
    cmdfind.Picture = LoadResPicture(103, vbResBitmap)
    cmdcancel.Picture = LoadResPicture(104, vbResBitmap)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    View_Bref = True
End Sub