czfkd.frm

关于图书销售管理

               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00000000&
            Height          =   495
            Left            =   240
            TabIndex        =   4
            Top             =   960
            Width           =   1095
         End
         Begin VB.OptionButton Option2 
            Caption         =   "应付帐款"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00000000&
            Height          =   255
            Left            =   240
            TabIndex        =   3
            Top             =   720
            Width           =   1335
         End
         Begin VB.OptionButton Option1 
            Caption         =   "实付帐款"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00000000&
            Height          =   255
            Index           =   3
            Left            =   240
            TabIndex        =   2
            Top             =   1800
            Width           =   1335
         End
      End
   End
End
Attribute VB_Name = "czfkd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public a As Integer

Private Sub Command1_Click()
   Dim oIndex As Integer
   If Option1(0).Value = True Then
       oIndex = 0
      
   End If
   If Option4.Value = True Then
      oIndex = 1
  
   End If
   If Option2.Value = True Then
       oIndex = 2
      
   End If
   If Option1(3).Value = True Then oIndex = 3
   If Option3.Value = True Then oIndex = 4
   If Option5.Value = True Then oIndex = 5
   'If Option4.Value = True Then oIndex = 6
   
  '查找职员
    Select Case oIndex
          Case 0
              yfzk1.Data1.RecordSource = "select * from jhfkd where " & "fkdbh" & " = '" & Trim(Text1.Text) & "'"
             ' xhdcl.Adodc1.RecordSource = "select * from xhdsp where " & "ddbh" & " = '" & Trim(Text1.Text) & "'"
          'Case 1
              ' xhdcl.Data2.RecordSource = "select * from spdhd where " & "spbh" & " = '" & Trim(Text1.Text) & "'"
                'xhdcl.Adodc1.RecordSource = "select  spbh,ddbh,gg,ys,dj,sl,ysje,zk,bz from xhdsp where " & "spbh" & " = '" & Trim(Text1.Text) & "'"
              '  xhdcl.Adodc1.Refresh
                 
                  

         Case 1
                  If Combo1.Text = "等于" Then
                        yfzk1.Data1.RecordSource = "select * from jhfkd where " & "fkrq " & " =  #" & Format(CDate(Trim(Text1.Text)), "mmm d yyyy") & "#"
                  End If
                  If Combo1.Text = "大于" Then
                       yfzk1.Data1.RecordSource = "select * from jhfkd where " & "fkrq" & "  >   #" & Format(CDate(Trim(Text1.Text)), "mmm d yyyy") & "#"
                  End If
                  If Combo1.Text = "小于" Then
                       yfzk1.Data1.RecordSource = "select * from jhfkd where " & "fkrq" & "  <    #" & Format(CDate(Text1.Text), "mmm d yyyy") & "#"
                   End If
        Case 2
                    If Combo1.Text = "等于" Then
                        yfzk1.Data1.RecordSource = "select * from jhfkd where " & "yfzk " & " =  " & Val(Text1.Text)
                    End If
                     If Combo1.Text = "大于" Then
                       yfzk1.Data1.RecordSource = "select * from jhfkd where " & "yfzk" & "  >   " & Val(Text1.Text)
                  End If
                  If Combo1.Text = "小于" Then
                       yfzk1.Data1.RecordSource = "select * from jhfkd where " & "yfzk" & "  <    " & Val(Text1.Text)
                  End If
        Case 3
                    If Combo1.Text = "等于" Then
                        yfzk1.Data1.RecordSource = "select * from jhfkd where " & "sszk " & " =  " & Val(Text1.Text)
                  End If
                  If Combo1.Text = "大于" Then
                       yfzk1.Data1.RecordSource = "select * from jhfkd where " & "sszk" & "  >   " & Val(Text1.Text)
                  End If
                  If Combo1.Text = "小于" Then
                       yfzk1.Data1.RecordSource = "select * from jhfkd where " & "sszk" & "  <    " & Val(Text1.Text)
                  End If

        Case 4
                  If Combo1.Text = "等于" Then
                        yfzk1.Data1.RecordSource = "select * from jhfkd where " & "ye " & " =  " & Val(Text1.Text)
                  End If
                  If Combo1.Text = "大于" Then
                       yfzk1.Data1.RecordSource = "select * from jhfkd where " & "ye" & "  >   " & Val(Text1.Text)
                  End If
                  If Combo1.Text = "小于" Then
                       yfzk1.Data1.RecordSource = "select * from jhfkd where " & "ye" & "  <   " & Val(Text1.Text)
                  End If
         Case 5
               yfzk1.Data1.RecordSource = "select * from jhfkd where " & "jsr" & " = '" & Trim(Text1.Text) & "'"
       
                  
    
    End Select
       yfzk1.Show
         
    yfzk1.Data1.Refresh
   yfzk1.MSFlexGrid.TextMatrix(0, 1) = "  收款单编号"
yfzk1.MSFlexGrid.TextMatrix(0, 2) = "  收款日期"
yfzk1.MSFlexGrid.TextMatrix(0, 3) = "应付帐款"
yfzk1.MSFlexGrid.TextMatrix(0, 4) = "实付帐款"
yfzk1.MSFlexGrid.TextMatrix(0, 5) = "余额  "
yfzk1.MSFlexGrid.TextMatrix(0, 6) = "付款方式"
 yfzk1.MSFlexGrid.TextMatrix(0, 7) = "经手人  "
  yfzk1.MSFlexGrid.TextMatrix(0, 8) = "备注  "

   If yfzk1.Data1.Recordset.BOF = True Then
               MsgBox "没有找到符合条件的记录。", vbInformation, "提示"
                Unload Me
                
         Else

                    yfzk1.Data1.Recordset.MoveFirst
                     yfzk1.Data1.Recordset.MoveLast
                     l = yfzk1.Data1.Recordset.RecordCount
                      yfzk1.StatusBar1.Panels(3).Text = "共找到符合条件的订单 " & l & " 张"
                    yfzk1.Show
               
    End If
'spdhd1.Data2.Recordset.MoveFirst
Unload Me
'Combo1.Enabled = True
End Sub

Private Sub Command2_Click()
yfzk1.Data1.RecordSource = "select * from jhfkd"
yfzk1.Data1.Refresh
'zyxx.Show
'Combo1.Enabled = True
 yfzk1.Show
Unload Me
End Sub

Private Sub Form_Load()
Combo1.Enabled = False
End Sub

Private Sub Option1_Click(Index As Integer)
If Option1(0).Value = True Then Combo1.Enabled = False
'If Option1(1).Value = True Then Combo1.Enabled = False
'If Option1(2).Value = True Then Combo1.Enabled = False
If Option1(3).Value = True Then Combo1.Enabled = True

End Sub

Private Sub Option2_Click()
If Option2.Value = True Then Combo1.Enabled = True

End Sub

Private Sub Option3_Click()
Combo1.Enabled = True
End Sub

Private Sub Option4_Click()
If Option4.Value = True Then Combo1.Enabled = True
End Sub

Private Sub Option5_Click()
 Combo1.Enabled = False

End Sub