unit2.pas

实现图书馆数据库管理功能

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, Menus,  ImgList,
  Buttons,  ToolWin,ActnMan, ActnCtrls,  Grids, DBGrids, Mask,
  DBCtrls, DBTables, ADODB, QuickRpt, QRCtrls, DB;
type
  TForm2 = class(TForm)
    PopupMenu1: TPopupMenu;
    SpeedButton1: TSpeedButton;
    ToolBar1: TToolBar;
    ImageList2: TImageList;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    PopupMenu4: TPopupMenu;
    N12: TMenuItem;
    N13: TMenuItem;
    N15: TMenuItem;
    PopupMenu5: TPopupMenu;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    PopupMenu6: TPopupMenu;
    N24: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    PopupMenu7: TPopupMenu;
    H1: TMenuItem;
    N29: TMenuItem;
    Bevel3: TBevel;
    SpeedButton9: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    Panel2: TPanel;
    ImageList3: TImageList;
    Panel1: TPanel;
    Panel3: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label4: TLabel;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    ToolButton4: TToolButton;
    SpeedButton15: TSpeedButton;
    ToolButton5: TToolButton;
    SpeedButton16: TSpeedButton;
    ToolButton6: TToolButton;
    SpeedButton17: TSpeedButton;
    DataSource1: TDataSource;
    DataSource_book: TDataSource;
    DataSource_bookst: TDataSource;
    GroupBox1: TGroupBox;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    btn_Return: TButton;
    edt_Phone: TEdit;
    edt_SDays: TEdit;
    edt_ReaderName: TEdit;
    edt_ReaderKind: TEdit;
    edt_ReaderID: TEdit;
    edt_MBook: TEdit;
    edt_JDate: TEdit;
    edt_JBook: TEdit;
    edt_HDate: TEdit;
    edt_GDays: TEdit;
    edt_FNum: TEdit;
    edt_CDays: TEdit;
    edt_BookName: TEdit;
    edt_BookKind: TEdit;
    Label32: TLabel;
    edt_InsideID: TEdit;
    btn_Query: TButton;
    ADOConnection1: TADOConnection;
    ADOCommand1: TADOCommand;
    ADODataSet1: TADODataSet;
    DateTimePicker1: TDateTimePicker;
    Edit7: TEdit;
    DBGrid2: TDBGrid;
    Label34: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Edit8: TEdit;
    Edit13: TEdit;
    dt3: TDateTimePicker;
    DataSource_b3: TDataSource;
    DataSource_b2: TDataSource;
    Label35: TLabel;
    Panel10: TPanel;
    Panel9: TPanel;
    Label31: TLabel;
    Edit5: TEdit;
    BitBtn1: TBitBtn;
    Bevel6: TBevel;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    dt4: TDateTimePicker;
    Label41: TLabel;
    DateTimePicker2: TDateTimePicker;
    Panel11: TPanel;
    DataSource_bktype: TDataSource;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    Panel12: TPanel;
    SpeedButton18: TSpeedButton;
    Memo1: TMemo;
    ImageList4: TImageList;
    PopupMenu2: TPopupMenu;
    C1: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    Query1: TADOQuery;
    Query_b2: TADOQuery;
    Query3: TADOQuery;
    Query_t: TADOQuery;
    query2: TADOQuery;
    Table1: TADOTable;
    table_czrzh: TADOTable;
    Table3: TADOTable;
    Table_book: TADOTable;
    Table_bookst: TADOTable;
    Table_bktype: TADOTable;
    Table4: TADOTable;
    t_tem: TADOTable;
    table_b3: TADOTable;
    ADOTable1: TADOTable;
    table_write1: TADOTable;
    table_write: TADOTable;
    t_tem5: TADOTable;
    t_tem6: TADOTable;
    t_tem3: TADOTable;
    t_tem2: TADOTable;
    t_tem4: TADOTable;
    t_tem1: TADOTable;
    ADOTable2: TADOTable;
    Button1: TButton;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    table_write2: TADOTable;
    ADOQuery1: TADOQuery;
    ADODataSet2: TADODataSet;
    ADOQuery2: TADOQuery;
    SpeedButton2: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Image_close: TImage;
    Image_minimize: TImage;
    Image_maximize: TImage;
    Image_title: TImage;
    Label10: TLabel;
    Image1: TImage;
    Label33: TLabel;
    Timer1: TTimer;
    Label42: TLabel;
    Panel4: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    SpeedButton7: TSpeedButton;
    Bevel5: TBevel;
    Label14: TLabel;
    Label1: TLabel;
    dt1: TDateTimePicker;
    dt2: TDateTimePicker;
    Panel5: TPanel;
    Panel6: TPanel;
    Bevel2: TBevel;
    ddtt0: TDateTimePicker;
    Panel8: TPanel;
    Label13: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBText1: TDBText;
    DBGrid1: TDBGrid;
    DBEdit5: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit9: TDBEdit;
    Edit1: TEdit;
    DBEdit4: TDBEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button2: TButton;
    Edit6: TEdit;
    SpeedButton10: TSpeedButton;
    Image2: TImage;
    StatusBar1: TStatusBar;
    SpeedButton8: TSpeedButton;
    Bevel1: TBevel;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;


    procedure FormCreate(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure checkoveredbook();
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton7Click(Sender: TObject);
    procedure btn_QueryClick(Sender: TObject);
    procedure btn_ReturnClick(Sender: TObject);
    procedure edt_InsideIDKeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure SpeedButton18Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure H1Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure Image_closeClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Image_minimizeClick(Sender: TObject);
    procedure Image_maximizeClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    over1:boolean;
    { Private declarations }

    flag:string;
    flag_normal:boolean;
     public
    
     f_chaoqi,f_chaoce:boolean;
      readerno2:string;
     procedure showhowmanybooks();
     function GetCurrentDateTime: TDateTime;
    { procedure caozuorizhi(var f1:string;var rdnumo,bknumo:string);}
    { Public declarations }
  end;

var
  Form2: TForm2;
  var_BookName:string;
   var_ReaderID:string;
   var_BookKind:string;
   var_ReaderKind:string;
   var_ReaderName:string;
   var_GDays:string;
   var_SDays:string;
   var_CDays:string;
   var_BookRemainNum:string;
   var_MBook:string;
   var_JDate:string;
   var_HDate:string;
   var_JBook:string;
   var_Phone:string;
   var_FNum:string;
   var_MinDays:string;

implementation

uses Unit3, Unit7, Unit4, Unit6, bookstle, readerstyl, Unit8, amini,
  back_up, enter, about1, rdrearch, borrsearc, fakuan1,unit10, unit9,
  baobiao1, baobiao2, Unit11, Unit19;

{$R *.dfm}















procedure TForm2.FormCreate(Sender: TObject);
var strr:string;
begin
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm7, Form7);
  Application.CreateForm(Tshukuguanli, shukuguanli);
     Application.CreateForm(Tbookstyle, bookstyle);
  Application.CreateForm(Treaderstyle, readerstyle);
  Application.CreateForm(Tbok_search, bok_search);
  Application.CreateForm(Taminis, aminis);
  Application.CreateForm(Tbackup, backup);
      Application.CreateForm(TForm5, Form5);
   Application.CreateForm(Trdsearch, rdsearch);
  Application.CreateForm(Tborrsearch, borrsearch);
   Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(Tbook_add, book_add);
  Application.CreateForm(Tbook_change, book_change);

btn_Return.Enabled:=false;
table3.Active:=true;
flag_normal:=true;
popupmenu1.Items[3].Enabled:=true;
ddtt0.Date:=GetCurrentDatetime;
dt1.Date:=GetCurrentDatetime;
dt2.Date:=GetCurrentDatetime;
dt3.Date:=getcurrentdatetime;
dt4.visible:=false;
strr:='select a.读者编号,a.姓名,b.书籍编号,b.书籍名称,d.图书类别 as 书籍类别,b.出版社,c.借书日期,c.是否超期 ';
strr:=strr+' from (((读者管理 a inner join 借书情况 c on a.读者编号=c.读者编号)inner join 书库管理 b on c.书籍编号=b.书籍编号) inner join 图书类别 d on d.类别代码=b.类别代码) ';
strr:=strr+' where c.读者编号='''+''+'''';
query1.SQL.Clear;
query1.SQL.Add(strr);
query1.Active:=true;
DateTimePicker1.Visible:=false;
DateTimePicker2.Visible:=false;
//hr:=createrectrgn(0,0,width,height);
//setwindowrgn(handle,hr,true)
end;


function tform2.GetCurrentDateTime: TDateTime;//此处为使DateTimePicker1得到系统的时间的过程
var 
  SystemTime: TSystemTime; 
begin 

  GetLocalTime(SystemTime);
  Result := SystemTimeToDateTime(SystemTime); 
end;










procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
popupmenu2.Popup(form2.Left+81,form2.Top+54);
end;



procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
 popupmenu4.Popup(form2.Left+81,form2.Top+54);
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
popupmenu5.Popup(form2.Left+162,form2.Top+54);
  Application.CreateForm(Tfakuan, fakuan);
end;

procedure TForm2.SpeedButton5Click(Sender: TObject);
begin
if messagedlg('您确定退出吗？',mtinformation,[mbYes,mbNo],0)=mrYes then
application.Terminate;

end;

procedure TForm2.SpeedButton6Click(Sender: TObject);
begin
popupmenu7.Popup(form2.Left+324,form2.Top+54);
Application.CreateForm(Tabout, about);
end;


procedure TForm2.SpeedButton10Click(Sender: TObject);
begin
f_chaoqi:=false;
f_chaoce:=false;
speedbutton7.Enabled:=true;
edit1.SelStart:=0;
edit1.SelLength:=length(edit1.Text);
table_bktype.Active:=false;
table_book.Active:=false;
Table1.Close;
form3.show;
if table1.Active then