开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
GraphDemo.cpp
资源名称：c++builder6编程实例.ZIP　[点击查看]
上传用户：lulishicai
上传日期：2010-03-01
资源大小：13202k
文件大小：3k
源码类别：

Delphi/CppBuilder

开发平台：

C++ Builder

GraphDemo.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "GraphDemo.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma link "MSChart20Lib_OCX"
  10. #pragma resource "*.dfm"
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  20. void __fastcall TForm1::FormCreate(TObject *Sender)
  21. {
  22. UpDown1->Min=1;
  23. UpDown1->Max=MSChart1->ColumnCount;
  24. UpDown2->Min=1;
  25. UpDown2->Max=MSChart1->RowCount;
  26. //设置控件参数
  27. MSChart1->Column=1;
  28. MSChart1->Row=1;
  29. Edit3->Text=MSChart1->Data;
  30. //显示第一行、第一列的数据
  32. }
  33. //---------------------------------------------------------------------------
  35. void __fastcall TForm1::ComboBox1Click(TObject *Sender)
  36. {
  37. MSChart1->chartType=ComboBox1->ItemIndex;
  38. //设置图表类型
  39.         
  40. }
  41. //---------------------------------------------------------------------------
  43. void __fastcall TForm1::UpDown1Click(TObject *Sender, TUDBtnType Button)
  44. {
  45. MSChart1->Column=UpDown1->Position;
  46. MSChart1->Row=UpDown2->Position;
  47. Edit3->Text=MSChart1->Data;
  48. //显示选中的行和列中的数据
  49.         
  50. }
  51. //---------------------------------------------------------------------------
  53. void __fastcall TForm1::UpDown2Click(TObject *Sender, TUDBtnType Button)
  54. {
  55. MSChart1->Column=UpDown1->Position;
  56. MSChart1->Row=UpDown2->Position;
  57. Edit3->Text=MSChart1->Data;
  58. //显示选中行和选中列的数据
  59.         
  60. }
  61. //---------------------------------------------------------------------------
  63. void __fastcall TForm1::Button1Click(TObject *Sender)
  64. {
  65.         if(MSChart1->ColumnCount<10)
  66.         {
  67.                 MSChart1->ColumnCount=MSChart1->ColumnCount+1;
  68.                 //添加一行
  69.         }
  70.         
  71. }
  72. //---------------------------------------------------------------------------
  74. void __fastcall TForm1::Button3Click(TObject *Sender)
  75. {
  76.         if(MSChart1->RowCount<10)
  77.         {
  78.                 MSChart1->RowCount=MSChart1->RowCount+1;
  79.                 //添加一列
  80.         }
  81.         
  82. }
  83. //---------------------------------------------------------------------------
  85. void __fastcall TForm1::Button2Click(TObject *Sender)
  86. {
  87.         if(MSChart1->ColumnCount>1)
  88.         {
  89.                 MSChart1->ColumnCount=MSChart1->ColumnCount-1;
  90.                 //删除一行
  91.         }
  92.         
  93. }
  94. //---------------------------------------------------------------------------
  96. void __fastcall TForm1::Button4Click(TObject *Sender)
  97. {
  98.         if(MSChart1->RowCount>1)
  99.         {
  100.                 MSChart1->RowCount=MSChart1->RowCount-1;
  101.                 //删除一列
  102.         }
  103.         
  104. }
  105. //---------------------------------------------------------------------------
  107. void __fastcall TForm1::Edit3Change(TObject *Sender)
  108. {
  109.         MSChart1->Data=Edit3->Text;
  110.         //修改数据
  112. }
  113. //---------------------------------------------------------------------------
  115. void __fastcall TForm1::MSChart1DataUpdated(TObject *Sender, short *axisID,
  116.       short *AxisIndex, short *labelSetIndex, short *LabelIndex,
  117.       short *MouseFlags, short *Cancel)
  118. {
  119. UpDown1->Min=1;
  120. UpDown1->Max=MSChart1->ColumnCount;
  121. UpDown2->Min=1;
  122. UpDown2->Max=MSChart1->RowCount;
  123. //更新控件参数
  124.         
  125. }
  126. //---------------------------------------------------------------------------