📄 frmprinttakan.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{8ED8CCC1-8472-46D0-93E7-F66929B98442}#2.0#0"; "xpcmd.ocx"
Begin VB.Form frmPrintTaKan
BorderStyle = 1 'Fixed Single
Caption = "现场踏勘通知书"
ClientHeight = 2835
ClientLeft = 3900
ClientTop = 3480
ClientWidth = 4500
Icon = "frmPrintTaKan.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2835
ScaleWidth = 4500
StartUpPosition = 2 '屏幕中心
Begin XPCmd.xpcmdbutton xpcmdbutton2
Height = 375
Left = 3000
TabIndex = 10
Top = 1800
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 = 1800
TabIndex = 9
Top = 1800
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 = 4800
Picture = "frmPrintTaKan.frx":1042
ScaleHeight = 720
ScaleWidth = 9600
TabIndex = 7
TabStop = 0 'False
Top = 120
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 = "frmPrintTaKan.frx":17886
ScaleHeight = 150
ScaleWidth = 1050
TabIndex = 8
TabStop = 0 'False
Top = 0
Visible = 0 'False
Width = 1050
End
End
Begin VB.Frame Frame1
Caption = "请选择"
Height = 1575
Left = 120
TabIndex = 0
Top = 120
Width = 3975
Begin VB.ComboBox Combo1
Height = 300
Left = 240
TabIndex = 6
Top = 1080
Width = 3495
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 255
Left = 2280
TabIndex = 1
Top = 480
Width = 1455
_ExtentX = 2566
_ExtentY = 450
_Version = 393216
Format = 23789569
CurrentDate = 37818
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 255
Left = 240
TabIndex = 2
Top = 480
Width = 1455
_ExtentX = 2566
_ExtentY = 450
_Version = 393216
Format = 23789569
CurrentDate = 37818
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "选择踏勘项目："
Height = 180
Left = 240
TabIndex = 5
Top = 840
Width = 1260
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "开始时间："
Height = 180
Left = 240
TabIndex = 4
Top = 240
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "结束时间： "
Height = 180
Left = 2280
TabIndex = 3
Top = 240
Width = 990
End
End
End
Attribute VB_Name = "frmPrintTaKan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'此段代码完成现场踏勘通知书的打印和预览
'在打印现场踏勘通知书时允许用户选择现场踏勘通知书的开始时间和结束时间
'以及根据需要的踏勘的项目取得某段时间内某个项目的踏勘通知书
'其中现场踏勘通知书是已模板的形式存在系统只提供现场踏勘通知书的所需的数据
'实现方法和证书打印统计报表的的方法基本上是一样的认真研究一下
'2003-07-17 dww pm18:18
'定义单位代码和单位名称接受从上一层也即收件窗体的单位代码和单位名称
Dim inDepartmentCode As String
Dim inDepartmentName As String
'定义统计的开始时间和结束时间
Dim startTime As String
Dim endTime As String
'定义接受项目名称的变量
Dim ItemName As String
'定义SQL查询的字符串和后接SQL串
Dim SQL As String
Dim SQllink As String
'定义现场踏勘通知书的标题变量和现场踏勘通知书统计日期变量
Dim TransactionTaKanTotalCaption As String
Dim TransactionTaKanTotalDate As String
'定义实现漂亮窗体的对象变量
Private m_cn As cNeoCaption
'处理窗体初始化事件
Private Sub Form_Load()
'此处代码将制作一个漂亮窗体用
'**************beautiful form
Set m_cn = New cNeoCaption
Skin Me, m_cn
'******************************
'-------------------------------------------
Frame1.BackColor = RGB(207, 203, 207)
'--------------------------------------------
'初始化单位代码和单位名称
inDepartmentCode = frmShouJian.inDepartmentCode
inDepartmentName = frmShouJian.inDepartmentName
'测试数据
'inDepartmentCode = "41010519004"
'inDepartmentName = "物价局"
'初始化项目组合框实际上调用模块中的函数取得本单位的所有项目并且初始组合框
temp = GetOneDepartmentItemName(inDepartmentCode, Combo1)
Combo1.Text = Combo1.List(0)
ItemName = LTrim(Combo1.Text)
'初始化时间选择控件使其为当前日期
DTPicker1.Value = Date
DTPicker2.Value = Date
'初始化开始时间和结束时间变量
startTime = DTPicker1.Value
endTime = DTPicker2.Value
'初始化SQL串现场踏勘通知书标题和现场通知书的统计时间
SQL = " where 开始时间='" & startTime & "'"
TransacationTaKanTotalCaption = startTime & " " & inDepartmentName & "现场踏勘通知书"
TransactionTaKanTotalDate = startTime
End Sub
'处理组合框选择将选择结果放入变量中
Private Sub Combo1_Click()
ItemName = LTrim(Combo1.Text)
End Sub
'处理确定按钮的 操作
Private Sub xpcmdbutton1_Click()
'定义现场踏勘信息数据数组和经过处理的最后数组也即去掉尾随空格的数据
Dim TransactionTaKanInfo() As String
Dim TransactionTaKanInfoLast() As String
'定义现场踏勘通知书统计个数和标志变量标志现场踏勘通知书数据是否为空
Dim TransactionTaKanTotal As String
Dim isEmpty As Boolean
'对开始时间和结束时间进行判断生成查询SQL串的一部分和现场踏勘通知书的标题
If CDate(startTime) = CDate(endTime) Then
SQL = "where 开始时间='" & CDate(startTime) & "'"
TransactionTaKanTotalCaption = startTime & " " & inDepartmentName & "现场踏勘通知书"
Else
If CDate(startTime) < CDate(endTime) Then
SQL = "where (开始时间>='" & CDate(startTime) & "') " & "and( 开始时间<='" & CDate(endTime) & "')"
TransactionTaKanTotalCaption = "从 " & startTime & " 止 " & endTime & " " & inDepartmentName & " 现场踏勘通知书"
Else
DTPicker2.Value = CDate(startTime)
SQL = "where 开始时间='" & CDate(startTime) & "'"
TransactionTaKanTotalCaption = startTime & inDepartmentName & "现场踏勘通知书"
End If
End If
'判断是否选择了项目默认的是所有项目以及生成SQL串的后一部分
If ItemName <> "全部项目" Then
SQllink = " and 项目名称='" & ItemName & "'"
Else
SQllink = ""
End If
'调用模块中的函数取得现场踏勘通知书的的数据强调以下输入参数是SQL查询字符串和单位代码
'输出参数是现场踏勘通知书的数据数组和反映该数组是否为空的标志变量
If Not GetTransactionTaKanInfo(inDepartmentCode, TransactionTaKanInfo, SQL & SQllink, isEmpty) Then
Exit Sub
End If
'在标志变量非空的情况下执行以下操作
If Not isEmpty Then
'调用自定义函数去掉尾随空格防止
If Not DLtrim(TransactionTaKanInfo, TransactionTaKanInfoLast) Then
Exit Sub
End If
'取得现场通知书的个数
TransactionTaKanTotal = UBound(TransactionTaKanInfoLast, 1)
'调用模块中的过程取创建现场踏勘通知书的数据源并且实现打印预览
Call createReportTransactionTaKanInfoDataSourceAndShow(TransactionTaKanInfoLast, TransactionTaKanTotalCaption, TransactionTaKanTotal, TransactionTaKanTotalDate)
Else
'当标志变量为空时系统提示错误信息
MsgBox startTime & "今天还没有现场踏勘通知书！", 48, "系统提示"
Unload Me
Exit Sub
End If
End Sub
Private Sub xpcmdbutton2_Click()
Unload Me
End Sub
Private Sub DTPicker1_Change()
startTime = DTPicker1.Value
End Sub
Private Sub DTPicker2_Change()
endTime = DTPicker2.Value
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -