1. Form设计

2. 源码
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ShapeMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TShapeForm *ShapeForm;
//---------------------------------------------------------------------------
__fastcall TShapeForm::TShapeForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TShapeForm::OpenButtonClick(TObject *Sender)
{
const String ConnStr = "Provider=%s;Data Provider=%s;Data Source=%s";
if (!ADOConnection1->Connected)
{
ADOConnection1->ConnectionString = Format (ConnStr, ARRAYOFCONST(((String)Provider->Text,
(String)DataProvider->Text, (String)DataSource->Text)));
Customers->Open();
Orders->Open();
}
}
//---------------------------------------------------------------------------
这篇博客介绍了如何使用ADO连接字符串来打开和操作数据库中的Customers和Orders表。在TShapeForm中,通过OpenButtonClick事件,根据Provider、DataProvider和DataSource组件的文本内容建立连接,并执行数据打开操作。

被折叠的 条评论
为什么被折叠?



