企业管理

开发平台：
Visual Basic

：源码内容
							VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form ZF_Bm_FrmKmyebtj 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "部门_科目余额表查询条件"
   ClientHeight    =   2235
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4860
   Icon            =   "辅助_部门_科目余额表查询条件.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2235
   ScaleWidth      =   4860
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton QdCommand 
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   2460
      TabIndex        =   5
      Top             =   1860
      Width           =   1120
   End
   Begin VB.CommandButton QxCommand 
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   3660
      TabIndex        =   6
      Top             =   1860
      Width           =   1120
   End
   Begin VB.CheckBox UnloadCheck 
      Caption         =   "卸载窗体"
      Height          =   615
      Left            =   8250
      TabIndex        =   9
      Top             =   720
      Visible         =   0   'False
      Width           =   825
   End
   Begin VB.Frame Fra_Query 
      ForeColor       =   &H00FF0000&
      Height          =   1725
      Left            =   60
      TabIndex        =   7
      Top             =   30
      Width           =   4725
      Begin VB.CheckBox Chk_NotOuputZero 
         Caption         =   "辅助项各列数据均为零则不显示"
         Height          =   225
         Left            =   120
         TabIndex        =   4
         Top             =   1320
         Value           =   1  'Checked
         Width           =   3285
      End
      Begin VB.CommandButton Ydcommand1 
         Height          =   300
         Index           =   0
         Left            =   2070
         Picture         =   "辅助_部门_科目余额表查询条件.frx":1042
         Style           =   1  'Graphical
         TabIndex        =   11
         Top             =   990
         Visible         =   0   'False
         Width           =   300
      End
      Begin VB.ComboBox Combo_Kjqj 
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   1
         Left            =   2940
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   585
         Width           =   1695
      End
      Begin VB.ComboBox Combo_Kjqj 
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   0
         Left            =   960
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   585
         Width           =   1725
      End
      Begin VB.CheckBox Chk_NotBook 
         Caption         =   "是否包含未记帐凭证"
         Height          =   285
         Left            =   120
         TabIndex        =   3
         Top             =   960
         Width           =   2145
      End
      Begin MSComctlLib.ImageCombo Imgebo_FzCcode 
         Height          =   315
         Left            =   960
         TabIndex        =   0
         Top             =   210
         Width           =   3675
         _ExtentX        =   6482
         _ExtentY        =   556
         _Version        =   393216
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         Locked          =   -1  'True
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "会计期间:"
         Height          =   180
         Index           =   2
         Left            =   120
         TabIndex        =   10
         Top             =   630
         Width           =   810
      End
      Begin VB.Image Image1 
         Height          =   480
         Left            =   3960
         Picture         =   "辅助_部门_科目余额表查询条件.frx":13CC
         Top             =   1050
         Width           =   480
      End
      Begin VB.Line Line1 
         Index           =   1
         X1              =   2670
         X2              =   2910
         Y1              =   720
         Y2              =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "会计科目:"
         Height          =   180
         Index           =   0
         Left            =   120
         TabIndex        =   8
         Top             =   300
         Width           =   810
      End
   End
End
Attribute VB_Name = "ZF_Bm_FrmKmyebtj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************
'*    模 块 名 称 :辅助核算_部门_科目余额表查询条件
'*    功 能 描 述 :
'*    程序员姓名  :张建忠
'*    最后修改人  :奚俊峰
'*    最后修改时间:2001/12/23
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'****************************************************************
Dim Tsxx As String                       '系统提示信息
Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移
    Dim jdzygs As Integer                         '控件焦点转移个数
    jdzygs = 30
    Select Case KeyAscii
    Case vbKeyReturn
        If Kjjdzy(jdzygs) Then
            KeyAscii = 0
        End If
    Case 39           '屏蔽"'"
        KeyAscii = 0
    End Select
End Sub
Private Sub Form_Load()
    
    '辅助查询科目
    Call FillImageCombo(Imgebo_FzCcode, "Cwzz_bmkm", 0)
    
    '填充会计期间列表框(年度默认为用户选择年度)
    Call Sub_FillPeriod(Combo_Kjqj(0), Xtyear, Xtmm)
    Call Sub_FillPeriod(Combo_Kjqj(1), Xtyear, Xtmm)
    
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
    
    '激活查询过程
    ZF_Bm_FrmKmyebjg.Timer1.Enabled = True
    ZF_Bm_FrmKmyebjg.SetFocus
    
End Sub
Private Sub QxCommand_Click()                                    '取消
    Me.Hide
End Sub
Private Function Lrtjyxxpd() As Boolean                          '用户录入条件有效性判断
    Dim Jsqte As Integer
    Lrtjyxxpd = False
    
    If CDate(Trim(Combo_Kjqj(0).Text)) > CDate(Trim(Combo_Kjqj(1).Text)) Then
        Tsxx = "查询会计期间范围应由小到大!"
        Call Xtxxts(Tsxx, 0, 4)
        Combo_Kjqj(0).SetFocus
        Exit Function
    End If
    '[>>以下为依据实际情况自定义部分
    
    
    '<<]以上为依据实际情况自定义部分
    
    Lrtjyxxpd = True
End Function

						