frmchengpibanjie.frm

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

VERSION 5.00
Object = "{63DE02F9-F475-11D1-BF5B-00A024982E5B}#14.0#0"; "axpicker.ocx"
Object = "{8ED8CCC1-8472-46D0-93E7-F66929B98442}#2.0#0"; "xpcmd.ocx"
Begin VB.Form frmChengPiBanJie 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "选择办结受理号"
   ClientHeight    =   6525
   ClientLeft      =   3675
   ClientTop       =   780
   ClientWidth     =   4920
   Icon            =   "frmChengPiBanJie.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6525
   ScaleWidth      =   4920
   StartUpPosition =   2  '屏幕中心
   Begin XPCmd.xpcmdbutton xpcmdbutton2 
      Height          =   375
      Left            =   3120
      TabIndex        =   6
      Top             =   5520
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   661
      Caption         =   "   取   消"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin XPCmd.xpcmdbutton xpcmdbutton1 
      Height          =   375
      Left            =   720
      TabIndex        =   5
      Top             =   5520
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   661
      Caption         =   "   办   结"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin axPicklistControl.axPicker axPicker1 
      Height          =   4860
      Left            =   120
      TabIndex        =   4
      Top             =   480
      Width           =   4455
      _ExtentX        =   7858
      _ExtentY        =   8573
   End
   Begin VB.PictureBox PicCaption 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   720
      Left            =   4920
      Picture         =   "frmChengPiBanJie.frx":1042
      ScaleHeight     =   720
      ScaleWidth      =   9600
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   240
      Visible         =   0   'False
      Width           =   9600
      Begin VB.PictureBox PicBorder 
         AutoRedraw      =   -1  'True
         AutoSize        =   -1  'True
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   150
         Left            =   0
         Picture         =   "frmChengPiBanJie.frx":17886
         ScaleHeight     =   150
         ScaleWidth      =   1050
         TabIndex        =   1
         TabStop         =   0   'False
         Top             =   0
         Visible         =   0   'False
         Width           =   1050
      End
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000001&
      X1              =   120
      X2              =   4560
      Y1              =   360
      Y2              =   360
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "要办结的受理号："
      Height          =   180
      Left            =   2400
      TabIndex        =   3
      Top             =   120
      Width           =   1440
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "所有受理号："
      Height          =   180
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   1080
   End
End
Attribute VB_Name = "frmChengPiBanJie"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'************************************说明*******************************
'*此处代码将完成办件的办结功能                                         *
'*2003-07-25 dww pm19:30                                               *
'*详细描述如下：                                                       *
'*此处完成办件的办结功能，所谓办结也就是将办件表中的是否办理和受件状   *
'*态字段的值修改一下，办结以后用户将不能在进行作废的操作，办结功能使   *
'*用户可一次办结一个或一次办结多个办件，只要用户选择受理号就可以实现   *
'***********************************************************************
'定义漂亮窗体的对象变量
Private m_cn As cNeoCaption
'定义单位代码变量接收上一层传来的变量
Dim inDepartmentCode As String
'定义所有未办结件受理号数组
Dim TransactionCodeData() As String
'定义选择的要办结的受理号数组
Dim TransactionCodeDataSelect() As String
'定义受理号数组是否为空的标志变量
Dim isEmpty As Boolean
'定义出初始化SQL查询字符串
Dim SQL As String









Private Sub Form_Load()
'完成窗体初始化
'----------------------------------------------------------------------
'此处代码将制作一个漂亮窗体用
 Set m_cn = New cNeoCaption
 Skin Me, m_cn
'----------------------------------------------------------------------
'初始化单位代码也即接收从上一层传来的值
 inDepartmentCode = frmShouJian.inDepartmentCode
'初始化SQL查询字符串
 SQL = "where TransactionStatus<>'已办结' and WhetherZF='否'"
'调用自定义函数取得未办结的所有办件的受理号
 If Not GetTransactionCodeForWBJFromTransactionTab(inDepartmentCode, TransactionCodeData, SQL, isEmpty) Then
    Exit Sub
 End If
'在受理号数组非空的情况下把取得的受理号加入选择控件的可用项目栏中
 If Not isEmpty Then
    For i = 0 To UBound(TransactionCodeData, 2) - 1
        axPicker1.AddItemA TransactionCodeData(0, i)
    Next i
 End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
'释放对象
Set m_cn = Nothing
End Sub








Private Sub xpcmdbutton1_Click()
'处理办结按扭所执行的操作
Dim i As Integer
'判断选择项目栏是否为空也即看一下它是否有选择
If axPicker1.ListCountS <> 0 Then
   '定义选择数组存放所选择的受理号
   ReDim TransactionCodeDataSelect(0, axPicker1.ListCountS - 1)
   For i = 0 To axPicker1.ListCountS - 1
       TransactionCodeDataSelect(0, i) = Trim(axPicker1.ListS(i))
   Next i
   '可用项目栏非空的情况下调用自定义函数进行办结操作否则将不符和逻辑
    If Not isEmpty Then
     '----------------------------------------------------------------------
     '调用模块FunctionDataAccess中的函数实现所选择受理号的办结操作
      If Not TransactionBJ(TransactionCodeDataSelect, inDepartmentCode) Then
         Exit Sub
      End If
      MsgBox "你成功办结了受理号为所选择的办件！", 48, "系统提示"
      Exit Sub
   End If
Else
  MsgBox "你还没有选择要办结的办件受理号！", 48, "系统提示"
  Exit Sub
End If
End Sub
Private Sub xpcmdbutton2_Click()
'处理取消按扭所执行的 操作
'释放对象
Unload Me
End Sub