frmczjrep.frm

金水区行政审批服务软件窗口系统

 Frame1.BackColor = RGB(207, 203, 207)
 Option1.BackColor = RGB(207, 203, 207)
 Option2.BackColor = RGB(207, 203, 207)
 Option3.BackColor = RGB(207, 203, 207)
 Option4.BackColor = RGB(207, 203, 207)
 Option5.BackColor = RGB(207, 203, 207)
'-------------------------------------------
 inDepartmentCode = frmShouJian.inDepartmentCode
 DTPicker1.Value = Date
 DTPicker2.Value = Date
 startTime = DTPicker1.Value
 endTime = DTPicker2.Value
'--------------------------------------------
'调用自定义过程取得项目基本信息来填充项目选择组合框
 Call GetItemBaseInfoToFillItemCombo(ItemBaseInfo, isItemBaseInfoEmtpy)
 If Not isItemBaseInfoEmtpy Then
    Combo1.Text = ItemBaseInfo(0, 1)
    sCurItemCode = ItemBaseInfo(0, 0)
    Label4.Caption = "操作提示： " + "报表统计时间" + startTime
    Label5.Caption = "报表项目： " + Combo1.Text
    If sCurItemCode = "10080" Then
    Option1.Visible = True
    Option2.Visible = True
    Option3.Visible = True
    Option3.Value = True
    End If
 Else
    MsgBox "未能取得项目基本信息数据！", 48, "系统提示"
 End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set m_cn = Nothing
End Sub
'===========================================================================







'===========================================================================
'处理时间选择的变化：开始时间，结束时间
'编写时间：2004-3-5 dww am11:35
Private Sub DTPicker1_Change()
If DTPicker1.Value > DTPicker2.Value Then
   MsgBox "开始时间不能大于结束时间！", 48, "系统提示"
   DTPicker1.Value = DTPicker2.Value
   startTime = DTPicker1.Value
Else
   startTime = DTPicker1.Value
   If CDate(startTime) = CDate(endTime) Then
      Label4.Caption = "操作提示： " + "报表统计时间" + startTime
   Else
      Label4.Caption = "操作提示： " + "报表统计时间从" + startTime + "到" + endTime
   End If
End If
End Sub
Private Sub DTPicker2_Change()
If DTPicker2.Value < DTPicker1.Value Then
  MsgBox "结束时间不能小于开始时间！", 48, "系统提示"
  DTPicker2.Value = DTPicker1.Value
  endTime = DTPicker2.Value
Else
  endTime = DTPicker2.Value
  If CDate(startTime) = CDate(endTime) Then
     Label4.Caption = "操作提示： " + "报表统计时间" + startTime
  Else
     Label4.Caption = "操作提示： " + "报表统计时间从" + startTime + "到" + endTime
  End If
End If
End Sub
'===========================================================================







'===========================================================================
'处理项目选择框所执行的操作
'编写时间：2004-3-5 dww am11:34
Private Sub Combo1_Click()
If CDate(startTime) = CDate(endTime) Then
   Label4.Caption = "操作提示： " + "报表统计时间" + startTime
Else
   Label4.Caption = "操作提示： " + "报表统计时间从" + startTime + "到" + endTime
End If
Label5.Caption = "报表项目： " + Combo1.Text
sCurItemCode = ItemBaseInfo(Combo1.ListIndex, 0)
'MsgBox ItemBaseInfo(Combo1.ListIndex, 0) + Chr(13) + Chr(10) + ItemBaseInfo(Combo1.ListIndex, 1), 48, "系统测试"
If sCurItemCode = "10080" Then
   Option1.Visible = True
   Option2.Visible = True
   Option3.Visible = True
   Option3.Value = True
   Option4.Visible = False
   Option5.Visible = False
Else
   Option1.Visible = False
   Option2.Visible = False
   Option3.Visible = False
   If sCurItemCode = "10020" Or sCurItemCode = "10060" Then
     Option4.Visible = True
     Option5.Visible = True
     Option4.Value = True
   Else
     Option4.Visible = False
     Option5.Visible = False
   End If
End If
End Sub
'===========================================================================





'===========================================================================
'处理打印和打印预览按钮所执行的操作
'编写时间：2004-3-5 dww am 11:40
Private Sub xpcmdbutton1_Click()
'打印按钮
'----------------------------------------------------
Dim AppTabName As String
Dim TransactionTabName As String
Dim ChargeTabName As String
Dim AppTabData() As String
Dim isAppTabDataEmpty As Boolean
Dim SQLFront As String
Dim SQLLast As String
Dim flag As String
'----------------------------------------------------
AppTabName = "M" + inDepartmentCode + sCurItemCode
TransactionTabName = "STra" + inDepartmentCode
ChargeTabName = "tbl_TransactionCharge" + inDepartmentCode
'-----------------------------------------------------
startTime = DTPicker1.Value
endTime = DTPicker2.Value
If CDate(startTime) = CDate(endTime) Then
   SQLFront = " where " & TransactionTabName & ".WhetherZF='否'" & " and " & AppTabName & ".金水财政局详细时间= '" & CDate(startTime) & "'"
Else
    If CDate(startTime) < CDate(endTime) Then
        SQLFront = " where " & TransactionTabName & ".WhetherZF='否'" & " and " & AppTabName & ".金水财政局详细时间>= '" & CDate(startTime) & "'" & " and " & AppTabName & ".金水财政局详细时间<='" & CDate(endTime) & "'"
    End If
End If
'-----------------------------------------------------
If sCurItemCode = "10080" Then
   If Option3.Value = True Then
      SQLLast = ""
      flag = "0"
   Else
      If Option2.Value = True Then
        SQLLast = " and " & AppTabName & ".是否注册='0'"
        flag = "0"
      Else
        SQLLast = " and " & AppTabName & ".是否注册='1'"
        flag = "0"
      End If
   End If
Else
    If sCurItemCode = "10020" Or sCurItemCode = "10060" Then
       If Option4.Value = True Then
         SQLLast = ""
         flag = "0"
       Else
         SQLLast = ""
         flag = "1"
       End If
    Else
      SQLLast = ""
      flag = "0"
    End If
End If
'---------------------------------------------------------------
If flag = "0" Then
   Call PrintViewDepartmentReportFromAppTab(AppTabName, TransactionTabName, AppTabName + "_dz_bb.rpx", SQLFront & SQLLast)
Else
   MsgBox "收费情况统计表功能暂时无实现！", 48, "系统提示"
End If
End Sub
Private Sub xpcmdbutton2_Click()
'打印预览按钮[直接打印按钮暂时不开放此功能]
'----------------------------------------------------
MsgBox "请使用[打印预览]按钮进行打印！", 48, "系统提示"
Exit Sub
'----------------------------------------------------
Dim AppTabName As String
Dim TransactionTabName As String
Dim ChargeTabName As String
Dim AppTabData() As String
Dim isAppTabDataEmpty As Boolean
Dim SQLFront As String
Dim SQLLast As String
Dim flag As String
'----------------------------------------------------
AppTabName = "M" + inDepartmentCode + sCurItemCode
TransactionTabName = "STra" + inDepartmentCode
ChargeTabName = "tbl_TransactionCharge" + inDepartmentCode
'-----------------------------------------------------
startTime = DTPicker1.Value
endTime = DTPicker2.Value
If CDate(startTime) = CDate(endTime) Then
   SQLFront = " where " & TransactionTabName & ".WhetherZF='否'" & " and " & AppTabName & ".金水财政局详细时间= '" & CDate(startTime) & "'"
Else
    If CDate(startTime) < CDate(endTime) Then
        SQLFront = " where " & TransactionTabName & ".WhetherZF='否'" & " and " & AppTabName & ".金水财政局详细时间>= '" & CDate(startTime) & "'" & " and " & AppTabName & ".金水财政局详细时间<='" & CDate(endTime) & "'"
    End If
End If
'-----------------------------------------------------
If sCurItemCode = "10080" Then
   If Option3.Value = True Then
      SQLLast = ""
      flag = "0"
   Else
      If Option2.Value = True Then
        SQLLast = " and " & AppTabName & ".是否注册='0'"
        flag = "0"
      Else
        SQLLast = " and " & AppTabName & ".是否注册='1'"
        flag = "0"
      End If
   End If
Else
    If sCurItemCode = "10020" Or sCurItemCode = "10060" Then
       If Option4.Value = True Then
         SQLLast = ""
         flag = "0"
       Else
         SQLLast = ""
         flag = "1"
       End If
    Else
      SQLLast = ""
      flag = "0"
    End If
End If
'-----------------------------------------------------
If flag = "0" Then
  Call PrintDirectDepartmentReportFromAppTab(AppTabName, TransactionTabName, AppTabName + "_dz_bb.rpx", SQLFront & SQLLast)
Else
  MsgBox "收费情况统计报表功能暂时无实现！", 48, "系统提示"
End If
End Sub
Private Sub xpcmdbutton3_Click()
'关闭窗口按钮
Unload Me
End Sub
'===========================================================================








'===========================================================================
Private Sub GetItemBaseInfoToFillItemCombo(out_ItemBaseInfo() As String, out_isEmpty As Boolean)
'此过程的作用是取得项目的基本信息来填充项目组合框
'编写开始时间：2004-3-7 dww am09:01
'编写结束时间：2004-3-7 dww pm16:44
 Dim sField(1, 0) As String
 Dim in_TabName As String
 Dim in_SQL As String
 Dim mydate As String
 '--------------------------------------------
 in_TabName = gsItemStorageName
 mydate = Date
 in_SQL = " where DepartmentCode='" & inDepartmentCode & "' and ValidStart<='" & CDate(mydate) & "' and ValidEnd>='" & CDate(mydate) & "'" & " order by ItemDisplaySeq "
 '--------------------------------------------
 sField(0, 0) = "ItemCode"
 sField(1, 0) = "ItemName"
 '--------------------------------------------
 '调用模块FunctionDataAccess中的GetDataFromTable函数取得所需要的数据
 If Not GetDataFromTable(sField(), in_SQL, in_TabName, out_ItemBaseInfo, out_isEmpty) Then
    Exit Sub
 End If
 '---------------------------------------------
 '在返回数据非空的情况下，取得项目名称来填充项目列表
 If Not out_isEmpty Then
 Dim i As Integer
 For i = 0 To UBound(out_ItemBaseInfo, 1)
    Combo1.AddItem out_ItemBaseInfo(i, 1)
 Next i
 End If
End Sub
'===========================================================================