📄
字号:
VERSION 5.00
Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frm_newroportw
BorderStyle = 3 'Fixed Dialog
ClientHeight = 5820
ClientLeft = 45
ClientTop = 330
ClientWidth = 8040
Icon = "新建报表.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5820
ScaleWidth = 8040
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VSFlex8Ctl.VSFlexGrid vsFlexGrid1
Height = 4695
Left = 165
TabIndex = 3
Top = 510
Width = 7695
_ExtentX = 13573
_ExtentY = 8281
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = -2147483643
ForeColor = -2147483640
BackColorFixed = -2147483633
ForeColorFixed = -2147483630
BackColorSel = -2147483635
ForeColorSel = -2147483634
BackColorBkg = -2147483636
BackColorAlternate= -2147483643
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 1
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 0
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 50
Cols = 10
FixedRows = 1
FixedCols = 0
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0 'False
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
End
Begin VB.CommandButton Command1
Caption = "确定(&O)"
Height = 300
Left = 5670
TabIndex = 2
Top = 5430
Width = 1120
End
Begin MSComctlLib.TabStrip TabStrip1
Height = 5235
Left = 90
TabIndex = 1
Top = 90
Width = 7860
_ExtentX = 13864
_ExtentY = 9234
ShowTips = 0 'False
TabMinWidth = 3528
_Version = 393216
BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
NumTabs = 1
BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = " 请选择报表模板"
ImageVarType = 2
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CommandButton Command3
Caption = "取消(&C)"
Height = 300
Left = 6825
TabIndex = 0
Top = 5430
Width = 1120
End
End
Attribute VB_Name = "frm_newroportw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***********************************************
'* 模 块 名 称 :新建报表
'* 功 能 描 述 :
'* 程序员姓名 :奚俊峰
'* 最后修改人 :奚俊峰
'* 最后修改时间:2002/01/21
'***********************************************
Option Explicit
Dim temp_makvalidate As Boolean
Dim wgdmtemp As String
Dim Qslz As Long
Dim Sjhgd As Double
Dim Szzls As Integer
Dim wgszxx() As Variant '整个网格设置信息
Dim wglxx() As String '网格列其他信息
Dim Wblrxz() As Integer '文本框录入(事中)限制
Dim Wbbjsx() As Boolean '(1-锁定某列使其不可编辑 2-是否提供帮助 3-是否列表框录入 4-字段不能为空控制)
Private Sub Cxnrtcwg()
Dim Sqlstr As String
Dim jsqte As Long
Dim Cxnrrec As ADODB.Recordset
'查询连接串
Sqlstr = "select report_model_id,report_model_name,user_id,canmakdate from dzbb_bbmb where system_code='" & Left(ls_xtbm, 2) & "' and report_model_id in (select report_model_id from dzbb_right where system_code='" & Left(ls_xtbm, 2) & "' and bbuser_id ='" & Xtczybm & "' and editflag=1) order by system_code,report_model_id"
Set Cxnrrec = Cw_DataEnvi.dataconnect.Execute(Sqlstr)
Edit_Flag = True
With Cxnrrec
If .EOF And .BOF Then
vsFlexGrid1.Clear , flexClearData
vsFlexGrid1.Rows = .RecordCount + vsFlexGrid1.FixedRows
vsFlexGrid1.Redraw = True
Exit Sub
Else
vsFlexGrid1.Redraw = False
vsFlexGrid1.Clear , flexClearData
vsFlexGrid1.Rows = .RecordCount + vsFlexGrid1.FixedRows
End If
jsqte = vsFlexGrid1.FixedRows
Do While Not .EOF
If jsqte >= vsFlexGrid1.Rows Then
vsFlexGrid1.AddItem ""
End If
Call Jltcwg(Cxnrrec, jsqte)
vsFlexGrid1.RowHeight(jsqte) = Sjhgd
.MoveNext
jsqte = jsqte + 1
Loop
End With
vsFlexGrid1.Redraw = True
Set Cxnrrec = Nothing
End Sub
Private Sub Jltcwg(Jlbrec As ADODB.Recordset, Rowjsq As Long) '记录内容填充网格
'[以下为自定义部分
With Jlbrec
vsFlexGrid1.TextMatrix(Rowjsq, Sydz("001", wglxx(), Szzls)) = Trim(.Fields("report_model_id"))
vsFlexGrid1.TextMatrix(Rowjsq, Sydz("002", wglxx(), Szzls)) = Trim(.Fields("report_model_name"))
vsFlexGrid1.TextMatrix(Rowjsq, Sydz("003", wglxx(), Szzls)) = Trim(.Fields("user_id"))
vsFlexGrid1.TextMatrix(Rowjsq, Sydz("004", wglxx(), Szzls)) = Trim(.Fields("canmakdate"))
End With
'以上为自定义部分]
End Sub
Private Sub Command1_Click() '设置控件和窗体并完成预览及生成报表
If Me.vsFlexGrid1.Rows = Me.vsFlexGrid1.FixedRows Then
Exit Sub
End If
With MDI_frame
.mb_new_report = True
.mcls_new_report.ls_system_code = ls_xtbm
.mcls_new_report.ls_report_model_id = vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 0)
.mcls_new_report.ls_report_model_name = vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 1)
End With
Unload Me
End Sub
Private Sub Command3_Click()
MDI_frame.mb_new_report = False
Unload Me
End Sub
Private Sub Form_Load() '初始化
Dim i As Integer
'调 入 网 格
wgdmtemp = "dzbb_bbmb"
Call BzWgcsh(vsFlexGrid1, wgdmtemp, wgszxx(), Wbbjsx(), Wblrxz(), wglxx())
Qslz = wgszxx(1)
Sjhgd = wgszxx(2)
Szzls = vsFlexGrid1.Cols - 1
'填 充 网 格
Me.Caption = "生成报表向导"
Call Cxnrtcwg
End Sub
Private Sub vsFlexGrid1_DblClick()
Call Command1_Click
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -