additionalinfo.~pas

来自「蛮不错的图书管理系统,大家可以载着试试看啊」· ~PAS 代码 · 共 73 行

unit additionalinfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, DB, DBTables;

type
  Tadditionalinfofrm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    q1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure addinfo(bno,name:string);
  end;

var
  additionalinfofrm: Tadditionalinfofrm;

implementation

{$R *.dfm}
procedure Tadditionalinfofrm.addinfo(bno,name:string);
begin
  q1.SQL.Clear;
  q1.SQL.Add('select * from book_info where 图书编号=:no');
  q1.ParamByName('no').AsString:=bno;
  q1.Open;
  edit1.Text:=bno; edit2.Text:=q1.fieldbyname('书名').AsString;
  q1.Close;
  q1.SQL.Clear;
  q1.SQL.Add('select * from student_info where 图书卡号=:n ');
  q1.ParamByName('n').AsString:=name;
  q1.Open;
  edit3.Text:=name;
  edit4.Text:=q1.fieldbyname('姓名').AsString;
  edit5.Text:=q1.fieldbyname('院系').AsString;
  edit6.Text:=q1.fieldbyname('专业').AsString;
  edit7.Text:=q1.fieldbyname('班级').AsString;
   q1.Close;
end;



procedure Tadditionalinfofrm.BitBtn1Click(Sender: TObject);
begin
  close;
end;

end.