📄 frmbusinessbankcard.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.4#0"; "ATLEDIT1.OCX"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Begin VB.Form frmBusinessBankCard
BorderStyle = 1 'Fixed Single
Caption = "企业开户银行"
ClientHeight = 4185
ClientLeft = 45
ClientTop = 330
ClientWidth = 6840
HelpContextID = 13003
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4185
ScaleWidth = 6840
StartUpPosition = 2 '屏幕中心
Begin MSRDC.MSRDC data1
Height = 330
Left = 1320
Top = 3240
Visible = 0 'False
Width = 1575
_ExtentX = 2778
_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 VB.CommandButton cmdOK
Default = -1 'True
Height = 350
Index = 0
Left = 5550
Style = 1 'Graphical
TabIndex = 9
Tag = "1001"
Top = 60
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Height = 350
Index = 1
Left = 5550
Style = 1 'Graphical
TabIndex = 10
Tag = "1002"
Top = 435
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Caption = "新增(&A)"
Enabled = 0 'False
Height = 350
Index = 2
Left = 1530
TabIndex = 4
Top = 810
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Caption = "删除(&D)"
Enabled = 0 'False
Height = 350
Index = 3
Left = 2865
TabIndex = 5
Top = 810
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Caption = "放弃(&U)"
Enabled = 0 'False
Height = 350
Index = 4
Left = 4200
TabIndex = 6
Top = 810
UseMaskColor = -1 'True
Width = 1215
End
Begin AtlEdit.TEdit txtName
Height = 300
Index = 0
Left = 1500
TabIndex = 1
Top = 90
Width = 3945
_ExtentX = 6959
_ExtentY = 529
maxchar = 30
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 = ""
End
Begin AtlEdit.TEdit txtName
Height = 300
Index = 1
Left = 1500
TabIndex = 3
Top = 405
Width = 3945
_ExtentX = 6959
_ExtentY = 529
maxchar = 30
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 = ""
End
Begin MSFlexGridLib.MSFlexGrid msgBank
Bindings = "frmBusinessBankCard.frx":0000
Height = 2835
Left = 90
TabIndex = 8
Top = 1260
Width = 5355
_ExtentX = 9446
_ExtentY = 5001
_Version = 393216
Cols = 4
FixedCols = 0
BackColorBkg = -2147483643
GridColor = 16777215
GridColorFixed = 16777215
GridLines = 0
SelectionMode = 1
AllowUserResizing= 1
FormatString = "|开户银行名称 |开户银行帐号 |"
End
Begin VB.Label lblBank
AutoSize = -1 'True
Caption = "开户银行列表(&L)"
Height = 180
Index = 2
Left = 150
TabIndex = 7
Top = 1050
Width = 1350
End
Begin VB.Label lblBank
Caption = "开户银行帐号(&W)"
Height = 195
Index = 1
Left = 150
TabIndex = 2
Top = 480
Width = 1395
End
Begin VB.Label lblBank
Caption = "开户银行名称(&J)"
Height = 195
Index = 0
Left = 150
TabIndex = 0
Top = 150
Width = 1395
End
End
Attribute VB_Name = "frmBusinessBankCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''
'企业开户银行卡片
'
'作者：苏涛
'
'接口：DelCard(lngID); AddCard(Optional strName,Optional intModal); EditCard(lngID,Optional intModal)
'
'时间:1998-07-29
'
'''''''''''''''''''''''''''''''''''''''''
Option Explicit
Option Compare Text
Private mclsGrid As Grid
Private mblnIsList As Boolean
Private mblnIsChanged As Boolean
Private mblnBankIsAdd As Boolean '开户银行新增
Private mblnBankCodeValid As Boolean
Private mblnIsInit As Boolean
Private mintRow As Integer
Private mlngBusinessBankID As Long
Public Function AddCard(Optional strName As String = "", Optional intModal As Integer, _
Optional ByVal IsList As Boolean = False) As Long
mlngBusinessBankID = 0
Caption = "新增企业开户银行"
InitCard strName
mblnIsList = IsList
Show intModal
AddCard = mlngBusinessBankID
End Function
Public Function DelCard(ByVal lngID As Long, Optional lnghWnd As Long = 0) As Boolean
Dim strSql As String
' Dim recSelect As rdoresultset
Dim intMsgReturn As Integer
Dim blnSQLExec As Boolean
DelCard = False
' strSQL = "SELECT * FROM Business WHERE lngBusinessID=" & lngID
' Set recSelect = gclsBase.BaseDB.openresultset(strSQL, rdopenstatic)
' If recSelect.EOF Then
If Not CheckIDUsed("BusinessBank", "lngBusinessBankID", lngID) Then
intMsgReturn = ShowMsg(lnghWnd, "该企业开户银行不存在，不能删除！", _
vbExclamation + vbOKOnly + MB_TASKMODAL, Caption)
' recSelect.Close
' frmBusinessList.IsShowCard(0) = False
Exit Function
End If
If CodeUsed(lngID) Then
intMsgReturn = ShowMsg(lnghWnd, "其它地方正在使用此企业开户银行，不能删除！", _
vbExclamation + vbOKOnly + MB_TASKMODAL, Caption)
Else
intMsgReturn = ShowMsg(lnghWnd, "你确实要删除该企业开户银行吗！", _
vbQuestion + vbOKCancel + MB_TASKMODAL, Caption)
If intMsgReturn = vbOK Then
strSql = "DELETE FROM BusinessBank WHERE lngBusinessBankID = " & lngID
blnSQLExec = gclsBase.ExecSQL(strSql)
If Not blnSQLExec Then
intMsgReturn = ShowMsg(lnghWnd, "删除企业开户银行不成功！", _
vbExclamation + vbOKOnly + MB_TASKMODAL, Caption)
Else
gclsSys.SendMessage Me.hwnd, Message.msgBusinessBank
DelCard = True
End If
End If
End If
' recSelect.Close
' frmCustomerList.IsShowCard(0) = False
End Function
'检查开户银行是否合法
Private Sub CheckBankCode()
Dim i As Integer
For i = 1 To msgBank.Rows - 1
If msgBank.RowHeight(i) <> 0 Then
If mblnBankIsAdd Then
If msgBank.TextMatrix(i, 1) = Trim$(txtName(0).Text) And _
msgBank.TextMatrix(i, 2) = Trim$(txtName(1).Text) Then Exit For
Else
If msgBank.TextMatrix(i, 1) = Trim$(txtName(0).Text) And _
msgBank.TextMatrix(i, 2) = Trim$(txtName(1).Text) And _
i <> mintRow Then Exit For
End If
End If
Next i
mblnBankCodeValid = (i >= msgBank.Rows)
End Sub
'判断记录是否被使用（可能有多张表会使用此编码）
Private Function CodeUsed(lngID As Long) As Boolean
CodeUsed = CheckIDUsed("ItemActivity", "lngBusinessBankID", lngID)
End Function
'进入修改企业
Public Sub EditCard(ByVal lngID As Long, Optional intModal As Integer = 0)
mlngBusinessBankID = lngID
Caption = "修改企业开户银行"
If Not InitCard() Then
ShowMsg hwnd, "该企业开户银行不存在,不能进行编辑!", vbExclamation + MB_TASKMODAL, Caption
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -