不合格品控制程序

不合格品控制程序,第1张

1.目的:

对不合格品进行控制,防止非预期的使用和安装,确保交付合格品。

2.范围:

适用于原料进货到产品交付的全过程的不合格品的控制。

3.职责:

3.1质管部负责不合格品的控制和管理。

3.2生产部负责不合格品的返工、返修、处理。

4.工作程序:

4.1不合格品被发现后,必须经过记录、标识、隔离、评审和处置过程,未经过上述程序不得投入使用、加工和交付。

4.2不合格品评审:

4.2.1轻微不合格品由检验员直接评审,并将结论记录在《检验记录表》上。

4.2.2重大不合格品(指批量不合格或严重影响产品外观和功能的不合格品)由质管部组织生产部、技术部进行会议评审,并将评审结论记录在《不合格品评审记录表》上,评审结论由质管部经理审核,报总裁审批。

4.3不合格品处置:

4.3.1处置方式分:拒收或退货(指材料)、返工、返修或不经返修作让步接收、降级或改作他用、报废等五种。

4.3.2进货产品的不合格处置:

a)进货产品经检验或验证判定为不合格,由检验员做好标识,通知采购部退换,质管部跟踪处理结果。

b)根据需要对不合格品进行全部检验挑选合格品入库,不合格品交采购部处理,按(a)执行。

4.3.3生产过程的产品处置:

a)评审中判定为返工的产品,由检验员直接送给车间主任,安排返工。

b)评审中判定为返修和让步接收的不合格品,由车间主任填写《让步接收申请单》经质管部确认后报总裁批准作让步接收,合同要求定制产品时,使用返修和让步接收的产品应经顾客同意。

c)评审中判定为降级或改作他用的不合格品,由车间主任填写《降级和改用申请单》,经质管部确认后处理,并由车间主任交一份生产部重新下单补料。

d)评审中判定为报废的不合格品,由车间主任填写《报废申请单》经质管部确认后报废。并由车间主任交一份生产部重新下单补料。

4.3.4最终产品不合格处置。评审中判为不合格的产品直接交给检验工段,接下来按4.3.3 *** 作。

4.3.5产品交付后,顾客投诉的不合格品按《退货处理流程》 *** 作。

4.4所有返工、返修产品,在返工或返修后由检验员重新检验。

4.5所有返工、返修产品记录按《记录控制程序》保存。

4.6各检验员每天将不合格情况进行统计,交检验工段或车间主任汇总、分析。

5.相关文件:

SYPF02《记录控制程序》

SYPF28《标识过程管理程序》

SYPF40《纠正措施控制程序》

SYPF41《预防措施控制程序》

《退货处理流程》

6.质量记录:

QRl301《不合格品评审表》

QRl302《返工返修表》

QRl303《让步接收单》

QRl304《报废申请单》

QRl305《信息反馈单》

主程序功能实现,详细功能见附件,内容太多。

using System

using System.Collections

using System.Configuration

using System.Data

using System.Linq

using System.Web

using System.Web.Security

using System.Web.UI

using System.Web.UI.HtmlControls

using System.Web.UI.WebControls

using System.Web.UI.WebControls.WebParts

using System.Xml.Linq

using System.IO

using System.Net

using System.Text.RegularExpressions

/// <summary>

/// FileUpload1.HasFile  如果是true,则表示该控件有文件要上传

/// FileUpload1.FileName  返回要上传文件的名称,不包含路径信息

/// FileUpload1.FileContent  返回一个指向上传文件的流对象

/// FileUpload1.PostedFile   返回已经上传文件的引用

/// FileUpload1.PostedFile.ContentLength  返回上传文件的按字节表示的文件大小

/// FileUpload1.PostedFile.ContentType    返回上传文件的MIME内容类型,也就是文件类型,如返回"image/jpg"

/// FileUpload1.PostedFile.FileName       返回文件在客户端的完全路径(包括文件名全称)

/// FileUpload1.PostedFile.InputStream    返回一个指向上传文件的流对象

/// FileInfo对象表示磁盘或网络位置上的文件。提供文件的路径,就可以创建一个FileInfo对象:

/// </summary>

public partial class BackManagement_ImagesUpload : System.Web.UI.Page

{

    public string treePath = ""

    public int imageW = 100

    public int imageH = 100

    protected void Page_Load(object sender, EventArgs e)

    {

        this.Button5.Attributes.Add("Onclick", "window.close()")//在本地关闭当前页,而不需要发送到服务器去关闭当前页时

        if (!Page.IsPostBack)

        {

            Label2.Text = Server.MapPath("/")

            TextBox3.Text = "ImageUpload"

            treePath = Server.MapPath("/") + TextBox3.Text.Trim() + "/"

            TextBox4.Text = imageW.ToString()

            TextBox5.Text = imageH.ToString()

        }

    }

    protected void btnload_Click(object sender, EventArgs e)

    {

        //如果保存图片的目录不存在,由创建它

        treePath = Server.MapPath("/") + TextBox3.Text.Trim() + "/"

        imageW = Convert.ToInt32(TextBox4.Text.ToString())

        imageH = Convert.ToInt32(TextBox5.Text.ToString())

        if (!File.Exists(treePath + "images"))   //如果/ImageUpload/images不存在,则创建/ImageUpload/images,用于存放源图片

        {

            System.IO.Directory.CreateDirectory(treePath + "images")

        }

        if (!File.Exists(treePath + "thumbnails"))   //如果/ImageUpload/thumbnails不存在,则创建/ImageUpload/thumbnails,用于存放缩略图片

        {

            System.IO.Directory.CreateDirectory(treePath + "thumbnails")

        }

        if (!File.Exists(treePath + "textImages"))   //如果/ImageUpload/textImages不存在,则创建/ImageUpload/textImages,用于存文字水印图片

        {

            System.IO.Directory.CreateDirectory(treePath + "textImages")

        }

        if (!File.Exists(treePath + "waterImages"))   //如果/ImageUpload/waterImages不存在,则创建/ImageUpload/waterImages

                                                                                     //用于存图形水印图片

        {

            System.IO.Directory.CreateDirectory(treePath + "waterImages")

        }

if (FileUpload1.HasFile)   //如果是true,则表示该控件有文件要上传

        {

            string fileContentType = FileUpload1.PostedFile.ContentType

            if (fileContentType == "image/bmp" || fileContentType == "image/gif" || fileContentType == "image/pjpeg")

            {

                string name = FileUpload1.PostedFile.FileName         //返回文件在客户端的完全路径(包括文件名全称)

                FileInfo file = new FileInfo(name)          //FileInfo对象表示磁盘或网络位置上的文件。提供文件的路径,就可以创建一个FileInfo对象:

                string fileName = file.Name                     // 文件名称

                string fileName_s = "x_" + file.Name     // 缩略图文件名称

                string fileName_sy = "text_" + file.Name                              // 水印图文件名称(文字)

                string fileName_syp = "water_" + file.Name                            // 水印图文件名称(图片)

string webFilePath = treePath + "images/" + fileName          // 服务器端文件路径

                string webFilePath_s = treePath + "thumbnails/" + fileName_s  // 服务器端缩略图路径

                string webFilePath_sy = treePath + "textImages/" + fileName_sy   // 服务器端带水印图路径(文字)

                string webFilePath_syp = treePath + "waterImages/" + fileName_syp // 服务器端带水印图路径(图片)

                string webFilePath_sypf = Server.MapPath("../images/tzwhx.png")               // 服务器端水印图路径(图片)

                

                if (!File.Exists(webFilePath))

                {

                    try

                    {

                        FileUpload1.SaveAs(webFilePath)                                // 使用 SaveAs 方法保存文件

                        if (CheckBox1.Checked)                                          //是否生成文字水印图

                        {

                            AddWater(webFilePath, webFilePath_sy)

                        }

                        if (CheckBox2.Checked)                                          //是否生成图形水印图

                        {

                            AddWaterPic(webFilePath, webFilePath_syp, webFilePath_sypf)

                        }

                        MakeThumbnail(webFilePath, webFilePath_s, imageW, imageH, "Cut")     // 生成缩略图方法

                        Label1.Text = "提示:文件“" + fileName + "”成功上传,并生成“" + fileName_s + "”缩略图,文件类型为:" + FileUpload1.PostedFile.ContentType + ",文件大小为:" + FileUpload1.PostedFile.ContentLength + "B"

                        Image1.ImageUrl = "/" + TextBox3.Text.ToString() + "/images/" + fileName

                        TextBox1.Text = webFilePath

                        TextBox2.Text = "/" + TextBox3.Text.ToString() + "/images/" + fileName

                    }

                    catch (Exception ex)

                    {

                        Label1.Text = "提示:文件上传失败,失败原因:" + ex.Message

                    }

                }

                else

                {

                    Label1.Text = "提示:文件已经存在,请重命名后上传"

                }

            }

            else

            {

                Label1.Text = "提示:文件类型不符"

            }

        }

    }


欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/yw/11472593.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-05-16
下一篇2023-05-16

发表评论

登录后才能评论

评论列表(0条)

    保存