📄 frmdlcommisionbalence.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 frmdlCommisionBalence
Caption = "委托代销结算"
ClientHeight = 4455
ClientLeft = 1260
ClientTop = 1350
ClientWidth = 8205
Icon = "frmdlCommisionBalence.frx":0000
LinkTopic = "Form1"
ScaleHeight = 4455
ScaleWidth = 8205
Begin GATLCTRLLibCtl.CalEdit ytext
Height = 255
Left = 7020
OleObjectBlob = "frmdlCommisionBalence.frx":000C
TabIndex = 9
Top = 2940
Visible = 0 'False
Width = 915
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 = 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 = 7020
Style = 1 'Graphical
TabIndex = 1
Top = 3420
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 = "frmdlCommisionBalence.frx":008D
Height = 3495
Left = 90
TabIndex = 0
Top = 360
Width = 6615
_ExtentX = 11668
_ExtentY = 6165
_Version = 65541
Rows = 150
Cols = 75
BackColor = -2147483633
End
Begin VB.Label hLb
BackColor = &H80000009&
Caption = "0"
Height = 255
Index = 1
Left = 1320
TabIndex = 14
Top = 3960
Width = 855
End
Begin VB.Label hLb
BackColor = &H80000009&
Caption = "0"
Height = 255
Index = 0
Left = 120
TabIndex = 13
Top = 3960
Width = 855
End
Begin MSForms.Label Lbb
Height = 255
Index = 1
Left = 5670
TabIndex = 10
Top = 120
Width = 945
Size = "1667;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 = 5190
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 = "frmdlCommisionBalence"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'标题：委托结算
'作者：邓普德
'日期：1998.07.02
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 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(blnCancel=True Ytext不离开Grid上对应单元焦点,blnCancel=False Ytext离开Grid上对应单元焦点)。
'出口参数: 无。
' 功能 ：当窗体中的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(blnCancel=True 不用Ytext的值替换Grid上对应单元焦点的值,blnCancel=False 用Ytext的值替换Grid上对应单元焦点的值)。
'出口参数: 无。
' 功能: 保存yText得到焦点时的数字值
'15、Private Sub ExitGrid()
'入口参数: 无。
'出口参数: 无。
' 功能: 不存盘无条件返回加工结算单据。
'16、Private Sub chklist1_Click（）
'入口参数: 无。
'出口参数: 无。
'调用函数：AutomAlign（）
' 功能: 响应完全结算菜单的动作
'17、Private Sub chklist2_Click（）
'入口参数: 无。
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -