c
来自「VB开发的ERP系统」· 代码 · 共 1,044 行 · 第 1/3 页
TXT
1,044 行
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":25868
Key = "ph"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":25C02
Key = "fz"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":25F9C
Key = "dw"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":26336
Key = "hf"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":266D0
Key = "pz"
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":26A6A
Key = "check"
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":26E04
Key = "qs"
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2719E
Key = "fullcheck"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":27538
Key = "qq"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":278D2
Key = "bcw"
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":27C6C
Key = "ye"
EndProperty
BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":28006
Key = ""
EndProperty
BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":283A0
Key = "frist"
EndProperty
BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2873A
Key = "dj"
EndProperty
EndProperty
End
End
Begin MSComctlLib.Toolbar SzToolbar
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 13
Top = 0
Width = 11820
_ExtentX = 20849
_ExtentY = 1005
ButtonWidth = 820
ButtonHeight = 953
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "设置"
Key = "ymsz"
ImageKey = "sz"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "dy"
ImageKey = "dy"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
Key = "yl"
ImageKey = "yl"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询"
Key = "cx"
ImageKey = "cx"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "bz"
ImageKey = "bz"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "fh"
ImageKey = "tc"
EndProperty
EndProperty
BorderStyle = 1
Begin MSComctlLib.ImageList ImageList1
Left = 6990
Top = 30
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 33
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":28AD4
Key = "sz"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":28E6E
Key = "dy"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":29208
Key = "yl"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":295A2
Key = "xg"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2993C
Key = "zh"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":29CD6
Key = "sh"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2A070
Key = "bc"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2A40A
Key = "fq"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2A7A4
Key = "bz"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2AB3E
Key = "tc"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2AED8
Key = "bcgs"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2B272
Key = "mrlk"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2B60C
Key = "xsxm"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2B9A6
Key = "first"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2BD40
Key = "prev"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2C0DA
Key = "next"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2C474
Key = "last"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2C80E
Key = "xx"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2CBA8
Key = "define"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2CF42
Key = "exec"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2D2DC
Key = "xz"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2D676
Key = "sc"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2DA10
Key = "sx"
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2DDAA
Key = "cx"
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2E144
Key = "zd"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2E4DE
Key = "dz"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2E878
Key = "ph"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2EC12
Key = "fz"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2EFAC
Key = "dw"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2F346
Key = "hf"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2F6E0
Key = "pz"
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2FA7A
Key = "check"
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "c成品检验管理_成品质量等级走势图.frx":2FE14
Key = "txfx"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar GsToolbar
Height = 540
Left = 10950
TabIndex = 14
Top = 0
Width = 855
_ExtentX = 1508
_ExtentY = 953
ButtonWidth = 1455
ButtonHeight = 953
Appearance = 1
Style = 1
ImageList = "ImageList1"
DisabledImageList= "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "保存格式"
Key = "bcgs"
ImageKey = "bcgs"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "默认列宽"
Key = "hfmrgs"
ImageKey = "mrlk"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "显示项目"
Key = "xsxm"
ImageKey = "mrlk"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "图形分析"
Key = "txfx"
ImageKey = "txfx"
EndProperty
EndProperty
End
End
End
Attribute VB_Name = "FrmProGraph_Zst"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************
'* 模 块 名 称 :成品等级走势图
'* 功 能 描 述 :
'* 程序员姓名 :邹力
'* 最后修改人 :张晶石
'* 最后修改时间:2002/01/10
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'**************************************************************************
Dim intcycle As Integer '分段数
Dim resultY() As Single '优级品率
Dim resultH() As Single '合格品率
Dim Cycle() As String '分段数据
Dim result() As Single '品级率
Dim gradecode() As String '质量等级编码
Dim gradename() As String '质量等级名称
Dim intcount As Integer '检验项目数量
Dim reptitle As String '图形输出标题
Dim gradecount As Integer '质量等级个数
Dim ReportTitle As String '报表主标题
Dim Str_QueryCondi As String '用户录入查询条件
Dim Rec_BillID As New ADODB.Recordset '用户查询单据ID动态集
Dim strwlbh As String '物料编号
Dim strName As String '物料名称
Dim Daystart As String '起始日期
Dim Dayend As String '结束日期
Dim strcycle As String '周期
'以下为固定使用变量
Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
Dim GridCode As String '显示网格网格代码
Dim GridInf() As Variant '整个网格设置信息
Dim Tsxx As String '系统提示信息
Dim Qslz As Long '网格隐藏(非操作显示)列数
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?