search_self.pas

来自「该是一个比较好的图书馆系统,是现在大学生软件课程设计的好模板」· PAS 代码 · 共 85 行

unit search_self;

interface

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

type
  Tsearchself = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    ADOCommand1: TADOCommand;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  searchself: Tsearchself;

implementation
uses login;

{$R *.dfm}

procedure Tsearchself.BitBtn1Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Text:='select StuID as ''图书证号'',Name as ''姓名'',StuGroup as''学历'',Gender as ''性别'',Phone ''电话号码'',Mail ''邮件'' from [User] where StuID='''+log.Edit2.text+'''';
 adoquery1.Open;
end;

procedure Tsearchself.BitBtn2Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Text:='select [User].Name as ''姓名'',Book.BookName as ''书名'',Borrow.Borrow_data as''借书时间'',Borrow.End_data as ''到期时间'',Borrow.return_data ''还书时间'' from [User],Borrow,Book where Borrow.UserID=[User].StuID and Borrow.BookID=Book.BookID and Borrow.UserID='''+log.Edit2.text+'''';
 adoquery1.Open;
end;

procedure Tsearchself.BitBtn3Click(Sender: TObject);
begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text:='select StuID  from [User] where StuID='''+log.Edit2.text+'''';
  adoquery1.Open;
  adocommand1.CommandText:='update [User] set Phone='''+Edit1.text+''',Mail='''+Edit2.text+'''where StuID='''+log.Edit2.text+'''' ;
  adocommand1.Execute;
  showmessage('修改成功！');
end;

procedure Tsearchself.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure Tsearchself.FormShow(Sender: TObject);
begin
edit1.Text:='';
edit2.text:='';
adoquery1.Close;
adoquery1.SQL.Clear;
end;

end.