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

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

Delphi/CppBuilder

开发平台：

C++ Builder

DataEdit.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "DataEdit.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. TBookmark SavePlace;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::FormCreate(TObject *Sender)
  20. {
  21. Form1->Timer1->Enabled=true;
  22. //设置控件的有效状态
  23. }
  24. //---------------------------------------------------------------------------
  26. void __fastcall TForm1::Button1Click(TObject *Sender)
  27. {
  28. Form1->Table1->First();
  29. //移动到第一条记录
  30. }
  31. //---------------------------------------------------------------------------
  33. void __fastcall TForm1::Button2Click(TObject *Sender)
  34. {
  35. Form1->Table1->Prior();
  36. //向前移动一条记录
  37. }
  38. //---------------------------------------------------------------------------
  40. void __fastcall TForm1::Button3Click(TObject *Sender)
  41. {
  42. Form1->Table1->Next();
  43. //移动到下一条记录
  44. }
  45. //---------------------------------------------------------------------------
  47. void __fastcall TForm1::Button4Click(TObject *Sender)
  48. {
  49. Form1->Table1->Last();
  50. //移动到最后一条记录
  51. }
  52. //---------------------------------------------------------------------------
  54. void __fastcall TForm1::Button5Click(TObject *Sender)
  55. {
  56. Form1->Table1->Insert();
  57. //在当前位置插入一条记录
  58. }
  59. //---------------------------------------------------------------------------
  61. void __fastcall TForm1::Button6Click(TObject *Sender)
  62. {
  63. Form1->Table1->Delete();
  64. //删除当前记录
  65. }
  66. //---------------------------------------------------------------------------
  68. void __fastcall TForm1::Button7Click(TObject *Sender)
  69. {
  70.    SavePlace=Form1->Table1->GetBookmark();
  71.    //在当前位置设置一个书签
  72. }
  73. //---------------------------------------------------------------------------
  75. void __fastcall TForm1::Button8Click(TObject *Sender)
  76. {
  77. if (SavePlace!="")
  78.    {
  79.    Form1->Table1->GotoBookmark(SavePlace);
  80.    //跳转到指定书签
  81.    }
  82. }
  83. //---------------------------------------------------------------------------
  84. void __fastcall TForm1::Button9Click(TObject *Sender)
  85. {
  86. Form1->Table1->Close();
  87. //关闭数据库
  88. }
  89. //---------------------------------------------------------------------------
  91. void __fastcall TForm1::Timer1Timer(TObject *Sender)
  92. {
  93. if (Form1->Table1->Eof)
  94.    {
  95.    Form1->Button4->Enabled=false;
  96.    Form1->Button3->Enabled=false;
  97.    }
  98.    else
  99.    {
  100.    Form1->Button4->Enabled=true;
  101.    Form1->Button3->Enabled=true;
  102.    }
  103.    //动态设置“Next”和“Last”按钮的有效状态
  104. if (Form1->Table1->Bof)
  105.    {
  106.    Form1->Button1->Enabled=false;
  107.    Form1->Button2->Enabled=false;
  108.    }
  109.    else
  110.    {
  111.    Form1->Button1->Enabled=true;
  112.    Form1->Button2->Enabled=true;
  113.    }
  114.    //动态设置“First”和“Prior”按钮的有效状态
  115. }
  116. //---------------------------------------------------------------------------