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

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

Delphi/CppBuilder

开发平台：

C++ Builder

Unit2.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Unit2.h"
  6. #include "Unit1.h"
  8. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. #pragma resource "*.dfm"
  11. TForm2 *Form2;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm2::TForm2(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  19. void __fastcall TForm2::FormCreate(TObject *Sender)
  20. {
  21. int i;
  22. int j;
  23. //定义变量
  24. Form2->StringGrid1->ColCount=Form1->VtChart1->ColumnCount+1;
  25. Form2->StringGrid1->RowCount=Form1->VtChart1->RowCount+1;
  26. //设置表格的大小
  27. for (i=0;i<=Form1->VtChart1->ColumnCount;i++)
  28.     {
  29.     Form2->StringGrid1->Cells[i][0]=IntToStr(i);
  30.     }
  31. for (j=0;j<=Form1->VtChart1->RowCount;j++)
  32.     {
  33.     Form2->StringGrid1->Cells[0][j]=IntToStr(j);
  34.     }
  35.     //设置表格的标题
  36. for (i=1;i<=Form1->VtChart1->ColumnCount;i++)
  37.     {
  38.     for (j=1;j<=Form1->VtChart1->RowCount;j++)
  39.     {
  40.     Form1->VtChart1->Column=i;
  41.     Form1->VtChart1->Row=j;
  42.     Form2->StringGrid1->Cells[i][j]=Form1->VtChart1->Data;
  43.     //初始化表格中的数据
  44.     }
  45.     }
  46. }
  47. //---------------------------------------------------------------------------
  49. void __fastcall TForm2::Button1Click(TObject *Sender)
  50. {
  51. int i;
  52. int j;
  53. //变量定义
  54. for (i=1;i<=Form1->VtChart1->ColumnCount;i++)
  55.     {
  56.     for (j=1;j<=Form1->VtChart1->RowCount;j++)
  57.     {
  58.     Form1->VtChart1->Column=i;
  59.     Form1->VtChart1->Row=j;
  60.     Form1->VtChart1->Data=Form2->StringGrid1->Cells[i][j];
  61.     //以表格中的数据填充图表
  62.     }
  63.     }
  64. Form1->Show();
  65. Form2->Hide();
  66. //显示主窗体
  67. }
  68. //---------------------------------------------------------------------------
  70. void __fastcall TForm2::Button2Click(TObject *Sender)
  71. {
  72. Form1->Show();
  73. Form2->Hide();
  74. //显示主窗体
  75. }
  76. //---------------------------------------------------------------------------
  78. void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
  79. {
  80. Form1->Show();
  81. //显示主窗体
  82. }
  83. //---------------------------------------------------------------------------
  84.