void __fastcall TForm1::FormCreate(TObject *Sender)
{
AnsiString sql="select AccountId as 用户编号,AccountName as 用户名,AccountPassword as 密码,AccountRight as 权限,Describe as 描述 from tb_AccountManage order by AccountId asc";
try
{
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(sql);
ADOQuery1->Active=true;
}
catch(...)
{
MessageBox(FrmSystemManage->Handle,"数据库连接失败!","信息提示",MB_OK);
}
}
//---------------------------------------------------------------------------