Category

Development Platform
Home > E-Books > Visual C++ Books > View Code
Unit1.cpp
Package: C++Builder.rar　[view]
Upload User: lhxd_sz
Upload Date: 2014-10-02
Package Size: 38814k
Code Size: 1k
Category:

Visual C++ Books

Development Platform:

C++ Builder

Unit1.cpp：Code Content
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Unit1.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. //---------------------------------------------------------------------------
  16. void __fastcall TForm1::Button1Click(TObject *Sender)
  17. {
  18.   Table1->Edit();
  19.   Table1->FieldByName("科目代码")->AsString=Edit1->Text.Trim();
  20.   Table1->FieldByName("科目名称")->AsString=Edit2->Text.Trim();
  21.   Table1->Post();
  22. }
  23. //---------------------------------------------------------------------------
  24. void __fastcall TForm1::Button2Click(TObject *Sender)
  25. {
  26.   AnsiString filename,oldkmno,kmno,kmname;
  27.   filename="test.dbf";
  28.   oldkmno=Table1->FieldByName("科目代码")->AsString;
  29.   kmno=Edit1->Text.Trim();
  30.   kmname=Edit2->Text.Trim();
  31.   Query1->Active=False;
  32.   Query1->SQL->Clear();
  33.   Query1->SQL->Add("UPDATE ""+filename+""");
  34.   Query1->SQL->Add("SET  科目代码='"+kmno+"',科目名称='"+kmname+"'");
  35.   Query1->SQL->Add("WHERE  科目代码='"+oldkmno+"'");
  36. //  Query1->Prepare();//不能用此，产生错误信息“Table read now”
  37.   Query1->ExecSQL();
  38.   if(Query1->RowsAffected==1)
  39.     ShowMessage("记录修改成功!");
  40. }
  41. //---------------------------------------------------------------------------