📄 单位定义.frm
字号:
VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Object = "{18F95930-A715-11D1-92AC-A8AE05C10000}#7.0#0"; "UFSize.ocx"
Object = "{B03157BC-EBCD-11D1-9D4B-000021017F3D}#4.0#0"; "UfUseFlg.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{5AD81966-3173-4597-A32E-4F4620DA3B57}#3.4#0"; "U8TBCtl.ocx"
Begin VB.Form frmAccUnit
AutoRedraw = -1 'True
Caption = "单位定义"
ClientHeight = 4470
ClientLeft = 60
ClientTop = 345
ClientWidth = 7680
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4470
ScaleWidth = 7680
Begin MSComctlLib.ImageList ilsTlb
Left = 200
Top = 2000
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单位定义.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单位定义.frx":0452
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单位定义.frx":08A4
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ilsTlbTre
Left = 1440
Top = 3240
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单位定义.frx":0CF6
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单位定义.frx":1148
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单位定义.frx":159A
Key = ""
EndProperty
EndProperty
End
Begin VB.PictureBox picView
BackColor = &H80000013&
Height = 3690
Left = 2640
ScaleHeight = 3630
ScaleWidth = 4935
TabIndex = 7
Top = 720
Width = 4995
Begin EDITLib.Edit txtCode
Height = 315
Left = 960
TabIndex = 1
Top = 720
Width = 1815
_Version = 65536
_ExtentX = 3201
_ExtentY = 556
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
End
Begin VB.ComboBox cboType
Height = 315
Left = 960
Style = 2 'Dropdown List
TabIndex = 0
Top = 240
Width = 1815
End
Begin EDITLib.Edit txtName
Height = 315
Left = 960
TabIndex = 2
Top = 1200
Width = 2775
_Version = 65536
_ExtentX = 4895
_ExtentY = 556
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
End
Begin EDITLib.Edit txtDigest
Height = 315
Left = 960
TabIndex = 3
Top = 1680
Width = 2775
_Version = 65536
_ExtentX = 4895
_ExtentY = 556
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
End
Begin zjUseFlg.UsedFlag ufgAccUnit
Height = 360
Left = 2940
TabIndex = 12
Top = 217
Visible = 0 'False
Width = 795
_ExtentX = 1402
_ExtentY = 635
Object.visible = "True"
Caption = "已使用"
End
Begin VB.Label lblAccUnit
AutoSize = -1 'True
Caption = "备注"
Height = 195
Index = 3
Left = 360
TabIndex = 11
Top = 1740
Width = 360
End
Begin VB.Label lblAccUnit
AutoSize = -1 'True
Caption = "名称"
Height = 195
Index = 2
Left = 360
TabIndex = 10
Top = 1260
Width = 360
End
Begin VB.Label lblAccUnit
AutoSize = -1 'True
Caption = "编码"
Height = 195
Index = 1
Left = 360
TabIndex = 9
Top = 780
Width = 360
End
Begin VB.Label lblAccUnit
AutoSize = -1 'True
Caption = "类型"
Height = 195
Index = 0
Left = 360
TabIndex = 8
Top = 300
Width = 360
End
End
Begin MSComctlLib.Toolbar tlbAction
Align = 1 'Align Top
Height = 540
Left = 0
TabIndex = 4
Top = 0
Width = 7680
_ExtentX = 13547
_ExtentY = 953
ButtonWidth = 820
ButtonHeight = 953
AllowCustomize = 0 'False
Style = 1
ImageList = "ilsTlb"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 17
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "Print"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
Key = "Preview"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "输出"
Key = "Export"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "增加"
Key = "AddNew"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "Edit"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Key = "Delete"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "Save"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "放弃"
Key = "Cancel"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新"
Key = "Refresh"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "引入"
Key = "Import"
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查找"
Key = "Find"
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "Help"
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Exit"
EndProperty
EndProperty
End
Begin JackSize.JackResize jkrTree
Height = 3795
Left = 2520
TabIndex = 5
Top = 720
Width = 105
_ExtentX = 185
_ExtentY = 6694
MinLeft = 1000
End
Begin MSComctlLib.TreeView treStyle
Height = 3690
Left = 0
TabIndex = 6
Top = 720
Width = 2475
_ExtentX = 4366
_ExtentY = 6509
_Version = 393217
HideSelection = 0 'False
Indentation = 529
Style = 5
HotTracking = -1 'True
ImageList = "ilsTlbTre"
Appearance = 1
OLEDropMode = 1
End
Begin prjTBCtrl.CTBCtrl ocxCtbTool
Height = 660
Left = 0
Top = 0
Width = 3975
_ExtentX = 7011
_ExtentY = 1164
End
End
Attribute VB_Name = "frmAccUnit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'--------------------------------
'时间:2001.11.12
'版权:北京用友软件股份有限公司
'设计:章景峰
'编码:章景峰
'说明:U8资金管理---单位定义
'--------------------------------
Option Explicit
Private Const conMoveLimit = 1000
Private Const m_conBIStyle As Long = 9
Private m_EO As U8FDEso.EntityObject
Private m_OldEO As U8FDEso.EntityObject
Private m_EditStatus As Boolean
Private PrintTypeList As String
Private PrintSizeList As String
Private SetPrintDataStyleXML_flag As Boolean
Public NodeKey As String
Public Property Get EO() As U8FDEso.EntityObject
Set EO = m_EO
End Property
Public Property Set EO(NewEO As U8FDEso.EntityObject)
Set m_EO = NewEO
End Property
Private Sub cboType_Click()
If EO.State = U8FDEso.esoEdit And Me.ufgAccUnit.Visible = True Then
If mID(NodeKey, 2, 1) <> 2 And Me.cboType.ListIndex = 2 Or (mID(NodeKey, 2, 1) = 2 And Me.cboType.ListIndex <> 2) Then
MsgBox "银行类型下的单位不能和其它类型下的单位相互转换!", vbInformation, App.ProductName
Me.cboType.ListIndex = mID(NodeKey, 2, 1)
End If
End If
End Sub
Public Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
On Error GoTo ErrHandler
Dim ShiftDown, AltDown, CtrlDown
ShiftDown = (Shift And vbShiftMask) > 0
AltDown = (Shift And vbAltMask) > 0
CtrlDown = (Shift And vbCtrlMask) > 0
Select Case KeyCode
Case vbKeyF1
SendKeys "{F1 3}"
Case vbKeyF3
If Me.tlbAction.Buttons("Find").Enabled Then
frmAccUnitFind.Show vbModal
End If
Case vbKeyF5
If Me.tlbAction.Buttons("AddNew").Enabled Then
AddNew
End If
Case vbKeyF8
If Me.tlbAction.Buttons("Edit").Enabled Then
Edit
End If
Case vbKeyDelete
If Me.tlbAction.Buttons("Delete").Enabled Then
Delete
End If
Case vbKeyF6
If Me.tlbAction.Buttons("Save").Enabled Then
Save
End If
Case vbKeyZ
If CtrlDown And Me.tlbAction.Buttons("Cancel").Enabled Then
CancelDo
End If
Case vbKeyP
If CtrlDown And Me.tlbAction.Buttons("Print").Enabled Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -