企业管理

开发平台：
Visual Basic

ʰ：源码内容
							VERSION 5.00
Begin VB.Form YH_FrmGltj 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "查询条件"
   ClientHeight    =   2430
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5085
   Icon            =   "银行_过滤条件.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2430
   ScaleWidth      =   5085
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   3900
      TabIndex        =   13
      Top             =   2040
      Width           =   1120
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   2700
      TabIndex        =   12
      Top             =   2040
      Width           =   1120
   End
   Begin VB.CheckBox Check1 
      Caption         =   "取消过滤"
      Height          =   225
      Left            =   60
      TabIndex        =   11
      Top             =   2070
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Height          =   1905
      Left            =   60
      TabIndex        =   0
      Top             =   30
      Width           =   4965
      Begin VB.Frame Frame2 
         Height          =   480
         Left            =   990
         TabIndex        =   16
         Top             =   1260
         Width           =   3855
         Begin VB.OptionButton Option1 
            Caption         =   "不限"
            Height          =   180
            Left            =   210
            TabIndex        =   19
            Top             =   210
            Value           =   -1  'True
            Width           =   885
         End
         Begin VB.OptionButton Option2 
            Caption         =   "借方"
            Height          =   180
            Left            =   1470
            TabIndex        =   18
            Top             =   210
            Width           =   825
         End
         Begin VB.OptionButton Option3 
            Caption         =   "贷方"
            Height          =   180
            Left            =   2670
            TabIndex        =   17
            Top             =   210
            Width           =   945
         End
      End
      Begin VB.CommandButton Command4 
         Height          =   345
         Left            =   4530
         Picture         =   "银行_过滤条件.frx":1042
         Style           =   1  'Graphical
         TabIndex        =   15
         Top             =   240
         Width           =   315
      End
      Begin VB.CommandButton Command3 
         Height          =   315
         Left            =   2310
         Picture         =   "银行_过滤条件.frx":13CC
         Style           =   1  'Graphical
         TabIndex        =   14
         Top             =   255
         Width           =   345
      End
      Begin VB.TextBox Text4 
         Height          =   300
         Left            =   990
         TabIndex        =   10
         Top             =   960
         Width           =   3855
      End
      Begin VB.TextBox Text3 
         Height          =   300
         Left            =   3150
         TabIndex        =   9
         Top             =   600
         Width           =   1695
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         ItemData        =   "银行_过滤条件.frx":1756
         Left            =   990
         List            =   "银行_过滤条件.frx":1758
         TabIndex        =   8
         Top             =   600
         Width           =   1665
      End
      Begin VB.TextBox Text2 
         Height          =   300
         Left            =   2970
         TabIndex        =   7
         Top             =   255
         Width           =   1575
      End
      Begin VB.TextBox Text1 
         Height          =   300
         Left            =   990
         TabIndex        =   6
         Top             =   240
         Width           =   1335
      End
      Begin VB.Line Line1 
         X1              =   2700
         X2              =   2910
         Y1              =   390
         Y2              =   390
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "金额:"
         Height          =   180
         Index           =   5
         Left            =   150
         TabIndex        =   5
         Top             =   990
         Width           =   450
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "方向:"
         Height          =   180
         Index           =   4
         Left            =   150
         TabIndex        =   4
         Top             =   1380
         Width           =   450
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "票号:"
         Height          =   180
         Index           =   3
         Left            =   2730
         TabIndex        =   3
         Top             =   660
         Width           =   450
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "结算方式:"
         Height          =   180
         Index           =   2
         Left            =   150
         TabIndex        =   2
         Top             =   660
         Width           =   810
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "截止日期:"
         Height          =   180
         Index           =   0
         Left            =   150
         TabIndex        =   1
         Top             =   315
         Width           =   810
      End
   End
End
Attribute VB_Name = "YH_FrmGltj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************
'*    模 块 名 称 :银行对帐过滤条件
'*    功 能 描 述 :银行对帐查询
'*    程序员姓名  : xjl
'*    最后修改人  : xjl
'*    最后修改时间:2001/08/16
'*    备        注:
'*************************************************************
Dim SqlStr As String, SqlStrA As String
'取消过滤
Private Sub Check1_Click()
    If Check1.Value = 1 Then
        Frame1.Enabled = False
    Else
        Frame1.Enabled = True
    End If
End Sub
'进行查询
Private Sub Command1_Click()
    Dim Rowjsq As Integer
    Dim A As Double
    '判断日期
    If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" Then
        If CDate(Text1.Text) > CDate(Text2.Text) Then
            MsgBox "起始日期不能大于截止日期", 16, "提示："
            Exit Sub
        End If
    End If
    
    If YH_FrmGltj.Tag = "Z" Then
    
        With YH_FrmZddz.CxbbGrid
            
            For Rowjsq = 1 To .Rows - 1
                
                A = False
                If Check1.Value <> 1 Then
                    
                    '截止日期
                    If Text1.Text <> "" Or Text2.Text <> "" Then
                        If Format(Trim(.TextMatrix(Rowjsq, 0)), "yyyy-mm-dd") < Format(Trim(Text1.Text), "yyyy-mm-dd") Or Format(Trim(.TextMatrix(Rowjsq, 0)), "yyyy-mm-dd") > Format(Trim(Text2.Text), "yyyy-mm-dd") Then
                            A = True
                        End If
                    End If
                    '结算方式
                    If Combo1.Text <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 1)) <> Trim(Mid(Combo1.Text, 4)) Then
                            A = True
                        End If
                    End If
                    '票号
                    If Text3 <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 2)) <> Trim(Text3.Text) Then
                            A = True
                        End If
                    End If
                    '方向借方
                    If Option2.Value = True Then
                        If .TextMatrix(Rowjsq, 3) <> "借" Then
                            A = True
                        End If
                    End If
                    '方向贷方
                    If Option3.Value = True Then
                        If .TextMatrix(Rowjsq, 3) <> "贷" Then
                            A = True
                        End If
                    End If
                    '金额
                    If Text4.Text <> "" Then
                        If Val(Format(.TextMatrix(Rowjsq, 4), "0.00")) <> Val(Text4.Text) Then
                            A = True
                        End If
                    End If
                    
                End If
                
                If A = -1 Then
                    .RowHidden(Rowjsq) = True
                Else
                    .RowHidden(Rowjsq) = False
                End If
                
            Next Rowjsq
            
        End With
        
        With YH_FrmZddz.vsFlexGrid1
            
            For Rowjsq = 1 To .Rows - 1
                A = False
                If Check1.Value <> 1 Then
                    '截止日期
                    If Text1.Text <> "" Or Text2.Text <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 0)) < Text1.Text Or Trim(.TextMatrix(Rowjsq, 0)) > Text2.Text Then
                            A = True
                        End If
                    End If
                    '结算方式
                    If Combo1.Text <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 2)) <> Trim(Mid(Combo1.Text, 4)) Then
                            A = True
                        End If
                    End If
                    '票号
                    If Text3 <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 3)) <> Trim(Text3.Text) Then
                            A = True
                        End If
                    End If
                    '方向借方
                    If Option2.Value = True Then
                        If .TextMatrix(Rowjsq, 4) <> "借" Then
                            A = True
                        End If
                    End If
                    '方向贷方
                    If Option3.Value = True Then
                        If .TextMatrix(Rowjsq, 4) <> "贷" Then
                            A = True
                        End If
                    End If
                    '金额
                    If Text4.Text <> "" Then
                        If Val(Format(.TextMatrix(Rowjsq, 5), "0.00")) <> Val(Text4.Text) Then
                            A = True
                        End If
                    End If
                    
                End If
                
                If A = -1 Then
                    .RowHidden(Rowjsq) = True
                Else
                    .RowHidden(Rowjsq) = False
                End If
                
            Next Rowjsq
            
        End With
        
    Else
        With YH_FrmDzdCx.WglrGrid
            For Rowjsq = 1 To .Rows - 1
                A = False
                If Check1.Value <> 1 Then
                    '截止日期
                    If Text1.Text <> "" And Trim(Text2.Text) <> "" Then
                        If Format(Trim(.TextMatrix(Rowjsq, 2)), "yyyy-mm-dd") < Format(Trim(Text1.Text), "yyyy-mm-dd") Or Format(Trim(.TextMatrix(Rowjsq, 2)), "yyyy-mm-dd") > Format(Trim(Text2.Text), "yyyy-mm-dd") Then
                            A = True
                        End If
                    End If
                    '截止日期
                    If Text1.Text <> "" And Trim(Text2.Text) = "" Then
                        If Format(Trim(.TextMatrix(Rowjsq, 2)), "yyyy-mm-dd") < Format(Trim(Text1.Text), "yyyy-mm-dd") Then
                            A = True
                        End If
                    End If
                    '截止日期
                    If Trim(Text1.Text) = "" And Text2.Text <> "" Then
                        If Format(Trim(.TextMatrix(Rowjsq, 2)), "yyyy-mm-dd") > Format(Trim(Text2.Text), "yyyy-mm-dd") Then
                            A = True
                        End If
                    End If
                    '结算方式
                    If Combo1.Text <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 3)) <> Trim(Mid(Combo1.Text, 4)) Then
                            A = True
                        End If
                    End If
                    '票号
                    If Text3 <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 4)) <> Trim(Text3.Text) Then
                            A = True
                        End If
                    End If
                    '方向借方
                    If Option2.Value = True Then
                        If Val(Format(.TextMatrix(Rowjsq, 6), "0.00")) <> 0 Then
                            A = True
                        End If
                        
                        '金额
                        If Text4.Text <> "" Then
                            If Val(Format(.TextMatrix(Rowjsq, 5), "0.00")) <> Val(Text4.Text) Then
                                A = True
                            End If
                        End If
                    
                    End If
                    
                    '方向贷方
                    If Option3.Value = True Then
                        If Val(Format(.TextMatrix(Rowjsq, 5), "0.00")) <> 0 Then
                            A = True
                        End If
                    
                        '金额
                        If Text4.Text <> "" Then
                            If Val(Format(.TextMatrix(Rowjsq, 6), "0.00")) <> Val(Text4.Text) Then
                                A = True
                            End If
                        End If
                    
                    End If
                    
                    '方向不限
                    If Option1.Value = True Then
                        
                        '金额
                        If Text4.Text <> "" Then
                            If Val(Format(.TextMatrix(Rowjsq, 5), "0.00")) <> Val(Text4.Text) Then
                                A = True
                            End If
                        End If
                        
                        '金额
                        If Text4.Text <> "" Then
                            If Val(Format(.TextMatrix(Rowjsq, 6), "0.00")) <> Val(Text4.Text) Then
                                A = True
                            Else
                                A = False
                            End If
                        End If
                    
                    End If
                    
                End If
                
                If A = -1 Then
                    .RowHidden(Rowjsq) = True
                Else
                    .RowHidden(Rowjsq) = False
                End If
                
            Next Rowjsq
        End With
        
    End If
    YH_FrmGltj.Hide
End Sub
'退出
Private Sub Command2_Click()
    Unload Me
End Sub
'选择日期
Private Sub Command3_Click()
    XT_calendar.Show 1
    Text1.Text = Xtfhcs
    Text1.Tag = Xtfhcsfz
    Text1.SetFocus
End Sub
'选择日期
Private Sub Command4_Click()
    XT_calendar.Show 1
    Text2.Text = Xtfhcs
    Text2.Tag = Xtfhcsfz
    Text2.SetFocus
End Sub
'调入窗体
Private Sub Form_Load()
    Dim RecTemp As New ADODB.Recordset
    SqlStr = "select * from Gy_settlement"
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    Do While Not RecTemp.EOF()
        Combo1.AddItem RecTemp.Fields("sscode") + Trim(RecTemp.Fields("ssname"))
        RecTemp.MoveNext
    Loop
    Command3.Enabled = True
    Command4.Enabled = True
End Sub

						