📄 i-+
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{9ADF72AD-DDA9-11D1-9D4B-000021006D51}#1.2#0"; "UFSpGrid.ocx"
Object = "{CF861F0E-0102-11D2-9D4B-00002100060B}#6.0#0"; "UfLstGrd.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{5AD81966-3173-4597-A32E-4F4620DA3B57}#3.3#0"; "U8TBCtl.ocx"
Begin VB.Form frmAccSet
Caption = "账户科目"
ClientHeight = 5280
ClientLeft = 60
ClientTop = 345
ClientWidth = 9045
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 5280
ScaleWidth = 9045
Begin ComctlLib.Toolbar tlbAction1
Align = 1 'Align Top
Height = 600
Left = 0
TabIndex = 5
Top = 540
Visible = 0 'False
Width = 9045
_ExtentX = 15954
_ExtentY = 1058
ButtonWidth = 820
ButtonHeight = 953
AllowCustomize = 0 'False
Wrappable = 0 'False
HelpContextID = 88000016
ImageList = "ilsTlb1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 18
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "打印"
Key = "Print"
Description = "打印"
Object.ToolTipText = "打印"
Object.Tag = ""
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Preview"
Description = "预览"
Object.ToolTipText = "预览"
Object.Tag = ""
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Dataout"
Description = "数据输出"
Object.ToolTipText = "数据输出"
Object.Tag = ""
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Key = "copy"
Object.Tag = ""
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Key = "paste"
Object.Tag = ""
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "add"
Description = "增加"
Object.ToolTipText = "增加"
Object.Tag = ""
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Visible = 0 'False
Caption = "修改"
Key = "Edit"
Object.Tag = ""
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "del"
Object.Tag = ""
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "save"
Object.Tag = ""
EndProperty
BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Visible = 0 'False
Caption = "取消"
Key = "Cancel"
Object.ToolTipText = "删除"
Object.Tag = ""
EndProperty
BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "switch"
Object.Tag = ""
EndProperty
BeginProperty Button15 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "refresh"
Object.Tag = ""
EndProperty
BeginProperty Button16 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button17 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "help"
Object.ToolTipText = "帮助"
Object.Tag = ""
EndProperty
BeginProperty Button18 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "exit"
Object.ToolTipText = "退出"
Object.Tag = ""
EndProperty
EndProperty
End
Begin prjTBCtrl.CTBCtrl ocxCtbTool
Height = 855
Left = 0
Top = 0
Visible = 0 'False
Width = 1455
_ExtentX = 2566
_ExtentY = 1508
End
Begin MSComctlLib.ImageList ilsTlb
Left = 6000
Top = 1200
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 393216
End
Begin VB.TextBox txtAccdef_id
Height = 285
Left = 4800
TabIndex = 6
Top = 720
Visible = 0 'False
Width = 1575
End
Begin ZJListGrid.ListGrid lgdAccSubject
Height = 2895
Left = 1320
TabIndex = 1
Top = 720
Width = 6255
_ExtentX = 11033
_ExtentY = 5106
Row = 1
Text = ""
GrdText = ""
GrdKeyCol = 0
TxtScale = 0.5
RowHeightMin = 235
End
Begin MsSuperGrid.SuperGrid sgdSubject
Height = 3855
Left = 0
TabIndex = 4
Top = 1440
Width = 9015
_ExtentX = 15901
_ExtentY = 6800
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EditBorderStyle = 0
MouseIcon = "账户科目.frx":0000
ForeColorSel = -2147483634
ForeColorFixed = -2147483630
BackColorSel = -2147483635
BackColorFixed = -2147483633
AllowBigSelection= 0 'False
End
Begin VB.ComboBox cboDebCred
Height = 315
Left = 1320
Style = 2 'Dropdown List
TabIndex = 3
Top = 1080
Width = 1815
End
Begin MSComctlLib.Toolbar tlbAction
Align = 1 'Align Top
Height = 540
Left = 0
TabIndex = 7
Top = 0
Width = 9045
_ExtentX = 15954
_ExtentY = 953
ButtonWidth = 820
ButtonHeight = 953
AllowCustomize = 0 'False
Style = 1
ImageList = "ilsTlb"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 16
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 = "copy"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "粘贴"
Key = "paste"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "增加"
Key = "add"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Key = "del"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "save"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "切换"
Key = "switch"
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新"
Key = "refresh"
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "help"
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "exit"
EndProperty
EndProperty
End
Begin ComctlLib.ImageList ilsTlb1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
Begin VB.Label lblAccSubject
AutoSize = -1 'True
Caption = "账户余额方向"
Height = 195
Index = 1
Left = 60
TabIndex = 2
Top = 1140
Width = 1080
End
Begin VB.Label lblAccSubject
AutoSize = -1 'True
Caption = "账户号"
Height = 195
Index = 0
Left = 60
TabIndex = 0
Top = 810
Width = 540
End
End
Attribute VB_Name = "frmAccSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'--------------------------------
'时间:2002.03.11
'版权:北京用友软件股份有限公司
'设计:魏小黎,章景峰
'编码:魏小黎,章景峰
'说明:U8资金管理---账户科目定义
'--------------------------------
Option Explicit
Dim curAccCode As String
Dim ColorArray() As Long
Dim RsNull As Boolean
Dim edstatus As Ed_Status
Public Switch_Mode As SwitchMode
Dim clpAccSet As ClipView
Private Frtin As Boolean
Private PrintTypeList As String
Private PrintSizeList As String
Private SetPrintDataStyleXML_flag As Boolean
'填数据
Public Sub load_data()
Dim iNum As Long
Dim SQL As String
Dim rsl As New UfRecordset
Dim objAccDefBI As New U8FDBso.clsAccDefBI
Dim objAccUnitBI As New U8FDBso.clsAccUnitBI
Dim objDefEO As U8FDEso.EntityObject
Dim objUnitEO As U8FDEso.EntityObject
Set objDefEO = objAccDefBI.Init(g_sDataSourceName)
Set objAccDefBI = Nothing
Set objUnitEO = objAccUnitBI.Init(g_sDataSourceName)
Set objAccUnitBI = Nothing
'sql = "SELECT cUnitName, cAccID, cAccName, cIntrID, FD_AccDef.itype, iio" _
' & " FROM FD_AccUnit INNER JOIN FD_AccDef ON FD_AccUnit.cUnitCode = FD_AccDef.cUnitCode" _
' & " WHERE (((FD_AccDef.iDataSrc)=1)) order by Fd_AccDef.cAccID"
SQL = "SELECT " & objUnitEO("accunit_name").SourceField & " as cUnitName," & objDefEO("accdef_code").SourceField & " as cAccID," & objDefEO("accdef_name").SourceField & " as cAccName," & objDefEO("irate_code").SourceField & " as cIntrID," & objDefEO.SourceTable & "." & objDefEO("type_flag").SourceField & " as itype," & objDefEO("io_flag").SourceField & " as iio," & objDefEO.EOS.EOMetaData.ParentField & " as accdef_id" _
& " FROM " & objUnitEO.SourceTable & " as fd_accunit INNER JOIN " & objDefEO.SourceTable & " as fd_accdef ON " & "fd_accunit." & objUnitEO("accunit_id").SourceField & "= fd_accdef." & objUnitEO("accunit_id").SourceField _
& " WHERE (((fd_accdef." & objDefEO("datasrc_flag").SourceField & ")=1)) order by fd_accdef." & objDefEO("accdef_code").SourceField
Set objDefEO = Nothing: Set objUnitEO = Nothing
Set rsl = dbsZJ.OpenRecordset(SQL, dbOpenSnapshot)
With rsl
If .EOF Then
SetRsNullTrue
Exit Sub
Else
SetRsNullFalse
End If
If Not RsNull Then
lgdAccSubject.Rows = 1
While Not .EOF
iNum = iNum + 1
frmAccSet.lgdAccSubject.AddItem !cunitName & Chr(9) & !cAccId _
& Chr(9) & !cAccName & Chr(9) & !cintrid & Chr(9) & IIf(!iType = 0, "定期", "活期") _
& Chr(9) & IIf(!iio = 0, "内部", "外部") & Chr(9) & !accdef_id, iNum
.MoveNext
Wend
End If
End With
If Not RsNull Then
lgdAccSubject.Text = lgdAccSubject.TextMatrix(1, lgdAccSubject.GrdKeyCol)
txtAccdef_id.Text = lgdAccSubject.TextMatrix(1, 6)
curAccCode = ""
FillSuperGrid
End If
set_edstatus_browse
End Sub
'SG填数据
Private Sub sgdSubject_AddItem(code1 As Variant, code2 As Variant, code3 As Variant, _
code4 As Variant, code5 As Variant, code6 As Variant, code7 As Variant)
Dim arco(6) As Long, lx As String, ia As Byte, c_code(6) As String
If IsNull(code1) Then
c_code(0) = ""
Else
c_code(0) = CStr(code1)
End If
If IsNull(code2) Then
c_code(1) = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -