📄 frmdlpayment.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"
Object = "{9C4B12C2-D5CE-11D1-9ABC-444553540000}#1.0#0"; "GATLCTRL.DLL"
Begin VB.Form frmdlPayment
BorderStyle = 3 'Fixed Dialog
Caption = "应付核销"
ClientHeight = 5310
ClientLeft = 1245
ClientTop = 1335
ClientWidth = 8205
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5310
ScaleWidth = 8205
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin GATLCTRLLibCtl.CalEdit txtEdit
Height = 270
Left = 6870
OleObjectBlob = "frmdlPayment.frx":0000
TabIndex = 16
Top = 45
Width = 1095
End
Begin VB.CommandButton cmdall
Height = 350
Index = 0
Left = 6840
Style = 1 'Graphical
TabIndex = 15
Top = 2940
UseMaskColor = -1 'True
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton cmdall
Enabled = 0 'False
Height = 350
Index = 5
Left = 6840
Style = 1 'Graphical
TabIndex = 14
Tag = "1010"
Top = 2400
UseMaskColor = -1 'True
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton cmdall
Caption = "栏目设置"
Height = 350
Index = 4
Left = 6840
TabIndex = 13
Top = 1920
Width = 1215
End
Begin VB.CommandButton cmdall
Caption = "筛选"
Height = 350
Index = 3
Left = 6840
TabIndex = 12
Top = 1560
Width = 1215
End
Begin VB.CommandButton cmdall
Caption = "自动分配"
Height = 350
Index = 2
Left = 6840
TabIndex = 11
Top = 1200
Width = 1215
End
Begin VB.CommandButton cmdall
Height = 350
Index = 1
Left = 6840
Style = 1 'Graphical
TabIndex = 10
Tag = "1002"
Top = 720
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdall
Height = 350
Index = 6
Left = 6840
Style = 1 'Graphical
TabIndex = 9
Tag = "1001"
Top = 360
UseMaskColor = -1 'True
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid msgGrid
Bindings = "frmdlPayment.frx":0081
Height = 4470
Left = 75
TabIndex = 0
Top = 360
Width = 6615
_ExtentX = 11668
_ExtentY = 7885
_Version = 65541
Rows = 10
Cols = 65
FixedCols = 2
BackColor = 16777215
End
Begin MSRDC.MSRDC datAP
Height = 495
Left = 0
Top = 3240
Width = 1815
_ExtentX = 3201
_ExtentY = 873
_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.Label hLb
Alignment = 1 'Right Justify
BackColor = &H80000014&
Height = 255
Index = 0
Left = 450
TabIndex = 8
Top = 4890
Width = 855
End
Begin VB.Label hLb
Alignment = 1 'Right Justify
BackColor = &H80000014&
Height = 255
Index = 1
Left = 1650
TabIndex = 7
Top = 4890
Width = 855
End
Begin MSForms.Label lblPayAmount
Height = 255
Left = 5400
TabIndex = 6
Top = 120
Width = 1455
Caption = "0"
Size = "2566;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label lblCurrency
Height = 225
Left = 3330
TabIndex = 5
Top = 120
Width = 225
VariousPropertyBits= 268435483
Size = "397;397"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label lblCustomer
Height = 255
Left = 600
TabIndex = 4
Top = 120
Width = 2025
Size = "3572;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label lblNote
Height = 255
Index = 2
Left = 4320
TabIndex = 3
Top = 120
Width = 1215
Caption = "可核销金额："
Size = "2143;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label lblNote
Height = 255
Index = 1
Left = 2790
TabIndex = 2
Top = 120
Width = 555
Caption = "币种："
Size = "979;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label lblNote
Height = 255
Index = 0
Left = 78
TabIndex = 1
Top = 120
Width = 615
Caption = "单位："
Size = "1085;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin VB.Menu mnuPopup
Caption = ""
Visible = 0 'False
Begin VB.Menu mnuCheckAll
Caption = "完全核销"
End
Begin VB.Menu menbar1
Caption = "-"
End
Begin VB.Menu mnuUndoCheck
Caption = "取消核销"
End
End
End
Attribute VB_Name = "frmdlPayment"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'标题：应付款核销
'日期：1998.07.02 关于本程序的详细注释请参见窗体frmdlPayment
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'功能: 将生成的业务、商品、期初SQL语句中的Where部分中的标志转换成相应的表达式。
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Const msgcaption = "应付款核销" 'SHOWMSG窗体的标题名称
Private Const mintFormHeight = 4018 '当前窗体的最小高度
Private Const mintFormWidth = 7368 '当前窗体的最小宽度
Private Const mintViewID1 = 66 '视图ID号
Private Const mintViewID2 = 67 '视图ID号
Private Const mintViewID3 = 68 '视图ID号
Private Const mlngOffsetCol = 12 '列偏移行数
Private Const mintARAPFlagCol = 0
Private Const mintDetailIDCol = 1
Private Const mintTableIDCol = 2
Private Const mintCheckCol = 3
Private Const mintLastChkAmtCol = 4
Private Const mintLastChkQtyCol = 5
Private Const mintLastBalAmtCol = 6
Private Const mintLastBalQtyCol = 7
Private Const mintTotalQtyCol = 8
Private Const mintTotalAmtCol = 9
Private Const mintFactorCol = 10
Private Const mintIDSourceCol = 11
Private mintEditAmtCol As Integer
Private mintEditQtyCol As Integer
Private mintBalAmtCol As Integer
Private mintBalQtyCol As Integer
Private mstrCommWhere As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -