unit1.~pas

这是一宽适合于中小学校的图书管理系统

adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from jl where 借书="借书"');
adoquery3.Open;
adoquery1.Append;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
//借书中的查询
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select * from xs where 书号="'+trim(edit10.Text)+'"');
adoquery2.Open;
adoquery2.Append;
bitbtn11.Enabled:=true;
//dbgridshow;
 //图书中的查旬
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Add('select * from ts where 书号="'+trim(edit10.Text)+'"');
 adoquery4.Open;
//adoquery4.Append;
edit14.Text:=adoquery4.fieldbyname('书名').AsString;

 end;


procedure TForm1.RadioButton5Click(Sender: TObject);
begin
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from jl where 借书="还书"');
adoquery3.Open;
 adoquery1.Append;
end;

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
 adoquery2.MoveBy(dbgrid1.ControlCount );
  edit1.Text:=  adoquery2.fieldbyname('学号').AsString;
edit5.Text:=adoquery2.fieldbyname('姓名').AsString ;
combobox2.text:=adoquery2.fieldbyname('系部').AsString ;
combobox3.text:=adoquery2.fieldbyname('班级').AsString ;
 edit10.Text:=adoquery2.fieldbyname('书号').AsString;
 edit9.Text:=adoquery2.fieldbyname('册数').AsString;
datetimepicker2.Date:= adoquery2.fieldbyname('借书日期').AsDateTime;
//adoquery2.fieldbyname('借书').AsString:= '借书';
 end;

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
//if showmsage('你确定要删除吗！删除的数据不可恢复！') then
adoquery3.Delete;
adoquery3.ExecSQL;
//end;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin

bitbtn4.Enabled:=true;
edit1.Enabled:=false;
edit5.Enabled:=false;
combobox2.Enabled:=false;
combobox3.Enabled:=false;
edit9.Enabled:=false;
edit10.Enabled:=true;
datetimepicker3.Enabled:=true;
bitbtn3.Enabled:=false;
bitbtn4.Caption:='查找';
bitbtn11.Enabled:=false;
   //showmessage('请输入书号！');
dbgridshow;
   //adoquery2.Post;
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
bitbtn3.Enabled:=true;
edit1.Enabled:=true;
edit5.Enabled:=true;
combobox2.Enabled:=true;
combobox3.Enabled:=true;
    edit9.Enabled:=true;
    edit10.Enabled:=true;
    bitbtn4.Enabled:=false;
   datetimepicker3.Enabled:=true;
   bitbtn11.Enabled:=false;
   edit5.Clear;
   //combobox2.Clear;
   edit9.Clear;
   edit1.Clear;
  // combobox3.Clear;

end;

procedure TForm1.BitBtn11Click(Sender: TObject);
begin
adoquery2.Delete;
adoquery2.ExecSQL;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from jl');
adoquery3.Open;
adoquery3.Append;
//adoquery2.fieldbyname('编号').AsString:=edit1.Text;
adoquery3.fieldbyname('学号').AsString:= edit1.Text;
adoquery3.fieldbyname('姓名').AsString:= edit5.Text;
adoquery3.fieldbyname('系部').AsString:=combobox3.text ;
adoquery3.fieldbyname('班级').AsString:= edit10.Text ;
adoquery3.fieldbyname('书号').AsString:= edit9.Text;
adoquery3.fieldbyname('借书日期').AsString:= datetostr(datetimepicker2.Date ) ;
adoquery3.fieldbyname('借书').AsString:= '还书';
adoquery3.Post ;
showmessage('还书成功')
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Add('select * from ts where 书号="'+trim(edit7.Text)+'"');
adoquery4.Open;
adoquery4.Append;
edit7.Clear;
//jlgridshow;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Add('select * from ts where 书名="'+trim(edit16.Text)+'"');
adoquery4.Open;
adoquery4.Append;
edit16.Clear;
jlgridshow;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
case radiogroup1.ItemIndex of
0:
begin
adoquery5.Close;
adoquery5.SQL.Clear;
adoquery5.SQL.Add('select * from xs where 姓名="'+trim(edit11.Text)+'"');
adoquery5.Open;
adoquery5.Append;
edit11.Clear;
//dsgridshow;
end;

1:
begin
 adoquery5.Close;
adoquery5.SQL.Clear;
adoquery5.SQL.Add('select * from xs where 学号="'+trim(edit11.Text)+'"');
adoquery5.Open;
adoquery5.Append;
edit11.Clear;

end;

2:
 begin
 adoquery5.Close;
adoquery5.SQL.Clear;
adoquery5.SQL.Add('select * from xs where 班级="'+trim(edit11.Text)+'"');
adoquery5.Open;
adoquery5.Append;
edit11.Clear;

end;
3:
begin
 adoquery5.Close;
adoquery5.SQL.Clear;
adoquery5.SQL.Add('select * from xs where 书号="'+trim(edit11.Text)+'"');
adoquery5.Open;
adoquery5.Append;
edit11.Clear;

end;
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
case radiogroup2.ItemIndex  of
0:
begin
edit12.Clear;
edit13.Clear;
label16.Caption:='添加类别代码' ;
label17.Caption:='添加类别名称';
adoquery6.Close;
adoquery6.SQL.Clear;
adoquery6.SQL.Add('select * from booktype');
adoquery6.Open;
adoquery6.Append;
adoquery6.fieldbyname('类别代码').AsString:=edit12.Text;
adoquery6.fieldbyname('类别名称').AsString:=edit13.Text;
adoquery6.Post ;
showmessage('添加成功！')
end;
1:begin
edit12.Clear;
edit13.Clear;
label16.Caption:='添加单位' ;
label17.Caption:='添加类别';
adoquery6.Close;
adoquery6.SQL.Clear;
adoquery6.SQL.Add('select * from readertype');
adoquery6.Open;
adoquery6.Append;
adoquery6.fieldbyname('单位').AsString:=edit12.Text;
adoquery6.fieldbyname('类别').AsString:=edit13.Text;
adoquery6.Post ;
showmessage('添加成功！')
end;
end;
 end;
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
 case radiogroup2.ItemIndex  of
0:
begin
label16.Caption:='添加类别代码：' ;
label17.Caption:='添加类别名称：';
edit12.Clear;
edit13.Clear;
end;
1:
begin
label16.Caption:='添加单位：' ;
label17.Caption:='添加类别：'  ;
edit12.Clear;
edit13.Clear;
end;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
adoquery6.Delete;
adoquery6.ExecSQL;
showmessage('删除成功')
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if not adoquery6.Bof then
begin
adoquery6.Prior;
edit12.Text:=adoquery6.fieldbyname('类别代码').AsString;
edit13.Text:=adoquery6.fieldbyname('类别名称').AsString;
  
  end;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
if not adoquery6.Eof then
begin
adoquery6.Next;
edit12.Text:=adoquery6.fieldbyname('类别代码').AsString;
edit13.Text:=adoquery6.fieldbyname('类别名称').AsString;
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
adoquery6.Edit;
adoquery6.ExecSQL;
adoquery6.fieldbyname('类别代码').AsString:=edit12.Text;
adoquery6.fieldbyname('类别名称').AsString:=edit13.Text;
adoquery6.Post;
showmessage('修改成功')
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
adoquery5.Close;
adoquery5.SQL.Clear;
adoquery5.SQL.Add('select * from xs');
adoquery5.Open;
adoquery5.Append;
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Add('select * from ts  ');
adoquery4.Open;
adoquery4.Append;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from jl');
adoquery3.Open;
adoquery1.Append;
end;

procedure TForm1.jlgridshow;
begin
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.sql.Add('select * from ts ');
adoquery4.Open;
end;

procedure TForm1.dsgridshow;
begin
adoquery5.Close;
adoquery5.SQL.Clear;
adoquery5.sql.Add('select * from xs ');
adoquery5.Open;
end;

procedure TForm1.Button15Click(Sender: TObject);
var
t:string;
begin
case combobox4.ItemIndex of
0:
begin
adoquery8.Close;
adoquery8.SQL.Clear;
adoquery8.SQL.Add('select * from dl where 用户名="'+trim(combobox4.Text)+'"');
adoquery8.Open;
//adoquery8.Append;
t:=adoquery8.fieldbyname('密码').AsString;
 if edit15.Text =t then
begin
pagecontrol2.Visible:=false;
tabsheet1.TabVisible:=true;
tabsheet2.TabVisible:=true;
tabsheet3.TabVisible:=true;
tabsheet4.TabVisible:=true;
tabsheet5.TabVisible:=true;
tabsheet7.TabVisible:=true;
tabsheet8.TabVisible:=true;
tabsheet9.TabVisible:=true;
n1.Enabled:=true;
n6.Enabled:=true;
n13.Enabled:=true;

end
else
begin
showmessage('密码不正确！');
tabsheet1.TabVisible:=false;
tabsheet2.TabVisible:=false;
tabsheet3.TabVisible:=false;
tabsheet4.TabVisible:=false;
tabsheet5.TabVisible:=false;
end;
end;

1:
begin
 adoquery8.Close;
adoquery8.SQL.Clear;
adoquery8.SQL.Add('select * from dl where 用户名="'+trim(combobox4.Text)+'"');
adoquery8.Open;
//adoquery8.Append;
t:=adoquery8.fieldbyname('密码').AsString;
 if edit15.Text =t then
 begin
 pagecontrol2.Visible:=false;
tabsheet1.TabVisible:=false;
tabsheet2.TabVisible:=true;
tabsheet3.TabVisible:=true;
tabsheet4.TabVisible:=true;
tabsheet5.TabVisible:=false;
bitbtn10.Enabled:=false;
tabsheet7.TabVisible:=false;
tabsheet8.TabVisible:=true;
tabsheet9.TabVisible:=true;
n1.Enabled:=true;
n6.Enabled:=true;
n13.Enabled:=true;
n2.Enabled:=false;
n4.Enabled:=false;
n16.Enabled:=true;

end
else
begin
showmessage('密码不正确！') ;
tabsheet1.TabVisible:=false;
tabsheet2.TabVisible:=false;
tabsheet3.TabVisible:=false;
tabsheet4.TabVisible:=false;
tabsheet5.TabVisible:=false;
end;
end;
2:
begin
adoquery8.Close;
adoquery8.SQL.Clear;
adoquery8.SQL.Add('select * from dl where 用户名="'+trim(combobox4.Text)+'"');
adoquery8.Open;
//adoquery8.Append;
t:=adoquery8.fieldbyname('密码').AsString;
 if edit15.Text =t then
 begin
 pagecontrol2.Visible:=false;
tabsheet1.TabVisible:=false;
tabsheet2.TabVisible:=false;
tabsheet3.TabVisible:=false;
tabsheet4.TabVisible:=true;
tabsheet5.TabVisible:=false;
bitbtn10.Enabled:=false;
tabsheet7.TabVisible:=false;
tabsheet8.TabVisible:=false;
tabsheet9.TabVisible:=true;
n1.Enabled:=true;
n6.Enabled:=false;
n13.Enabled:=false;
n2.Enabled:=false;
n4.Enabled:=false;
n16.Enabled:=true;

end
else
begin
showmessage('密码不正确！');
tabsheet1.TabVisible:=false;
tabsheet2.TabVisible:=false;
tabsheet3.TabVisible:=false;
tabsheet4.TabVisible:=false;
tabsheet5.TabVisible:=false;
end;
end;
end;
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
if edit18.Text= edit19.Text then
begin
adoquery8.Edit;
//adoquery8.ExecSQL;
//adoquery8.SQL.Add('select * from dl where 用户名="管理员"');
adoquery8.fieldbyname('用户名').AsString:='管理员';
adoquery8.fieldbyname('密码').AsString:=edit18.Text;
adoquery8.Post;
showmessage('修改成功')
end
else
 showmessage('密码不一致！')
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
if edit21.Text= edit22.Text then
begin
adoquery8.Edit;
adoquery8.fieldbyname('用户名').AsString:='操作员';
adoquery8.fieldbyname('密码').AsString:=edit21.Text;
adoquery8.Post;
showmessage('修改成功')
end
else
begin
 showmessage('密码不一致')
end;
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
if edit24.text=edit25.Text then
begin
  adoquery8.Edit;
//adoquery8.ExecSQL;
//adoquery8.SQL.Add('select * from dl where 用户名="管理员"');
adoquery8.fieldbyname('用户名').AsString:='一般用户';
adoquery8.fieldbyname('密码').AsString:=edit24.Text;
adoquery8.Post;
showmessage('修改成功！')
end
else
showmessage('密码不一致！')
end;

procedure TForm1.N17Click(Sender: TObject);
begin
  pagecontrol2.Visible:=true;
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
  pagecontrol2.Hide;
end;

procedure TForm1.Button21Click(Sender: TObject);
begin
   pagecontrol2.Hide;
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
  pagecontrol2.Hide;
end;

end.