frmyh_yhfdz.frm

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

VERSION 5.00
Begin VB.Form frmYH_Yhfdz 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "银行反对账范围"
   ClientHeight    =   1785
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3765
   Icon            =   "frmYH_Yhfdz.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1785
   ScaleWidth      =   3765
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.ComboBox cboYhfdzYue 
      Height          =   300
      Left            =   1230
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   270
      Width           =   1545
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   345
      Left            =   2250
      TabIndex        =   2
      Top             =   1230
      Width           =   1065
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   345
      Left            =   510
      TabIndex        =   1
      Top             =   1230
      Width           =   1065
   End
   Begin VB.Label Label2 
      Caption         =   "日为止"
      Height          =   255
      Left            =   2820
      TabIndex        =   4
      Top             =   300
      Width           =   675
   End
   Begin VB.Label Label1 
      Caption         =   "反对账到"
      Height          =   255
      Left            =   270
      TabIndex        =   3
      Top             =   300
      Width           =   825
   End
End
Attribute VB_Name = "frmYH_Yhfdz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public IsOk As Boolean

Private Sub cmdCancel_Click()
    IsOk = False
    Me.Hide
End Sub

Private Sub cmdOk_Click()
    IsOk = True
    Me.Hide
End Sub

Private Sub form_load()
    Dim Yue As Integer
    Dim rstTemp As ADODB.Recordset
    Dim sSQL As String
    Dim sBeginDate As String
    
    Set rstTemp = New ADODB.Recordset
    rstTemp.CursorLocation = adUseClient
    
    IsOk = False

    
    sSQL = "SELECT * FROM tZW_Yhdzqyrq WHERE kmdm = '" & frmYH_Yhkmxz.kmdm & "'"
    rstTemp.Open sSQL, glo.cnnMain, adOpenStatic, adLockReadOnly
    With rstTemp
        If .RecordCount > 0 Then
            '判断银行对账启用日期的年份等于当前注册年份
            If Year(.Fields("qyrq").Value) = CInt(glo.sOperateYear) Then
                sBeginDate = Format(.Fields("qyrq").Value, "yyyy-mm-dd")
                Yue = Month(Format(.Fields("qyrq").Value, "yyyy-mm-dd")) + 1
            Else
                sBeginDate = glo.sOperateYear + "-01-01"
                Yue = 2
            End If
        Else
            sBeginDate = glo.sOperateYear + "-01-01"
            Yue = 2
        End If
    End With
    cboYhfdzYue.AddItem sBeginDate
    While Yue <= 12
        cboYhfdzYue.AddItem glo.sOperateYear & "-" & IIf(Yue < 10, "0" & Yue, Yue) & "-01"
        Yue = Yue + 1
    Wend
    cboYhfdzYue.ListIndex = 0
End Sub