IT博客-Victor.Stone

关于override和多成态

Victor.Stone — Fri, 09 Mar 2012 15:50:00 GMT

    public abstract class Animal
    {
        public string type = "**类";

        public abstract void ShowType();

        public void Eat()
        {
            Console.WriteLine("Animal都是会吃的.");
        }

        public string Color = "**色";
    }

    public class Bird : Animal
    {
        public string type = "Bird类";

        public override void ShowType()
        {
            Console.WriteLine("当前的Type:{0}", type);
        }

        private string color;

        public string Color
        {
            get { return color; }
            set { color = value; }
        }
    }

    public class Chicken : Bird
    {
        public string type = "Chicken类";

        public override void ShowType()
        {
            //base.ShowType();
            Console.WriteLine("当前的Type:{0}", type);
        }

        public void ShowColor()
        {
            Console.WriteLine("颜色:", Color);
        }
    }

    class Program
    {
        static void Main(string[] args)
        {
            Bird b = new Bird();
            b.Color = "白色";
            Console.WriteLine("b Color:{0} ", b.Color);
            b.ShowType();
            Console.WriteLine("-".PadLeft(40, '-'));

            Chicken c = new Chicken();
            c.Color = "黑黑";
            Console.WriteLine("c Color:{0} ", c.Color);
            c.ShowType();
            Console.WriteLine("-".PadLeft(40, '-'));

            Console.ForegroundColor = ConsoleColor.Cyan;
            Animal b2 = new Bird();
            b2.Color = "白色2";
            Console.WriteLine("b2 Color:{0} ", b2.Color);
            Console.WriteLine("b2.Type:{0} ", b2.type);
            b2.ShowType();
            Console.WriteLine("-".PadLeft(40, '-'));

            Animal c2 = new Chicken();
            //c2.Color = "黑黑2"; //如果这样,会调用基类的颜色
            Console.WriteLine("c2 Color:{0} ", c2.Color);
            Console.WriteLine("c2.Type:{0} ", c2.type);
            c2.ShowType();  //因为ShowType()方法被override重写了所以会调用子类的方法, 但属性和成员则会取自于父类的
            Console.WriteLine("-".PadLeft(40, '-'));

            Console.ReadLine();
        }
    }

运行结果:

Victor.Stone 2012-03-09 23:50 发表评论

在数据库中保存和显示图片

Victor.Stone — Wed, 07 Mar 2012 16:15:00 GMT

摘要: Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->namespace ImageTest{ public partial class Form1 : ... 阅读全文

Victor.Stone 2012-03-08 00:15 发表评论

IE9打不开.appliction的问题

Victor.Stone — Wed, 25 Jan 2012 19:21:00 GMT

前几天碰到IE9下打开clickonce布署的程序时，发现无法打开。将文件关联设置为用dfsvc.exe(.net framework目录下)打开即可。

Victor.Stone 2012-01-26 03:21 发表评论

主生产计划MPS

Victor.Stone — Thu, 24 Mar 2011 00:52:00 GMT

1、主生产计划MPS

主生产计划的理论非常复杂，需考虑关键工作中心关键工序的能力是否足够，如果完全按理论进行主生产计划计算，企业需维护很多的基础资料，如果基础资料不准确，则计划形成虚设。因此，在ERP系统中，从企业的实际情况出发，把主生产计划进行了彻底简化，使之变得非常的实用。企业一般都会知道一段时期内各类产品的生产能力(简称产能类别)。

表8.1是一个钟表制造企业每天的生产能力状况。

产能类别	电子手表	金属手表	贵重手表	钟
每日产能	30000	10000	2000	2000

因此计划管理人员只需对产品进行分类，定义产品的产能类别，然后对每一产能类别排定生产完工日期，使得排定日期的负荷与该类每天的生产能力基本平衡，就可据此进行后续的MRP、CRP、FRP计划。
主生产计划的来源主要有如图8-3几种途径：

图8-3　MPS的主要来源

2、产能类别

对生产能力按产品进行分类，对每一类进行主生产计划，这样的类别称为产能类别。

在定义物料的产能类别之前，应规划有几类产能类别，对每个类别定义一个代码。产能类别代码只在MPS中用到。

3、主生产计划的制订程序

    在ERP系统中，主生产计划有两种制订方式：

    (1) 手工制订主生产计划；
    (2) 自动排定主生产计划。

    其制订过程是一个不断循环反复动态调整的过程，当接到新的客户订单时，需重新排定MPS，只有当制订的计划比较合理，调整计划的频率才不会很快，否则需经常进行调整。在ERP系统启用之初，可能二三天排一次MPS，系统运作正常后可能一个星期或半个月排一次MPS。如果是每天都接到新的订单，则每天都要排定MPS。MPS的制订流程如图8-5。有的客户订单必须指定在某一天生产完成，因此需手工排定该订单的生产完成日期。有的订单批量很大时，可能会要拆单。而大部分的客户订单，会按交货日期的顺序和生产能力大小由系统自动排定生产完成日期。

图8-5　MPS制订流程

在定义物料的产能类别之前，应规划有几类产能类别，对每个类别定义一个代码。产能类别代码只在MPS中用到。

4、手工排定主生产计划

    接收客户订单时，系统预设的生产完成日期是交货日期的前一个工作日。手工调整生产完成日期后，需进行日期确定，在运行MPS时生产完成日期已确定的订单不再自动排定计划。
    手工排定MPS时请注意：
    (1) 订单需完成量＝
        订单数量＋订单备品＋制造备品－订单已出货数量－订单备品已出货数量－库
        存数量。
    (2) 只有需出货的订单且库存不足时才需排定MPS。
    (3) 需完成量＝对应产能类别和生产完成日期的需完成量的汇总数。
           (4) 当需完成量很大时，可进行订单拆分。

5、自动排定主生产计划

    当订单很多时，手工排定MPS工作量很大，大部分应按交货日期的顺序，考虑生产能力，进行MPS计算。手工排定中日期没有确定的部分在运行MPS时会全部重新排定生产完成日期。
    在运行MPS前，必须先建立公司的工作日历，只有工作日才安排生产。
    如果某一天已手工排定了生产计划，则MPS计算时会扣除其排定的数量。
    除了指定每日产能和产能调整百分比外，还需指明从哪天开始排定生产完成日期。
    每个产能类别都要运行MPS。

Victor.Stone 2011-03-24 08:52 发表评论

Remoting异步回调

Victor.Stone — Mon, 20 Dec 2010 14:19:00 GMT

下面是今天做的一个小试验代码：

        private void FrmMain_Load(object sender, EventArgs e)
        {
            this.pictureBox1.Visible = false;

            BinaryServerFormatterSinkProvider serverProvider = new BinaryServerFormatterSinkProvider();
            BinaryClientFormatterSinkProvider clientProvider = new BinaryClientFormatterSinkProvider();
            serverProvider.TypeFilterLevel = TypeFilterLevel.Full;

            IDictionary props = new Hashtable();
            //props["bindTo"] = "121.12.157.244";//"113.105.185.151";
            props["port"] = 0;
            HttpChannel channel = new HttpChannel(props, clientProvider, serverProvider);
            ChannelServices.RegisterChannel(channel, false);

            this.user = (IUser)Activator.GetObject(
                typeof(IUser),
                "http://localhost:9090/User.soap");
        }

        public delegate string MyDelegate(int a);
        private MyDelegate md;

        public void CallBack1(IAsyncResult Iar)
        {
            if (Iar.IsCompleted)
            {
                this.Text = md.EndInvoke(Iar);
                this.pictureBox1.Visible = false;
            }
        }

        private void button1_Click(object sender, EventArgs e)
        {
            this.Text = "";
            md = new MyDelegate(this.user.GetValue);
            AsyncCallback ac = new AsyncCallback(CallBack1);
            IAsyncResult Iar = md.BeginInvoke(345, ac, null);
            this.pictureBox1.Visible = true;
        }

Victor.Stone 2010-12-20 22:19 发表评论

服务端订阅客户端事件处理

Victor.Stone — Thu, 16 Dec 2010 01:05:00 GMT

摘要: 服务端订阅客户端事件处理：（不能穿过防火墙，代理）BI: using System;using System.Collections.Generic;using System.Linq;using System.Text;namespace BI{ public interface ... 阅读全文

Victor.Stone 2010-12-16 09:05 发表评论

ERP术语名词解释

Victor.Stone — Thu, 16 Dec 2010 00:44:00 GMT

摘要: ERP术语名词解释 ERP (enterprise resource planning) 企业资源计划 CRM (customer relational management) 客户关系管理 BPR (business process reengineering) 企业业务流程重组 ... 阅读全文

Victor.Stone 2010-12-16 08:44 发表评论

数据库附加

Victor.Stone — Thu, 16 Dec 2010 00:37:00 GMT

CREATE DATABASE [abc] ON
( FILENAME = N'E:\db\abc.mdf' ),
( FILENAME = N'E:\db\abc_log.ldf' )
FOR ATTACH
GO
if not exists
(select name from master.sys.databases sd
where name = N'abc' and SUSER_SNAME(sd.owner_sid) = SUSER_SNAME() )
EXEC [abc].dbo.sp_changedbowner @loginame=N'sa', @map=false
GO

Victor.Stone 2010-12-16 08:37 发表评论

vs2010中加入环境变量

Victor.Stone — Thu, 09 Dec 2010 02:41:00 GMT

@echo Setting environment for using Microsoft Visual Studio 2010 x86 tools.

@call :GetVSCommonToolsDir
@if "%VS100COMNTOOLS%"=="" goto error_no_VS100COMNTOOLSDIR

@call "%VS100COMNTOOLS%VCVarsQueryRegistry.bat" 32bit No64bit

@if "%VSINSTALLDIR%"=="" goto error_no_VSINSTALLDIR
@if "%FrameworkDir32%"=="" goto error_no_FrameworkDIR32
@if "%FrameworkVersion32%"=="" goto error_no_FrameworkVer32
@if "%Framework35Version%"=="" goto error_no_Framework35Version

@set FrameworkDir=%FrameworkDir32%
@set FrameworkVersion=%FrameworkVersion32%

@if not "%WindowsSdkDir%" == "" (
    @set "PATH=%WindowsSdkDir%bin\NETFX 4.0 Tools;%WindowsSdkDir%bin;%PATH%"
    @set "INCLUDE=%WindowsSdkDir%include;%INCLUDE%"
    @set "LIB=%WindowsSdkDir%lib;%LIB%"
)

@rem
@rem Root of Visual Studio IDE installed files.
@rem
@set DevEnvDir=%VSINSTALLDIR%Common7\IDE\

@rem PATH
@rem ----
@if exist "%VSINSTALLDIR%Team Tools\Performance Tools" (
    @set "PATH=%VSINSTALLDIR%Team Tools\Performance Tools;%PATH%"
)
@if exist "%ProgramFiles%\HTML Help Workshop" set PATH=%ProgramFiles%\HTML Help Workshop;%PATH%
@if exist "%ProgramFiles(x86)%\HTML Help Workshop" set PATH=%ProgramFiles(x86)%\HTML Help Workshop;%PATH%
@if exist "%VCINSTALLDIR%VCPackages" set PATH=%VCINSTALLDIR%VCPackages;%PATH%
@set PATH=%FrameworkDir%%Framework35Version%;%PATH%
@set PATH=%FrameworkDir%%FrameworkVersion%;%PATH%
@set PATH=%VSINSTALLDIR%Common7\Tools;%PATH%
@if exist "%VCINSTALLDIR%BIN" set PATH=%VCINSTALLDIR%BIN;%PATH%
@set PATH=%DevEnvDir%;%PATH%

@if exist "%VSINSTALLDIR%VSTSDB\Deploy" (
    @set "PATH=%VSINSTALLDIR%VSTSDB\Deploy;%PATH%"
)

@if not "%FSHARPINSTALLDIR%" == "" (
    @set "PATH=%FSHARPINSTALLDIR%;%PATH%"
)

@rem INCLUDE
@rem -------
@if exist "%VCINSTALLDIR%ATLMFC\INCLUDE" set INCLUDE=%VCINSTALLDIR%ATLMFC\INCLUDE;%INCLUDE%
@if exist "%VCINSTALLDIR%INCLUDE" set INCLUDE=%VCINSTALLDIR%INCLUDE;%INCLUDE%

@rem LIB
@rem ---
@if exist "%VCINSTALLDIR%ATLMFC\LIB" set LIB=%VCINSTALLDIR%ATLMFC\LIB;%LIB%
@if exist "%VCINSTALLDIR%LIB" set LIB=%VCINSTALLDIR%LIB;%LIB%

@rem LIBPATH
@rem -------
@if exist "%VCINSTALLDIR%ATLMFC\LIB" set LIBPATH=%VCINSTALLDIR%ATLMFC\LIB;%LIBPATH%
@if exist "%VCINSTALLDIR%LIB" set LIBPATH=%VCINSTALLDIR%LIB;%LIBPATH%
@set LIBPATH=%FrameworkDir%%Framework35Version%;%LIBPATH%
@set LIBPATH=%FrameworkDir%%FrameworkVersion%;%LIBPATH%

@goto end

@REM -----------------------------------------------------------------------
:GetVSCommonToolsDir
@set VS100COMNTOOLS=
@call :GetVSCommonToolsDirHelper32 HKLM > nul 2>&1
@if errorlevel 1 call :GetVSCommonToolsDirHelper32 HKCU > nul 2>&1
@if errorlevel 1 call :GetVSCommonToolsDirHelper64  HKLM > nul 2>&1
@if errorlevel 1 call :GetVSCommonToolsDirHelper64  HKCU > nul 2>&1
@exit /B 0

:GetVSCommonToolsDirHelper32
@for /F "tokens=1,2*" %%i in ('reg query "%1\SOFTWARE\Microsoft\VisualStudio\SxS\VS7" /v "10.0"') DO (
    @if "%%i"=="10.0" (
        @SET "VS100COMNTOOLS=%%k"
    )
)
@if "%VS100COMNTOOLS%"=="" exit /B 1
@SET "VS100COMNTOOLS=%VS100COMNTOOLS%Common7\Tools\"
@exit /B 0

:GetVSCommonToolsDirHelper64
@for /F "tokens=1,2*" %%i in ('reg query "%1\SOFTWARE\Wow6432Node\Microsoft\VisualStudio\SxS\VS7" /v "10.0"') DO (
    @if "%%i"=="10.0" (
        @SET "VS100COMNTOOLS=%%k"
    )
)
@if "%VS100COMNTOOLS%"=="" exit /B 1
@SET "VS100COMNTOOLS=%VS100COMNTOOLS%Common7\Tools\"
@exit /B 0

Victor.Stone 2010-12-09 10:41 发表评论

通过委托更新WinForm的UI

Victor.Stone — Wed, 08 Dec 2010 13:02:00 GMT

private delegate void DelOutput(string str);

///

/// 向text中写入文本
///

        ///
        public void output(string str)
        {
            if (this.InvokeRequired)
            {
                DelOutput output = new DelOutput(this.output);
                this.Invoke(output, new object[] { str });
            }
            else
            {
                this.textBox1.Text += str + Environment.NewLine;
            }
        }

Victor.Stone 2010-12-08 21:02 发表评论