reader.pas

图书借阅管理系统

unit Reader;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, DB, ADODB, Grids, DBGrids,
  DBCtrls, Mask;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Button5: TButton;
    Button6: TButton;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    ComboBox4: TComboBox;
    Label15: TLabel;
    GroupBox3: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBCombobox1: TDBComboBox;
    Button7: TButton;
    DBComboBox2: TDBComboBox;
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboBox4Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure GroupBox2Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Datamodule, Main;

{$R *.dfm}

procedure TForm2.Button4Click(Sender: TObject);
begin
  DataModule1.adoquery1.Post;
  application.MessageBox('信息已保存!','提示',0+64);
end;
procedure TForm2.Button6Click(Sender: TObject);
  var choice,content:string;
begin
  choice:=ComboBox1.text;
  content:=edit1.text;
  if content='' then
   begin
    Application.Messagebox('请输入查询内容！','提示',0+64);
    exit;
   end;

  DataModule1.adoquery1.Close;
  DataModule1.adoquery1.SQL.clear;
  DataModule1.adoquery1.SQL.add('select * from reader where '+choice+' like :content');
  DataModule1.adoquery1.Parameters.ParamByName('content').Value:='%'+edit1.text+'%';
  DataModule1.adoquery1.Open;
  if DataModule1.adoquery1.fieldvalues['学号']=null
  then
    Application.Messagebox('该查询信息为空！','提示',0+64);

end;

procedure TForm2.Button5Click(Sender: TObject);
begin
  DataModule1.adoquery1.Close;
  DataModule1.adoquery1.SQL.clear;
  DataModule1.adoquery1.SQL.add('select * from reader');
  DataModule1.adoquery1.Open;
end;

procedure TForm2.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  edit1.Focused;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  form1.show;
  form2.free;
end;

procedure TForm2.ComboBox4Change(Sender: TObject);
  var banji:string;
begin
  banji:=ComboBox4.text;
  DataModule1.adoquery1.Close;
  DataModule1.adoquery1.SQL.clear;
  DataModule1.adoquery1.SQL.add('select * from reader where 级别=:banji');
  DataModule1.adoquery1.Parameters.ParamByName('banji').Value:=ComboBox4.text;
  DataModule1.adoquery1.Open;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  DataModule1.adoquery1.insert;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  DataModule1.adoquery1.edit;
end;

procedure TForm2.GroupBox2Click(Sender: TObject);
begin
  if edit1.Text<>'' then
  button6.Enabled:=true;
end;

procedure TForm2.Button7Click(Sender: TObject);
begin
  DataModule1.adoquery1.cancel;
end;

procedure TForm2.Button3Click(Sender: TObject);
  var
    StuNo:string;
begin
  StuNo:=DBedit1.text;
  DataModule1.adoquery7.Close;
  DataModule1.adoquery7.SQL.clear;
  DataModule1.adoquery7.sql.Add('select * from lendbook where 学号=:StuNo');
  DataModule1.adoquery7.Parameters.parambyname('StuNo').value:=DBEdit1.text;
  DataModule1.adoquery7.open;
  if DataModule1.adoquery7.recordcount>0 then
   begin
    application.MessageBox('该生有书尚未还清!','提示',0+48);
    exit;
   end
  else
   if application.MessageBox('确定删除该项?','提示',MB_YesNo+Mb_iconinformation)=Mryes then
   DataModule1.adoquery1.delete;
end;

end.