📄 form8obscure.frm

📁 一套收费计算机系统
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
  
    If Text3.Text = "2" Then
      If Val(Text2.Text) Mod 4 = 0 Then
        jfx = Text2.Text + "-" + Text3.Text + "-29"
      Else
        jfx = Text2.Text + "-" + Text3.Text + "-28"
      End If
    End If
    If (Text3.Text = "1" Or Text3.Text = "3" Or Text3.Text = "5" Or _
        Text3.Text = "7" Or Text3.Text = "8" Or Text3.Text = "10" Or _
        Text3.Text = "12") Then
        jfx = Text2.Text + "-" + Text3.Text + "-31"
    End If
    If (Text3.Text = "4" Or _
        Text3.Text = "6" Or Text3.Text = "9" Or _
        Text3.Text = "11") Then
        jfx = Text2.Text + "-" + Text3.Text + "-30"
    End If

  stjfd = " 交费日期在" + Text2.Text + "年" + Text3.Text + "月之内"
  
End If

If (Text3.Text = "1" Or Text3.Text = "2" Or Text3.Text = "3" Or Text3.Text = "4" Or Text3.Text = "5" Or _
Text3.Text = "6" Or Text3.Text = "7" Or Text3.Text = "8" Or Text3.Text = "9" Or Text3.Text = "10" Or _
Text3.Text = "11" Or Text3.Text = "12") _
And (Text4.Text <> "" And Val(Text4.Text) >= 1 And Val(Text4.Text) <= 31 And Len(Text4.Text) <= 2) Then

  jfd = Text2.Text + "-" + Text3.Text + "-" + Text4.Text
  jfx = Text2.Text + "-" + Text3.Text + "-" + Text4.Text
  stjfd = " 交费日期是" + Text2.Text + "-" + Text3.Text + "-" + Text4.Text
  
End If

lstring = stxm + stdz + stczd + stjfd
StatusBar1.SimpleText = "查询条件为：" + lstring
command1.Enabled = True

End If
End Sub

Private Sub Text3_Change() '交费月
If Not cancelif Then

If Text3.Text = "0" Then
Text3.ForeColor = &HFFFFFF
Else
Text3.ForeColor = &H0
End If

If (Val(Text2.Text) >= 2000 And Val(Text2.Text) <= 2010 And Len(Text2.Text) = 4) And (Text3.Text = "" Or Text3.Text = "0") And (Text4.Text = "" Or Text4.Text = "0") Then
  jfd = Text2.Text + "-01-01"
  jfx = Text2.Text + "-12-31"
  stjfd = " 交费日期在" + Text2.Text + "年之内"
End If

If (Text3.Text = "1" Or Text3.Text = "2" Or Text3.Text = "3" Or Text3.Text = "4" Or Text3.Text = "5" Or _
Text3.Text = "6" Or Text3.Text = "7" Or Text3.Text = "8" Or Text3.Text = "9" Or Text3.Text = "10" Or _
Text3.Text = "11" Or Text3.Text = "12") _
And (Text4.Text = "" Or Text4.Text = "0") Then
  jfd = Text2.Text + "-" + Text3.Text + "-01"
  
    If Text3.Text = "2" Then
      If Val(Text2.Text) Mod 4 = 0 Then
        jfx = Text2.Text + "-" + Text3.Text + "-29"
      Else
        jfx = Text2.Text + "-" + Text3.Text + "-28"
      End If
    End If
    If (Text3.Text = "1" Or Text3.Text = "3" Or Text3.Text = "5" Or _
        Text3.Text = "7" Or Text3.Text = "8" Or Text3.Text = "10" Or _
        Text3.Text = "12") Then
        jfx = Text2.Text + "-" + Text3.Text + "-31"
    End If
    If (Text3.Text = "4" Or _
        Text3.Text = "6" Or Text3.Text = "9" Or _
        Text3.Text = "11") Then
        jfx = Text2.Text + "-" + Text3.Text + "-30"
    End If
    
  stjfd = " 交费日期在" + Text2.Text + "年" + Text3.Text + "月之内"
End If

If (Text3.Text = "1" Or Text3.Text = "2" Or Text3.Text = "3" Or Text3.Text = "4" Or Text3.Text = "5" Or _
Text3.Text = "6" Or Text3.Text = "7" Or Text3.Text = "8" Or Text3.Text = "9" Or Text3.Text = "10" Or _
Text3.Text = "11" Or Text3.Text = "12") _
And (Text4.Text <> "" And Val(Text4.Text) >= 1 And Val(Text4.Text) <= 31 And Len(Text4.Text) <= 2) Then

  jfd = Text2.Text + "-" + Text3.Text + "-" + Text4.Text
  jfx = Text2.Text + "-" + Text3.Text + "-" + Text4.Text
stjfd = " 交费日期是" + Text2.Text + "-" + Text3.Text + "-" + Text4.Text
End If

lstring = stxm + stdz + stczd + stjfd
StatusBar1.SimpleText = "查询条件为：" + lstring
command1.Enabled = True

End If
End Sub

Private Sub Text4_Change() '交费日
If Not cancelif Then

If Text4.Text = "0" Then
Text4.ForeColor = &HFFFFFF
Else
Text4.ForeColor = &H0
End If

If (Val(Text2.Text) >= 2000 And Val(Text2.Text) <= 2010 And Len(Text2.Text) = 4) And (Text3.Text = "" Or Text3.Text = "0") And (Text4.Text = "" Or Text4.Text = "0") Then
  jfd = Text2.Text + "-01-01"
  jfx = Text2.Text + "-12-31"
  stjfd = " 交费日期在" + Text2.Text + "年之内"
End If

If (Text3.Text = "1" Or Text3.Text = "2" Or Text3.Text = "3" Or Text3.Text = "4" Or Text3.Text = "5" Or _
Text3.Text = "6" Or Text3.Text = "7" Or Text3.Text = "8" Or Text3.Text = "9" Or Text3.Text = "10" Or _
Text3.Text = "11" Or Text3.Text = "12") _
And (Text4.Text = "" Or Text4.Text = "0") Then
  jfd = Text2.Text + "-" + Text3.Text + "-01"
  
  If Text3.Text = "2" Then
      If Val(Text2.Text) Mod 4 = 0 Then
        jfx = Text2.Text + "-" + Text3.Text + "-29"
      Else
        jfx = Text2.Text + "-" + Text3.Text + "-28"
      End If
    End If
    If (Text3.Text = "1" Or Text3.Text = "3" Or Text3.Text = "5" Or _
        Text3.Text = "7" Or Text3.Text = "8" Or Text3.Text = "10" Or _
        Text3.Text = "12") Then
        jfx = Text2.Text + "-" + Text3.Text + "-31"
    End If
    If (Text3.Text = "4" Or _
        Text3.Text = "6" Or Text3.Text = "9" Or _
        Text3.Text = "11") Then
        jfx = Text2.Text + "-" + Text3.Text + "-30"
    End If
    
  stjfd = " 交费日期在" + Text2.Text + "年" + Text3.Text + "月之内"
End If

If (Text3.Text = "1" Or Text3.Text = "2" Or Text3.Text = "3" Or Text3.Text = "4" Or Text3.Text = "5" Or _
Text3.Text = "6" Or Text3.Text = "7" Or Text3.Text = "8" Or Text3.Text = "9" Or Text3.Text = "10" Or _
Text3.Text = "11" Or Text3.Text = "12") _
And (Text4.Text <> "" And Val(Text4.Text) >= 1 And Val(Text4.Text) <= 31 And Len(Text4.Text) <= 2) Then

  jfd = Text2.Text + "-" + Text3.Text + "-" + Text4.Text
  jfx = Text2.Text + "-" + Text3.Text + "-" + Text4.Text
  stjfd = " 交费日期是" + Text2.Text + "-" + Text3.Text + "-" + Text4.Text
End If

lstring = stxm + stdz + stczd + stjfd
StatusBar1.SimpleText = "查询条件为：" + lstring
command1.Enabled = True

End If
End Sub

Private Sub Text5_Change() '初装日
If Not cancelif Then

If Text5.Text = "0" Then
Text5.ForeColor = &HFFFFFF
Else
Text5.ForeColor = &H0
End If

If (Val(Text7.Text) >= 1980 And Val(Text7.Text) <= 2010 And Len(Text7.Text) = 4) And (Text6.Text = "" Or Text6.Text = "0") And (Text5.Text = "" Or Text5.Text = "0") Then
  czd = Text7.Text + "-01-01"
  czx = Text7.Text + "-12-31"
  stczd = " 初装日期在" + Text7.Text + "年之内"
End If

If (Text6.Text = "1" Or Text6.Text = "2" Or Text6.Text = "3" Or Text6.Text = "4" Or Text6.Text = "5" Or _
Text6.Text = "6" Or Text6.Text = "7" Or Text6.Text = "8" Or Text6.Text = "9" Or Text6.Text = "10" Or _
Text6.Text = "11" Or Text6.Text = "12") _
And (Text5.Text = "" Or Text5.Text = "0") Then
  czd = Text7.Text + "-" + Text6.Text + "-01"
  
  If Text6.Text = "2" Then
      If Val(Text7.Text) Mod 4 = 0 Then
        czx = Text7.Text + "-" + Text6.Text + "-29"
      Else
        czx = Text7.Text + "-" + Text6.Text + "-28"
      End If
    End If
    If (Text6.Text = "1" Or Text6.Text = "3" Or Text6.Text = "5" Or _
        Text6.Text = "7" Or Text6.Text = "8" Or Text6.Text = "10" Or _
        Text6.Text = "12") Then
        czx = Text7.Text + "-" + Text6.Text + "-31"
    End If
    If (Text6.Text = "4" Or _
        Text6.Text = "6" Or Text6.Text = "9" Or _
        Text6.Text = "11") Then
        czx = Text7.Text + "-" + Text6.Text + "-30"
    End If
  
  stczd = " 初装日期在" + Text7.Text + "年" + Text6.Text + "月之内"
End If

If (Text6.Text = "1" Or Text6.Text = "2" Or Text6.Text = "3" Or Text6.Text = "4" Or Text6.Text = "5" Or _
Text6.Text = "6" Or Text6.Text = "7" Or Text6.Text = "8" Or Text6.Text = "9" Or Text6.Text = "10" Or _
Text6.Text = "11" Or Text6.Text = "12") _
And (Text5.Text <> "" And Val(Text5.Text) >= 1 And Val(Text5.Text) <= 31 And Len(Text5.Text) <= 2) Then

czd = Text7.Text + "-" + Text6.Text + "-" + Text5.Text
czx = Text7.Text + "-" + Text6.Text + "-" + Text5.Text
stczd = " 初装日期是" + Text7.Text + "-" + Text6.Text + "-" + Text5.Text
End If

lstring = stxm + stdz + stczd + stjfd
StatusBar1.SimpleText = "查询条件为：" + lstring
command1.Enabled = True

End If
End Sub

Private Sub Text6_Change() '初装月
If Not cancelif Then

If Text6.Text = "0" Then
Text6.ForeColor = &HFFFFFF
Else
Text6.ForeColor = &H0
End If

If (Val(Text7.Text) >= 1980 And Val(Text7.Text) <= 2010 And Len(Text7.Text) = 4) And (Text6.Text = "" Or Text6.Text = "0") And (Text5.Text = "" Or Text5.Text = "0") Then
  czd = Text7.Text + "-01-01"
  czx = Text7.Text + "-12-31"
  stczd = " 初装日期在" + Text7.Text + "年之内"
End If

If (Text6.Text = "1" Or Text6.Text = "2" Or Text6.Text = "3" Or Text6.Text = "4" Or Text6.Text = "5" Or _
Text6.Text = "6" Or Text6.Text = "7" Or Text6.Text = "8" Or Text6.Text = "9" Or Text6.Text = "10" Or _
Text6.Text = "11" Or Text6.Text = "12") _
And (Text5.Text = "" Or Text5.Text = "0") Then
  czd = Text7.Text + "-" + Text6.Text + "-01"
  
  If Text6.Text = "2" Then
      If Val(Text7.Text) Mod 4 = 0 Then
        czx = Text7.Text + "-" + Text6.Text + "-29"
      Else
        jfx = Text7.Text + "-" + Text6.Text + "-28"
      End If
    End If
    If (Text6.Text = "1" Or Text6.Text = "3" Or Text6.Text = "5" Or _
        Text6.Text = "7" Or Text6.Text = "8" Or Text6.Text = "10" Or _
        Text6.Text = "12") Then
        czx = Text7.Text + "-" + Text6.Text + "-31"
    End If
    If (Text6.Text = "4" Or _
        Text6.Text = "6" Or Text6.Text = "9" Or _
        Text6.Text = "11") Then
        czx = Text7.Text + "-" + Text6.Text + "-30"
    End If
  
  stczd = " 初装日期在" + Text7.Text + "年" + Text6.Text + "月之内"
End If

If (Text6.Text = "1" Or Text6.Text = "2" Or Text6.Text = "3" Or Text6.Text = "4" Or Text6.Text = "5" Or _
Text6.Text = "6" Or Text6.Text = "7" Or Text6.Text = "8" Or Text6.Text = "9" Or Text6.Text = "10" Or _
Text6.Text = "11" Or Text6.Text = "12") _
And (Text5.Text <> "" And Val(Text5.Text) >= 1 And Val(Text5.Text) <= 31 And Len(Text5.Text) <= 2) Then

czd = Text7.Text + "-" + Text6.Text + "-" + Text5.Text
czx = Text7.Text + "-" + Text6.Text + "-" + Text5.Text
stczd = " 初装日期是" + Text7.Text + "-" + Text6.Text + "-" + Text5.Text
End If

lstring = stxm + stdz + stczd + stjfd
StatusBar1.SimpleText = "查询条件为：" + lstring
command1.Enabled = True

End If
End Sub

Private Sub Text7_Change() '初装年
If Not cancelif Then

If (Val(Text7.Text) >= 1980 And Val(Text7.Text) <= 2010 And Len(Text7.Text) = 4) And (Text6.Text = "" Or Text6.Text = "0") And (Text5.Text = "" Or Text5.Text = "0") Then
  czd = Text7.Text + "-01-01"
  czx = Text7.Text + "-12-31"
  stczd = " 初装日期在" + Text7.Text + "年之内"
End If

If (Text6.Text = "1" Or Text6.Text = "2" Or Text6.Text = "3" Or Text6.Text = "4" Or Text6.Text = "5" Or _
Text6.Text = "6" Or Text6.Text = "7" Or Text6.Text = "8" Or Text6.Text = "9" Or Text6.Text = "10" Or _
Text6.Text = "11" Or Text6.Text = "12") _
And (Text5.Text = "" Or Text5.Text = "0") Then
  czd = Text7.Text + "-" + Text6.Text + "-01"
  
  If Text6.Text = "2" Then
      If Val(Text7.Text) Mod 4 = 0 Then
        czx = Text7.Text + "-" + Text6.Text + "-29"
      Else
        czx = Text7.Text + "-" + Text6.Text + "-28"
      End If
    End If
    If (Text6.Text = "1" Or Text6.Text = "3" Or Text6.Text = "5" Or _
        Text6.Text = "7" Or Text6.Text = "8" Or Text6.Text = "10" Or _
        Text6.Text = "12") Then
        czx = Text7.Text + "-" + Text6.Text + "-31"
    End If
    If (Text6.Text = "4" Or _
        Text6.Text = "6" Or Text6.Text = "9" Or _
        Text6.Text = "11") Then
       czx = Text7.Text + "-" + Text6.Text + "-30"
    End If
  
  stczd = " 初装日期在" + Text7.Text + "年" + Text6.Text + "月之内"
End If

If (Text6.Text = "1" Or Text6.Text = "2" Or Text6.Text = "3" Or Text6.Text = "4" Or Text6.Text = "5" Or _
Text6.Text = "6" Or Text6.Text = "7" Or Text6.Text = "8" Or Text6.Text = "9" Or Text6.Text = "10" Or _
Text6.Text = "11" Or Text6.Text = "12") _
And (Text5.Text <> "" And Val(Text5.Text) >= 1 And Val(Text5.Text) <= 31 And Len(Text5.Text) <= 2) Then

czd = Text7.Text + "-" + Text6.Text + "-" + Text5.Text
czx = Text7.Text + "-" + Text6.Text + "-" + Text5.Text
stczd = " 初装日期是" + Text7.Text + "-" + Text6.Text + "-" + Text5.Text
End If

lstring = stxm + stdz + stczd + stjfd
StatusBar1.SimpleText = "查询条件为：" + lstring
command1.Enabled = True

End If
End Sub

Private Sub UpDown1_DownClick()
Text1.IMEMode = 2
End Sub

Private Sub UpDown2_Change()
  If Text3.Text = "2" Then
      If Val(Text2.Text) Mod 4 = 0 Then
        UpDown3.Max = 29
      Else
        UpDown3.Max = 28
      End If
    End If
    If (Text3.Text = "1" Or Text3.Text = "3" Or Text3.Text = "5" Or _
        Text3.Text = "7" Or Text3.Text = "8" Or Text3.Text = "10" Or _
        Text3.Text = "12") Then
        UpDown3.Max = 31
    End If
    If (Text3.Text = "4" Or _
        Text3.Text = "6" Or Text3.Text = "9" Or _
        Text3.Text = "11") Then
        UpDown3.Max = 30
    End If
End Sub

Private Sub UpDown2_DownClick()
Text1.IMEMode = 2
End Sub

Private Sub UpDown3_DownClick()
Text1.IMEMode = 2
End Sub

Private Sub UpDown4_DownClick()
Text1.IMEMode = 2
End Sub

Private Sub UpDown5_Change()
  If Text6.Text = "2" Then
      If Val(Text7.Text) Mod 4 = 0 Then
        UpDown6.Max = 29
      Else
        UpDown6.Max = 28
      End If
    End If
    If (Text6.Text = "1" Or Text6.Text = "3" Or Text6.Text = "5" Or _
        Text6.Text = "7" Or Text6.Text = "8" Or Text6.Text = "10" Or _
        Text6.Text = "12") Then
        UpDown6.Max = 31
    End If
    If (Text6.Text = "4" Or _
        Text6.Text = "6" Or Text6.Text = "9" Or _
        Text6.Text = "11") Then
        UpDown6.Max = 30
    End If
End Sub

Private Sub UpDown5_DownClick()
Text1.IMEMode = 2
End Sub

Private Sub UpDown6_DownClick()
Text1.IMEMode = 2
End Sub
上一页 1 23
💿 文件大小 550 K
👤 上传用户 siclj
📂 所属分类数据库系统
🏷️ 相关标签

#收费 #计算机系统
⌨️ 快捷键说明

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