📄 frmnewtemplate.frm
字号:
Caption = "毫米"
Height = 195
Index = 30
Left = -72120
TabIndex = 94
Top = 750
Width = 375
End
Begin VB.Label LblTitle
Caption = "装订线(&U)"
Height = 195
Index = 13
Left = -74520
TabIndex = 78
Top = 2355
Width = 825
End
Begin VB.Label LblTitle
Caption = "上(&T)"
Height = 255
Index = 19
Left = -74520
TabIndex = 70
Top = 720
Width = 465
End
Begin VB.Label LblTitle
Caption = "下(&B)"
Height = 255
Index = 18
Left = -74520
TabIndex = 72
Top = 1185
Width = 465
End
Begin VB.Label LblTitle
Caption = "左(&L)"
Height = 255
Index = 17
Left = -74520
TabIndex = 74
Top = 1605
Width = 465
End
Begin VB.Label LblTitle
Caption = "右(&R)"
Height = 255
Index = 16
Left = -74520
TabIndex = 76
Top = 1980
Width = 465
End
End
Begin VB.CommandButton CmdTemp
Caption = "Command1"
Height = 180
Left = 8340
TabIndex = 88
Top = 450
Width = 90
End
End
Attribute VB_Name = "FrmNewTemplate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''
'单据编辑窗体
'作者:李鹏 1998.6
'
'功能：完成对单据模板的新增、编辑操作；
'
'公有变量：
'
'Public mlngTemplateID As Long '模板对应的ID
' 接口： AddCard 增加单据模板记录。
' 参数：intModal 显示模式，strName 用户输入值
' EditCard 修改单据模板记录。
' 参数： lngID 被修改的记录的ID，intModal 显示模式
' DelCard 删除单据模板记录。
' 参数： lngID 被删除的记录的ID
'
Option Explicit
Public mlngTemplateID As Long '模板ID
Public mAddlngTemplateID As Long '新增传入的模板ID
Private mblnIsChanged As Boolean '修改标志
'Private WithEvents mclsMainControl As MainControl '主控对象
Private ID As Long
Private mlngReceiptTypeID As Long
Private TemplateIsEdited As Boolean
Private mTemplateName As String '模板名称
Private mIsLoad As Boolean
Private mArrayPapersize(1 To 56) As String
Private strX(0 To 56) As String
Private strY(0 To 56) As String
Private mSetupFont(0 To 1) As New StdFont
Private mtempTop As Integer
Private mtempBottom As Integer
Private mtempLeft As Integer
Private mtempRight As Integer
Private TempConst1 As Double '常数一
Private TempConst2 As Double '常数二
Dim rn As rdoResultset
Dim strSql As String
Dim strSql1 As String
Dim strsql2 As String
Private mFontColor(0 To 1) As Long
Private mFontBackColor(0 To 1) As Long '字体背景颜色
Private mIsSaveToDB As Boolean '是否回存数据库
Private strTempWidth As String
Private strTempHeigh As String
Private mIsEXE As Boolean
Private mRowHeight As String
Private mRows As String
Private mIsRowHeightChange As Boolean
Private mIsRowsChange As Boolean
Private mTempstr As String
Private fontDig As StdFont '对话框的字体
Private mIsExange As Boolean
Private mSchemeRn As rdoResultset
Private mTemplateColor(0 To 7) As Long '有关模板设计方案的各种颜色数组
Private mColorIndex As Integer
Private mComboIndex As Integer
Private mSchemeID As Long
Private mDJHeaderRn As rdoResultset '打开有关单据头的数据库结果集
Private mDJRn As rdoResultset '打开有关单据体的数据库结果集
Private mDJFooterRn As rdoResultset '打开有关单据尾的数据库结果集
Private mIsCheck As Boolean
Private mCurGrid As MSFlexGrid
Private m_rows As Integer
Private m_cols As Integer
Private mIsUpdatePaper As Boolean
Private mTempString As String
Private mIsShowFrm As Boolean
Private mstrReturn As String '颜色方案名称
Private mIsSaveGrid As Boolean '是否把GRID中的数据重新回存数据库
Private bytOprateType As Integer '对当前模板操作的方式类型(1-新增,2-修改,3-删除)
Private StrSysName As String '存放系统名
Private mNewTemplateID As Long
Private mRnTitleColor As rdoResultset '标题颜色结果集
Private mRnTextColor As rdoResultset '正文颜色结果集
Private mRnHJMode As rdoResultset '合计方式结果集
Private mblnIsExist As Boolean
Private mlngTempSchemaID As Long
Private mIsRefresh As Boolean
Private mblnIsDesign As Boolean '模板设计按钮是否可见
Private mblnIsSaveForGrid As Boolean '是否保存Grid
Private mRnAidItem As rdoResultset
Private mlngFixedCardFaceID As Long '固资卡片正面模板ID
Private mlngFixedCardBackID As Long '固资卡片背面模板ID
Private mblnIsFixCard As Boolean '是否是增加固资卡片模板
Private mTitleFontRn As rdoResultset
Private mDataFontRn As rdoResultset
Private mblnHaveFixCustom As Boolean '是否有固资自定义项目
Private Const lngCellColor = 8421504 '当某项不可用时,相应Grid控件对象单元格的背景色
Private mblnIsContinu As Boolean
Private mDefaultIndex As Integer
Private mintLoadDesign As Integer
Private mblnIsDefault As Boolean '是否是系统默认纸张
Private mblnIsInportAdd As Boolean '是否导入增加
Private mlngPrintSetupID As Long
Private mlngGridRow As Long
Private mblnIsGridLine As Boolean
Private mbytVersion As Integer
Private mstrName As String
Private mblnIsStop As Boolean
'---------WXY-------------------
Private Const conRightID = 394 '权限ID号
Private Const lngSalesReceiveID = -1000 '销售收款ID号
Private Const lngStockPaymentID = -2000 '采购付款ID号
Private Const lngDataBookID = -3000 '销货清单单据类型ID号
Private mOldPaperWidth As String '上次的纸张宽度
Private mOldPaperHeight As String '上次的纸张高度
Private blnWriteForm As Boolean '是否是导入数据操作
Private mlngGridRowHeight As Long 'GRID行高
Private mblnIsSys As Boolean 'Is Sys ?
Private mbytClipping As Integer 'Clip Line
Private mblnMountTogether As Boolean '是否借贷方金额同栏
Private mblnBusinessActivity As Boolean '是否是销售收款、采购付款
Private mstrControlType As String '控件类型：T(Title)、F(Fields)、C(Columns)、O(Footer)、S(Sum)
Private mstrFieldDesc As String '字段说明
Private mstrFieldName As String '字段名称
Private mstrFieldType As String '字段类型
Private mbytFieldSize As String '字段长度
Private mbytFieldMinSize As String '字段最小长度
Private mstrTemplateID As String '模板ID字符串（"模板名称,单据类型ID,是否是收款或付款标志"）
Private mblnImportSuccess As Boolean '是否导入成功
Private mblnIsSaleDataBook As Boolean
Private mblnIsTaxManSeries As Boolean
Private mlngTaxManSeries As Long
Private mlngSaleDataBookTemplateID As Long
Private mlngAmountSeries As Long
Private mintType As Long
Private m_lngReceiptTypeID As Long '导入时的单据类型ID号
Private mlngCurrentTemplateID As Long '当前模板ID号(固资要存其正面ID号)
Private mblnInitCard As Boolean '确定是否进行初始化动作
Private mblnR_P As Boolean '是否是销售收款、采购付款
Private blnUnFrmLoad As Boolean '是否不执行FORM_LOAD 内的代码（导入时不执行）
Private lngOldGridRow As Long '上次的GRID行
Private intOption As Integer '
Private lngOldDataBookTemplateID As Long '上次销货清单模板ID号
Private blnIsSaleDataBook As Boolean '是否是销货清单标志
Private Type GridType
strFieldDesc As String
strQuantityTotal As String
strAmountTotal As String
End Type
Private mGrid() As GridType 'Grid Type
Private strDataBookTemplate As String '销货清单时要用到的导入串
Private mlngTemplateSpace As Long '单张连续打印单据间距（tips）
Private Sub InitArray()
mArrayPapersize(45) = "窄行打印纸， 10 x 11 英寸"
' mArrayPapersize(2) = "+A611 小型信笺， 8 1/2 x 11 英寸"
' mArrayPapersize(3) = "小型报， 11 x 17 英寸"
' mArrayPapersize(4) = "宽行打印纸， 17 x 11 英寸"
' mArrayPapersize(5) = "法律文件， 8 1/2 x 14 英寸"
' mArrayPapersize(6) = "声明书，5 1/2 x 8 1/2 英寸"
' mArrayPapersize(7) = "行政文件，7 1/2 x 10 1/2 英寸"
mArrayPapersize(8) = "A3 297 x 420 毫米"
mArrayPapersize(9) = "A4 210 x 297 毫米"
' mArrayPapersize(10) = "A4小号， 210 x 297 毫米"
mArrayPapersize(11) = "A5 148 x 210 毫米"
mArrayPapersize(12) = "B4 250 x 354 毫米"
mArrayPapersize(13) = "B5 182 x 257 毫米"
' mArrayPapersize(14) = "对开本， 8 1/2 x 13 英寸"
' mArrayPapersize(15) = "四开本， 215 x 275 毫米"
' mArrayPapersize(16) = "10x14 英寸"
' mArrayPapersize(17) = "11x17 英寸"
' mArrayPapersize(18) = "便条，8 1/2 x 11 英寸"
' mArrayPapersize(19) = "#9 信封， 3 7/8 x 8 7/8 英寸"
' mArrayPapersize(20) = "#10 信封， 4 1/8 x 9 1/2 英寸"
' mArrayPapersize(21) = "#11 信封， 4 1/2 x 10 3/8 英寸"
' mArrayPapersize(22) = "#12 信封， 4 1/2 x 11 英寸"
' mArrayPapersize(23) = "#14 信封， 5 x 11 1/2 英寸"
' mArrayPapersize(24) = "C 尺寸工作单"
' mArrayPapersize(25) = "D 尺寸工作单"
' mArrayPapersize(26) = "E 尺寸工作单"
' mArrayPapersize(27) = "DL 型信封， 110 x 220 毫米"
' mArrayPapersize(29) = "C3 型信封， 324 x 458 毫米"
' mArrayPapersize(30) = "C4 型信封， 229 x 324 毫米"
' mArrayPapersize(28) = "C5 型信封， 162 x 229 毫米"
' mArrayPapersize(31) = "C6 型信封， 114 x 162 毫米"
' mArrayPapersize(32) = "C65 型信封，114 x 229 毫米"
' mArrayPapersize(33) = "B4 型信封， 250 x 353 毫米"
' mArrayPapersize(34) = "B5 型信封，176 x 250 毫米"
' mArrayPapersize(35) = "B6 型信封， 176 x 125 毫米"
' mArrayPapersize(36) = "信封， 110 x 230 毫米"
' mArrayPapersize(37) = "信封大王， 3 7/8 x 7 1/2 英寸"
' mArrayPapersize(38) = "信封， 3 5/8 x 6 1/2 英寸"
mArrayPapersize(39) = "宽行打印纸， 14 7/8 x 11 英寸"
' mArrayPapersize(40) = "德国标准复写簿， 8 1/2 x 12 英寸"
' mArrayPapersize(41) = "德国法律复写簿， 8 1/2 x 13 英寸"
mArrayPapersize(56) = "自定义纸张"
mArrayPapersize(55) = "默认纸张"
''相应纸的高度和宽度
'单位为mm
strX(0) = ""
strY(0) = ""
strX(45) = "14400" '"10 in"
strY(45) = "15840" '"11 in"
strX(54) = "12240" '"8.5 in"
strY(54) = "15840" '"11 in"
strX(2) = "2080" '"8.5 in"
strY(2) = "2700" '"11 in"
strX(3) = "2700" '"11 in"
strY(3) = "4170" '"17 in"
strX(39) = "21420" '"14 7/8 in"
strY(39) = "15840" '"11 in"
strX(5) = "2080" '"8.5 in"
strY(5) = "3430" '"14 in"
strX(6) = "1350" '"5.5 in"
strY(6) = "2080" '"8.5 in"
strX(7) = "1780" '"7.25 in"
strY(7) = "2570" '"10.5 in"
strX(8) = "16840 "
strY(8) = "23814 "
strX(9) = "11907 "
strY(9) = "16840 "
strX(10) = "2100 "
strY(10) = "2970 "
strX(11) = "8392 "
strY(11) = "11907 "
strX(12) = "14175 "
strY(12) = "20072 "
strX(13) = "10319 "
strY(13) = "14572 "
strX(14) = "2080" '"8.5 in"
strY(14) = "3190" '"13 in"
strX(15) = "2150"
strY(15) = "2750"
strX(16) = "2450" '"10 in"
strY(16) = "3430" '"14 in"
strX(17) = "2700" '"11 in"
strY(17) = "4170" '"17 in"
strX(18) = "2080" '"8.5 in"
strY(18) = "2700" ' "11 in"
strX(19) = "980" '3 7/8 in''
strY(19) = "2250" '8 7/8 in''
strX(20) = "1080" '4 1/8 in''
strY(20) = "2410" '9 1/2 in''
strX(21) = "1140" '4 1/2 in''
strY(21) = "2120" '10 3/8 in''
strX(22) = "1140" '4 1/2 in''
strY(22) = "2790" '11 in''
strX(23) = "1270" '5 in''
strY(23) = "2920" '11 1/2 in''
strX(24) = ""
strY(24) = ""
strX(25) = ""
strY(25) = ""
strX(26) = ""
strY(26) = ""
strX(27) = "1100"
strY(27) = "2200"
strX(28) = "1620"
strY(28) = "2290"
strX(29) = "3240"
strY(29) = "4580"
strX(30) = "2290"
strY(30) = "3240"
strX(31) = "1140"
strY(31) = "1620"
strX(32) = "1140"
strY(32) = "2290"
strX(33) = "2500"
strY(33) = "3530"
strX(34) = "1760"
strY(34) = "2500"
strX(35) = "1760"
strY(35) = "1250"
strX(36) = "1100"
strY(36) = "2300"
strX(37) = "980"
strY(37) = "1900"
strX(38) = "920"
strY(38) = "1650"
strX(40) = "2160"
strY(40) = "3050"
strX(41) = "2⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -