（31）uniGUI for C++ builder下UniDBGrid记录多选与复制

//--------------------------------------------------------------------------- #include <vcl.h> #include <uniGUIVars.hpp> #pragma hdrstop #include "Main.h" #include "MainModule.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "uniBasicGrid" #pragma link "uniBitBtn" #pragma link "uniButton" #pragma link "uniDBGrid" #pragma link "uniGUIBaseClasses" #pragma link "uniGUIClasses" #pragma link "DBAccess" #pragma link "MemDS" #pragma link "Uni" #pragma resource "*.dfm" //--------------------------------------------------------------------------- TMainForm *MainForm(void) { return( (TMainForm *)UniMainModule()->GetFormInstance(__classid(TMainForm))); } //--------------------------------------------------------------------------- __fastcall TMainForm::TMainForm(TComponent* Owner) : TUniForm(Owner) { } //--------------------------------------------------------------------------- void T71AFFD34A4414BB2B5EA38264ABFC349__RegisterFormClass() { Uniguivars::RegisterAppFormClass(__classid(TMainForm)); Uniguiregclasses::CPPInit(); } #pragma startup T71AFFD34A4414BB2B5EA38264ABFC349__RegisterFormClass void __fastcall TMainForm::UniFormBeforeShow(TObject *Sender) { //查询表一 UniQuery1->Close(); UniQuery1->SQL->Clear(); UniQuery1->SQL->Add("select * from atable1"); UniQuery1->Open(); //查询表二 UniQuery2->Close(); UniQuery2->SQL->Clear(); UniQuery2->SQL->Add("select * from atable2"); UniQuery2->Open(); } //--------------------------------------------------------------------------- void __fastcall TMainForm::UniBitBtn1Click(TObject *Sender) { //从左侧向右侧挪 for(int i=0;i<UniDBGrid1->SelectedRows->Count;i++) { UniQuery1->Bookmark = UniDBGrid1->SelectedRows->Items[i]; UniQuery2->Append(); UniQuery2->CopyFields(UniQuery1); UniQuery2->Post(); } UniDBGrid1->SelectedRows->Delete(); UniQuery1->Refresh(); UniQuery2->Refresh(); } //--------------------------------------------------------------------------- void __fastcall TMainForm::UniBitBtn2Click(TObject *Sender) { //从右侧向左侧挪 for(int i=0;i<UniDBGrid2->SelectedRows->Count;i++) { UniQuery2->Bookmark = UniDBGrid2->SelectedRows->Items[i]; UniQuery1->Append(); UniQuery1->CopyFields(UniQuery2); UniQuery1->Post(); } UniDBGrid2->SelectedRows->Delete(); UniQuery1->Refresh(); UniQuery2->Refresh(); } //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- #include <vcl.h> #include <UniGUIApplication.hpp> #include <UniGUIVars.hpp> #pragma hdrstop #include "MainModule.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "DBAccess" #pragma link "OracleUniProvider" #pragma link "Uni" #pragma link "UniProvider" #pragma resource "*.dfm" //--------------------------------------------------------------------------- TUniMainModule *UniMainModule(void) { return( (TUniMainModule *)UniApplication()->UniMainModule_ ); } //--------------------------------------------------------------------------- __fastcall TUniMainModule::TUniMainModule(TComponent* Owner, TComponent* AUniApplication) : TUniGUIMainModule(Owner, AUniApplication) { } //--------------------------------------------------------------------------- void __RegisterMainModuleClass() { Uniguivars::RegisterMainModuleClass(__classid(TUniMainModule)); } #pragma startup __RegisterMainModuleClass //--------------------------------------------------------------------------- void __fastcall TUniMainModule::UniGUIMainModuleBrowserClose(TObject *Sender) { UniConnection1->Close(); } //--------------------------------------------------------------------------- void __fastcall TUniMainModule::UniGUIMainModuleCreate(TObject *Sender) { //链接主体应用数据库 String dbIp="22.36.12.17",dbUser="webframe",dbPass="webframe2018",dbPort="1521",dbSid="ORCL"; UniConnection1->Disconnect(); UniConnection1->ProviderName="Oracle"; UniConnection1->SpecificOptions->Add("direct=true"); //UniConnection1->SpecificOptions->Add("Charset=ZHS16GBK"); UniConnection1->Username=dbUser; UniConnection1->Password=dbPass; UniConnection1->Server=dbIp+":"+dbPort+":"+dbSid; //ShowMessageN(UniConnection1->Server); try { UniConnection1->Connect(); } catch(...) { Uniguidialogs::ShowMessage("连接数据库["+dbIp+"]失败！"); //FormMain->Close(); } } //---------------------------------------------------------------------------