owner.~pas

delphi编写的图书管理系统,一般的管理系统

unit owner;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,dbtables;

type
  Townerfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    s_name: TEdit;
    s_sex: TEdit;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    b_no: TEdit;
    Label4: TLabel;
    b_name: TEdit;
    Label5: TLabel;
    Label2: TLabel;
    s_dep: TEdit;
    Label6: TLabel;
    s_major: TEdit;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  procedure addinfo(book_no,stud_no:string);
  end;

var
  ownerfrm: Townerfrm;

implementation
  uses global;
{$R *.dfm}

procedure townerfrm.addinfo(book_no,stud_no:string);
var t:ttable;
begin
  t:=ttable.Create(nil);
  t.DatabaseName :=dbname ;
  t.TableName :='book_info.db';
  t.Open ;
  t.SetKey ;
  t.FieldByName('图书编号').AsString :=book_no;
  b_no.Text :=book_no;
  if t.GotoKey then b_name.Text :=t.fieldbyname('书名').AsString ;
  t.Close;
  t.TableName :='stud_info.db';
  t.Open;
  t.SetKey ;
  t.FieldByName('学生证号').AsString :=stud_no;
  if t.GotoKey then
    begin
    s_name.Text :=t.fieldbyname('姓名').AsString ;
    s_sex.Text :=t.fieldbyname('性别').AsString ;
    s_dep.Text :=t.fieldbyname('系别').AsString ;
    s_major.Text :=t.fieldbyname('专业').AsString ;
    end;
  t.Close ;
  t.Free ;

end;


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

end.