📄 frmdlcommisiongoods.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 frmdlCommisionGoods
Caption = "委托代销商品调拨资料"
ClientHeight = 4455
ClientLeft = 1260
ClientTop = 1350
ClientWidth = 8205
LinkTopic = "Form1"
ScaleHeight = 4455
ScaleWidth = 8205
Begin GATLCTRLLibCtl.CalEdit ytext
Height = 255
Left = 6960
OleObjectBlob = "frmdlCommisionGoods.frx":0000
TabIndex = 9
Top = 2940
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 = 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 = 8
Top = 720
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton Cmdall
Height = 350
Index = 7
Left = 6840
Style = 1 'Graphical
TabIndex = 7
Top = 390
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 = 6930
Style = 1 'Graphical
TabIndex = 1
Top = 3390
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 = "frmdlCommisionGoods.frx":0081
Height = 3495
Left = 90
TabIndex = 0
Top = 360
Width = 6615
_ExtentX = 11668
_ExtentY = 6165
_Version = 65541
Rows = 150
Cols = 75
BackColor = 16777215
End
Begin VB.Label hLb
BackColor = &H80000014&
Caption = "0"
Height = 255
Index = 1
Left = 1320
TabIndex = 14
Top = 3960
Width = 855
End
Begin VB.Label hLb
BackColor = &H80000014&
Caption = "0"
Height = 255
Index = 0
Left = 120
TabIndex = 13
Top = 3960
Width = 855
End
Begin MSForms.Label Lbb
Height = 255
Index = 1
Left = 5820
TabIndex = 10
Top = 120
Width = 915
Size = "1614;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
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 Lbb
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 = "frmdlCommisionGoods"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'标题：委托代销商品调拨结算
'作者：邓普德
'日期：1998.07.18
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 1、Private Sub inittext()
'入口参数: 无。
'出口参数: 无。
' 功能: 进行初始化窗体的具体工作。
' 2、Private Sub GetList()
'入口参数：无，但引用了视图ID常量
'出口参数: 无。
'调用函数: inittext
' 功能: 取出、生成完整的联合SQL语句并打开它、初始化窗体。由窗体的主函数调用。
' 3、Private Sub Form_Resize()
'入口参数: 无。
'出口参数: 无。
' 功能：当窗体的大小改变时，进行其内部的控件的位置与大小的调整工作。
' 4、Private Sub RedrawForm()
'入口参数: 无。
'出口参数: 无。
' 功能：当窗体的大小改变时，进行其内部的控件的位置与大小的具体调整工作。
' 5、Private Function getnumber(getx As Integer, gety As Integer) As Double
'入口参数：getx（Integer）为Flexgrid所在的行号；gety（Integer）为Flexgrid所在的列号。
'出口参数：getnumber（Double）为本函数从Flexgrid所在的行和列取得的数据。
' 功能: 从Flexgrid所在的行和列取得的数据。
' 6、Private Sub msgGrid_Click()
'入口参数: 无。
'出口参数: 无。
' 功能：当在Flexgrid上有鼠标单击动作时激活此函数，主要用于打√调拨与取消打√调拨工作。
' 7、Private Sub mclsGrid_DataValid(blnCancel)
'入口参数: blnCancel。
'出口参数: 无。
' 功能：当窗体中的ytext控件失去焦点时激活此函数，主要用于Flexgrid上调拨金额、及调拨数量的管理工作。
'8、Private Sub SaveData()
'入口参数: 无。
'出口参数: 无。
' 功能: 进行Flexgrid的存盘工作。
'9、Private Sub BalenceAll()
'入口参数: 无。
'出口参数: 无。
' 功能: 进行可结算金额的自动分配工作。
'10、Private Sub AbolishAll()
'入口参数: 无。
'出口参数: 无。
' 功能: 完全取消当前的结算工作。
' 11、Private Sub FilterData()
'入口参数: 无。
'出口参数: 无。
' 功能: 进行委托加工资料的筛选工作。
' 12、Private Sub SetColumn()
'入口参数: 无。
'出口参数: 无。
' 功能: 进行Flexgrid的栏目设置工作。
' 13、Private Sub RelationData()
'入口参数: 无。
'出口参数: 无。
' 功能: 进行Flexgrid中记录的关联工作。
'14、Private Sub mclsGrid_BeforeSave(blnCancel)
'入口参数: blnCancel。
'出口参数: 无。
' 功能: 保存yText得到焦点时的数字值
'15、Private Sub ExitGrid()
'入口参数: 无。
'出口参数: 无。
' 功能: 不存盘无条件返回加工结算单据。
'16、Private Sub chklist1_Click（）
'入口参数: 无。
'出口参数: 无。
'调用函数：AutomAlign（）
' 功能: 响应完全结算菜单的动作
'17、Private Sub chklist2_Click（）
'入口参数: 无。
'出口参数: 无。
'调用函数：AbolishAll（）
' 功能: 响应完全取消结算菜单的动作
'18、Private Sub Cmdall_Click(Index As Integer)
'入口参数：Index(Integer)按钮索引序号。
'出口参数: 无。
'调用函数：SaveData（）、CancelGrid（）、FilterData（）、SetColumn（）、AutomAlign（）、
' 功能: 响应cmdall按钮的对应动作
'19、Public Sub GivemeParameter(ywID As Long)
'入口参数：ywID (Long)收、加工入库单业务ID号
'出口参数: 无。
' 功能: 实现本程序同系统其它程序之间的接口。
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private CustomerID As Long '单位ID
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -