📄 mdlsubroutine.bas
字号:
' End Select
'
''6
' sSQL(6) = _
'"/*(ZW)6.汇率数据表*/" & _
'"CREATE TABLE tZW_Exch" & sYear & "(" & _
'" cExch_Name varchar(10) NOT NULL , /*外币名称*/" & _
'" iPeriod smallint NOT NULL , /*汇计日期*/" & _
'" iType smallint default 0, /*汇率类型：false－固定式；true－浮动式*/" & _
'" cDate char(10) NOT NULL , /*输入日期*/" & _
'" nFlat_HL decimal(15,8) NULL, /*固定汇率*/" & _
'" nFlat_TZ decimal(15,8) NULL /*调整汇率*/" & _
'")"
'
'
''7
' Select Case g_FLAT
' Case "SQL"
' sSQL(7) = _
' "Alter TABLE tZW_Exch" & sYear & " WITH NOCHECK ADD " & _
' " CONSTRAINT PK_ZW_Exch" & sYear & " PRIMARY KEY NONCLUSTERED " & _
' " (" & _
' " cExch_Name, " & _
' " iPeriod" & _
' " )"
' Case "ORACLE"
' sSQL(7) = "CREATE UNIQUE INDEX PK_ZW_Exch" & sYear & " ON " & _
' "tZW_Exch" & sYear & "(cExch_Name,iPeriod)"
' End Select
'
''8
''/*(USU)1.辅助核算表*/
' sSQL(8) = _
'"CREATE TABLE tUSU_Fz" & sYear & "(" & _
'" ID int NOT NULL Primary key, /*唯一序号*/" & _
'" kmdm varchar(18) NOT NULL, /*科目代码*/" & _
'" Grwl_Code char(20) NULL, /*个人代码*/" & _
'" Khwl_Code char(12) NULL, /*客户代码*/" & _
'" Gyswl_Code char(12) NULL, /*供应商代码*/" & _
'" bmdm char(12) NULL, /*部门代码 */" & _
'" xmdm char(30) NULL, /*项目代码*/" & _
'" ljjsl00 decimal(15, 3) default 0,ljjwb00 decimal(15, 2) default 0,ljj00 decimal(15, 2) default 0,ljdsl00 decimal(15, 3) default 0,ljdwb00 decimal(15, 2) default 0, ljd00 decimal(15, 2) default 0," & _
'" ljjsl01 decimal(15, 3) default 0,ljjwb01 decimal(15, 2) default 0,ljj01 decimal(15, 2) default 0,ljdsl01 decimal(15, 3) default 0,ljdwb01 decimal(15, 2) default 0, ljd01 decimal(15, 2) default 0," & _
'" ljjsl02 decimal(15, 3) default 0,ljjwb02 decimal(15, 2) default 0,ljj02 decimal(15, 2) default 0,ljdsl02 decimal(15, 3) default 0,ljdwb02 decimal(15, 2) default 0, ljd02 decimal(15, 2) default 0," & _
'" ljjsl03 decimal(15, 3) default 0,ljjwb03 decimal(15, 2) default 0,ljj03 decimal(15, 2) default 0,ljdsl03 decimal(15, 3) default 0,ljdwb03 decimal(15, 2) default 0, ljd03 decimal(15, 2) default 0," & _
'" ljjsl04 decimal(15, 3) default 0,ljjwb04 decimal(15, 2) default 0,ljj04 decimal(15, 2) default 0,ljdsl04 decimal(15, 3) default 0,ljdwb04 decimal(15, 2) default 0, ljd04 decimal(15, 2) default 0," & _
'" ljjsl05 decimal(15, 3) default 0,ljjwb05 decimal(15, 2) default 0,ljj05 decimal(15, 2) default 0,ljdsl05 decimal(15, 3) default 0,ljdwb05 decimal(15, 2) default 0, ljd05 decimal(15, 2) default 0," & _
'" ljjsl06 decimal(15, 3) default 0,ljjwb06 decimal(15, 2) default 0,ljj06 decimal(15, 2) default 0,ljdsl06 decimal(15, 3) default 0,ljdwb06 decimal(15, 2) default 0, ljd06 decimal(15, 2) default 0," & _
'" ljjsl07 decimal(15, 3) default 0,ljjwb07 decimal(15, 2) default 0,ljj07 decimal(15, 2) default 0,ljdsl07 decimal(15, 3) default 0,ljdwb07 decimal(15, 2) default 0, ljd07 decimal(15, 2) default 0," & _
'" ljjsl08 decimal(15, 3) default 0,ljjwb08 decimal(15, 2) default 0,ljj08 decimal(15, 2) default 0,ljdsl08 decimal(15, 3) default 0,ljdwb08 decimal(15, 2) default 0, ljd08 decimal(15, 2) default 0," & _
'" ljjsl09 decimal(15, 3) default 0,ljjwb09 decimal(15, 2) default 0,ljj09 decimal(15, 2) default 0,ljdsl09 decimal(15, 3) default 0,ljdwb09 decimal(15, 2) default 0, ljd09 decimal(15, 2) default 0," & _
'" ljjsl10 decimal(15, 3) default 0,ljjwb10 decimal(15, 2) default 0,ljj10 decimal(15, 2) default 0,ljdsl10 decimal(15, 3) default 0,ljdwb10 decimal(15, 2) default 0, ljd10 decimal(15, 2) default 0," & _
'" ljjsl11 decimal(15, 3) default 0,ljjwb11 decimal(15, 2) default 0,ljj11 decimal(15, 2) default 0,ljdsl11 decimal(15, 3) default 0,ljdwb11 decimal(15, 2) default 0, ljd11 decimal(15, 2) default 0," & _
'" ljjsl12 decimal(15, 3) default 0,ljjwb12 decimal(15, 2) default 0,ljj12 decimal(15, 2) default 0,ljdsl12 decimal(15, 3) default 0,ljdwb12 decimal(15, 2) default 0, ljd12 decimal(15, 2) default 0)"
'
'
'
' For i = LBound(sSQL) To UBound(sSQL)
' adoCmd.CommandText = sSQL(i)
' adoCmd.Execute
' Next i
'
'End Sub
''根据月份和月末结算日确定一个业务期的起止日期。
'Public Sub GetStartEndPeriod(ByVal sYear As String, ByVal Month As Integer, ByVal EndDay As Integer, _
' ByRef sBegin As String, ByRef sEnd As String)
'
' '注：月末结算日的取值在21－31之间。
'
' Dim PreMonth As Integer
' Dim PreEndDay As Integer
' Dim FebEnd As Integer '二月份的最后一天。
'
' '判断启用年度是否闰年。
' If IsDate(sYear & "-02-29") Then
' FebEnd = 29
' Else
' FebEnd = 28
' End If
'
' '求上一月份。
' If Month = 1 Then
' PreMonth = 12
' Else
' PreMonth = Month - 1
' End If
' '上一个月的起始日期是汇总日期＋1。
' PreEndDay = EndDay + 1
'
' Select Case PreMonth
' Case 2
' If PreEndDay > FebEnd Then
' PreMonth = 3
' PreEndDay = 1
' End If
' Case 12
' If PreEndDay > 31 Then
' PreMonth = 1
' PreEndDay = 1
' End If
' Case 1, 3, 5, 7, 8, 10
' If PreEndDay > 31 Then
' PreMonth = PreMonth + 1
' PreEndDay = 1
' End If
' Case 4, 6, 9, 11
' If PreEndDay > 30 Then
' PreMonth = PreMonth + 1
' PreEndDay = 1
' End If
' End Select
'
' Select Case Month
' Case 2
' If EndDay > FebEnd Then
' EndDay = FebEnd
' End If
' Case 1, 3, 5, 7, 8, 10, 12
' If EndDay > 31 Then
' EndDay = 31
' End If
' Case 4, 6, 9, 11
' If EndDay > 30 Then
' EndDay = 30
' End If
' End Select
'
' If EndDay < 31 And Month = 1 Then
' sBegin = CStr(Val(sYear) - 1) & "-" & _
' Format(PreMonth, "00") & "-" & Format(PreEndDay, "00")
' Else
' sBegin = sYear & "-" & _
' Format(PreMonth, "00") & "-" & Format(PreEndDay, "00")
' End If
'
' sEnd = sYear & "-" & Format(Month, "00") & "-" & Format(EndDay, "00")
'
'End Sub
Public Sub ShowHelp()
SendKeys "{F1}"
End Sub
'----------------------yang 打印用
Public Sub PreviewGrid()
Dim frmP As frmPreview
If Printers.Count = 0 Then
MsgBox "未安装打印机。", vbExclamation, "提示"
Else
m_mFg.Redraw = False
Set frmP = New frmPreview
With frmP
.pControlType = pmsFlexGrid
.pControl = m_mFg
.PaperWidth = Printer.Width
.PaperHeight = Printer.Height
.PaperScaleLeft = 500
.PaperScaleTop = Printer.ScaleTop
.PaperScaleHeight = Printer.ScaleHeight * 0.9
.PaperScaleWidth = Printer.ScaleWidth * 0.9
.TitleTop = 200
.HeadTop = 800
.HeadLeft = 700
.GridPlaceType = hgptAutomatic
.GridLeft = 700
.GridTop = 800
.Title = sTitleName
.HeadPlaceType = hgptManual
.ExcutePreview
End With
Unload frmP
m_mFg.Redraw = True
End If
End Sub
Public Sub PrintGrid()
Dim frmP As frmPreview
If Printers.Count = 0 Then
MsgBox "未安装打印机。", vbExclamation, "提示"
Else
Set frmP = New frmPreview
With frmP
.pControlType = pmsFlexGrid
.pControl = m_mFg
.PaperWidth = Printer.Width
.PaperHeight = Printer.Height
.PaperScaleLeft = 500
.PaperScaleTop = Printer.ScaleTop
.PaperScaleHeight = Printer.ScaleHeight * 0.9
.PaperScaleWidth = Printer.ScaleWidth * 0.9
.TitleTop = 200
.HeadTop = 800
.HeadLeft = 700
.GridPlaceType = hgptAutomatic
.GridLeft = 700
.GridTop = 800
' .Title = "银行名称表"
.HeadPlaceType = hgptManual
.ExcutePrint
End With
Unload frmP
End If
End Sub
'设置账页格式
Public Sub SetAccountFormat(ByVal cboAccountFormat As ComboBox, _
ByVal bAmount As Boolean, ByVal bForeign As Boolean)
With cboAccountFormat
.Clear
.AddItem "金额式"
If bAmount Then
.AddItem "数量金额式"
If bForeign Then
.AddItem "外币金额式"
.AddItem "数量外币式"
End If
ElseIf bForeign Then
.AddItem "外币金额式"
End If
.ListIndex = 0
End With
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -