builder6关于access的基本操作

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Main.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; AnsiString myfield,myval; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::AddClick(TObject *Sender) { TLocateOptions Opts; Opts << loPartialKey; if(ID->Text==""||Name->Text==""||Age->Text==""||Sex->Text=="") { ShowMessage("学生信息不全，必须输入(工资项除外)"); return; } ADOTable1->First(); while(!ADOTable1->Eof) { if(ADOTable1->FieldValues["学号"]==ID->Text) { ShowMessage("该学号已经存在，学号唯一"); return; } else ADOTable1->Next(); } ADOTable1->Insert(); ADOTable1->FieldValues["学号"]=ID->Text; ADOTable1->FieldValues["姓名"]=Name->Text; ADOTable1->FieldValues["年龄"]=Age->Text; ADOTable1->FieldValues["工资"]=Salary->Text; ADOTable1->FieldValues["性别"]=Sex->Text; if(MessageDlg("确认添加记录?",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes) ADOTable1->Post(); else ADOTable1->Cancel(); ID->Text=""; Name->Text=""; Age->Text=""; Salary->Text="不祥"; Sex->Text=""; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { ADOTable1->Active=true; for(int i=0;i<=(ADOTable1->Fields->Count-1);i++) { ComboBox1->Items->Add(ADOTable1->Fields->Fields[i]->FieldName); } for(int i=0;i<=(ADOTable1->Fields->Count-1);i++) { ComboBox2->Items->Add(ADOTable1->Fields->Fields[i]->FieldName); } } //--------------------------------------------------------------------------- void __fastcall TForm1::FindClick(TObject *Sender) { TLocateOptions Opts; Opts << loPartialKey; if(ADOTable1->Locate(ComboBox1->Text,FindValue->Text,Opts)) { ShowMessage("查找成功，已经定位"); } else { ShowMessage("找不到数据"); } } //--------------------------------------------------------------------------- void __fastcall TForm1::DeleteClick(TObject *Sender) { ADOTable1->Delete(); } //--------------------------------------------------------------------------- void __fastcall TForm1::FilterClick(TObject *Sender) { ADOTable1->Filtered=false; myfield=ComboBox2->Text; myval=FilterValue->Text; ADOTable1->Filtered=true; } //--------------------------------------------------------------------------- void __fastcall TForm1::ADOTable1FilterRecord(TDataSet *DataSet, bool &Accept) { switch(ComboBox3->ItemIndex) { case 0: Accept=ADOTable1->FieldValues[myfield]>myval; break; case 1: Accept=ADOTable1->FieldValues[myfield]<myval; break; case 2: Accept=ADOTable1->FieldValues[myfield]>=myval; break; case 3: Accept=ADOTable1->FieldValues[myfield]<=myval; break; case 4: Accept=ADOTable1->FieldValues[myfield]==myval; break; case 5: Accept=ADOTable1->FieldValues[myfield]!=myval; break; } } //--------------------------------------------------------------------------- void __fastcall TForm1::ShowAllClick(TObject *Sender) { ADOTable1->Filtered=false; } //--------------------------------------------------------------------------- void __fastcall TForm1::PriorClick(TObject *Sender) { ADOTable1->Prior(); if(ADOTable1->Bof==true) ADOTable1->First(); } //--------------------------------------------------------------------------- void __fastcall TForm1::NextClick(TObject *Sender) { ADOTable1->Next(); if(ADOTable1->Eof==true) ADOTable1->Last(); } //---------------------------------------------------------------------------