owner.pas

好多上载非界面和非WEB源码

unit owner;

interface

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

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

var
  ownerfrm: Townerfrm;

implementation
uses global,mgrquery;
{$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.