user_borrow.pas

图书馆管理系统设计用delphi开发的系统

unit user_borrow;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, ComCtrls;

type
  Tborrow = class(TForm)
    Panel2: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Bevel2: TBevel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    BitBtn4: TBitBtn;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  borrow: Tborrow;

implementation

uses module;

{$R *.dfm}

procedure Tborrow.BitBtn3Click(Sender: TObject);
begin
Edit1.Clear;
Edit3.Clear;
end;

procedure Tborrow.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure Tborrow.BitBtn1Click(Sender: TObject);
begin
 with  DataModule1.deleteADOQuery1 do
   begin
      if(trim(Edit1.Text)='')  then
        begin
           showmessage('请输入书号！');
        end
      else if(trim(Edit2.Text)='')  then
        begin
           showmessage('请输入学生证号！');
        end
      else if(trim(Edit3.Text)='')  then
        begin
           showmessage('请输入借出时间！');
        end 
      else
        begin
           close;
           SQL.clear;
           SQL.Add('exec 借书存储过程 '''+edit1.text+''','''+edit2.text+''','''+edit3.text+'''');
           showmessage('借阅成功!');
           SQL.Add('select * from books');
          DataModule1.deleteADOQuery1.Active:=true;
           open;
        end
   end;
end;

procedure Tborrow.BitBtn4Click(Sender: TObject);

begin
   with  DataModule1.deleteADOQuery1 do
    begin

       if(trim(Edit1.Text)='')  then
          begin
            showmessage('请输入书号！');
          end
       else if(trim(Edit2.Text)='')  then
          begin
            showmessage('请输入学生证号！');
          end
       else if (trim(Edit4.Text)='')   then
          begin
            showmessage('请输入书名！');
          end
       else if  (trim(Edit6.Text)='')  then
          begin
            showmessage('请输入作者！');
          end
       else if  (trim(Edit8.Text)='')  then
          begin
            showmessage('请输入出版社！');
          end
       else if  (trim(Edit5.Text)='')  then
          begin
            showmessage('请输入价格！');
          end
       else if  (trim(Edit7.Text)='')  then
          begin
            showmessage('请输入类型！');
          end
       else
       begin
          close;
          SQL.clear;
          SQL.add('exec 还书存储过程 '' '+Edit1.Text+''','''+Edit4.Text+''','''+Edit5.Text+''','''+Edit6.Text+''','''+Edit7.Text+''','''+Edit8.Text+''','''+Edit9.Text+''','''+Edit2.Text+'''');
          showmessage('添加成功!');
          SQL.Add('select * from 图书信息表');
          DataModule1.deleteADOQuery1.Active:=true;
          open;
       end
    end;
end;


end.