new_manage.pas

该是一个比较好的图书馆系统,是现在大学生软件课程设计的好模板

unit new_manage;

interface

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

type
  Tnewmanage = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    Edit2: TEdit;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOCommand1: TADOCommand;
    ADOQuery1: TADOQuery;
    Label3: TLabel;
    Edit3: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  newmanage: Tnewmanage;

implementation

{$R *.dfm}

procedure Tnewmanage.BitBtn1Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Text:='select GenAdminID from GenAdmin where GenAdminID='''+edit1.Text+'''';
 adoquery1.Open;
 if adoquery1.FieldByName('GenAdminID').AsString<>'' then
  begin
  showmessage('帐号已存在！');
  end
  else
  begin
  if Edit3.Text=''then
  begin
    showmessage('用户姓名不能为空！');
  end
  else
    if Edit1.Text='' then
    begin
    showmessage('用户帐号不能为空！');
    end
  else
  begin
  adocommand1.CommandText:='insert GenAdmin values('''+edit1.Text+''','''+edit3.Text+''')' ;
  adocommand1.Execute;
  adocommand1.CommandText:='insert login_User values('''+edit1.Text+''',2,'''+edit1.Text+''')' ;
  adocommand1.Execute;
  showmessage('办理成功！');
  close;
  end
end
end;

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

procedure Tnewmanage.BitBtn2Click(Sender: TObject);
begin
if Edit2.Text<>'' then
 begin
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Text:='select * from GenAdmin where GenAdminID='''+Edit2.Text+'''';
 ADOQuery1.Open;
 if ADOQuery1.FieldByName('GenAdminID').AsString<>'' then
 begin
   adocommand1.CommandText:='delete from GenAdmin where GenAdminID='''+Edit2.Text+'''';
   adocommand1.Execute;
   adocommand1.CommandText:='delete from login_User where UserID='''+Edit2.Text+'''';
   adocommand1.Execute;
   showmessage('删除成功！');
 end
 else
 showmessage('该用户不存在');
 end
 else
 showmessage('用户帐号不能为空！');
end;

procedure Tnewmanage.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tnewmanage.FormShow(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;

end.