unit1.~cpp

用bcb的ADO连接sql server 2000

               }
           }
        else if(ADOQuery4->FieldByName("状态")->Value==1)
               ShowMessage("此书已被借走");
             else if(ADOQuery2->FieldByName("可借书数目")->Value==0)
                   ShowMessage("你借的书太多，请先还书");
                   else {ADOTable3->Filter="图书号='"+Edit1->Text+"'";
                         ADOTable3->Filtered=true;
                         if(ADOQuery4->FieldByName("状态")->Value==3&&ADOTable3->FieldByName("借书证号")->AsString!=Edit38->Text)
                         ShowMessage("此书已被别人预定");
                        else{
                        if(ADOTable3->IsEmpty()==0)
                        ADOTable3->Delete();
                        ADOTable2->Active=true;
                        ADOTable2->Filter="借书证号='"+Edit38->Text+"'";
                        ADOTable2->Filtered=true;
                        ADOTable2->Edit();
                        ADOTable2->FieldByName("可借书数目")->AsInteger=ADOQuery2->FieldByName("可借书数目")->AsInteger-1;
                        ADOTable2->Post();
                        ADOQuery4->Active=true;
                        ADOQuery4->Filter="图书号='"+Edit1->Text+"'";
                        ADOQuery4->Filtered=true;
                        ADOQuery4->Edit();
                        ADOQuery4->FieldByName("状态")->AsInteger=1;
                        ADOQuery4->Post();
                        ADOTable3->Active=true;
                        ADOTable3->Insert();
                        ADOTable3->FieldByName("图书号")->AsString=Edit1->Text;
                        ADOTable3->FieldByName("书名")->AsString=ADOQuery4->FieldByName("书名")->AsString;
                        ADOTable3->FieldByName("借书证号")->AsString=ADOTable2->FieldByName("借书证号")->AsString;
                        ADOTable3->FieldByName("姓名")->AsString=ADOTable2->FieldByName("姓名")->AsString;
                        ADOTable3->FieldByName("借书日期")->AsDateTime=Date();
                        if(ADOTable2->FieldByName("身份")->AsString.Trim()=="教师")
                        ADOTable3->FieldByName("预还日期")->AsDateTime=Date()+90;
                        else ADOTable3->FieldByName("预还日期")->AsDateTime=Date()+30;
                        ADOTable3->Post();
                        ShowMessage("借书成功");}

                        }


}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button3Click(TObject *Sender)
{
int counter;
ADOTable1->Active=true;
if(ADOTable1->IsEmpty())
counter=1;
else {ADOTable1->Last();
counter=ADOTable1->FieldByName("图书号")->AsString.Trim().ToInt();
counter+=1; }
ADOTable1->Insert();
ADOTable1->FieldByName("图书号")->AsString=counter;
ADOTable1->FieldByName("书名")->AsString=Edit20->Text;
ADOTable1->FieldByName("作者")->AsString=Edit22->Text;
ADOTable1->FieldByName("出版社")->AsString=Edit23->Text;
ADOTable1->FieldByName("价格")->Value=Edit21->Text;
ADOTable1->FieldByName("简介")->AsString=Edit24->Text;
ADOTable1->FieldByName("备注")->AsString=Edit18->Text;
ADOTable1->FieldByName("分类码")->Value=ComboBox3->ItemIndex;
ADOTable1->FieldByName("状态")->Value=ComboBox4->ItemIndex;
ADOTable1->FieldByName("入库日期")->AsDateTime=Date();
ADOTable1->Post();
ShowMessage("入库成功");
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button7Click(TObject *Sender)
{
if(Edit4->Text.IsEmpty()&&Edit27->Text.IsEmpty()&&Edit25->Text.IsEmpty()&&
Edit26->Text.IsEmpty()&&ComboBox8->Text=="")
MessageBox(NULL,"请输入查询条件！","提示",0);
else
{
int flag=0;
ADOQuery1->Active=false;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT * FROM book WHERE ");
if(Edit4->Text.IsEmpty()==0)
{if(flag==1)
 ADOQuery1->SQL->Add("AND ");
 ADOQuery1->SQL->Add("图书号='"+Edit4->Text+"'");
 flag=1;
 }
if(Edit27->Text.IsEmpty()==0)
{if(flag==1)
 ADOQuery1->SQL->Add("AND ");
 ADOQuery1->SQL->Add("作者 like '%"+Edit27->Text+"%'");
 flag=1;
 }

if(Edit25->Text.IsEmpty()==0)
{if(flag==1)
 ADOQuery1->SQL->Add("AND ");
 ADOQuery1->SQL->Add("书名 like '%"+Edit25->Text+"%'");
 flag=1;
 }
if(Edit26->Text.IsEmpty()==0)
{if(flag==1)
 ADOQuery1->SQL->Add("AND ");
 ADOQuery1->SQL->Add("出版社 like '%"+Edit26->Text+"%'");
 flag=1;
 }
if(ComboBox8->ItemIndex!=-1&&ComboBox8->ItemIndex!=3)
{if(flag==1)
 ADOQuery1->SQL->Add("AND ");
 Edit12->Text=ComboBox8->ItemIndex;
 ADOQuery1->SQL->Add("分类码='"+Edit12->Text+"' ");
 flag=1;
 }
ADOQuery1->Open();
}
}
//---------------------------------------------------------------------------
double sum;
void __fastcall TForm1::Button11Click(TObject *Sender)
{
sum=0;

ADOTable3->Filter="借书证号='"+Edit40->Text+"'";
ADOTable3->Filtered=true;
ADOTable3->Active=true;
DBGrid6->DataSource=DataSource4;
DBEdit1->DataSource=DataSource4;
DBEdit1->DataField="图书号";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button12Click(TObject *Sender)
{
TDateTime a;
int b;
a=Date();
b=a-ADOTable3->FieldByName("预还日期")->AsDateTime;
if(b>0)
sum=sum+double(b);
Memo1->Clear();
Memo1->Text="还书成功。";
if(sum>0)
Memo1->Text=Memo1->Text+"您总共欠费"+sum/10+"元";
ADOTable1->Filter="图书号='"+DBEdit1->Text+"'";
ADOTable1->Filtered=true;
ADOTable1->Active=true;
ADOTable1->Edit();
ADOTable1->FieldByName("状态")->AsInteger=0;
ADOTable1->Post();
if(ADOTable3->IsEmpty()==0)
ADOTable3->Delete();

ADOTable2->Filter="借书证号='"+Edit40->Text+"'";
ADOTable2->Filtered=true;
ADOTable2->Active=true;
ADOTable2->Edit();
ADOTable2->FieldByName("可借书数目")->AsInteger=ADOTable2->FieldByName("可借书数目")->AsInteger+1;
ADOTable2->Post();


}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormCreate(TObject *Sender)
{
Memo1->Clear();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button14Click(TObject *Sender)
{
ADOQuery2->Active=false;
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Add("SELECT * FROM reader WHERE 借书证号='"+Edit41->Text+"';");
ADOQuery2->Open();
ADOQuery2->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button13Click(TObject *Sender)
{
ADOQuery2->Delete();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button15Click(TObject *Sender)
{
       if(ADOQuery1->FieldByName("状态")->Value!=0)
               ShowMessage("此书已被借走或预定");
             else if(ADOTable2->FieldByName("可借书数目")->Value==0)
                   ShowMessage("你借的书太多，请先还书");
                   else {ADOTable3->Filter="图书号='"+Edit1->Text+"'";
                         ADOTable3->Filtered=true;
                        // if(ADOQuery1->FieldByName("状态")->Value==3&&ADOTable3->FieldByName("借书证号")->AsString!=Edit38->Text)
                         //ShowMessage("此书已被别人预定");//ADOTable2->Active=true;
                        //else{
                        ADOTable2->Edit();
                        ADOTable2->FieldByName("可借书数目")->AsInteger=ADOTable2->FieldByName("可借书数目")->AsInteger-1;
                        ADOTable2->Post();
                        //ADOTable1->Active=true;
                        //ADOTable1->Filter="图书号='"+Edit4->Text+"'";
                        //ADOTable1->Filtered=true;
                        ADOQuery1->Edit();
                        ADOQuery1->FieldByName("状态")->AsInteger=2;
                        ADOQuery1->Post();
                        ADOTable3->Active=true;
                        ADOTable3->Insert();
                        ADOTable3->FieldByName("图书号")->AsString=Edit4->Text;
                        ADOTable3->FieldByName("书名")->AsString=ADOQuery1->FieldByName("书名")->AsString;
                        ADOTable3->FieldByName("借书证号")->AsString=ADOTable2->FieldByName("借书证号")->AsString;
                        ADOTable3->FieldByName("姓名")->AsString=ADOTable2->FieldByName("姓名")->AsString;
                        ADOTable3->FieldByName("借书日期")->AsDateTime=Date();
                        if(ADOTable2->FieldByName("身份")->AsString.Trim()=="教师")
                        ADOTable3->FieldByName("预还日期")->AsDateTime=Date()+5;
                        else ADOTable3->FieldByName("预还日期")->AsDateTime=Date()+5;
                        ADOTable3->Post();
                        ShowMessage("预定成功");//}
                        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N2Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------






void __fastcall TForm1::N4Click(TObject *Sender)
{
PageControl1->Visible=false;
PageControl2->Visible=false;
Form2->Edit1->Text="";
Form2->Edit2->Text="";
}
//---------------------------------------------------------------------------