unit10.pas

大家可以看看还不错的管理系统

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, XPMan;

type
  TfrmYuyue = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    txtNo: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    txtBooknum: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmYuyue: TfrmYuyue;

implementation

{$R *.dfm}

procedure TfrmYuyue.Button1Click(Sender: TObject);
begin
begin
try
  with ADOquery1 do
    begin
      close;
      SQL.Clear;
      SQL.Add('select  * from BOOKS where  是否在库= '+'''0'''+' and 书的编号= '+txtBooknum.Text );
      open;

     if ADOQuery1.RecordCount >0 then
      begin
        Messagebox(handle,'您想要的图书已被借出或者预约。','预约错误',MB_ok or MB_ICONWARNING );
      end
     else
      begin
        close;
        SQL.Clear;
        SQL.Add('select * from BOOKS where 书的编号= ' + txtBooknum.Text );
        open;

        edit;
        fields.FieldByName('是否在库').AsString := '0';
        UpdateBatch();

        close;
        SQL.Clear;
        SQL.Add('select 借书证号,图书编号,预约日期 from Yuyue' );
        open;

        datasource1.DataSet.Append;
        edit;
        fields.FieldByName('借书证号').AsString :=txtNo.Text ;
        fields.FieldByName('图书编号').AsString :=txtBooknum.Text ;
        fields.FieldByName('预约日期').AsDateTime :=date();
        post;

      end;
      txtNo.Text:='';
      txtbooknum.Text:='';
    end;
except
  messagebox(handle,'系统找不到您输入的卡号或者是书本编号，请检查后再次输入','错误提示',MB_ok or MB_ICONINFORMATION);
end;
end;
end;

procedure TfrmYuyue.FormCreate(Sender: TObject);
var i : string;
begin
  with adoquery1 do
  begin
    try
      close;
      with sql do
      begin
        clear;
        add('select 借书证号,图书编号,预约日期 from Yuyue where getdate() - 预约日期 >7');
      end;
      open;
      if ADOQuery1.RecordCount =1 then
        begin
          i:=fields.FieldByName('图书编号').AsString;
          datasource1.DataSet.Delete;

          close;
          SQL.Clear;
          SQL.Add('select * from BOOKS where 书的编号= ' + i );
          open;

          edit;
          fields.FieldByName('是否在库').AsString := '1';
          UpdateBatch();

          close;
          SQL.Clear;
          SQL.Add('select * from Yuyue ');
          open;

        end
      else
      begin
        close;
        SQL.Clear;
        SQL.Add('select * from Yuyue ');
        open;
      end;
    except
      exit;
    end;
  end;
end;

procedure TfrmYuyue.Button3Click(Sender: TObject);
var i: string;
begin
with adoquery1 do
try
begin
if messagebox(handle,'您是否确定解除此书的预约？','预约提示',MB_okcancel or MB_ICONINFORMATION )=id_ok then
begin
  close;
  sql.Clear;
  SQL.Add('select 借书证号,图书编号,预约日期 from Yuyue' );
  open;

  i:=fields.FieldByName('图书编号').AsString;
  datasource1.DataSet.Delete;

  close;
  SQL.Clear;
  SQL.Add('select * from BOOKS where 书的编号= ' + i );
  open;

  edit;
  fields.FieldByName('是否在库').AsString := '1';
  UpdateBatch();

  close;
  sql.Clear;
  SQL.Add('select 借书证号,图书编号,预约日期 from Yuyue');
  open;
end;
end;
except
exit;
end;
end;

procedure TfrmYuyue.Button2Click(Sender: TObject);
begin
 frmYuyue.Close;
end;

end.