form11due.frm

来自「一套收费计算机系统」· FRM 代码 · 共 1,118 行 · 第 1/3 页

FRM
1,118 行
字号
123
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   7440
      TabIndex        =   9
      Top             =   120
      Width           =   1575
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "发生欠费"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   5280
      TabIndex        =   8
      Top             =   120
      Width           =   795
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "年"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   765
      TabIndex        =   3
      Top             =   780
      Width           =   255
   End
   Begin VB.Line Line3 
      X1              =   1200
      X2              =   1200
      Y1              =   0
      Y2              =   1200
   End
   Begin VB.Line Line2 
      X1              =   5160
      X2              =   5160
      Y1              =   0
      Y2              =   1200
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   9360
      Y1              =   1200
      Y2              =   1200
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "查询日期："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   0
      TabIndex        =   2
      Top             =   120
      Width           =   990
   End
End
Attribute VB_Name = "Form11due"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim entrydate As Date
Dim numflag1 As Integer
Dim numflag2 As Integer
Dim numflag3 As Integer

Private Sub CandySphere1_Click()
Load Form11chart
Form11chart.Show vbModal
End Sub

Private Sub chcommand5_Click()
'三年欠费用户情况

MonthView1.Value = "1980-01-01"
MonthView2.Value = Str(Val(Trim(Text2.Tag)) - 3) + "-12-31"
Dim filterstring As String

If hzzde.rsdue.State <> adStateOpen Then
hzzde.rsdue.Open
End If

hzzde.rsdue.Requery
Set DataGrid1.DataSource = hzzde
    DataGrid1.DataMember = "due"
    hzzde.rsdue.Requery
filterstring = "最后交费日期 >=#" & MonthView1.Value & "#" & " and 最后交费日期 <=#" & MonthView2.Value & "#"
hzzde.rsdue.Filter = filterstring
    hzzde.rsdue.Requery
    DataGrid1.HoldFields
    Set DataGrid1.DataSource = hzzde
    DataGrid1.DataMember = "due"
    DataGrid1.ReBind
'    DataGrid1.Refresh
    
duetotal

Label7.Caption = Str(hzzde.rsdue.RecordCount)
Label9.Caption = Str(numchen)
Label11.Caption = Str(chengsh)
Label13.Caption = Str(numnong)
Label15.Caption = Str(nongsh)
Label4.Caption = Str(chengsh + nongsh)

duechart(3, 1) = "三年以上欠费用户"
duechart(3, 2) = chengsh + nongsh

If numflag3 < 1 Then
numflag3 = numflag3 + 1
End If

If numflag1 + numflag2 + numflag3 = 3 Then
CandySphere1.Enabled = True
End If
End Sub

Private Sub chommand2_Click()
Text2.Tag = Str(Year(Now()))

hzzde.rsdue.Filter = adFilterNone

hzzde.Commands("due").Parameters(0).Value = Str(Year(Now())) + "-01-01"

hzzde.Commands("due").Execute

If hzzde.rsdue.State <> adStateOpen Then
hzzde.rsdue.Open
End If

hzzde.rsdue.Requery



Set DataGrid1.DataSource = hzzde
    DataGrid1.DataMember = "due"
    
    DataGrid1.HoldFields
    DataGrid1.ReBind
'    DataGrid1.Refresh
DoEvents

 If hzzde.rsdue.RecordCount <> 0 Then
chommand3.Enabled = True
chommand4.Enabled = True
chcommand5.Enabled = True

numflag1 = 0
numflag2 = 0
numflag3 = 0

If CandySphere1.Enabled = True Then
CandySphere1.Enabled = True
End If

End If

duetotal

Label7.Caption = Str(hzzde.rsdue.RecordCount)
Label9.Caption = Str(numchen)
Label11.Caption = Str(chengsh)
Label13.Caption = Str(numnong)
Label15.Caption = Str(nongsh)
Label4.Caption = Str(chengsh + nongsh)

End Sub

Private Sub chommand1_Click()
Text2.Tag = Text2.Text

hzzde.rsdue.Filter = adFilterNone

hzzde.Commands("due").Parameters(0).Value = Text2.Text + "-01-01"

hzzde.Commands("due").Execute

If hzzde.rsdue.State <> adStateOpen Then
hzzde.rsdue.Open
End If

hzzde.rsdue.Requery



Set DataGrid1.DataSource = hzzde
    DataGrid1.DataMember = "due"
    
    DataGrid1.HoldFields
    DataGrid1.ReBind
'    DataGrid1.Refresh
DoEvents

 If hzzde.rsdue.RecordCount <> 0 Then
chommand3.Enabled = True
chommand4.Enabled = True
chcommand5.Enabled = True

numflag1 = 0
numflag2 = 0
numflag3 = 0

If CandySphere1.Enabled = True Then
CandySphere1.Enabled = True
End If
End If

duetotal

Label7.Caption = Str(hzzde.rsdue.RecordCount)
Label9.Caption = Str(numchen)
Label11.Caption = Str(chengsh)
Label13.Caption = Str(numnong)
Label15.Caption = Str(nongsh)
Label4.Caption = Str(chengsh + nongsh)
End Sub

Private Sub chommand3_Click()
'一年欠费用户情况
MonthView1.Value = Str(Val(Trim(Text2.Tag)) - 1) + "-01-01"
MonthView2.Value = Str(Val(Trim(Text2.Tag)) - 1) + "-12-31"
Dim filterstring As String

If hzzde.rsdue.State <> adStateOpen Then
hzzde.rsdue.Open
End If

hzzde.rsdue.Requery
Set DataGrid1.DataSource = hzzde
    DataGrid1.DataMember = "due"
    hzzde.rsdue.Requery
filterstring = "最后交费日期 >=#" & MonthView1.Value & "#" & " and 最后交费日期 <=#" & MonthView2.Value & "#"
hzzde.rsdue.Filter = filterstring
    hzzde.rsdue.Requery
    DataGrid1.HoldFields
    Set DataGrid1.DataSource = hzzde
    DataGrid1.DataMember = "due"
    DataGrid1.ReBind
'    DataGrid1.Refresh
    
duetotal

Label7.Caption = Str(hzzde.rsdue.RecordCount)
Label9.Caption = Str(numchen)
Label11.Caption = Str(chengsh)
Label13.Caption = Str(numnong)
Label15.Caption = Str(nongsh)
Label4.Caption = Str(chengsh + nongsh)

duechart(1, 1) = "一年欠费用户"
duechart(1, 2) = chengsh + nongsh

If numflag1 < 1 Then
numflag1 = numflag1 + 1
End If

If numflag1 + numflag2 + numflag3 = 3 Then
CandySphere1.Enabled = True
End If

End Sub

Private Sub chommand4_Click()
'二年欠费用户情况
MonthView1.Value = Str(Val(Trim(Text2.Tag)) - 2) + "-01-01"
MonthView2.Value = Str(Val(Trim(Text2.Tag)) - 2) + "-12-31"
Dim filterstring As String

If hzzde.rsdue.State <> adStateOpen Then
hzzde.rsdue.Open
End If

hzzde.rsdue.Requery
Set DataGrid1.DataSource = hzzde
    DataGrid1.DataMember = "due"
    hzzde.rsdue.Requery
filterstring = "最后交费日期 >=#" & MonthView1.Value & "#" & " and 最后交费日期 <=#" & MonthView2.Value & "#"
hzzde.rsdue.Filter = filterstring
    hzzde.rsdue.Requery
    DataGrid1.HoldFields
    Set DataGrid1.DataSource = hzzde
    DataGrid1.DataMember = "due"
    DataGrid1.ReBind
'    DataGrid1.Refresh
    
duetotal

Label7.Caption = Str(hzzde.rsdue.RecordCount)
Label9.Caption = Str(numchen)
Label11.Caption = Str(chengsh)
Label13.Caption = Str(numnong)
Label15.Caption = Str(nongsh)
Label4.Caption = Str(chengsh + nongsh)

duechart(2, 1) = "二年欠费用户"
duechart(2, 2) = chengsh + nongsh

If numflag2 < 1 Then
numflag2 = numflag2 + 1
End If

If numflag1 + numflag2 + numflag3 = 3 Then
CandySphere1.Enabled = True
End If
End Sub

Private Sub Form_Load()
entrydate = Now()

numflag1 = 0
numflag2 = 0
numflag3 = 0

StatusBar1.SimpleText = "查询截止" + Text2.Text + "年之前的欠费用户情况"
chommand1.Caption = "截止" + Text2.Text + "年之前的欠费户"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call history(staff, entrydate, Me.Caption, Now())
End Sub

Private Sub Text2_Change()
StatusBar1.SimpleText = "查询截止" + Text2.Text + "年之前的欠费用户情况"
chommand1.Caption = "截止" + Text2.Text + "年之前的欠费户"

chommand3.Enabled = False
chommand4.Enabled = False
chcommand5.Enabled = False
CandySphere1.Enabled = False

numflag1 = 0
numflag2 = 0
numflag3 = 0
End Sub
123

form11due.frm - 源码说明

本页面展示了「一套收费计算机系统」中的 form11due.frm 源码文件，采用 FRM 编程语言编写，共 1,118 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与收费相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?