企业管理

开发平台：
Visual Basic

ͩ：源码内容
							VERSION 5.00
Begin VB.Form Zbfx_ProFxSeach 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "查询条件"
   ClientHeight    =   1065
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4200
   HelpContextID   =   412002
   Icon            =   "指标分析_产品毛利率分析查询条件.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1065
   ScaleWidth      =   4200
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Height          =   645
      Index           =   0
      Left            =   60
      TabIndex        =   3
      Top             =   0
      Width           =   4080
      Begin VB.ComboBox Combo_BaseDate 
         Height          =   300
         Left            =   2100
         Style           =   2  'Dropdown List
         TabIndex        =   5
         Top             =   210
         Width           =   1845
      End
      Begin VB.ComboBox Combo_Type 
         Height          =   300
         Left            =   1050
         Style           =   2  'Dropdown List
         TabIndex        =   4
         Top             =   210
         Width           =   990
      End
      Begin VB.Label Lbl_fxqj 
         AutoSize        =   -1  'True
         Caption         =   "分析期间:"
         Height          =   180
         Left            =   150
         TabIndex        =   6
         Top             =   270
         Width           =   810
      End
   End
   Begin VB.CommandButton QdCommand 
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   1815
      TabIndex        =   2
      Top             =   705
      Width           =   1120
   End
   Begin VB.CommandButton QxCommand 
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   3015
      TabIndex        =   0
      Top             =   705
      Width           =   1120
   End
   Begin VB.CheckBox UnloadCheck 
      Caption         =   "卸载窗体"
      Height          =   615
      Left            =   8220
      TabIndex        =   1
      Top             =   720
      Visible         =   0   'False
      Width           =   825
   End
End
Attribute VB_Name = "Zbfx_ProFxSeach"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************************************
'*    模 块 名 称 :产品毛利率分析条件
'*    功 能 描 述 :
'*    程序员姓名  :魏永生
'*    最后修改人  :
'*    最后修改时间:2002/1/21
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'*
'*********************************************************************
Public bSeach As Boolean            '查询标志，父窗体根据此变量判断是否执行查询
Public itype As Integer             ' month or year or day
Private UsedYear() As String        '已使用年数据，如：UsedYear(0)="1999",UsedYear(1)="2000"
Private iHowManyYears As Integer    '已使用的年数
Private iMaxMonth As Integer        '最大使用月份
Dim Combo_Change_Locked As Boolean   'Combo控件变化锁(是否被锁，False没有锁，
                                     '这时锁是开着的；True锁定，被锁住了，
                                     '锁住时，Click事件不起作用，默认锁是开着的，
                                     '默认值为False)
                                     
Private 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 GetUsedYear
    Call GetUsedMonth
    '填充
    Call FillCombo(Combo_Type, "BaseGuideLineSeach", "", 0)
    Call FillThisYear(Combo_BaseDate)
End Sub
Private Sub FillThisYear(PastComb As ComboBox)
    With PastComb
        .Clear
        .AddItem Xtyear
        .ListIndex = 0
    End With
End Sub
Private Sub FillYear(PastComb As ComboBox)
    Dim i As Integer
    With PastComb
        .Clear
        For i = 0 To iHowManyYears
            .AddItem UsedYear(i)
        Next
    End With
End Sub
Private Sub FillMonth(PastComb As ComboBox, ByVal PastYear As String)
    Dim i As Integer
    With PastComb
        .Clear
        If iMaxMonth < 1 Then Exit Sub
        For i = 1 To iMaxMonth
            .AddItem PastYear & "." & Format(i, "00")
        Next
    End With
End Sub
Private Sub FillThreeMonth(PastComb As ComboBox, ByVal PastYear As String)
    Dim i As Integer
    With PastComb
        .Clear
        If iMaxMonth < 1 Then Exit Sub
        For i = 1 To 4
            .AddItem PastYear & "." & Format(((i - 1) * 3 + 1), "00") & "-" & PastYear & "." & Format((i * 3), "00")
        Next
    End With
End Sub
Private Sub GetUsedYear()
    '由Form_Load 调用,得到此帐套已使用的年度，存于UsedYear()数据中
    Dim temRs As New ADODB.Recordset
    Dim strSql As String
    Dim i As Integer
    strSql = "SELECT DISTINCT kjyear AS cYear FROM gy_kjrlb"
    Set temRs = Cw_DataEnvi.DataConnect.Execute(strSql)
    iHowManyYears = temRs.RecordCount - 1
    ReDim UsedYear(iHowManyYears)
    With temRs
        Do Until .EOF
            UsedYear(i) = !cYear
            i = i + 1
            .MoveNext
        Loop
    End With
    If temRs.State = adStateOpen Then temRs.Close
    Set temRs = Nothing
End Sub
Private Sub GetUsedMonth()
    '由Form_Load 调用,得到此帐套已使用的最大月份，存于iMaxMonth数据中
    
    Dim temRs As New ADODB.Recordset
    Dim strSql As String
    Dim i As Integer
    strSql = "SELECT Max(period) AS cMonth FROM gy_kjrlb"
    Set temRs = Cw_DataEnvi.DataConnect.Execute(strSql)
    With temRs
        If Not (.EOF And .BOF) Then
            iMaxMonth = !cMonth
        End If
    End With
    If temRs.State = adStateOpen Then temRs.Close
    Set temRs = Nothing
End Sub
Private Sub QdCommand_Click()                                   '确 定
    '录入条件有效性判断
    If Not Lrtjyxxpd Then
        Exit Sub
    End If
    
    bSeach = True '设置标志
    Me.Hide
    
End Sub
Private Sub QxCommand_Click() '取消
    bSeach = False '设置标志，不执行查询
    Me.Hide
End Sub
Private Function Lrtjyxxpd() As Boolean                          '用户录入条件有效性判断
    Dim Jsqte As Integer
    Lrtjyxxpd = False
    '[>>以下为依据实际情况自定义部分
    If Combo_BaseDate.ListIndex = -1 Then
        Xtxxts "请选择分析期间!", 0, 1
        Lrtjyxxpd = False
        Exit Function
    End If
  '<<]以上为依据实际情况自定义部分
    
    Lrtjyxxpd = True
End Function
Private Sub Combo_Type_Click()
    Select Case Combo_Type.ListIndex
    Case 0
        Call FillThisYear(Combo_BaseDate)
    Case 1
        Call FillMonth(Combo_BaseDate, Xtyear)
    Case 2
        Call FillThreeMonth(Combo_BaseDate, Xtyear)
    End Select
    itype = Combo_Type.ListIndex
End Sub

						