🚀 go-pugleaf

\  Visual Foxpro 3.0(���¼��VFP)�ṩ��һ������MS-Graphͳ��ͼ
�ε��򵼳���,�������ΪWZGRAPH.APP���ź�����,���ø��򵼳���
ֻ���Խ����ķ�������ͳ��ͼ,�޷��Ա�̵ķ�ʽ��ݲ�ͬ����Ҫ��
��ؿ���ͳ��ͼ����VB 4.0�ṩ��һ������ͳ��ͼ�ε�Graph�ؼ�,��
�ؼ�����OLE DLL��ʽ�ṩ��,���к�ǿ�Ļ�ͼ����,����ֱ��ͼ����
ͼ��11��ͼ�Ρ�VFP ��OLE�������ƿ��Ե��ø�Graph�ؼ�,�ﵽ����
ͳ��ͼ�ε�Ŀ�ġ�
    Graph�ؼ�����
    Graph�ؼ��ṩ�����Էdz��ḻ,������ʮ����,��ϸ˵�����Բ�
��VB4.0���û��ؼ��ֲ�,���潫���ܼ������õ����ԡ�
    ��AutoInc:��ͳ��ͼ�������Ը�ֵʱ,�Ƿ��Զ����Ӽ�������(Th
isPoint��ThisSet����)��ֵ��AutoInc=1�Զ�,AutoInc=0���˹�����
��
    ��DrawMode:����ͼ����λ��ơ��丳ֵ����:
      DrawMode=0ͼ������
      DrawMode=1 ͼ����ʾΪ��,����BackGroup���Ե���ɫ��ʾ��
������ʾGraphCaption �������õı���
     DrawMode=2������ʾͼ��
     DrawMode=3��λͼ��ʽ��ʾͼ��
     DrawMode=4��ͼ�ο����������
     DrawMode=5��ӡͼ�εĿ���
     DrawMode=6��ͼ�α��浽�ļ�
    ��GraphCaption:ָ��ͼ�ı��⡣
    ��GraphTitle:ָ����ݼ�����Ŀ��
    ��ThisPoint:ָ���򷵻ص�ǰ���λ�á�
    ��ThisData:�趨��ͼ�����,����������������,�����ͼ�ϵ�
λ����ThisPoint��Thi sSet����ȷ����
    ��LabelText:ÿ����ݵ�ı��,������Ҳ����������,��ݵ���
ͼ�ϵ�λ����ThisPoi nt��ThisSet����ȷ����
    ��GraphType:ָ��ͼ�ε����͡��丳ֵ����:
      GraphType=0 û��ͼ��
      GraphType=1 ��ά��ͼ
      GraphType=2 ��ά��ͼ
      GraphType=3(ȱʡ)��άֱ��ͼ
      GraphType=4��άֱ��ͼ
      GraphType=5�ʵ�ͼ
      GraphType=6��ͼ
      GraphType=7��־/��ͼ
      GraphType=8����ͼ
      GraphType=9ɢ��ͼ
      GraphType=10��״ͼ
      GraphType=11�ߵ�ͼ

    ʵ�ַ���
    ����,��VB4.0�е�Graph32.OCX�ļ�������Windowsϵͳ��system
Ŀ¼��,���Ӧ�Ըÿؼ�����ע�ᡣ����VFPϵͳ,�����˵���ѡ��"��
��"��,Ȼ��ѡ��"ѡ��",�ڵ�����ҳ����ƴ�����ѡ��"����"��,ѡ��
OLE�������ʱ���б���л��г����е���ע���OLE����,ѡ��" 
���"��ť,ϵͳ�ᵯ��һ�������ļ���Ĵ���,��systemĿ¼�µ�Gra
ph32.OCX�ļ�ѡ��,����OLE�����б���л����Pinnacle-BPS Graph
 Control�
    ������ȫ������ʹ��Outline��������ʹ��Graph����,��VFP�¼�
����ʹ�ñ?�����, Ҳ����ʹ���������������ͳ��ͼ�γ���;��
��������ȫ���Զ�ͼ�ε�ÿ��ϸ�ڽ��п��ơ�
    ����������Ƕ�Graph���Ƶļ�Ӧ��,���ȶ�����һ���?��,
�ڸñ?�м���һ��Gr aph OLE����,��OleClass="GraphLib.Graph"
��Ϊ�˼����,ͳ��ͼ����ݲ���ֱ�ӽ���ݸ�ֵ��GraphData��La
belText����,��ȻҲ���Խ���ݿ��е���ݸ����������н��л�ͼ��
    ����������л���Ϊ:����Windows 95,����VFP 3.0��
    ����
    frmMyForm=CREATEOBJECT(��frmGraph') &&�����?
    frmMyForm.Caption=��ͳ��ͼ�δ���'
    frmMyForm.oleGraphObject.GraphTitle=��ͳ��ͼ��'
        *�ɸ��ʵ�����,����ݿ��е����
    *���ڴ�����е���ݽ��л�ͼ
    With frmMyForm.oleGraphObject
        ��NumSets=2
      &&���������
        ��NumPoints=4
     &&ÿ����ݵ�4��
        ��AutoInc=1
       &&�Զ����Ӽ���
       *����ͳ�����
        ��ThisPoint=1
        ��ThisSet=1
        ��GraphData=10
        ��GraphData=20
        ��GraphData=30
        ��GraphData=40
        ��GraphData=20
        ��GraphData=30
        ��GraphData=40
        ��GraphData=50
       *���ñ��
        ��ThisPoint=1
        ��ThisSet=1
        ��DataReset=4
        ��LabelText=' 1��'
        ��LabelText=' 2��'
        ��LabelText=' 3��'
        ��LabelText=' 4��'
        ��GraphType=4
       && ��άֱ��ͼ
        ��GridStyle=3
        && �������
    Endwith
    frmMyForm.Show
     && ��ʾ�?
    READ EVENTS
      && �����¼�����
        *����?��
    Define Class frmGraph As Form
        AutoCenter=.T.
        Closable=.F.
        && ��ֹ���Ʋ˵���
        BackColor=RGB(192,192,192)
        Height=350
        Width=500
        ControlBox=.F.
       *�����˳����ť
    ADD OBJECT cmdMyCmdBtn1 AS CommandButton;
    With Caption='�˳�[<X]',;
        Cancel=.T.,:
        Left=200,;
        Top=310,;
        Height=25,;
        Visible=.T.,:
    PROCEDURE cmdMyCmdBtn1.Click
        CLEAR EVEBTS &&�����¼�����,�رձ?
    ENDPROC
      *����ͳ��ͼ�ζ���
    ADD OBJECT oleGraphObject as OLEControl;
    WITH OleClass="GraphLib.Graph",;
        Visible=.T.,;
       Height=300,;
        Width=500
    oleGraphObject.PrintStyle=2 &&��ɫ��ʽ��ӡ��
    ENDDEFINE

--
�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]