📄 frmardetail.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.1#0"; "ORAGLIST.OCX"
Begin VB.Form frmARDetail
BorderStyle = 1 'Fixed Single
Caption = "应收资料"
ClientHeight = 3975
ClientLeft = 45
ClientTop = 330
ClientWidth = 8250
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3975
ScaleWidth = 8250
StartUpPosition = 2 '屏幕中心
Visible = 0 'False
Begin MSRDC.MSRDC datAR
Height = 330
Left = 6930
Top = 2190
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 582
_Version = 393216
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 ListRefer.ListText ltxtCustomer
Height = 315
Left = 705
TabIndex = 7
Top = 150
Width = 2340
_ExtentX = 4128
_ExtentY = 556
AutoPop = 0 'False
BackColor = 16777215
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 cmdClose
Height = 350
Index = 2
Left = 6900
Style = 1 'Graphical
TabIndex = 6
Tag = "1010"
Top = 1320
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdClose
Height = 350
Index = 1
Left = 6900
Style = 1 'Graphical
TabIndex = 5
Tag = "1012"
Top = 930
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdClose
Height = 350
Index = 0
Left = 6900
Style = 1 'Graphical
TabIndex = 4
Tag = "1022"
Top = 540
UseMaskColor = -1 'True
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid msgARDetail
Bindings = "frmARDetail.frx":0000
Height = 3135
Left = 45
TabIndex = 0
Top = 510
Width = 6585
_ExtentX = 11615
_ExtentY = 5530
_Version = 393216
Cols = 10
FixedCols = 0
FocusRect = 0
SelectionMode = 1
End
Begin ListRefer.ListText ltxtCurrency
Height = 315
Left = 3825
TabIndex = 8
Top = 150
Width = 1395
_ExtentX = 2461
_ExtentY = 556
AutoPop = 0 'False
BackColor = 16777215
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 = 1
Left = 1290
TabIndex = 10
Top = 3630
Width = 855
End
Begin VB.Label hLb
Alignment = 1 'Right Justify
BackColor = &H80000014&
Height = 255
Index = 0
Left = 90
TabIndex = 9
Top = 3630
Width = 855
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "计算依据："
Height = 180
Index = 2
Left = 5310
TabIndex = 3
Top = 210
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "币种(&M)"
Height = 180
Index = 1
Left = 3180
TabIndex = 2
Top = 210
Width = 630
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "单位(&C)"
Height = 180
Index = 0
Left = 60
TabIndex = 1
Top = 210
Width = 630
End
End
Attribute VB_Name = "frmARDetail"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 应收资料窗体
' 作者:肖宇
' 日期:98-06-23
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Const mlngLeft = 50
Private Const mlngTop = 510
Private Const mlngBottom = 360
Private Const mintColActivityID = 0
Private Const mintColReceiptTypeID = 1
Private mintColAmount As Integer
Private WithEvents mclsList As Grid 'Grid类
Attribute mclsList.VB_VarHelpID = -1
Private mrecCash As rdoResultset
Private mlngCustomerID As Long
Private mlngCurrencyID As Long
Private mstrDate As String
Private mintDec As Integer
Public Sub ShowDetail(ByVal lngCustomerID As Long, ByVal lngCurrencyID As Long, _
ByVal strDate As String, ByVal intDec As Integer)
mlngCustomerID = lngCustomerID
mlngCurrencyID = lngCurrencyID
mstrDate = strDate
mintDec = intDec
ltxtCustomer.SeekId lngCustomerID
ltxtCurrency.SeekId lngCurrencyID
mclsList.ShowTotal = True
Set mclsList.Form = Me
RefreshGrid
Show vbModal
End Sub
'刷新应收资料列表
Private Sub cboCurrency_Click()
RefreshGrid
msgARDetail.Rows = 1
End Sub
'刷新应收资料列表
Private Sub cboCustomer_Click()
RefreshGrid
msgARDetail.Rows = 1
End Sub
'按钮数组的click事件处理
Private Sub cmdClose_Click(Index As Integer)
Dim lngReceiptTypeID As Long
Dim lngActivityID As Long
Select Case Index
Case 0: Unload Me
Case 1 '打印
PrintDetail
Case 2 '关联
If GetValue(msgARDetail.Row, mintColActivityID) > 0 Then
lngReceiptTypeID = GetValue(msgARDetail.Row, mintColReceiptTypeID)
lngActivityID = GetValue(msgARDetail.Row, mintColActivityID)
Unload Me
BillPublic.ShowBill1 lngReceiptTypeID, lngActivityID
Else
ShowMsg hwnd, "没有对应单据!", vbCritical, Caption
End If
End Select
End Sub
Private Sub Form_Activate()
SetHelpID HelpContextID
frmMain.SetEditUnEnabled
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -