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

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

Delphi/CppBuilder

开发平台：

C++ Builder

SQL.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "SQL.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. TBookmark SavePlace;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  18. void __fastcall TForm1::Button9Click(TObject *Sender)
  19. {
  20.    SavePlace=Form1->Query1->GetBookmark();
  21.    //在当前位置设置一个书签
  22. }
  23. //---------------------------------------------------------------------------
  25. void __fastcall TForm1::Button10Click(TObject *Sender)
  26. {
  27. if (SavePlace!="")
  28.    {
  29.    Form1->Query1->GotoBookmark(SavePlace);
  30.    //跳转到指定书签
  31.    }
  32. }
  33. //---------------------------------------------------------------------------
  35. void __fastcall TForm1::Query1BeforeClose(TDataSet *DataSet)
  36. {
  37. if (Form1->Query1->Modified)
  38.    {
  39.    if (MessageDlg("数据库已经被修改过，是否保存结果?", mtWarning, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
  40.    Query1->Post();
  41.    else
  42.    Query1->Cancel();
  43.    }
  44. }
  45. //---------------------------------------------------------------------------
  47. void __fastcall TForm1::Button3Click(TObject *Sender)
  48. {
  49. Form1->Query1->Insert();
  50. //插入一条新的记录
  51. }
  52. //---------------------------------------------------------------------------
  54. void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
  55. {
  56. if (!Form1->Query1->Modified)
  57.    {
  58.    if (MessageDlg("数据库已经被修改过，是否保存结果?", mtWarning, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
  59.    Query1->Post();
  60.    else
  61.    Query1->Cancel();
  62.    }
  63. Query1->Close();
  64. }
  65. //---------------------------------------------------------------------------
  67. void __fastcall TForm1::Button4Click(TObject *Sender)
  68. {
  69. Form1->Query1->Delete();
  70. //删除一条记录
  71. }
  72. //---------------------------------------------------------------------------
  74. void __fastcall TForm1::Button5Click(TObject *Sender)
  75. {
  76. Form1->Query1->First();
  77. //移动到第一条记录
  78. }
  79. //---------------------------------------------------------------------------
  81. void __fastcall TForm1::Button6Click(TObject *Sender)
  82. {
  83. Form1->Query1->Last();
  84. //移动到最后一条记录
  85. }
  86. //---------------------------------------------------------------------------
  88. void __fastcall TForm1::Button7Click(TObject *Sender)
  89. {
  90. Form1->Query1->Prior();
  91. //移动到前一条记录
  92. }
  93. //---------------------------------------------------------------------------
  95. void __fastcall TForm1::Button8Click(TObject *Sender)
  96. {
  97. Form1->Query1->Next();
  98. //移动到下一条记录
  99. }
  100. //---------------------------------------------------------------------------
  102. void __fastcall TForm1::Button1Click(TObject *Sender)
  103. {
  104. Form1->Query1->Close();
  105. //关闭数据库
  106. Form1->Query1->SQL->Clear();
  107. //清除SQL语句
  108. Form1->Query1->SQL->Add(Form1->Memo1->Text);
  109. //读入新的SQL语句
  110. Form1->Query1->Open();
  111. //打开数据库
  112. }
  113. //---------------------------------------------------------------------------
  115. void __fastcall TForm1::Button2Click(TObject *Sender)
  116. {
  117. Form1->Memo1->Clear();
  118. //清除文本框中的内容
  119. }
  120. //---------------------------------------------------------------------------
  122. void __fastcall TForm1::Timer1Timer(TObject *Sender)
  123. {
  124. if (Form1->Query1->Eof)
  125.    {
  126.    Form1->Button6->Enabled=false;
  127.    Form1->Button8->Enabled=false;
  128.    }
  129.    else
  130.    {
  131.    Form1->Button6->Enabled=true;
  132.    Form1->Button8->Enabled=true;
  133.    }
  134. if (Form1->Query1->Bof)
  135.    {
  136.    Form1->Button5->Enabled=false;
  137.    Form1->Button7->Enabled=false;
  138.    }
  139.    else
  140.    {
  141.    Form1->Button5->Enabled=true;
  142.    Form1->Button7->Enabled=true;
  143.    }
  144. //动态设置按钮的有效状态
  145. }
  146. //---------------------------------------------------------------------------
  148. void __fastcall TForm1::FormCreate(TObject *Sender)
  149. {
  150. Form1->Memo1->Clear();
  151. //清空文本框
  152. Form1->Timer1->Enabled=true;
  153. //设置控件的有效状态
  154. }
  155. //---------------------------------------------------------------------------
  156.