frmin_opinionset.frm

一个用VB写的财务软件源码

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form frmIn_OpinionSet 
   Caption         =   "会计日历"
   ClientHeight    =   4410
   ClientLeft      =   3975
   ClientTop       =   2385
   ClientWidth     =   4395
   Icon            =   "frmIn_OpinionSet.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   4410
   ScaleWidth      =   4395
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton CmdCancel 
      Caption         =   "退出(&C)"
      Height          =   405
      Left            =   2460
      TabIndex        =   5
      Top             =   3900
      Width           =   1095
   End
   Begin VB.CommandButton CmdOk 
      Caption         =   "确定(&O)"
      Height          =   405
      Left            =   660
      TabIndex        =   4
      Top             =   3900
      Width           =   1095
   End
   Begin MSFlexGridLib.MSFlexGrid MfgKjqj 
      Height          =   3315
      Left            =   90
      TabIndex        =   3
      Top             =   480
      Width           =   4215
      _ExtentX        =   7435
      _ExtentY        =   5847
      _Version        =   393216
      Cols            =   3
      ScrollBars      =   0
      FormatString    =   "<  会计期间 |<  开始日期 |< 结束日期"
   End
   Begin VB.TextBox TxtStYear 
      Enabled         =   0   'False
      Height          =   270
      Left            =   1350
      TabIndex        =   1
      Top             =   90
      Width           =   525
   End
   Begin MSComCtl2.DTPicker dtpStDate 
      Height          =   285
      Left            =   2940
      TabIndex        =   6
      Top             =   60
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   503
      _Version        =   393216
      Enabled         =   0   'False
      CalendarBackColor=   16777088
      CustomFormat    =   "yyyy-MM-dd"
      Format          =   23789571
      CurrentDate     =   36658
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "启用日期："
      Height          =   180
      Left            =   2040
      TabIndex        =   2
      Top             =   150
      Width           =   870
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "启用会计年度："
      Height          =   180
      Left            =   60
      TabIndex        =   0
      Top             =   150
      Width           =   1230
   End
End
Attribute VB_Name = "frmIn_OpinionSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim m_sCreateMonth As String    '创建账套的年月份
Dim m_sJzMonth As String       '结账年月份
Dim m_bChange As Boolean
Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub cmdCancel_Click()
 Unload Me
End Sub

Private Sub cmdOk_Click()
    Dim rstTemp As New ADODB.Recordset
    Dim sSql As String
    If Not m_bChange Then
        Exit Sub
    End If
 '======================2002.8.16==yao===revise==========================
'
'    If Month(dtpStDate.Value) < m_sCreateMonth Then
'        MsgBox "启用月份不能小于创建账套的月份！", vbInformation
'        Exit Sub
'    End If
    If Format(dtpStDate.Value, "yyyy-mm") < Format(m_sCreateMonth, "yyyy-mm") Then
        MsgBox "启用年月份不能小于创建账套的年月份！", vbInformation
        Exit Sub
    End If
    '=======================================================================
    
    sSql = "update  tsys_account set  BeginMonth='" & Month(dtpStDate.Value) & " '   where AccountID='" & glo.sAccountID & "'"
    With rstTemp
         .CursorLocation = adUseClient
         .Open sSql, gloSys.cnnSYS, adOpenStatic, adLockOptimistic
    End With
 '   rstTemp.Close
    Set rstTemp = Nothing
    m_bChange = False
End Sub

Private Sub dtpStDate_Change()
  m_bChange = True
End Sub

Private Sub form_load()
    '取会计启用年份和月份
    Dim rstTemp As New ADODB.Recordset
    Dim sSql As String
    Dim i As Integer
    
    m_bChange = False
    sSql = "SELECT * FROM tSYS_SubSysUsed WHERE AccountID='" & glo.sAccountID & _
            "' AND SubSysID='" & gloSys.sSubSysID & "'"
    With rstTemp
        .CursorLocation = adUseClient
        .Open sSql, gloSys.cnnSYS, adOpenStatic, adLockOptimistic
         If Not (.EOF And .BOF) Then
             .MoveFirst
             TxtStYear.text = .Fields("beginyear").Value
             m_sJzMonth = CStr(.Fields("modiyear").Value) & "-" & CStr(.Fields("modiMonth").Value)
             dtpStDate.Value = Format(CStr(.Fields("beginyear").Value) & "-" & CStr(.Fields("BeginMonth").Value), "yyyy-mm")
         End If
    End With
    rstTemp.Close
    
    '设置MFXKJQJ的单元格属性
    MfgKjqj.Rows = 2
    MfgKjqj.RowHeight(0) = 300
    MfgKjqj.COLWIDTH(0) = 1200
    MfgKjqj.COLWIDTH(1) = 1400
    MfgKjqj.COLWIDTH(2) = 1400
    
    MfgKjqj.ColAlignment(0) = 4
    MfgKjqj.ColAlignment(1) = 4
    MfgKjqj.ColAlignment(2) = 4
    '填单元格的内容
    sSql = "select * from tSYS_Period where AccountID='" & _
                glo.sAccountID & "' and year=" & _
                glo.sOperateYear & " order by Year,PeriodID"
    With rstTemp
        .Open sSql, gloSys.cnnSYS, adOpenStatic, adLockOptimistic
        If Not (.EOF And .BOF) Then
           .MoveFirst
           i = 1
           MfgKjqj.RowHeight(i) = 235
           While (Not .EOF)
                MfgKjqj.AddItem CStr(.Fields("periodId").Value) & Chr(9) & Format(.Fields("fromdate").Value, "yyyy-mm-dd") & _
                         Chr(9) & Format(.Fields("todate").Value, "yyyy-mm-dd"), i
                .MoveNext
                  i = i + 1
                MfgKjqj.Rows = i
                MfgKjqj.RowHeight(i - 1) = 235
           Wend
        End If
    End With
  rstTemp.Close
 '取创建账套的月份
 sSql = "select *  from tsys_account where AccountID='" & glo.sAccountID & "'"
  With rstTemp
     .Open sSql, gloSys.cnnSYS, adOpenStatic, adLockOptimistic
     If Not (.EOF And .BOF) Then
        m_sCreateMonth = CStr(.Fields("BeginYear").Value) & "-" & CStr(.Fields("BeginMonth").Value)
     End If
  End With
  rstTemp.Close
  
 '判断是否可以修改启用月份
' If (Format(dtpStDate.Value, "yyyy-mm") > Format(m_sJzMonth, "yyyy-mm")) Then
'     dtpStDate.Enabled = True
'     cmdOk.Enabled = True
' Else
'     dtpStDate.Enabled = False
'     cmdOk.Enabled = False
' End If
 
End Sub