tjzijin.frm

一套VB完整的灯具销售管理系统设计

      Height          =   1245
      Left            =   615
      TabIndex        =   2
      Top             =   2535
      Width           =   300
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "资金统计"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FFFF&
      Height          =   1425
      Left            =   630
      TabIndex        =   1
      Top             =   1050
      Width           =   285
   End
   Begin VB.Label Label1 
      BackColor       =   &H00400000&
      BorderStyle     =   1  'Fixed Single
      Height          =   3780
      Left            =   510
      TabIndex        =   0
      Top             =   615
      Width           =   480
   End
End
Attribute VB_Name = "TjZijin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Closeform_Click()
Unload Me
End Sub

Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
Option3.Value = False
Data1.DatabaseName = appData
Data2.DatabaseName = appData
Data1.RecordSource = "select sum(合计) as Hj,sum(实付款) as Sfk,sum(欠款) as Qk from guestfindk"
Data1.Refresh
If IsNull(Data1.Recordset.Fields(0)) Then
   Text1.Text = 0
   Else
   Text1.Text = Data1.Recordset.Fields(0)
   End If
If IsNull(Data1.Recordset.Fields(1)) Then
   Text2.Text = 0
   Else
   Text2.Text = Data1.Recordset.Fields(1)
   End If
If IsNull(Data1.Recordset.Fields(2)) Then
   Text3.Text = 0
   Else
   Text3.Text = Data1.Recordset.Fields(2)
   End If

End Sub


Private Sub Option1_Click()
RqHide.Text = ""
XianXiZL.Enabled = False
Sure.Enabled = False
DisplayLab.Caption = "分类统计"
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
Dim MessageStr As String
    MessageStr = "请输入(2位)年份"
TjZijin.MousePointer = 11
Load InputRq
TjZijin.MousePointer = 0
InputRq.PromptStr.Caption = MessageStr
InputRq.Show 1

End Sub

Private Sub Option1_DblClick()
RqHide.Text = ""
XianXiZL.Enabled = False
Sure.Enabled = False
DisplayLab.Caption = "分类统计"
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
Dim MessageStr As String
    MessageStr = "请输入(2位)年份"
TjZijin.MousePointer = 11
Load InputRq
TjZijin.MousePointer = 0
InputRq.PromptStr.Caption = MessageStr
InputRq.Show 1

End Sub

Private Sub Option2_Click()
XianXiZL.Enabled = False
Sure.Enabled = False
RqHide.Text = ""
DisplayLab.Caption = "分类统计"
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
Dim MessageStr As String
    MessageStr = "请输入(2位)月份"
TjZijin.MousePointer = 11
Load InputRq
TjZijin.MousePointer = 0
InputRq.PromptStr.Caption = MessageStr
InputRq.Show 1

End Sub

Private Sub Option2_DblClick()
XianXiZL.Enabled = False
Sure.Enabled = False
RqHide.Text = ""
DisplayLab.Caption = "分类统计"
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
Dim MessageStr As String
    MessageStr = "请输入(2位)月份"
TjZijin.MousePointer = 11
Load InputRq
TjZijin.MousePointer = 0
InputRq.PromptStr.Caption = MessageStr
InputRq.Show 1
End Sub

Private Sub Option3_Click()
XianXiZL.Enabled = False
Sure.Enabled = False
RqHide.Text = ""
DisplayLab.Caption = "分类统计"
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
Dim MessageStr As String
    MessageStr = "请输入(2位)日子"
TjZijin.MousePointer = 11
Load InputRq
TjZijin.MousePointer = 0
InputRq.PromptStr.Caption = MessageStr
InputRq.Show 1
End Sub

Private Sub Option3_DblClick()
XianXiZL.Enabled = False
Sure.Enabled = False
RqHide.Text = ""
DisplayLab.Caption = "分类统计"
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
Dim MessageStr As String
    MessageStr = "请输入(2位)日子"
TjZijin.MousePointer = 11
Load InputRq
TjZijin.MousePointer = 0
InputRq.PromptStr.Caption = MessageStr
InputRq.Show 1

End Sub

Private Sub RqHide_Change()
If Val(RqHide.Text) = 0 Or Trim(RqHide.Text) = "" Then
   Sure.Enabled = False
   Else
   Sure.Enabled = True
   End If
End Sub

Private Sub Sure_Click()

If DisplayLab.Caption = "分类统计" Then Exit Sub
Dim TempStr, YearStr, Yue As Integer
'查找输入为一个数字时补零
If Left(RqHide.Text, 1) = "_" Then
    RqHide.Text = "0" & Right(RqHide, 1)
      End If
If Right(RqHide.Text, 1) = "_" Then
    RqHide.Text = "0" & Left(RqHide.Text, 1)
    End If
'统计年份
If Option1.Value = True Then
   Dim Yx As String
   Yx = Str(Val(RqHide.Text) + 1)
   TempRqF = RqHide.Text & "-01-01"
   TempRqE = Yx & "-01-01"
   End If
   '结束
   '取两位数的年份
'**********************
If Len(Year(Date)) > 3 Then
   YearStr = Right(Year(Date), 2)
   End If
'****************************
'月份等于12月时
If Val(RqHide.Text) = 12 Then
   YearStr = Str(Val(YearStr) + 1)
   Yue = 1
   Else
   Yue = Val(RqHide.Text) + 1
   End If
   '第二个月初
If Yue < 10 Then
    yuex = "0" & Trim(Str(Yue))
    Else
    yuex = Trim(Str(Yue))
      End If
'统计月份
If Option2.Value = True Then
   TempRqF = YearStr & "-" & RqHide.Text & "-01"
   TempRqE = YearStr & "-" & yuex & "-01"
End If
  '结束
If Option3.Value = True Then
   On Error GoTo dayerr
   TempRqF = YearStr & "-" & Month(Date) & "-" & RqHide
   '统计表达式
   TempStr = "select sum(合计) as Hj,sum(实付款) as Sfk,sum(欠款) as Qk from guestfindk "
   TempStr = TempStr & "where (日期=#" & TempRqF & "#)"
   Data2.RecordSource = TempStr
   Data2.Refresh
       If IsNull(Data2.Recordset.Fields(0)) Then
          Text4.Text = 0
          Else
          Text4.Text = Data2.Recordset.Fields(0)
          End If
       If IsNull(Data2.Recordset.Fields(1)) Then
          Text5.Text = 0
          Else
          Text5.Text = Data2.Recordset.Fields(1)
          End If
      If IsNull(Data2.Recordset.Fields(2)) Then
          Text6.Text = 0
          Else
          Text6.Text = Data2.Recordset.Fields(2)
          End If
     If Text4.Text = 0 And Text5.Text = 0 And Text6.Text = 0 Then
           XianXiZL.Enabled = False
           Else
           XianXiZL.Enabled = True
           End If
    Exit Sub

End If

'统计表达式
   TempStr = "select sum(合计) as Hj,sum(实付款) as Sfk,sum(欠款) as Qk from guestfindk "
   TempStr = TempStr & "where (日期>=#" & TempRqF & "# and 日期<#" & TempRqE & "#)"
   Data2.RecordSource = TempStr
   Data2.Refresh
       If IsNull(Data2.Recordset.Fields(0)) Then
          Text4.Text = 0
          Else
          Text4.Text = Data2.Recordset.Fields(0)
          End If
       If IsNull(Data2.Recordset.Fields(1)) Then
          Text5.Text = 0
          Else
          Text5.Text = Data2.Recordset.Fields(1)
          End If
      If IsNull(Data2.Recordset.Fields(2)) Then
          Text6.Text = 0
          Else
          Text6.Text = Data2.Recordset.Fields(2)
          End If
        If Text4.Text = 0 And Text5.Text = 0 And Text6.Text = 0 Then
           XianXiZL.Enabled = False
           Else
           XianXiZL.Enabled = True
           End If
    Exit Sub
dayerr:
    MsgBox Month(Date) & " 月中有 " & RqHide.Text & " 号吗？", vbOKOnly + 32, "日期错误！"
    Exit Sub
End Sub

Private Sub XianXiZL_Click()
TjZijin.MousePointer = 11
Load ZJXianXi
TjZijin.MousePointer = 0
ZJXianXi.Show 1
End Sub