uniGUI基于手机浏览器的数据访问开发与研究

//--------------------------------------------------------------------------- #include <vcl.h> #include <uniGUIVars.hpp> #pragma hdrstop AnsiString mySql,rowId; AnsiString stuName,stuAge,stuSex; #include "Mainm.h" #include "MainModule.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "uniBasicGrid" #pragma link "uniButton" #pragma link "uniDBGrid" #pragma link "uniEdit" #pragma link "uniGUIBaseClasses" #pragma link "uniGUIClasses" #pragma link "uniGUImJSForm" #pragma link "uniLabel" #pragma link "unimButton" #pragma link "unimDBGrid" #pragma link "unimDBListGrid" #pragma link "unimEdit" #pragma link "unimLabel" #pragma link "unimPanel" #pragma link "DBAccess" #pragma link "MemDS" #pragma link "OracleUniProvider" #pragma link "Uni" #pragma link "UniProvider" #pragma link "unimSelect" #pragma link "uniMultiItem" #pragma resource "*.dfm" //--------------------------------------------------------------------------- TMainmForm *MainmForm(void) { return( (TMainmForm *)UniMainModule()->GetFormInstance(__classid(TMainmForm))); } //--------------------------------------------------------------------------- __fastcall TMainmForm::TMainmForm(TComponent* Owner) : TUnimForm(Owner) { } //--------------------------------------------------------------------------- void TC30C59C3636D49C89FA87F7B478CB356__RegisterFormClass() { Uniguivars::RegisterAppFormClass(__classid(TMainmForm)); Uniguiregclasses::CPPInit(); } #pragma startup TC30C59C3636D49C89FA87F7B478CB356__RegisterFormClass void __fastcall TMainmForm::UnimButton1Click(TObject *Sender) { //新建 UnimEdit1->Clear(); UnimEdit2->Clear(); UnimEdit3->Clear(); UnimEdit1->SetFocus(); } //--------------------------------------------------------------------------- void __fastcall TMainmForm::UnimFormBeforeShow(TObject *Sender) { ////MainmForm激活事件 //清除输入框内容 UnimEdit1->Clear(); UnimEdit2->Clear(); UnimEdit3->Clear(); //连接数据库 UniConnection1->Disconnect(); UniConnection1->ProviderName="Oracle"; UniConnection1->SpecificOptions->Add("direct=true"); UniConnection1->Username="system"; UniConnection1->Password="oracle"; UniConnection1->Server="192.168.1.88:1521:ORCL"; try { UniConnection1->Connect(); } catch(...) { ShowMessage("连接数据库失败！"); } //初始显示表格数据 UniQuery1->Close(); UniQuery1->SQL->Clear(); mySql="select stu_name,stu_age,stu_sex,rowid from student"; UniQuery1->SQL->Add(mySql); UniQuery1->Open(); if(UniQuery1->RecordCount>0) { UnimDBGrid1->Columns->Items[0]->Width=120; UnimDBGrid1->Columns->Items[1]->Width=120; UnimDBGrid1->Columns->Items[2]->Width=150; // TStringGrid(UnimDBGrid1).DefaultRowHeight=10;// 调整所有行高为30 // TStringGrid(UnimDBGrid1).RowHeights[1]=10; // 调整第1行高度为30 } } //--------------------------------------------------------------------------- void __fastcall TMainmForm::UnimButton2Click(TObject *Sender) { ////添加 if(UnimEdit1->Text.IsEmpty()) { ShowMessage("姓名不能为空!"); UnimEdit1->SetFocus(); return; } if(UnimEdit2->Text.IsEmpty()) { ShowMessage("年龄不能为空!"); UnimEdit2->SetFocus(); return; } if(UnimEdit3->Text.IsEmpty()) { ShowMessage("性别不能为空!"); UnimEdit3->SetFocus(); return; } UniQuery2->Close(); UniQuery2->SQL->Clear(); mySql="insert into student values(:p1,:p2,:p3)"; UniQuery2->SQL->Add(mySql); UniQuery2->ParamByName("p1")->Value=UnimEdit1->Text; UniQuery2->ParamByName("p2")->Value=UnimEdit2->Text; UniQuery2->ParamByName("p3")->Value=UnimEdit3->Text; UniQuery2->ExecSQL(); if(UniQuery2->RowsAffected>0) { ShowMessage("添加成功！"); UniQuery1->Refresh(); } else { ShowMessage("添加失败！"); } } //--------------------------------------------------------------------------- void __fastcall TMainmForm::UnimButton3Click(TObject *Sender) { ////删除选中记录 if(UniQuery1->Active && UniQuery1->RecNo>0) { UniQuery1->Delete(); UniQuery1->Refresh(); } } //--------------------------------------------------------------------------- void __fastcall TMainmForm::UnimButton4Click(TObject *Sender) { //修改记录 if(UnimEdit1->Text.IsEmpty()) { ShowMessage("姓名不能为空!"); UnimEdit1->SetFocus(); return; } if(UnimEdit2->Text.IsEmpty()) { ShowMessage("年龄不能为空!"); UnimEdit2->SetFocus(); return; } if(UnimEdit3->Text.IsEmpty()) { ShowMessage("性别不能为空!"); UnimEdit3->SetFocus(); return; } UniQuery2->Close(); UniQuery2->SQL->Clear(); mySql="update student set stu_name=:p1,stu_age=:p2,stu_sex=:p3 where rowid=:p4"; UniQuery2->SQL->Add(mySql); UniQuery2->ParamByName("p1")->Value=UnimEdit1->Text; UniQuery2->ParamByName("p2")->Value=UnimEdit2->Text; UniQuery2->ParamByName("p3")->Value=UnimEdit3->Text; UniQuery2->ParamByName("p4")->Value=rowId; UniQuery2->ExecSQL(); if(UniQuery2->RowsAffected>0) { ShowMessage("修改成功！"); UniQuery1->Refresh(); } else { ShowMessage("修改失败！"); } } //--------------------------------------------------------------------------- void __fastcall TMainmForm::UnimDBGrid1Click(TObject *Sender) { ////表格选中记录 stuName=""; stuAge=""; stuSex=""; rowId=""; if(UniQuery1->Active && UniQuery1->RecNo>0) { stuName=UniQuery1->FieldByName("stu_name")->AsString; stuAge=UniQuery1->FieldByName("stu_age")->AsString; stuSex=UniQuery1->FieldByName("stu_sex")->AsString; rowId=UniQuery1->FieldByName("rowid")->AsString; UnimEdit1->Text=stuName; UnimEdit2->Text=stuAge; UnimEdit3->Text=stuSex; } } //---------------------------------------------------------------------------