📄 frmdlselectinvoicein.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 = "{EDEC951D-FC76-11D1-9ABD-444553540000}#2.1#0"; "CALCEDIT.OCX"
Begin VB.Form frmdlSelectInvoiceIn
Caption = "选择开票入库资料结算"
ClientHeight = 4455
ClientLeft = 1260
ClientTop = 1350
ClientWidth = 8205
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4455
ScaleWidth = 8205
Begin VB.Data Datadl
Caption = "Datadl"
Connect = "Access"
DatabaseName = "\\SQLSERVER\Root\Accounts98 Document\设计\Gasoft1998.mdb"
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 = 16
Top = 1560
Width = 1215
End
Begin VB.CommandButton Cmdall
Caption = "筛选"
Height = 350
Index = 2
Left = 6840
TabIndex = 15
Top = 1200
Width = 1215
End
Begin ACEdit.CalcEdit ytext
Height = 255
Left = 6960
TabIndex = 13
Top = 120
Visible = 0 'False
Width = 975
_ExtentX = 1720
_ExtentY = 450
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = "0"
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.CommandButton Cmdall
Height = 350
Index = 1
Left = 6840
Style = 1 'Graphical
TabIndex = 12
Top = 720
Width = 1215
End
Begin VB.CommandButton Cmdall
Height = 350
Index = 0
Left = 6840
Style = 1 'Graphical
TabIndex = 10
Top = 360
Width = 1215
End
Begin VB.CommandButton Cmdall
Caption = "全部取消"
Height = 350
Index = 6
Left = 6840
Style = 1 'Graphical
TabIndex = 3
Top = 2880
Width = 1215
End
Begin VB.CommandButton Cmdall
Height = 350
Index = 4
Left = 6840
Style = 1 'Graphical
TabIndex = 1
Top = 2040
Width = 1215
End
Begin VB.CommandButton Cmdall
Caption = "全部结算"
Height = 350
Index = 5
Left = 6840
TabIndex = 2
Top = 2520
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid msgGrid
Bindings = "frmdlSelectInvoiceIn.frx":0000
Height = 3495
Left = 120
TabIndex = 0
Top = 360
Width = 6615
_ExtentX = 11668
_ExtentY = 6165
_Version = 65541
Rows = 10
Cols = 30
End
Begin MSForms.Label Lbb
Height = 255
Index = 1
Left = 5880
TabIndex = 14
Top = 120
Width = 615
Caption = "人民币"
Size = "1085;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin VB.Label hLb
Caption = "0"
Height = 255
Index = 3
Left = 3840
TabIndex = 11
Top = 3960
Width = 855
End
Begin VB.Label hLb
Caption = "0"
Height = 255
Index = 0
Left = 480
TabIndex = 9
Top = 3960
Width = 855
End
Begin VB.Label hLb
Caption = "0"
Height = 255
Index = 1
Left = 1680
TabIndex = 8
Top = 3960
Width = 855
End
Begin VB.Label hLb
Caption = "0"
Height = 255
Index = 2
Left = 2760
TabIndex = 7
Top = 3960
Width = 855
End
Begin MSForms.Label lbdw
Height = 255
Left = 600
TabIndex = 6
Top = 120
Width = 4305
Caption = "金算盘软件公司"
Size = "7594;450"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Lbb
Height = 255
Index = 0
Left = 5400
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 = "frmdlSelectInvoiceIn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'标题：选择开票入库结算
'作者：邓普德
'日期：1998.07.08
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private CustomerID As Long, CurrencyID As Long, DetailID As Long 'DetailID为单据业务ID
Private mclsGrid As Grid, mlhls As Recordset, hldate As Date
Private allrows As Integer, ytextRow As Integer, ytextCol As Integer
Private oldsj As Double
Private Const intViewID = 105
Private Const intfixl = 7
Private Const msgcaption = "系统信息管理窗"
Private Const intFormHeight = 3888
Private Const intFormWidth = 5888
Private mblnCancelRowColChange As Boolean '取消Grid行列改变事件
Private mblnFormNoRezise As Boolean, isinit As Boolean, isHave As Boolean
Private hlListSet As ListSet, bsdate As Base, pdlist As List 'Grid数据对象
'响应完全结算菜单
Private Sub chklist1_Click()
BalenceAll
End Sub
Private Sub BalenceAll() '完全结算
Dim intcount As Integer, k As Integer, i As Integer
Dim xx As Double
i = intfixl
k = intfixl
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -