📄 frmcontractreport.frm
字号:
VERSION 5.00
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "GADATE.DLL"
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.3#0"; "OraGList.ocx"
Begin VB.Form frmContractReport
Caption = "合同汇总表"
ClientHeight = 6015
ClientLeft = 60
ClientTop = 345
ClientWidth = 8220
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6015
ScaleWidth = 8220
Begin VB.CommandButton cmdSave
Caption = "保存(&V)"
Height = 350
Left = 5190
Style = 1 'Graphical
TabIndex = 23
Top = 5520
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdDel
Caption = "删除(&D)"
Height = 350
Left = 6480
Style = 1 'Graphical
TabIndex = 22
Top = 5520
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdFilter
Caption = "筛选(&F)"
Height = 350
Left = 90
Style = 1 'Graphical
TabIndex = 19
Top = 5520
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdColset
Caption = "栏目设置(&S)"
Height = 350
Left = 1350
Style = 1 'Graphical
TabIndex = 18
Top = 5520
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdPrint
Height = 350
Left = 3870
Style = 1 'Graphical
TabIndex = 17
Tag = "1012"
Top = 5520
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton CmdGoto
Height = 350
Left = 2610
Style = 1 'Graphical
TabIndex = 16
Tag = "1010"
Top = 5520
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdAgain
BeginProperty Font
Name = "Arial Black"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 6180
Style = 1 'Graphical
TabIndex = 5
Tag = "1017"
Top = 60
UseMaskColor = -1 'True
Width = 300
End
Begin VB.TextBox txtContent
Height = 300
Left = 3285
TabIndex = 6
Top = 60
Width = 2895
End
Begin VB.ComboBox cmbFind
Height = 300
Left = 840
Style = 2 'Dropdown List
TabIndex = 4
Top = 60
Width = 1545
End
Begin ListRefer.ListText lstJob
Height = 300
Left = 1050
TabIndex = 3
Top = 990
Width = 1995
_ExtentX = 3519
_ExtentY = 529
CodeSort = -1 'True
AutoPop = 0 'False
BackColor = -2147483643
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 picBook
Height = 3345
Left = 120
ScaleHeight = 3285
ScaleWidth = 7485
TabIndex = 0
Top = 1830
Width = 7545
End
Begin ListRefer.ListText lstContract
Height = 300
Left = 1050
TabIndex = 9
Top = 1440
Width = 1995
_ExtentX = 3519
_ExtentY = 529
CodeSort = -1 'True
AutoPop = 0 'False
BackColor = -2147483643
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 ListRefer.ListText lstPay
Height = 300
Left = 3990
TabIndex = 12
Top = 1410
Width = 1995
_ExtentX = 3519
_ExtentY = 529
CodeSort = -1 'True
AutoPop = 0 'False
SeekCol = "1,2"
BackColor = -2147483643
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 GACALENDARLibCtl.Calendar detEnd
Height = 300
Left = 1080
OleObjectBlob = "frmContractReport.frx":0000
TabIndex = 14
Top = 540
Width = 1335
End
Begin GACALENDARLibCtl.Calendar detUse
Height = 300
Left = 4800
OleObjectBlob = "frmContractReport.frx":0089
TabIndex = 15
Top = 510
Width = 1335
End
Begin ListRefer.ListText lstReport
Height = 300
Left = 4890
TabIndex = 20
Top = 870
Width = 2355
_ExtentX = 4154
_ExtentY = 529
CodeSort = -1 'True
AutoPop = 0 'False
SeekCol = "1,2"
BackColor = -2147483643
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.Label lblReport
AutoSize = -1 'True
Caption = "预算批复表："
Height = 180
Left = 3720
TabIndex = 21
Top = 960
Width = 1080
End
Begin VB.Label lblPay
AutoSize = -1 'True
Caption = "付款方："
Height = 180
Left = 3180
TabIndex = 13
Top = 1500
Width = 720
End
Begin VB.Label lblUse
AutoSize = -1 'True
Caption = "预计用款日期："
Height = 180
Left = 3150
TabIndex = 11
Top = 600
Width = 1260
End
Begin VB.Label lblCon
AutoSize = -1 'True
Caption = "合同号："
Height = 180
Left = 150
TabIndex = 10
Top = 1500
Width = 720
End
Begin VB.Label lblFind
Caption = "查找(&B)"
DragMode = 1 'Automatic
Height = 210
Left = 120
TabIndex = 8
Top = 105
Width = 690
End
Begin VB.Label lblContent
Caption = "内容(&C)"
Height = 225
Left = 2505
TabIndex = 7
Top = 105
Width = 750
End
Begin VB.Label lblJob
AutoSize = -1 'True
Caption = "工程项目："
Height = 180
Left = 120
TabIndex = 2
Top = 1050
Width = 900
End
Begin VB.Label lblDate
AutoSize = -1 'True
Caption = "截止日期："
Height = 180
Left = 120
TabIndex = 1
Top = 630
Width = 900
End
End
Attribute VB_Name = "frmContractReport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const conHeight = 5500 '窗体最小高度
Const conWidth = 8880 '窗体最小宽度
Const conDownTop = 885 '筛选按钮Top到窗体底部的距离
Const conLeft = 120 '控件与窗体左边框间的距离
Const conRight = 200 '控件与窗体右边框间的距离
Const conRowComp = 120 '行间隔
Const conCtlComp = 50 '控件间隔
Private mrtBook As ReportType
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private mclsListSet As ListSet
Private WithEvents mGrid As WINCTRLLib.DBGridCtrl
Attribute mGrid.VB_VarHelpID = -1
Private mrstData As rdoResultset
Private mblnChoose As Boolean
Private mlngJobID As Long
Private mlngOrderID As Long
Private mlngPayID As Long
Private mintPayLoc As Integer
Private mintPayCount As Integer
Private mstrPay() As String
Private mstrOrder As String
Private mintOldCol As Integer
Private mblnDel As Boolean
Private mstrOldEnd As String
Private mstrOldUse As String
Private mblnNotFind As Boolean
Private mlngLastPosition As Long
Private mintMoneyCol As Integer
Private mbytOrder As Byte '排序方式：1=升序 2=降序
Private mlngRatifyID As Long
Private mintCount As Integer
Private mintRequire As Integer
'加列标题
Private Sub AddColTitle()
Dim intCol As Integer, intCols As Integer, intColumn As Integer
Dim intCount As Integer
intCols = mrstData.rdoColumns.Count
With mGrid
.ClipCell = 1
.SetBorder 0, -1, 1 + 2
.SetColBorder 0, intCols, 1, 0, 2
.SelectionMode = 1
.FixedRows = 2
.ResizeCol = 1
.FixedCols = 0
.SetOption -1, -1, 0, -1, -1, -1, -1, -1
intCol = 0
intColumn = 1
Do While intCol <= .Cols - 1
If intColumn <= mclsListSet.Columns Then
If intCol = mintPayLoc - 1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -