📄 frmtransactionnosearchprintcertification.frm
字号:
VERSION 5.00
Object = "{8ED8CCC1-8472-46D0-93E7-F66929B98442}#2.0#0"; "xpcmd.ocx"
Begin VB.Form frmTransactionNoSearchPrintCertification
BorderStyle = 1 'Fixed Single
Caption = "受理号查询"
ClientHeight = 2265
ClientLeft = 3480
ClientTop = 3540
ClientWidth = 3825
Icon = "frmTransactionNoSearchPrintCertification.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2265
ScaleWidth = 3825
StartUpPosition = 2 '屏幕中心
Begin XPCmd.xpcmdbutton xpcmdbutton2
Height = 375
Left = 2520
TabIndex = 5
Top = 1200
Width = 975
_ExtentX = 1720
_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 = 1440
TabIndex = 4
Top = 1200
Width = 975
_ExtentX = 1720
_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 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 = 4440
Picture = "frmTransactionNoSearchPrintCertification.frx":1042
ScaleHeight = 720
ScaleWidth = 9600
TabIndex = 2
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 = "frmTransactionNoSearchPrintCertification.frx":17886
ScaleHeight = 150
ScaleWidth = 1050
TabIndex = 3
TabStop = 0 'False
Top = 0
Visible = 0 'False
Width = 1050
End
End
Begin VB.Frame Frame1
Caption = "要打证的件受理号查询"
Height = 975
Left = 120
TabIndex = 0
Top = 120
Width = 3375
Begin VB.ComboBox ComboShouLiHao
Height = 300
Left = 120
TabIndex = 1
Top = 360
Width = 3015
End
End
End
Attribute VB_Name = "frmTransactionNoSearchPrintCertification"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************说明**********************************************
'*此段代码完成办件打证数据的处理和功能 *
'*2003-07-24 dww pm17:32 *
'*详细描述如下： *
'*作废一个件的含义就是将这个办件的是否作废标志字段的值改为"是" *
'*作废转换一个件的含义就是这个办件的是否作废标志字段的值改为否 *
'*但这里面的联系还是很复杂的，作废操作只能在这个件刚收件的情况 *
'*下作废，也就是说如果这个件已经收费或已经办结那窗口人员将不能 *
'*把这样的件作废，相反的作废转换的功能就是将已作废的件恢复了修 *
'*改作废标志字段的值是否作废的值为"否" *
'************************************************************************************
Private m_cn As cNeoCaption
Dim in_sCurDepartmentCode As String
Dim in_sCurItemCode As String
Dim in_sCurTransactionNo As String
'===================================================================================
Private Sub Form_Load()
'此处代码将制作一个漂亮窗体用
Set m_cn = New cNeoCaption
Skin Me, m_cn
'--------------------------------------------
Frame1.BackColor = RGB(207, 203, 207)
'--------------------------------------------
'定义SQL查询字符串
Dim SQL As String
'初始化变量其中单位代码从上一层frmShouJian传来的
in_sCurDepartmentCode = frmShouJian.inDepartmentCode
'----------------------------------------------
SQL = "where WhetherZF='否' and TransactionStatus<>'已办结'"
'--------------------------------------------
'调用自定义过程初始化受理号组合框的显示，显示当前所有为办结的受理号
Call ComboShouHaoFill(SQL)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set m_cn = Nothing
End Sub
'===================================================================================
'===================================================================================
Private Sub xpcmdbutton1_Click()
'处理确定按钮所执行的操作
'下面这段代码实现根据受理号取出该办件的基本信息决定是否进入打证的主界面
'------------------------------------------------------------------------------------
Dim sField(3, 0) As String
Dim sData() As String
Dim sDataIsEmpty As Boolean
Dim sTabName As String
Dim SQL As String
'-------------------------------------------------------------------------------------
sField(0, 0) = "ItemCode"
sField(1, 0) = "ItemName"
sField(2, 0) = "TransactionOperator"
sField(3, 0) = "WhetherALreadyCharge"
'--------------------------------------------------------------------------------------
'此处SQL查询条件进行以下修改2004-2-20 dww am 10:08
'SQl = "where WhetherZF='否' and TransactionStatus<>'已办结' and TransactionCode='" & in_sCurTransactionNo & "'"
'--------------------------------------------------------------------------------------
SQL = "where WhetherZF='否' and TransactionCode='" & in_sCurTransactionNo & "'"
sTabName = "STra" + in_sCurDepartmentCode
If Not GetDataFromTable(sField, SQL, sTabName, sData, sDataIsEmpty) Then
Exit Sub
End If
If Not sDataIsEmpty Then
frmPrintCertifciationMain.in_sCurItemCode = sData(0, 0)
frmPrintCertifciationMain.in_sCurTransactionNo = in_sCurTransactionNo
frmPrintCertifciationMain.Show
Unload Me
Else
MsgBox "你所输入的受理号不存在！", 48, "系统提示"
Unload Me
End If
End Sub
Private Sub xpcmdbutton2_Click()
'处理取消按钮所执行的操作
Unload Me
End Sub
'===================================================================================
'===================================================================================
Private Sub ComboShouLiHao_Change()
'接受受理号选择框的输入变化，主要是指直接输入受理号
in_sCurTransactionNo = Trim(ComboShouLiHao.Text)
End Sub
Private Sub ComboShouLiHao_KeyPress(KeyAscii As Integer)
'接受键盘的输入变化，主要是获得键盘的回车事件
'下面这段代码实现根据受理号取出该办件的基本信息决定是否进入打证的主界面
'------------------------------------------------------------------------------------
Dim sField(3, 0) As String
Dim sData() As String
Dim sDataIsEmpty As Boolean
Dim sTabName As String
Dim SQL As String
'-------------------------------------------------------------------------------------
sField(0, 0) = "ItemCode"
sField(1, 0) = "ItemName"
sField(2, 0) = "TransactionOperator"
sField(3, 0) = "WhetherALreadyCharge"
'--------------------------------------------------------------------------------------
SQL = "where WhetherZF='否' and TransactionCode='" & in_sCurTransactionNo & "'"
sTabName = "STra" + in_sCurDepartmentCode
If KeyAscii = 13 Then
If Not GetDataFromTable(sField, SQL, sTabName, sData, sDataIsEmpty) Then
Exit Sub
End If
If Not sDataIsEmpty Then
frmPrintCertifciationMain.in_sCurItemCode = sData(0, 0)
frmPrintCertifciationMain.in_sCurTransactionNo = in_sCurTransactionNo
frmPrintCertifciationMain.Show
Unload Me
Else
MsgBox "你所输入的受理号不存在！", 48, "系统提示"
Unload Me
End If
End If
End Sub
Private Sub ComboShouLiHao_Click()
'接受受理号选择框选择的变化
in_sCurTransactionNo = Trim(ComboShouLiHao.Text)
End Sub
'===================================================================================
'===================================================================================
Public Sub ComboShouHaoFill(in_SQLcondition As String)
'此过程的作用是用未办结或未作废的所有办件的受理号来填充组合框
'2003-07-31 dww pm18:06
Dim TransactionCode() As String
Dim isEmpty As Boolean
Dim i As Integer
If Not GetTransactionCodeForWBJFromTransactionTab(in_sCurDepartmentCode, TransactionCode, in_SQLcondition, isEmpty) Then
Exit Sub
End If
If Not isEmpty Then
For i = 0 To UBound(TransactionCode, 2) - 1
ComboShouLiHao.AddItem TransactionCode(0, i)
Next i
End If
End Sub
'===================================================================================
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -