borrow_card.~pas

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

unit borrow_card;

interface

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

type
  Tborrowcard = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit3: TEdit;
    Label8: TLabel;
    Edit4: TEdit;
    Label9: TLabel;
    Edit5: TEdit;
    Memo1: TMemo;
    ADOCommand1: TADOCommand;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  educate,borrowcard: Tborrowcard;

implementation

{$R *.dfm}


procedure Tborrowcard.BitBtn1Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Text:='select StuID from [user] where StuID='''+edit2.Text+'''';
 adoquery1.Open;
 if adoquery1.FieldByName('StuID').AsString<>'' then
  begin
  showmessage('帐号已存在！');
  end
  else
  begin
  if Edit1.Text=''then
  begin
    showmessage('用户姓名不能为空！');
  end
  else
    if Edit2.Text='' then
    begin
    showmessage('用户帐号不能为空！');
    end
    else
    if ComboBox1.ItemIndex=-1 then
    begin
    showmessage('用户类型不能为空！');
    end
  else
  begin
  adocommand1.CommandText:='insert [user] values('''+edit2.Text+''','''+edit1.Text+''','''+ComboBox1.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''',1)' ;
  adocommand1.Execute;
  adocommand1.CommandText:='insert login_User values('''+edit2.Text+''',3,'''+edit2.Text+''')' ;
  adocommand1.Execute;
  showmessage('办理成功！');
  close;
  end
end
end;

procedure Tborrowcard.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.