?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -