tushuguanlixitong.rar_tushuguanlixitong_图书管理

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit4.h" #include "Unit5.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm4 *Form4; //--------------------------------------------------------------------------- __fastcall TForm4::TForm4(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm4::Query1AfterScroll(TDataSet *DataSet) { Edit1->Text = Query1->FieldByName("编号")->AsString; Edit2->Text = Query1->FieldByName("书名")->AsString; ComboBox1->Text = Query1->FieldByName("图书类别")->AsString; Edit4->Text = Query1->FieldByName("图书作者")->AsString; Edit5->Text = Query1->FieldByName("ISBN")->AsString; ComboBox2->Text = Query1->FieldByName("出版社名称")->AsString; ComboBox3->Text = Query1->FieldByName("图书状态")->AsString; Edit8->Text = Query1->FieldByName("图书借阅次数")->AsString; } //--------------------------------------------------------------------------- void __fastcall TForm4::Button1Click(TObject *Sender) { Edit1->Text=""; Edit2->Text=""; ComboBox1->Text=""; Edit4->Text=""; Edit5->Text=""; ComboBox2->Text=""; ComboBox3->Text=""; Edit8->Text=""; } //--------------------------------------------------------------------------- void __fastcall TForm4::Button2Click(TObject *Sender) { int yxXh;int mzXh; int y; Query2->Close(); Query2->SQL->Clear(); Query2->Params->Clear(); Query2->SQL->Add("select xuhao from tushuleibie"); Query2->SQL->Add("where mingcheng =:departname"); Query2->ParamByName("departname")->AsString=ComboBox1->Text; Query2->Open(); if(Query2->RecordCount>0) { yxXh=Query2->FieldByName("xuhao")->AsInteger; mzXh=Query2->FieldByName("xuhao")->AsInteger; y=Query2->FieldByName("xuhao")->AsInteger; } Query2->Close(); Query2->SQL->Clear(); Query2->Params->Clear(); String s="insert into tushuxinxi(bianhao,shuming,leibie,zuozhe,isbn,chubanshe,zhuangtai,jieyuecishu)"; s+= "values(:id,:name,:lb,:zz,:isb,:chbs,:zt,:jc)"; Query2->SQL->Add(s); Query2->ParamByName("id")->AsString=Edit1->Text; Query2->ParamByName("name")->AsString=Edit2->Text; Query2->ParamByName("zz")->AsString=Edit4->Text; Query2->ParamByName("isb")->AsString=Edit5->Text; Query2->ParamByName("jc")->AsInteger=StrToInt(Edit8->Text); Query2->ParamByName("lb")->AsInteger=yxXh; Query2->ParamByName("chbs")->AsInteger=mzXh; Query2->ParamByName("zt")->AsInteger=y; Query2->ExecSQL(); Query1->Close(); Query1->Open(); } //--------------------------------------------------------------------------- void __fastcall TForm4::Button3Click(TObject *Sender) { int yxXh, mzXh,y; Query2->Close(); Query2->SQL->Clear(); Query2->Params->Clear(); Query2->SQL->Add("select xuhao from tushuleibie"); Query2->SQL->Add("where mingcheng =:departname"); Query2->ParamByName("departname")->AsString=ComboBox1->Text; Query2->Open(); if(Query2->RecordCount>0) { yxXh=Query2->FieldByName("xuhao")->AsInteger; mzXh=Query2->FieldByName("xuhao")->AsInteger; y=Query2->FieldByName("xuhao")->AsInteger; } Query2->Close(); Query2->SQL->Clear(); Query2->Params->Clear(); String s="update tushuxinxi set bianhao=:id,shuming=:name,leibie=:lb,zuozhe=:zz,isbn=:isb,chubanshe=:chbs,zhuangtai=:zt,jieyuecishu=:jc"; s+=" where xuhao=:xh"; Query2->SQL->Add(s); Query2->ParamByName("id")->AsString=Edit1->Text; Query2->ParamByName("name")->AsString=Edit2->Text; Query2->ParamByName("zz")->AsString=Edit4->Text; Query2->ParamByName("isb")->AsString=Edit5->Text; Query2->ParamByName("jc")->AsInteger=StrToInt(Edit8->Text); Query2->ParamByName("lb")->AsInteger=yxXh; Query2->ParamByName("chbs")->AsInteger=mzXh; Query2->ParamByName("zt")->AsInteger=y; Query2->ParamByName("xh")->AsInteger=Query1->FieldByName("序号")->AsInteger; Query2->ExecSQL(); Query1 -> Close(); Query1 -> Open(); } //--------------------------------------------------------------------------- void __fastcall TForm4::Button4Click(TObject *Sender) { if(MessageDlg("确实删除？",mtConfirmation,mbOKCancel,0)==mrOk) { Query2->Close(); Query2->SQL->Clear(); Query2->Params->Clear(); Query2->SQL->Add("delete from tushuxinxi where xuhao=:xh"); Query2->ParamByName("xh")->AsString=Query1->FieldByName("序号")->AsString; Query2->ExecSQL(); Query1->Close(); Query1->Open();} } //--------------------------------------------------------------------------- void __fastcall TForm4::Button5Click(TObject *Sender) { ProgressBar1->Visible=True; for(int i=1;i<100;i++) { Sleep(20); ProgressBar1->Position=i; } ProgressBar1->Visible=False; Form5->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm4::FormCreate(TObject *Sender) { Table1->Open(); Table1->First(); ComboBox1->Clear(); while(!Table1->Eof) {ComboBox1->Items->Add(Table1->FieldByName("mingcheng")->AsString ); Table1->Next();} Table2->Open(); Table2->First(); ComboBox2->Clear(); while(!Table2->Eof) {ComboBox2->Items->Add(Table2->FieldByName("mingcheng")->AsString ); Table2->Next();} Table3->Open(); Table3->First(); ComboBox3->Clear(); while(!Table3->Eof) {ComboBox3->Items->Add(Table3->FieldByName("zhuangtai")->AsString ); Table3->Next();} } //--------------------------------------------------------------------------- void __fastcall TForm4::Button6Click(TObject *Sender) { Query1->Active=False; Query1->Active=True; } //---------------------------------------------------------------------------