📄 frmlistdetail.frm
字号:
AutoSize = -1 'True
Caption = "(BB)财务报表 FinanceReport："
Height = 180
Left = 360
TabIndex = 21
Top = 1935
Width = 2520
End
Begin VB.Label LabeZW
AutoSize = -1 'True
Caption = "(ZW)集成账务 Account："
Height = 180
Left = 360
TabIndex = 20
Top = 285
Width = 1980
End
Begin VB.Label LabeGD
AutoSize = -1 'True
Caption = "(GD)固定资产 FixedAssets："
Height = 180
Left = 360
TabIndex = 19
Top = 1125
Width = 2340
End
Begin VB.Label LabelGZ
AutoSize = -1 'True
Caption = "(GZ)工资核算 Pay："
Height = 180
Left = 360
TabIndex = 18
Top = 1395
Width = 1620
End
End
Begin VB.Frame Frame2
Caption = "账套"
Height = 1815
Left = 120
TabIndex = 8
Top = 120
Width = 4095
Begin VB.Label lblVoucherPrintMode
AutoSize = -1 'True
Caption = "凭证打印方式：VOUCHERPRINTMODE"
ForeColor = &H00C00000&
Height = 180
Left = 360
TabIndex = 16
Top = 1440
Width = 2700
End
Begin VB.Label lblMaster
AutoSize = -1 'True
Caption = "主管：MASTER"
Height = 180
Left = 360
TabIndex = 11
Top = 1080
Width = 1080
End
Begin VB.Label lblBegin
AutoSize = -1 'True
Caption = "YYYY年MM月启用"
ForeColor = &H00C00000&
Height = 180
Left = 360
TabIndex = 10
Top = 720
Width = 1260
End
Begin VB.Label lblAccount
AutoSize = -1 'True
Caption = "NAME(ID)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 360
TabIndex = 9
Top = 360
Width = 855
End
End
Begin VB.Frame Frame1
Caption = "使用单位"
Height = 4305
Left = 120
TabIndex = 0
Top = 2070
Width = 4095
Begin VB.Label lblLaw
AutoSize = -1 'True
Caption = "法人代表：LAW"
Height = 180
Left = 360
TabIndex = 15
Top = 1080
Width = 1170
End
Begin VB.Label lblTelCode
AutoSize = -1 'True
Caption = "电话：TELCODE"
Height = 180
Left = 360
TabIndex = 14
Top = 2520
Width = 1170
End
Begin VB.Label lblEnterType
AutoSize = -1 'True
Caption = "企业类别：ENTERTYPE"
Height = 180
Left = 360
TabIndex = 13
Top = 1800
Width = 1710
End
Begin VB.Label lblCurrency
AutoSize = -1 'True
Caption = "本位币：CURRENCYNAME"
Height = 180
Left = 360
TabIndex = 12
Top = 360
Width = 1800
End
Begin VB.Label lblEnterName
AutoSize = -1 'True
Caption = "单位名称：ENTERNAME"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 180
Left = 360
TabIndex = 7
Top = 720
Width = 1935
End
Begin VB.Label lblEconomyProperty
AutoSize = -1 'True
Caption = "经济性质：ECONOMYPROPERTY"
ForeColor = &H00800000&
Height = 180
Left = 360
TabIndex = 6
Top = 1440
Width = 2250
End
Begin VB.Label lblTrade
AutoSize = -1 'True
Caption = "行业性质：TRADE"
ForeColor = &H00800000&
Height = 180
Left = 360
TabIndex = 5
Top = 2160
Width = 1350
End
Begin VB.Label lblTaxNo
AutoSize = -1 'True
Caption = "税务登记号：TAXNO"
ForeColor = &H80000008&
Height = 180
Left = 360
TabIndex = 4
Top = 3960
Width = 1530
End
Begin VB.Label lblEMail
AutoSize = -1 'True
Caption = "E-Mail：yikang@public1.ptt.js.cn"
ForeColor = &H00800000&
Height = 180
Left = 360
TabIndex = 3
Top = 3600
Width = 2880
End
Begin VB.Label lblAddress
AutoSize = -1 'True
Caption = "地址：ADDRESS"
ForeColor = &H00800000&
Height = 180
Left = 360
TabIndex = 2
Top = 2880
Width = 1170
End
Begin VB.Label lblZip
AutoSize = -1 'True
Caption = "邮政编码：ZIP"
ForeColor = &H80000008&
Height = 180
Left = 360
TabIndex = 1
Top = 3240
Width = 1170
End
End
End
Attribute VB_Name = "frmListDetail"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private sAccID As String
Public Property Let usAccID(ByVal NewID As String)
sAccID = NewID
End Property
Private Sub Form_Load()
Dim rSt As ADODB.Recordset
Dim i As Long
Set rSt = New ADODB.Recordset
With rSt
.CursorLocation = adUseClient
.Open "select * from tSYS_Account where AccountID='" & sAccID & _
"'", gloSys.cnnSys, adOpenStatic, adLockReadOnly
lblAccount.Caption = .Fields("AccountName").Value & "(" & _
.Fields("AccountID").Value & ")"
lblBegin.Caption = .Fields("BeginYear").Value & "年" & _
.Fields("BeginMonth").Value & "月启用"
lblMaster.Caption = "主管：" & .Fields("Master").Value
lblVoucherPrintMode.Caption = "凭证打印方式：" & _
.Fields("VoucherPrintMode").Value
lblCurrency.Caption = "本位币：" & .Fields("CurrencyName").Value
lblEnterName.Caption = "单位名称：" & .Fields("EnterName").Value
lblLaw.Caption = "法人代表：" & .Fields("Law").Value
lblEconomyProperty.Caption = "经济性质：" & .Fields("EconomyProperty").Value
lblEnterType.Caption = "企业类别：" & .Fields("EnterType").Value
lblTrade.Caption = "行业性质：" & "[" & .Fields("tradeID").Value & _
"]" & GetTradeName(CStr(.Fields("tradeID").Value))
lblTelCode.Caption = "电话：" & .Fields("TelCode").Value
lblAddress.Caption = "地址：" & .Fields("Address").Value
lblZip.Caption = "邮政编码：" & .Fields("Zip").Value
lblEMail.Caption = "E-Mail：" & .Fields("EMail").Value
lblTaxNo.Caption = "税务登记号：" & .Fields("TaxNo").Value
.Close
Call ShowInformation
.Open "select * from tSYS_SubSysUsed where AccountID='" & sAccID & _
"'", gloSys.cnnSys, adOpenStatic, adLockReadOnly
If .RecordCount <> 0 Then
Do Until .EOF
Select Case .Fields("SubSysID").Value
Case "ZW"
If lblZW.Tag = "Y" Then
lblZW.Caption = .Fields("BeginYear").Value & "年" & _
.Fields("BeginMonth").Value & "月启用"
lblZW.Tag = "C"
End If
Case "BB"
If lblBB.Tag = "Y" Then
lblBB.Caption = .Fields("BeginYear").Value & "年" & _
.Fields("BeginMonth").Value & "月启用"
lblBB.Tag = "C"
End If
Case "GD"
If lblGD.Tag = "Y" Then
lblGD.Caption = .Fields("BeginYear").Value & "年" & _
.Fields("BeginMonth").Value & "月启用"
lblGD.Tag = "C"
End If
Case "SF"
If lblSF.Tag = "Y" Then
lblSF.Caption = .Fields("BeginYear").Value & "年" & _
.Fields("BeginMonth").Value & "月启用"
lblSF.Tag = "C"
End If
Case "FX"
If lblFX.Tag = "Y" Then
lblFX.Caption = .Fields("BeginYear").Value & "年" & _
.Fields("BeginMonth").Value & "月启用"
lblFX.Tag = "C"
End If
Case "CF"
If lblCF.Tag = "Y" Then
lblCF.Caption = .Fields("BeginYear").Value & "年" & _
.Fields("BeginMonth").Value & "月启用"
lblCF.Tag = "C"
End If
Case "MR"
If lblMR.Tag = "Y" Then
lblMR.Caption = .Fields("BeginYear").Value & "年" & _
.Fields("BeginMonth").Value & "月启用"
lblMR.Tag = "C"
End If
Case "GZ"
If lblGZ.Tag = "Y" Then
lblGZ.Caption = .Fields("BeginYear").Value & "年" & _
.Fields("BeginMonth").Value & "月启用"
lblGZ.Tag = "C"
End If
Case "FZ"
If lblFZ.Tag = "Y" Then
lblFZ.Caption = .Fields("BeginYear").Value & "年" & _
.Fields("BeginMonth").Value & "月启用"
lblFZ.Tag = "C"
End If
Case "CX"
If lblCX.Tag = "Y" Then
lblCX.Caption = .Fields("BeginYear").Value & "年" & _
.Fields("BeginMonth").Value & "月启用"
lblCX.Tag = "C"
End If
End Select
.MoveNext
Loop
End If
If lblZW.Tag <> "C" And lblZW.Tag = "Y" Then lblZW.Caption = "(尚未启用)"
If lblBB.Tag <> "C" And lblBB.Tag = "Y" Then lblBB.Caption = "(尚未启用)"
If lblGD.Tag <> "C" And lblGD.Tag = "Y" Then lblGD.Caption = "(尚未启用)"
If lblSF.Tag <> "C" And lblSF.Tag = "Y" Then lblSF.Caption = "(尚未启用)"
If lblFX.Tag <> "C" And lblFX.Tag = "Y" Then lblFX.Caption = "(尚未启用)"
If lblCF.Tag <> "C" And lblCF.Tag = "Y" Then lblCF.Caption = "(尚未启用)"
If lblMR.Tag <> "C" And lblMR.Tag = "Y" Then lblMR.Caption = "(尚未启用)"
If lblGZ.Tag <> "C" And lblGZ.Tag = "Y" Then lblGZ.Caption = "(尚未启用)"
If lblFZ.Tag <> "C" And lblFZ.Tag = "Y" Then lblGZ.Caption = "(尚未启用)"
If lblCX.Tag <> "C" And lblCX.Tag = "Y" Then lblGZ.Caption = "(尚未启用)"
.Close
.Open "select * from tSYS_Period where AccountID='" & sAccID & _
"' order by Year,PeriodID", gloSys.cnnSys, adOpenStatic, adLockReadOnly
i = 0
fraPeriod.Caption = "会计期间(" & .Fields("year").Value & "年)"
Do Until i = 12
lblDate(i).Caption = Format(.Fields("fromdate").Value, "yyyy-mm-dd") & _
"……" & Format(.Fields("todate").Value, "yyyy-mm-dd")
.MoveNext
i = i + 1
Loop
.Close
End With
End Sub
Private Function GetTradeName(ByVal sID As String)
Dim rSt As ADODB.Recordset
Set rSt = New ADODB.Recordset
With rSt
.Open "select * from tSYS_trade where ID=" & sID, _
gloSys.cnnSys, adOpenStatic, adLockReadOnly
GetTradeName = .Fields("Name").Value
.Close
End With
End Function
Public Sub ShowInformation()
Dim s1 As String, s2 As String
Dim MC As Object
Dim i As Long
Dim isSing As Boolean
On Error GoTo ExitSub
Set MC = CreateObject("ykCLicence.CheckLicence")
MC.DBFlat = g_FLAT
MC.LoadInfo
For i = 1 To MC.subsystems.Count
With MC.subsystems(i)
Select Case .Productcode
Case "ZW"
lblZW.Tag = "Y"
Case "BB"
lblBB.Tag = "Y"
Case "GD"
lblGD.Tag = "Y"
Case "SF"
lblSF.Tag = "Y"
Case "FX"
lblFX.Tag = "Y"
Case "CF"
lblCF.Tag = "Y"
Case "MR"
lblMR.Tag = "Y"
Case "GZ"
lblGZ.Tag = "Y"
Case "FZ"
If .ProductName = "项目管理" Then
LabelFZ.Caption = "(FZ)项目管理 ItemManager："
Else
LabelFZ.Caption = "(FZ)辅助管理 AssistManager："
End If
lblFZ.Tag = "Y"
Case "CX"
lblCX.Tag = "Y"
End Select
End With
Next i
ExitSub:
Set MC = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -