📄 fixedmethodlist.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Begin VB.Form frmFixedMethodList
BackColor = &H80000004&
Caption = "固资变动方式列表"
ClientHeight = 3660
ClientLeft = 2190
ClientTop = 1815
ClientWidth = 6420
Icon = "FixedMethodList.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 3660
ScaleWidth = 6420
WhatsThisButton = -1 'True
WhatsThisHelp = -1 'True
Begin MSRDC.MSRDC datFixedMethod
Height = 330
Left = 5040
Top = 3240
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 582
_Version = 327681
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
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.TextBox txtfind
Height = 300
Left = 3288
TabIndex = 7
Text = "true"
Top = 90
Width = 2484
End
Begin VB.CheckBox chkShowAll
Caption = "全部显示"
Height = 350
Left = 3840
TabIndex = 3
Top = 3270
Width = 1095
End
Begin VB.CommandButton cmdAgain
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 5790
Style = 1 'Graphical
TabIndex = 5
Tag = "1017"
ToolTipText = "再找"
Top = 90
UseMaskColor = -1 'True
Width = 300
End
Begin VB.ComboBox cboFindKind
Height = 276
ItemData = "FixedMethodList.frx":0442
Left = 720
List = "FixedMethodList.frx":0444
Style = 2 'Dropdown List
TabIndex = 1
Top = 90
Width = 1776
End
Begin MSFlexGridLib.MSFlexGrid msgFixedMethod
Bindings = "FixedMethodList.frx":0446
Height = 2655
Left = 0
TabIndex = 6
Tag = "ctPayMethod////101"
Top = 480
Width = 6285
_ExtentX = 11086
_ExtentY = 4683
_Version = 65541
Rows = 20
Cols = 3
FixedCols = 0
BackColor = 16777215
BackColorFixed = -2147483644
BackColorSel = -2147483646
BackColorBkg = 16777215
Redraw = -1 'True
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 1
End
Begin MSForms.CommandButton cmdFixedMethod
Height = 345
Index = 1
Left = 1260
TabIndex = 8
Tag = "1018"
Top = 3270
WhatsThisHelpID = 5010
Width = 1215
Caption = "报表"
PicturePosition = 196613
Size = "2143;609"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label lblFind
AutoSize = -1 'True
Caption = "内容(&C)"
Height = 180
Left = 2640
TabIndex = 2
Top = 156
Width = 636
End
Begin VB.Label lblFindKind
AutoSize = -1 'True
Caption = "查找(&F)"
Height = 180
Left = 50
TabIndex = 0
Top = 150
Width = 630
End
Begin MSForms.CommandButton cmdFixedMethod
Height = 350
Index = 0
Left = 50
TabIndex = 4
Tag = "1018"
Top = 3240
WhatsThisHelpID = 5010
Width = 1215
Caption = "编辑"
PicturePosition = 196613
Size = "2143;609"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Attribute VB_Name = "frmFixedMethodList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''
' 变动方式列表
' 作者：郑权
' 日期：98.6.23
' 引出属性:IsShowCard 功能：判断变动方式卡片是否关闭
' 引入参数：msgFixedMethod 功能：判断变动方式卡片是否发出（增加或修改）改变消息
'
'''''''''''''''''''''''''''''''''''''''
Option Explicit
Private mIsShowCard As Boolean '卡片窗口显示标志
Private mblnCheckNoChange As Boolean '不需要响应chkshowAll控件Change事件
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private WithEvents mclsSubClass As SubClass32.SubClass '钩子对象
Attribute mclsSubClass.VB_VarHelpID = -1
Private WithEvents mclsSubClassform As SubClass32.SubClass
Attribute mclsSubClassform.VB_VarHelpID = -1
Private mclsList As list '列表对象
Private Const intViewID = 16
'Private mblnIsSaveListset As Boolean 'Whether or not save lngViewID in List
'
'方法及函数
'
Public Function GetListByFixedMethodID(ByVal lngID As Long) As rdoResultset
Dim recRecordset As rdoResultset
Dim Strsql As String
Strsql = "Select * From FixedMethod Where lngFixedMethodID = " & lngID
Set recRecordset = gclsBase.BaseDB.OpenResultset(Strsql, rdOpenStatic)
Set GetListByFixedMethodID = recRecordset
End Function
'产生固资变动方式列表记录集
Public Function GetList() As rdoResultset
Dim recRecordset As rdoResultset
Dim strSelectOfSql As String
Dim strFromOfSql As String
Dim strWhereOfSql As String
Dim Strsql As String
strSelectOfSql = mclsList.ListSet.SelectOfSql
strFromOfSql = mclsList.ListSet.FromOfSql
strWhereOfSql = mclsList.ListSet.WhereOfSql
strSelectOfSql = "Select FixedMethod.lngFixedMethodID As id,decode(FixedMethod.blnIsInActive,'1','√','0','') As ""停用""," & strSelectOfSql
If strWhereOfSql <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
End If
Strsql = strSelectOfSql & strFromOfSql & strWhereOfSql
Set recRecordset = gclsBase.BaseDB.OpenResultset(Strsql, rdOpenStatic)
'列表是否为空
If recRecordset.RowCount = 0 Then
msgFixedMethod.HighLight = flexHighlightNever
cmdAgain.Enabled = False
Else
msgFixedMethod.HighLight = flexHighlightAlways
cmdAgain.Enabled = True
End If
mclsList.ShowAll = True
Set GetList = recRecordset
End Function
Public Function ShowList(ByVal lngID As Long) As Boolean
Dim intCount As Integer
Dim strSortField As String
Dim strSortDec As String
Dim Strsql As String
Dim recTemp As rdoResultset
Dim strofFrom As String
Dim strofWhere As String
Me.Show
Me.ZOrder 0
With mclsList.ListSet
'得到排序字段
For intCount = 1 To .Columns
If .ColumnOrderType(intCount) <> 0 Then
strSortField = .ColumnFieldName(intCount)
strSortDec = .ColumnDesc(intCount)
Exit For
End If
Next
If intCount > .Columns Then
ShowList = False
Exit Function
End If
strofFrom = .FromOfSql
strofWhere = .WhereOfSql
End With
'根据lngID得到排序字段值
Strsql = "Select " & strSortField & " As " & strSortDec
If strofWhere <> "" Then
strofWhere = " where " & strofWhere & "and FixedMethod.lngFixedMethodID=" & lngID
Else
strofWhere = " where FixedMethod.lngFixedMethodID=" & lngID
End If
Strsql = Strsql & strofFrom & strofWhere
Set recTemp = gclsBase.BaseDB.OpenResultset(Strsql, rdOpenForwardOnly)
With recTemp
If .RowCount > 0 Then
txtfind.Text = recTemp(strSortDec) '查找
If msgFixedMethod.TextMatrix(msgFixedMethod.Row, 0) = lngID Then '是否找到
ShowList = True
Else
ShowList = False
End If
Else
ShowList = False
End If
.Close
End With
End Function
Public Property Let IsShowCard(ByVal vNewValue As Boolean)
mIsShowCard = vNewValue
End Property
Public Property Get IsShowCard() As Boolean
IsShowCard = mIsShowCard
End Property
'按照变动方式ID更新停用标志
Private Function UpdateInActiveByFixedMethod(ByVal lngID As Long, ByVal blnIsInActive As Boolean) As Boolean
Dim Strsql As String
Strsql = "UPDATE FixedMethod SET blnIsInActive = " & blnIsInActive & " WHERE lngFixedMethodID = " & lngID
UpdateInActiveByFixedMethod = gclsBase.ExecSQL(Strsql)
End Function
'删除变动方式ID指定记录
Private Function DelByFixedMethodID(ByVal lngID As Long) As Boolean
Dim Strsql As String
Strsql = "Delete * From FixedMethod Where lngFixedMethodID = " & lngID
DelByFixedMethodID = gclsBase.ExecSQL(Strsql)
End Function
'判断变动方式ID是否使用
Private Function IsUseFixedMethodID(ByVal lngID As Long) As Boolean
Dim recRecordset As rdoResultset
Dim Strsql As String
Strsql = "Select lngFixedMethodID From FixedAlter Where lngFixedMethodID = " & lngID
Set recRecordset = gclsBase.BaseDB.OpenResultset(Strsql, rdOpenStatic)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -