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

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

Delphi/CppBuilder

开发平台：

C++ Builder

Multmedia.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Multmedia.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.         : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  17. void __fastcall TForm1::Button1Click(TObject *Sender)
  18. {
  19. if (!Form1->Table1->Bof)
  20.    {
  21.    Form1->Table1->First();
  22.    //移动到第一条记录
  23.    }
  24. }
  25. //---------------------------------------------------------------------------
  27. void __fastcall TForm1::Button2Click(TObject *Sender)
  28. {
  29. if (!Form1->Table1->Bof)
  30.    {
  31.    Form1->Table1->Prior();
  32.    //移动到前一条记录
  33.    }
  34. }
  35. //---------------------------------------------------------------------------
  37. void __fastcall TForm1::Button3Click(TObject *Sender)
  38. {
  39. if (!Form1->Table1->Eof)
  40.    {
  41.    Form1->Table1->Last();
  42.    //移动到最后一条记录
  43.    }
  44. }
  45. //---------------------------------------------------------------------------
  47. void __fastcall TForm1::Button4Click(TObject *Sender)
  48. {
  49. if (!Form1->Table1->Eof)
  50.    {
  51.    Form1->Table1->Next();
  52.    //移动到下一条记录
  53.    }
  54. }
  55. //---------------------------------------------------------------------------
  57. void __fastcall TForm1::Button5Click(TObject *Sender)
  58. {
  59. Form1->Table1->Insert();
  60. //在当前位置插入一条新的记录
  61. }
  62. //---------------------------------------------------------------------------
  64. void __fastcall TForm1::Button6Click(TObject *Sender)
  65. {
  66. Form1->Table1->Delete();
  67. //删除当前记录
  68. }
  69. //---------------------------------------------------------------------------
  71. void __fastcall TForm1::Button7Click(TObject *Sender)
  72. {
  73. Form1->Table1->Open();
  74. //打开选中的数据库
  75. }
  76. //---------------------------------------------------------------------------
  78. void __fastcall TForm1::Button8Click(TObject *Sender)
  79. {
  80. Form1->Table1->Close();
  81. //关闭当前的数据库
  82. }
  83. //---------------------------------------------------------------------------