unit1.pas

图书管理系统 简介 随着科学技术的飞速发展

  ADOQuery.SQL.Add('select * from tab_bookcardinfo where bookcard_id=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=Trim(edit1.Text);
  ADOQuery.Open;
  if ADOQuery.RecordCount<=0 then
  begin
    MessageDlg('这个书证编号不存在！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select * from tab_bookinfo where book_id=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=Trim(edit1.Text);
  ADOQuery.Open;
  if ADOQuery.RecordCount<=0 then
  begin
    MessageDlg('这本图书编号不存在！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select * from tab_borrow_return where bookcard_id=:Z and book_id=:X and y_n_return=:V');
  ADOQuery.Parameters.ParamByName('Z').Value:=EDIT1.Text;
  ADOQuery.Parameters.ParamByName('X').Value:=edit2.Text;
  ADOQuery.Parameters.ParamByName('V').Value:= false;
  ADOQuery.Open;
  if ADOQuery.RecordCount>0 then
  begin
    MessageDlg('相同的书只能借一本！！',mtInformation , [mbYes],0);
    exit;
  end;
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('insert into tab_borrow_return (bookcard_id,book_id,borrowday) values (:A,:S,:D)');
  ADOQuery.Parameters.ParamByName('A').Value:=edit1.Text;
  ADOQuery.Parameters.ParamByName('S').Value:=edit2.Text;
  ADOQuery.Parameters.ParamByName('D').Value:=edit3.Text;
  try
    ADOQuery.ExecSQL;  //向借还信息表中插入一条数据
    MessageDlg('你已经成功的借到一本书！！',mtInformation , [mbYes],0);
    edit1.Text:='';
    edit2.Text:='';
  except
    MessageDlg('操作失败！！',mtInformation , [mbYes],0);
  end;
  ADOQuery.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(self);
  ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                              extractfilepath(application.ExeName)+
                              'DATA\db_booksys.mdb;Persist Security Info=False';   //连接字符串
  if (edit1.Text='') or (edit2.Text='') then
  begin
    MessageDlg('书证编号或图书编号不能为空！！', mtInformation, [mbYes],0);
    exit;
  end;
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select * from tab_bookcardinfo where bookcard_id=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=Trim(edit1.Text);
  ADOQuery.Open;
  if ADOQuery.RecordCount<=0 then
  begin
    MessageDlg('这个书证编号不存在！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select * from tab_bookinfo where book_id=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=Trim(edit1.Text);
  ADOQuery.Open;
  if ADOQuery.RecordCount<=0 then
  begin
    MessageDlg('这本图书编号不存在！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('update tab_borrow_return set y_n_return=:F,returnday=:D where bookcard_id=:A and book_id=:S');
  ADOQuery.Parameters.ParamByName('F').Value:=true;
  ADOQuery.Parameters.ParamByName('D').Value:=edit3.Text;
  ADOQuery.Parameters.ParamByName('A').Value:=edit1.Text;
  ADOQuery.Parameters.ParamByName('S').Value:=edit2.Text;
  try
    ADOQuery.ExecSQL;  //向借还信息表中插入一条数据
    MessageDlg('你已经成功的还了一本书！！',mtInformation , [mbYes],0);
  except
    MessageDlg('操作失败！！',mtInformation , [mbYes],0);
  end;
  ADOQuery.Free;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if edit4.text='' then
  begin
    MessageDlg('请输入借书证编号！！', mtInformation, [mbYes],0);
    exit;
  end;
  ADOQuery_pub.Close;
  ADOQuery_pub.SQL.Clear;
  ADOQuery_pub.SQL.Add('select * from tab_borrow_return where bookcard_id=:A and y_n_return=:F');
  ADOQuery_pub.Parameters.ParamByName('A').Value:=edit4.Text;
  ADOQuery_pub.Parameters.ParamByName('F').Value:=false;
  ADOQuery_pub.Open;
  DataSource_pub.DataSet:= ADOQuery_pub;
  DBGrid2.DataSource:= DataSource_pub;
  DBGrid2.Columns.Items[0].FieldName:='bookcard_id';
  DBGrid2.Columns.Items[1].FieldName:='book_id';
  DBGrid2.Columns.Items[2].FieldName:='y_n_return';
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked=true then
  begin
    edit4.Enabled:=true;
    DBGrid2.Enabled:=true;
    button4.Enabled:=true;
  end
  else
  begin
    edit4.Enabled:=false;
    DBGrid2.Enabled:=false;
    button4.Enabled:=false;
    ADOQuery_pub.Close;
  end;
end;
//图书录入操作
procedure TForm1.N4Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
begin
  form_panel4Click();
  emp_YN_null;
  PageControl1.ActivePageIndex:=3;
  ADOQuery:=TADOQuery.Create(self);
  ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                              extractfilepath(application.ExeName)+
                              'DATA\db_booksys.mdb;Persist Security Info=False';   //连接字符串
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select book_id from tab_bookinfo');
  ADOQuery.Open;
  ADOQuery.Last;
  edit5.Enabled:=false;
  edit5.Text:= Myjiami.db_idtoadd(ADOQuery.FieldValues['book_id'],10);
  ADOQuery.Free;
  edit6.Enabled:=true;
  edit7.Enabled:=true;
  edit8.Enabled:=true;
  edit9.Enabled:=true;
  edit10.Enabled:=true;
  edit11.Enabled:=true;
  combobox1.Enabled:=true;
  combobox2.Enabled:=true;
  button5.Enabled:=true;
  button6.Enabled:=false;
  button7.Enabled:=false;
  button8.Enabled:=false;
  edit12.Enabled:=false;
  form1.book_refrish;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(self);
  ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                              extractfilepath(application.ExeName)+
                              'DATA\db_booksys.mdb;Persist Security Info=False';   //连接字符串
  if (edit5.Text='') or (edit6.Text='') or (edit7.Text='') or (edit8.Text='') or (edit9.Text='') or (edit10.Text='') or (edit11.Text='') then
  begin
    MessageDlg('信息不能为空或不全！！', mtInformation, [mbYes], 0);
    ADOQuery.Free;
    exit;
  end;
  if Combobox1.Text='默认' then
  begin
    MessageDlg('请选择图书种类！！', mtInformation, [mbYes], 0);
    ADOQuery.Free;
    exit;
  end;
  if Combobox2.Text='默认' then
  begin
    MessageDlg('请选择书籍出版社！！', mtInformation, [mbYes], 0);
    ADOQuery.Free;
    exit;
  end;
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('insert into tab_bookinfo values(:A,:S,:D,:F,:G,:H,:J,:K,:L)');
  ADOQuery.Parameters.ParamByName('A').Value:=EDIT5.Text;
  ADOQuery.Parameters.ParamByName('S').Value:=EDIT6.Text;
  ADOQuery.Parameters.ParamByName('D').Value:=EDIT7.Text;
  ADOQuery.Parameters.ParamByName('F').Value:=str_bookclassid;
  ADOQuery.Parameters.ParamByName('G').Value:=str_bookpublishid;
  ADOQuery.Parameters.ParamByName('H').Value:=EDIT8.Text;
  ADOQuery.Parameters.ParamByName('J').Value:=EDIT9.Text;
  ADOQuery.Parameters.ParamByName('K').Value:=EDIT10.Text;
  ADOQuery.Parameters.ParamByName('L').Value:=EDIT11.Text;
  try
    ADOQuery.ExecSQL;
    MessageDlg('图书添加成功！！', mtInformation, [mbYes], 0);
  except
    MessageDlg('数据没有正常提交！！', mtInformation, [mbYes], 0);
  end;
  N4.Click ;
  form1.book_refrish;
  ADOQuery.Free;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(self);
  ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                              extractfilepath(application.ExeName)+
                              'DATA\db_booksys.mdb;Persist Security Info=False';   //连接字符串
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select bookclass_id from tab_bookclassinfo where bookclass_name=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=Combobox1.Text;
  ADOQuery.Open;
  str_bookclassid:=ADOQuery.FieldValues['bookclass_id']; //从数据库中得到书籍类别编号
  ADOQuery.Free;
end;

procedure TForm1.ComboBox2Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(self);
  ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                              extractfilepath(application.ExeName)+
                              'DATA\db_booksys.mdb;Persist Security Info=False';   //连接字符串
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select book_publishid from tab_bookpublish where book_publishname=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=Combobox2.Text;
  ADOQuery.Open;
  str_bookpublishid:=ADOQuery.FieldValues['book_publishid'];   //从数据库中得到出版社编号
  ADOQuery.Free;
end;
//图书更新操作
procedure TForm1.N5Click(Sender: TObject);
begin
  form_panel4Click();
  emp_YN_null;
  PageControl1.ActivePageIndex:=3;
  ADOQuery_pub.Close;
  ADOQuery_pub.SQL.Clear;
  ADOQuery_pub.SQL.Add('select * from tab_bookinfo');
  ADOQuery_pub.Open;
  DBGrid3.DataSource:=dataSource_pub;
  DBGrid3.Columns.Items[0].FieldName:='book_id';
  DBGrid3.Columns.Items[1].FieldName:='book_name';
  DBGrid3.Columns.Items[2].FieldName:='book_writer';
  DBGrid3.Columns.Items[3].FieldName:='book_pub_times';
  DBGrid3.Columns.Items[4].FieldName:='book_information';
  button5.Enabled:=false;
  button6.Enabled:=true;
  button7.Enabled:=false;
  button6.Enabled:=false;
  button8.Enabled:=true;
  edit12.Enabled:=false;
  edit5.Enabled:=true;
  edit6.Enabled:=false;
  edit7.Enabled:=false;
  edit8.Enabled:=false;
  edit9.Enabled:=false;
  edit10.Enabled:=false;
  edit11.Enabled:=false;
  combobox1.Enabled:=false;
  combobox2.Enabled:=false;
  form_panel4Click();
end;
//图书删除操作
procedure TForm1.N6Click(Sender: TObject);
begin
  form_panel4Click();
  emp_YN_null;
  PageControl1.ActivePageIndex:=3;
  ADOQuery_pub.Close;
  ADOQuery_pub.SQL.Clear;
  ADOQuery_pub.SQL.Add('select * from tab_bookinfo');
  ADOQuery_pub.Open;
  DBGrid3.DataSource:=dataSource_pub;
  DBGrid3.Columns.Items[0].FieldName:='book_id';
  DBGrid3.Columns.Items[1].FieldName:='book_name';
  DBGrid3.Columns.Items[2].FieldName:='book_writer';
  DBGrid3.Columns.Items[3].FieldName:='book_pub_times';
  DBGrid3.Columns.Items[4].FieldName:='book_information';
  button5.Enabled:=false;
  button6.Enabled:=false;
  button7.Enabled:=true;
  button8.Enabled:=false;
  edit5.Enabled:=false;
  edit6.Enabled:=false;
  edit7.Enabled:=false;
  edit8.Enabled:=false;
  edit9.Enabled:=false;
  edit10.Enabled:=false;
  edit11.Enabled:=false;
  combobox1.Enabled:=false;
  combobox2.Enabled:=false;
  edit12.Enabled:=true;
  form_panel4Click();
end;
//按编号查询
procedure TForm1.Button8Click(Sender: TObject);
var
  ADOQuery:TADOQuery;
  str_cid:string;   //图书类别编号
  str_pid:string;   //图书出版社编号
begin
  ADOQuery:=TADOQuery.Create(self);
  ADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                              extractfilepath(application.ExeName)+
                              'DATA\db_booksys.mdb;Persist Security Info=False';   //连接字符串
  if edit5.Text='' then
  begin
    MessageDlg('请输入要查询的图书编号！！', mtInformation, [mbYes],0);
    ADOQuery.Free;
    exit;
  end;
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select * from tab_bookinfo where book_id=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=edit5.Text;
  ADOQuery.Open;  //从书籍信息表中选择相关内容
  if ADOQuery.RecordCount>0 then
  begin
    edit6.Text:= ADOQuery.FieldValues['book_name'];
    edit7.Text:= ADOQuery.FieldValues['book_writer'];
    edit8.Text:= ADOQuery.FieldValues['book_pub_times'];
    edit9.Text:= ADOQuery.FieldValues['book_version'];
    edit10.Text:= ADOQuery.FieldValues['book_price'];
    edit11.Text:= ADOQuery.FieldValues['book_information'];
    str_cid:= ADOQuery.FieldValues['book_classid'];
    str_pid:= ADOQuery.FieldValues['book_publishid'];
    str_bookclassid:= str_cid;
    str_bookpublishid:= str_pid;
  end
  else
  begin
    MessageDlg('没有这本图书！！', mtInformation, [mbYes], 0);
    ADOQuery.Free;
    exit;
  end;
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select bookclass_name from tab_bookclassinfo where bookclass_id=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=str_cid;
  ADOQuery.Open;    //从书的类别表中选择内容
  if ADOQuery.RecordCount>0 then
  begin
    Combobox1.Text:=ADOQuery.FieldValues['bookclass_name'];
  end;
  ADOQuery.Close;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('select book_publishname from tab_bookpublish where book_publishid=:A');
  ADOQuery.Parameters.ParamByName('A').Value:=str_pid;
  ADOQuery.Open;    //从书出版社中选择内容
  if ADOQuery.RecordCount>0 then
  begin
    Combobox2.Text:=ADOQuery.FieldValues['book_publishname'];
  end;
  button6.Enabled:=true;
  button8.Enabled:=false;
  edit5.Enabled:=false;
  edit6.Enabled:=true;
  edit7.Enabled:=true;
  edit8.Enabled:=true;
  edit9.Enabled:=true;
  edit10.Enabled:=true;
  edit11.Enabled:=true;
  combobox1.Enabled:=true;
  combobox2.Enabled:=true;