网友评分: 5分
MyCode代码生成器,自动生成BCB版数据库操作代码(ADO),无需手工编写,只需简单调用就可以进行繁琐的数据库操作。
准备工作:
登录数据库,点击生成,将DBComm文件夹复制到使用程序目录,在cpp文件头添加如下:
#include ".\DBComm\DBTables\MyInfoOperator.h"
#include ".\DBComm\DBTables\RecordOperator.h"
#include ".\DBComm\DBTables\RecordViewOperator.h"
#include ".\DBComm\DBComm.h"
点击“工程”菜单,选择“添加到工程”,将DBComm内所有cpp文件添加(包含DBTables下cpp文件)
连接数据库
void __fastcall TForm1::FormCreate(TObject *Sender)
{
WideString wstrConnStr="Provider=SQlolEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mytest";
if(DBComm::Instance().ConnectDB(wstrConnStr))
{
DBGrid1->DataSource=DBComm::Instance().Tables<RecordViewOperator>(DBComm::RecordView)->Source();
}
}
新增一条记录
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
DBComm::Instance().Tables<MyInfoOperator>(DBComm::MyInfo)->New(LabeledEdit2->Text,LabeledEdit3->Text.ToDouble(),"admin",Now());
}
}
删除一条记录
void __fastcall TForm1::SpeedButton3Click(TObject *Sender)
{
if(DBGrid1->DataSource->DataSet->RecordCount)
{
int nID=DBGrid1->DataSource->DataSet->Fields->Fields[0]->AsInteger;
String strCondition="ID="+String(nID);
DBComm::Instance().Tables<RecordOperator>(DBComm::Record)->Delete(strCondition);
}
}
更新一条记录
void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
if(DBGrid1->DataSource->DataSet->RecordCount)
{
int nID=DBGrid1->DataSource->DataSet->Fields->Fields[1]->AsInteger;
String strName=LabeledEdit2->Text;
float fMoney=LabeledEdit3->Text.ToDouble();
String strCondition="ID="+String(nID);
DBComm::Instance().Tables<MyInfoOperator>(DBComm::MyInfo)->Update(strName,fMoney,"admin",Now(),strCondition);
}
}
获取数据源
DBGrid1->DataSource=DBComm::Instance().Tables<RecordViewOperator>(DBComm::RecordView)->Source();
标签:数据库类
Kvrocks v2.1.0官方版777KB | 英文 | 10.00
下载DbGate v5.1.0官方版68.4M | 英文 | 9.00
下载Tabix v22.05.17官方版678KB | 英文 | 2.00
下载DataStudio v3.0免费版13.1M | 简体 | 6.00
下载NocoDB v0.84.14官方版22.1M | 英文 | 8.00
下载Beekeeper Studio v3.2.0官方版63.5M | 英文 | 2.00
下载Valentina Studio Pro v12.0.2免费版82.5M | 英文 | 5.00
下载Data File Converter v4.1官方版26.5M | 英文 | 6.00
下载RazorSQL v9.5.1免费版81.5M | 英文 | 8.00
下载