unit1.~pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, Grids, DBGrids, DB, ADODB, ExtCtrls,
  Menus, jpeg, ActnMan, ActnColorMaps;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit6: TEdit;
    ComboBox1: TComboBox;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DBGrid2: TDBGrid;
    GroupBox2: TGroupBox;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Edit1: TEdit;
    Edit5: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Label1: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    ComboBox2: TComboBox;
    Label15: TLabel;
    DateTimePicker3: TDateTimePicker;
    GroupBox4: TGroupBox;
    Edit7: TEdit;
    Edit16: TEdit;
    Button4: TButton;
    Button7: TButton;
    Label19: TLabel;
    Label22: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    ComboBox3: TComboBox;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    GroupBox6: TGroupBox;
    RadioButton4: TRadioButton;
    DBGrid4: TDBGrid;
    DataSource3: TDataSource;
    ADOQuery3: TADOQuery;
    RadioButton5: TRadioButton;
    Edit8: TEdit;
    Label27: TLabel;
    BitBtn10: TBitBtn;
    Button11: TButton;
    Button12: TButton;
    BitBtn11: TBitBtn;
    DBGrid3: TDBGrid;
    ADOConnection2: TADOConnection;
    ADOQuery4: TADOQuery;
    DataSource4: TDataSource;
    RadioGroup1: TRadioGroup;
    DBGrid5: TDBGrid;
    Edit11: TEdit;
    Button1: TButton;
    ADOConnection3: TADOConnection;
    ADOQuery5: TADOQuery;
     DataSource5: TDataSource;
    Label2: TLabel;
    Image1: TImage;
    Image2: TImage;
    Image4: TImage;
    Image5: TImage;
    ADOQuery6: TADOQuery;
    Panel1: TPanel;
    RadioGroup2: TRadioGroup;
    Panel2: TPanel;
    Edit12: TEdit;
    Edit13: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button5: TButton;
    Button6: TButton;
    Button13: TButton;
    ADOQuery7: TADOQuery;
    ADOConnection4: TADOConnection;
    Label16: TLabel;
    Label17: TLabel;
    Edit14: TEdit;
    Button14: TButton;
    RadioButton1: TRadioButton;
    TabSheet6: TTabSheet;
    Edit15: TEdit;
    Button15: TButton;
    Button16: TButton;
    Label18: TLabel;
    Label20: TLabel;
    ComboBox4: TComboBox;
    ADOQuery8: TADOQuery;
    XPColorMap1: TXPColorMap;
    N17: TMenuItem;
    PageControl2: TPageControl;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    Edit18: TEdit;
    Edit19: TEdit;
    Label28: TLabel;
    Label29: TLabel;
    Button17: TButton;
    Edit21: TEdit;
    Edit22: TEdit;
    Label31: TLabel;
    Label32: TLabel;
    Button18: TButton;
    Edit24: TEdit;
    Edit25: TEdit;
    Label34: TLabel;
    Label35: TLabel;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Label21: TLabel;
    procedure dbgridshow;
    procedure jlgridshow;
    procedure  dsgridshow;
   
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure BitBtn10Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.dbgridshow;
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.sql.Add('select * from xs ');
adoquery2.Open;
//adoquery2.Append;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
 tabsheet1.Show;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  tabsheet2.Show;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
   tabsheet3.Show;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
 tabsheet5.Show;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from ts');
adoquery1.Open;
adoquery1.Append;
adoquery1.fieldbyname('书号').AsString:=edit8.Text;
adoquery1.fieldbyname('书名').AsString:=edit2.Text;
adoquery1.fieldbyname('作者').AsString:= edit3.Text;
adoquery1.fieldbyname('定价').AsString:= edit4.Text ;
adoquery1.fieldbyname('分类').AsString:=combobox1.text ;
adoquery1.fieldbyname('册数').AsString:= edit6.Text ;
adoquery1.fieldbyname('出版日期').AsString:= datetostr(datetimepicker1.Date ) ;
adoquery1.fieldbyname('入库日期').AsString:= datetostr(datetimepicker2.Date ) ;
adoquery1.Post ;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
if combobox2.itemindex=0 then
begin
  combobox3.Items.Clear;
combobox3.Items.Add('04软件编码');
combobox3.Items.Add('04图形图象');
combobox3.Items.Add('04信息管理');
combobox3.Items.Add('04计算机应用与维护');
combobox3.Items.Add('04网络管理');
combobox3.Items.Add('04应用电子');
end;
if combobox2.ItemIndex =1 then
begin
combobox3.Items.Clear;
combobox3.Items.Add('机电一体化');
  end;

 end;


procedure TForm1.FormCreate(Sender: TObject);
begin
n1.Enabled:=false;
n6.Enabled:=false;
n13.Enabled:=false;
pagecontrol2.Visible:=false;
tabsheet1.TabVisible:=false;
tabsheet2.TabVisible:=false;
tabsheet3.TabVisible:=false;
tabsheet4.TabVisible:=false;
tabsheet5.TabVisible:=false;
adoquery6.Close;
adoquery6.SQL.Clear;
adoquery6.SQL.Add('select * from booktype');
adoquery6.Open;
adoquery6.First;
edit12.Text:=adoquery6.fieldbyname('类别代码').AsString;
edit13.Text:=adoquery6.fieldbyname('类别名称').AsString;
label23.Caption:=datetostr(date());
label24.Caption:=formatdatetime('hh:mm:ss',now);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from ts');
adoquery1.Open;
adoquery1.First;
edit8.Text:=adoquery1.fieldbyname('书号').AsString;
edit2.Text:=adoquery1.fieldbyname('书名').AsString;
edit3.Text:= adoquery1.fieldbyname('作者').AsString;
edit4.Text:= adoquery1.fieldbyname('定价').AsString ;
combobox1.text:=adoquery1.fieldbyname('分类').AsString ;
//combobox4.text:=adoquery8.fieldbyname('用户名').AsString ;
edit6.Text:= adoquery1.fieldbyname('册数').AsString;
datetimepicker1.Date:=adoquery1.fieldbyname('出版日期').AsDateTime  ;
datetimepicker2.Date:=adoquery1.fieldbyname('入库日期').AsDateTime  ;
bitbtn4.Enabled:=false;
bitbtn3.Enabled:=false;
bitbtn11.Enabled:=false;
adoquery7.Close;
adoquery7.SQL.Clear;
adoquery7.SQL.Add('select * from booktype order by 类别代码 asc ');
adoquery7.Open;
while not adoquery7.Eof do
begin
combobox1.Items.Add(adoquery7.FieldByName('类别名称').AsString);
adoquery7.Next;
end;
while not adoquery8.Eof do
begin
combobox4.Items.Add(adoquery8.FieldByName('用户名').AsString);
adoquery8.Next;
end;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
if not adoquery1.Bof then
begin
adoquery1.Prior;
edit8.Text:=adoquery1.fieldbyname('书号').AsString;
edit2.Text:=adoquery1.fieldbyname('书名').AsString;
edit3.Text:= adoquery1.fieldbyname('作者').AsString;
edit4.Text:= adoquery1.fieldbyname('定价').AsString ;
combobox1.text:=adoquery1.fieldbyname('分类').AsString ;
edit6.Text:= adoquery1.fieldbyname('册数').AsString;
datetimepicker1.Date:=adoquery1.fieldbyname('出版日期').AsDateTime  ;
datetimepicker2.Date:=adoquery1.fieldbyname('入库日期').AsDateTime  ;
end;
end;
procedure TForm1.BitBtn9Click(Sender: TObject);
begin
adoquery1.Delete;
adoquery1.ExecSQL;
//adoquery1.Post;
end;
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
if not adoquery1.Eof then
begin
adoquery1.Next;
edit8.Text:=adoquery1.fieldbyname('书号').AsString;
edit2.Text:=adoquery1.fieldbyname('书名').AsString;
edit3.Text:= adoquery1.fieldbyname('作者').AsString;
edit4.Text:= adoquery1.fieldbyname('定价').AsString ;
combobox1.text:=adoquery1.fieldbyname('分类').AsString ;
edit6.Text:= adoquery1.fieldbyname('册数').AsString;
datetimepicker1.Date:=adoquery1.fieldbyname('出版日期').AsDateTime  ;
datetimepicker2.Date:=adoquery1.fieldbyname('入库日期').AsDateTime  ;
end;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select * from xs');
adoquery2.Open;
adoquery2.Append;
//adoquery2.fieldbyname('编号').AsString:=edit1.Text;
adoquery2.fieldbyname('学号').AsString:= 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:= datetostr(datetimepicker2.Date ) ;
adoquery2.fieldbyname('借书').AsString:= '借书';
adoquery2.Post ;
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.DBGrid1CellClick(Column: TColumn);
var id:integer;
begin
id:=adoquery1.FieldByName('id').AsInteger;
//adoquery1.Append;
edit8.Text:=adoquery1.fieldbyname('书号').AsString;
edit2.Text:=adoquery1.fieldbyname('书名').AsString;
edit3.Text:= adoquery1.fieldbyname('作者').AsString;
edit4.Text:= adoquery1.fieldbyname('定价').AsString ;
combobox1.text:=adoquery1.fieldbyname('分类').AsString ;
edit6.Text:= adoquery1.fieldbyname('册数').AsString;
datetimepicker1.Date:=adoquery1.fieldbyname('出版日期').AsDateTime  ;
datetimepicker2.Date:=adoquery1.fieldbyname('入库日期').AsDateTime  ;

end;

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
adoquery1.Edit;
adoquery1.ExecSQL;
adoquery1.fieldbyname('书号').AsString:=edit8.Text;
adoquery1.fieldbyname('书名').AsString:=edit2.Text;
adoquery1.fieldbyname('作者').AsString:= edit3.Text;
adoquery1.fieldbyname('定价').AsString:= edit4.Text;
adoquery1.fieldbyname('分类').AsString:=combobox1.text;
adoquery1.fieldbyname('册数').AsString:= edit6.Text;
adoquery1.fieldbyname('出版日期').AsString:= datetostr(datetimepicker1.Date ) ;
adoquery1.fieldbyname('入库日期').AsString:= datetostr(datetimepicker2.Date ) ;
adoquery1.Post;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
if not adoquery2.Bof then
begin
adoquery2.Prior;
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:= strtodate( adoquery1.fieldbyname('入库日期').AsString) ;
end;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
if not adoquery2.Eof then
begin
adoquery2.Next;
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:= strtodate( adoquery1.fieldbyname('入库日期').AsString) ;
end;

end;

procedure TForm1.Button10Click(Sender: TObject);
begin
adoquery2.Edit;
adoquery2.ExecSQL;
adoquery2.fieldbyname('学号').AsString:= edit1.Text;
adoquery2.fieldbyname('姓名').AsString:= edit5.Text;
adoquery2.fieldbyname('系部').AsString:=combobox3.text ;
adoquery2.fieldbyname('班级').AsString:= edit9.Text ;
adoquery2.fieldbyname('书号').AsString:= edit10.Text;
adoquery2.fieldbyname('借书日期').AsString:= datetostr(datetimepicker2.Date ) ;
adoquery2.fieldbyname('借书').AsString:= '借书';
adoquery2.Post ;
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin