VB开发的ERP系统

VERSION 5.00
Begin VB.Form XJ_FrmXjllbcxtj 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "现金流量表查询条件"
   ClientHeight    =   1305
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4140
   Icon            =   "现金流量_现金流量表查询条件.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1305
   ScaleWidth      =   4140
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton QdCommand 
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   1740
      TabIndex        =   2
      Top             =   930
      Width           =   1120
   End
   Begin VB.CommandButton QxCommand 
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   2940
      TabIndex        =   4
      Top             =   930
      Width           =   1120
   End
   Begin VB.CheckBox UnloadCheck 
      Caption         =   "卸载窗体"
      Height          =   615
      Left            =   4830
      TabIndex        =   5
      Top             =   390
      Visible         =   0   'False
      Width           =   825
   End
   Begin VB.Frame Fra_Query 
      ForeColor       =   &H00FF0000&
      Height          =   795
      Left            =   60
      TabIndex        =   6
      Top             =   30
      Width           =   4005
      Begin VB.ComboBox Combo_Kjqj 
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   1
         Left            =   2580
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   300
         Width           =   1305
      End
      Begin VB.ComboBox Combo_Kjqj 
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   0
         Left            =   960
         Style           =   2  'Dropdown List
         TabIndex        =   0
         Top             =   300
         Width           =   1335
      End
      Begin VB.Line Line1 
         Index           =   1
         X1              =   2310
         X2              =   2550
         Y1              =   420
         Y2              =   420
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "会计期间:"
         Height          =   180
         Index           =   2
         Left            =   150
         TabIndex        =   3
         Top             =   360
         Width           =   810
      End
   End
End
Attribute VB_Name = "XJ_FrmXjllbcxtj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************
'*    模 块 名 称 : 现金流量表查询
'*    功 能 描 述 :
'*    程序员姓名  : 张建忠
'*    最后修改人  : 张建忠
'*    最后修改时间:2001/05/21
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'****************************************************************
Dim Tsxx As String                               '系统信息提示


Private Sub Combo_Kjqj_KeyPress(Index As Integer, KeyAscii As Integer)
    If Index = 0 Then
        If KeyAscii = 13 Then Combo_Kjqj(Index).SetFocus
    End If
    
    If Index = 1 Then
        If KeyAscii = 13 Then QdCommand.SetFocus
    End If
End Sub

Private Sub Form_Load()
    
    '填充会计期间列表框(年度默认为用户选择年度)
    Call Sub_FillPeriod(Combo_Kjqj(0), Xtyear, 1)
    Call Sub_FillPeriod(Combo_Kjqj(1), Xtyear, 12)
    
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadCheck.Value <> 1 Then
        Cancel = 1
        Me.Hide
    End If
End Sub

Private Sub QdCommand_Click()                                   '确 定
    '录入条件有效性判断
    If Not Lrtjyxxpd Then
        Exit Sub
    End If
    Me.Hide
    
    '激活查询过程
    XJ_FrmXjllbcxjg.Timer1.Enabled = True
    XJ_FrmXjllbcxjg.SetFocus
    
End Sub

Private Sub QxCommand_Click()                                    '取消
    Me.Hide
End Sub

Private Function Lrtjyxxpd() As Boolean                          '用户录入条件有效性判断
    Dim Jsqte As Integer
    Lrtjyxxpd = False
    
    '[>>以下为依据实际情况自定义部分
    
    '查询会计期间范围应由小到大
    If Trim(Combo_Kjqj(0).Text) > Trim(Combo_Kjqj(1).Text) Then
        Tsxx = "查询会计期间范围应由小到大!"
        Call Xtxxts(Tsxx, 0, 4)
        Combo_Kjqj(0).SetFocus
        Exit Function
    End If
    '<<]以上为依据实际情况自定义部分
    
    Lrtjyxxpd = True
End Function