📄 frmdlselectpurchasereceipt.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 = "{9C4B12C2-D5CE-11D1-9ABC-444553540000}#1.0#0"; "GATLCTRL.DLL"
Begin VB.Form frmdlSelectPurchaseReceipt
Caption = "选择采购订单"
ClientHeight = 4455
ClientLeft = 1260
ClientTop = 1350
ClientWidth = 8205
LinkTopic = "Form1"
ScaleHeight = 4455
ScaleWidth = 8205
Begin GATLCTRLLibCtl.CalEdit ytext
Height = 255
Left = 6960
OleObjectBlob = "frmdlSelectPurchaseReceipt.frx":0000
TabIndex = 11
Top = 2880
Visible = 0 'False
Width = 975
End
Begin VB.Data Datadl
Caption = "Datadl"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 375
Left = 6600
Options = 0
ReadOnly = 0 'False
RecordsetType = 2 'Snapshot
RecordSource = ""
Top = 4080
Visible = 0 'False
Width = 1815
End
Begin VB.CommandButton Cmdall
Caption = "栏目设置"
Height = 350
Index = 3
Left = 6840
TabIndex = 14
Top = 1560
Width = 1215
End
Begin VB.CommandButton Cmdall
Caption = "筛选"
Height = 350
Index = 2
Left = 6840
TabIndex = 13
Top = 1200
Width = 1215
End
Begin VB.CommandButton Cmdall
Height = 350
Index = 1
Left = 6840
Style = 1 'Graphical
TabIndex = 10
Top = 720
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton Cmdall
Height = 350
Index = 7
Left = 6840
Style = 1 'Graphical
TabIndex = 9
Top = 360
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton Cmdall
Caption = "全部取消"
Height = 350
Index = 6
Left = 6840
Style = 1 'Graphical
TabIndex = 3
Top = 2400
Width = 1215
End
Begin VB.CommandButton Cmdall
Enabled = 0 'False
Height = 350
Index = 4
Left = 7350
Style = 1 'Graphical
TabIndex = 1
Top = 3540
UseMaskColor = -1 'True
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton Cmdall
Caption = "全部选择"
Height = 350
Index = 5
Left = 6840
TabIndex = 2
Top = 2040
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid msgGrid
Bindings = "frmdlSelectPurchaseReceipt.frx":0081
Height = 3495
Left = 120
TabIndex = 0
Top = 360
Width = 6615
_ExtentX = 11668
_ExtentY = 6165
_Version = 65541
Rows = 100
Cols = 65
BackColor = 16777215
SelectionMode = 1
End
Begin MSForms.Label Lbbz
Height = 255
Index = 1
Left = 5760
TabIndex = 12
Top = 120
Width = 975
Size = "1720;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin VB.Label hLb
BackColor = &H80000014&
Caption = "0"
Height = 255
Index = 0
Left = 480
TabIndex = 8
Top = 3960
Width = 855
End
Begin VB.Label hLb
BackColor = &H80000014&
Caption = "0"
Height = 255
Index = 1
Left = 1680
TabIndex = 7
Top = 3960
Width = 855
End
Begin MSForms.Label lbdw
Height = 255
Left = 600
TabIndex = 6
Top = 120
Width = 4305
Size = "7594;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Lbbz
Height = 255
Index = 0
Left = 5280
TabIndex = 5
Top = 120
Width = 615
Caption = "币种："
Size = "1085;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label1
Height = 255
Index = 0
Left = 78
TabIndex = 4
Top = 120
Width = 615
Caption = "单位："
Size = "1085;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin VB.Menu menuchk
Caption = ""
Visible = 0 'False
Begin VB.Menu chklist1
Caption = "全部选择"
End
Begin VB.Menu menbar1
Caption = "-"
End
Begin VB.Menu chklist2
Caption = "全部取消"
End
End
End
Attribute VB_Name = "frmdlSelectPurchaseReceipt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'标题：选择采购订单
'作者：邓普德
'日期：1998.07.02
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private CustomerID As Long '单位ID
Private CurrencyID As Long '币种ID
Private DetailID As Long 'DetailID为单据业务ID
Private WithEvents mclsGrid As NewGrid '声明类模块
Attribute mclsGrid.VB_VarHelpID = -1
Private mlhls As rdoResultset '声明数据表类型
Private hldate As Date '声明系统期间日期
Private strWorkID As String '在筛选或栏目设置时需保留的ID串
Private ytextRow As Integer '记录当前FLEXGRID单元的行号
Private ytextCol As Integer '记录当前FLEXGRID单元的列号
Private Customernm As String '单位名称
Private Currencynm As String '币种名称
Private Const intViewID = 97 '视图ID号
Private Const intfixl = 36 '列偏移行数
Private Const msgcaption = "选择采购订单" 'SHOWMSG窗体的标题名称
Private Const intFormHeight = 4018 '当前窗体的最小高度
Private Const intFormWidth = 7368 '当前窗体的最小宽度
Private mblnFormNoRezise As Boolean '窗体是否允许Resize
Private isinit As Boolean '窗体金额栏是否需要汇总
Private blnIsPurchase As Boolean '窗体单据是否为受托入库
Private mfrmToFormname As Object '输出窗体的名称
Private blnIsCancel As Boolean '按钮退出吗
Private bsdate As Base 'Base声明
'响应完全结算菜单
Private Sub chklist1_Click()
BalenceAll
End Sub
Private Sub BalenceAll() '完全结算
Dim intCount As Integer, k As Integer, i As Integer, n As Integer
Dim xx As Double
i = intfixl
k = intfixl
n = intfixl
'本循环找出本次收款及本次折扣所在的列
' While (msgGrid.TextMatrix(0, i) <> "未到金额")
' i = i + 1
' Wend
' While (msgGrid.TextMatrix(0, k) <> "未到数量")
' k = k + 1
' Wend
While (msgGrid.TextMatrix(0, n) <> "关闭")
n = n + 1
Wend
ytextRow = 1
'响应完全结算菜单
While ytextRow < msgGrid.Rows
'打√情况
If Trim(msgGrid.TextMatrix(ytextRow, n)) <> "√" Then
msgGrid.TextMatrix(ytextRow, 1) = "√"
' xx = getnumber(ytextRow, 5) - getnumber(ytextRow, i)
' hlb(i).Caption = CStr(CDbl(IIf(Len(hlb(i).Caption) = 0, "0", hlb(i).Caption)) + xx)
' msgGrid.TextMatrix(ytextRow, k) = msgGrid.TextMatrix(ytextRow, 4)
' msgGrid.TextMatrix(ytextRow, i) = msgGrid.TextMatrix(ytextRow, 5)
'总结算总折扣金额及数量的更新
End If
ytextRow = ytextRow + 1
Wend
End Sub
'响应完全取消菜单
Private Sub chklist2_Click()
AbolishAll
End Sub
Private Sub AbolishAll()
'完全取消
Dim k As Integer, i As Integer, n As Integer
'响应完全取消菜单
i = intfixl
k = intfixl
n = intfixl
'本循环找出本次收款及本次折扣所在的列
' While (msgGrid.TextMatrix(0, i) <> "未到金额")
' i = i + 1
' Wend
' While (msgGrid.TextMatrix(0, k) <> "未到数量")
' k = k + 1
' Wend
While (msgGrid.TextMatrix(0, n) <> "关闭")
n = n + 1
Wend
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -