📄 frmselectkmfieldsprint.frm
字号:
VERSION 5.00
Begin VB.Form frmSelectKmFieldsPrint
BorderStyle = 1 'Fixed Single
Caption = "科目打印格式选择"
ClientHeight = 1290
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 5430
ControlBox = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1290
ScaleWidth = 5430
StartUpPosition = 1 '所有者中心
Begin VB.CheckBox chkFields
Caption = "账页格式"
Height = 255
Index = 5
Left = 2640
TabIndex = 8
Top = 720
Width = 1215
End
Begin VB.CheckBox chkFields
Caption = "辅助账类型"
Height = 255
Index = 4
Left = 2640
TabIndex = 7
Top = 360
Width = 1215
End
Begin VB.CheckBox chkFields
Caption = "数量单位"
Height = 255
Index = 3
Left = 1560
TabIndex = 6
Top = 720
Width = 1095
End
Begin VB.CheckBox chkFields
Caption = "外币币种"
Height = 255
Index = 2
Left = 1560
TabIndex = 5
Top = 360
Width = 1095
End
Begin VB.CheckBox chkFields
Caption = "余额方向"
Height = 255
Index = 1
Left = 480
TabIndex = 4
Top = 720
Width = 1095
End
Begin VB.CheckBox chkFields
Caption = "助记码"
Height = 255
Index = 0
Left = 480
TabIndex = 3
Top = 360
Width = 975
End
Begin VB.Frame Frame1
Caption = "科目字段"
Height = 975
Left = 240
TabIndex = 2
Top = 120
Width = 3735
End
Begin VB.CommandButton CancelButton
Caption = "放弃"
Height = 375
Left = 4200
TabIndex = 1
Top = 720
Width = 975
End
Begin VB.CommandButton OKButton
Caption = "确定"
Height = 375
Left = 4200
TabIndex = 0
Top = 240
Width = 975
End
End
Attribute VB_Name = "frmSelectKmFieldsPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public Ok As Boolean
Public sKmmcSql As String
Public sKmmcPrint As String
Private Sub CancelButton_Click()
Ok = False
Me.Hide
End Sub
Private Sub OKButton_Click()
Dim sTemp(1 To 3, 5) As String
Dim i As Integer
sKmmcSql = " kmdm,kmmc "
sKmmcPrint = "科目编码|科目名称"
sTemp(1, 0) = "|助记码"
sTemp(1, 1) = "|余额方向"
sTemp(1, 2) = "|外币币种"
sTemp(1, 3) = "|数量单位"
sTemp(1, 4) = "|辅助账类型"
sTemp(1, 5) = "|账页格式"
sTemp(2, 0) = ",Zjm"
sTemp(2, 1) = ",Yefx"
sTemp(2, 2) = ",Wbdw"
sTemp(2, 3) = ",sldw"
sTemp(2, 4) = ",Fzhs=case ltrim(str(abs(isgrwlhs)))+ltrim(str(abs(iskhwlhs)))" & _
"+ltrim(str(abs(isgyswlhs)))+ltrim(str(abs(isbmhs)))+ltrim(str(abs(isxmhs)))+ltrim(str(abs(isxjllkm)))+ltrim(str(abs(isrjz)))+ltrim(str(abs(isyhz)))" & _
" when '00001000' then '项目核算' when '00010000' then '部门核算'" & _
" when '00011000' then '部门项目' when '00100000' then '供应商往来'" & _
" when '00101000' then '供应商项目' when '00110000' then '供应商部门' " & _
" when '01000000' then '客户往来' when '01001000' then '客户项目'" & _
" when '01010000' then '客户部门' when '10000000' then '个人往来' WHEN '00001001' THEN '项目银行' WHEN '00001010' " & _
" THEN '项目日记账' WHEN '00001011' THEN '项目银行日记账' WHEN '00001100' THEN '项目现金流量' " & _
" WHEN '00001101' THEN '项目现金流量银行' WHEN '00001111' THEN '项目现金流量银行日记账' WHEN '00010001' THEN '部门银行' WHEN '00010010' " & _
" THEN '部门日记账' WHEN '00010011' THEN '部门银行日记账' WHEN '00010100' THEN '部门现金流量' WHEN '00010101' THEN '部门现金流量银行' WHEN '00010111' THEN '部门现金流量银行日记账' " & _
" WHEN '00011001' THEN '部门项目银行' WHEN '00011010' THEN '部门项目日记账' WHEN '00011011' THEN '部门项目银行日记账' WHEN '00011100' THEN '部门项目现金流量' " & _
" WHEN '00011101' THEN '部门项目现金流量银行' WHEN '00011111' THEN '部门项目现金流量银行日记账' " & _
" WHEN '00000001' THEN '银行账' WHEN '00000010' THEN '日记账' WHEN '00000011' THEN '银行日记账' WHEN '00000100' THEN '现金流量' " & _
" WHEN '00000101' THEN '现金流量银行' WHEN '00000111' THEN '现金流量银行日记账'end "
sTemp(2, 5) = ",Zygs "
sTemp(3, 0) = ",Zjm"
sTemp(3, 1) = ",Yefx"
sTemp(3, 2) = ",Wbdw"
sTemp(3, 3) = ",sldw"
sTemp(3, 4) = ", decode(ltrim(to_char(abs(isgrwlhs),'9'))" & _
" || ltrim(to_char(abs(iskhwlhs),'9')) || ltrim(to_char(abs(isgyswlhs),'9'))" & _
" || ltrim(to_char(abs(isbmhs),'9')) || ltrim(to_char(abs(isxmhs),'9')) || ltrim(to_char(abs(isxjllkm),'9')) || ltrim(to_char(abs(isrjz),'9')) || ltrim(to_char(abs(isyhz),'9'))," & _
" '00001000','项目核算','00010000','部门核算','00011000','部门项目'," & _
" '00100000','供应商往来','00101000','供应商项目','00110000','供应商部门'," & _
" '01000000','客户往来','01001000','客户项目','01010000','客户部门'," & _
" '10000000','个人往来', '00001001','项目银行','00001010','项目日记账','00001011','项目银行日记账','00001100'," & _
" '项目现金流量','00001101','项目现金流量银行','00001111','项目现金流量银行日记账','00010001','部门银行'," & _
" '00010010','部门日记账','00010011','部门银行日记账','00010100','部门现金流量','00010101'," & _
" '部门现金流量银行','00010111','部门现金流量银行日记账','00011001','部门项目银行','00011010','部门项目日记账'" & _
" '00011011','部门项目银行日记账','00011100','部门项目现金流量','00011101','部门项目现金流量银行','00011111','部门项目现金流量银行日记账','00000001','银行账','00000010','日记账'" & _
" '00000011','银行日记账','00000100','现金流量','00000101','现金流量银行','00000111','现金流量银行日记账') Fzhs"
sTemp(3, 5) = ",Zygs"
For i = 0 To 5
If chkFields(i).value = 1 Then
sKmmcPrint = sKmmcPrint & sTemp(1, i)
Select Case g_FLAT
Case "SQL"
sKmmcSql = Trim$(sKmmcSql) & Trim$(sTemp(2, i))
Case "ORACLE"
sKmmcSql = Trim$(sKmmcSql) & Trim$(sTemp(3, i))
End Select
End If
Next i
Ok = True
Me.Hide
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -