📄
字号:
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":308C
Key = "fq"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":3426
Key = "bz"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":37C0
Key = "tc"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":3B5A
Key = "bcgs"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":3EF4
Key = "mrlk"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":428E
Key = "xsxm"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":4628
Key = "first"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":49C2
Key = "prev"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":4D5C
Key = "next"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":50F6
Key = "last"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":5490
Key = "xx"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":582A
Key = "define"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":5BC4
Key = "exec"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":5F5E
Key = "xz"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":62F8
Key = "sc"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":6692
Key = "sx"
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":6A2C
Key = "cx"
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":6DC6
Key = "zd"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":7160
Key = "dz"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":74FA
Key = "ph"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":7894
Key = "fz"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":7C2E
Key = "dw"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":7FC8
Key = "hf"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":8362
Key = "pz"
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":86FC
Key = "check"
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":8A96
Key = "qs"
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":8E30
Key = "fullcheck"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":91CA
Key = "qq"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":9564
Key = "bcw"
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "质量系统_中控检验分析单.frx":98FE
Key = "ye"
EndProperty
EndProperty
End
Begin VSFlex8Ctl.VSFlexGrid WglrGrid
Height = 3345
Left = 120
TabIndex = 1
Top = 2280
Width = 10680
_ExtentX = 18838
_ExtentY = 5900
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = 16777215
ForeColor = -2147483640
BackColorFixed = 12640511
ForeColorFixed = -2147483630
BackColorSel = -2147483643
ForeColorSel = -2147483640
BackColorBkg = 16777215
BackColorAlternate= 16777215
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 1
HighLight = 1
AllowSelection = 0 'False
AllowBigSelection= 0 'False
AllowUserResizing= 0
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 5000
Cols = 10
FixedRows = 1
FixedCols = 0
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0 'False
ShowComboButton = -1 'True
WordWrap = -1 'True
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
End
Begin VB.Label Lab_Title
AutoSize = -1 'True
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "单据标题自动调整"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 4440
TabIndex = 18
Top = 840
Width = 2520
End
Begin VB.Label Lab_BillId
AutoSize = -1 'True
BackColor = &H0080C0FF&
Height = 270
Left = 7680
TabIndex = 17
Top = 600
Visible = 0 'False
Width = 2490
End
Begin VB.Label Lab_Djclzt
BackColor = &H0000FFFF&
Caption = "1"
ForeColor = &H00808080&
Height = 255
Left = 10320
TabIndex = 16
Top = 600
Visible = 0 'False
Width = 285
End
Begin VB.Label Lab_OperStatus
BackColor = &H000080FF&
Caption = "1"
Height = 345
Left = 10290
TabIndex = 15
Top = 960
Visible = 0 'False
Width = 345
End
Begin VB.Label Lab_Bill
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 225
Left = 9030
TabIndex = 13
Top = 6330
Width = 735
End
Begin VB.Label Lab_Checker
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 225
Left = 7170
TabIndex = 12
Top = 6360
Width = 735
End
Begin VB.Label TsLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单据号："
Height = 180
Index = 0
Left = 480
TabIndex = 11
Top = 1950
Width = 765
End
End
Attribute VB_Name = "Qc_MidAnaBill"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***********************************************************************************************************
'* 模 块 名 称 :中控检验分析单
'* 功 能 描 述 :此功能模块主要完成单据录入、修改、删除、预览打印等。
'* 程序员姓名 :李海祥
'* 最后修改人 :张晶石
'* 最后修改时间:2002/01/24
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'*
'* 1.每次调入外部功能窗体，均要加锁ChangeLock=True,窗体关闭后解锁ChangeLock=false
'* TextValiLock=True TextValiLock=false
'*
'* 2.Lab_OperStatus 用此标签来标识单据录入状态(默认值为1) "1"-浏览 "2"-新增 "3"-修改
'*
'* 3.Lab_Djclzt 用此标签来标识单据处理状态(默认值为1) "1"-填制单据 "2"-查询单据列表 "3"-明细帐联查单据
'*
'* 4.原则:只要单据能够存盘(无论修改或新增)则其必须接受完整性及有效性规则检查
'***********************************************************************************************************
'[以下为根据实际情况设置变量
Dim Bln_BillChange As Boolean '标识单据是否发生改动
Dim Rec_Query As New ADODB.Recordset '单据组查询结果动态集(保存当前单据组ID)
Public Str_QueryCondi As String '单据组查询条件(接收单据列表传递查询条件)
Dim Int_MidStandID As Integer '检验分析标准主表ID
Dim Str_RightEdit As String '单据编辑(新增、修改、删除)权限索引
Dim Str_RightCheck As String '单据审核(审核、弃审)权限索引
']
'以下为固定使用变量(单据)
Dim BillCode As String '单据设计编码(索引号)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -