ubbzs.pas

图书管理系统,已经用于市场,此软件只供学习使用,不的用于商业行为

unit Ubbzs;

interface

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

type
  Tbbzs = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label6: TLabel;
    Edit5: TEdit;
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
   
    procedure BitBtn1Click(Sender: TObject);
    procedure readfromdatabase();
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bbzs: Tbbzs;


implementation

uses UDM, Ubbbj;

{$R *.dfm}


procedure Tbbzs.readfromdatabase();//读数据库中的图像数据并显示在image1图片框中
var path: string;
    ms:tmemorystream;
begin
    path:=extractfilepath(application.ExeName);
    ms:=tmemorystream.Create ;
   try
      (dm.adody.FieldByName('photo') as tblobfield).SaveToStream(ms);
       ms.SaveToFile(path+'picture\photo\photo.bmp');
       image1.Picture.LoadFromFile(path+'picture\photo\photo.bmp');
    finally
      ms.free;
    end;
end;

procedure Tbbzs.BitBtn1Click(Sender: TObject);   //查找
var
     str:string;   //查询条件
begin
    str:='';
    if edit1.Text<>''then
       begin
           str:='xh='''+trim(edit1.Text)+''''  ;
           with dm.ADOdy do
               begin
                  close;
                  sql.Clear;
                  sql.Add('select * from card where '+str);
                  open;
               end;
           if dm.ADOdy.RecordCount=0 then
               begin
                 messagebox(handle,'没有你要查询的记录','系统提示',mb_iconwarning+mb_ok);
                 edit1.Clear ;
                 edit1.SetFocus ;
               end
           else
               begin
                    edit2.Text:=trim(dm.ADOdy.fieldbyname('xm').AsString) ;
                    edit3.Text:=trim(dm.ADOdy.fieldbyname('yx').AsString) ;
                    edit4.Text:=trim(dm.ADOdy.fieldbyname('zymc').AsString) ;
                    edit5.Text:=trim(dm.ADOdy.fieldbyname('bhmc').AsString) ;
                    readfromdatabase;
                    bitbtn2.Enabled :=true;  //使生成证书按钮可用
               end;
       end
    else
      begin
       messagebox(handle,'请输入要查找的学号','系统提示',mb_iconwarning+mb_ok);
       edit1.Clear ;
       edit1.SetFocus ;
      end;
end;

procedure Tbbzs.BitBtn4Click(Sender: TObject); //退出
begin
  self.Close;
end;

procedure Tbbzs.BitBtn2Click(Sender: TObject); //生成证书
var i,j:integer;
    s:string;
begin
   i:=1;
   if length(trim(edit1.Text))=11 then
       edit1.Text:=concat(trim(edit1.Text),'0')
   else
       //edit1.Text:=int64tostr(strtoint64(trim(edit1.Text))+1);
       i:=length(trim(edit1.Text));
       j:=strtoint(copy(trim(edit1.Text),i,1))+1;
       s:=copy(trim(edit1.Text),1,i-1);
       edit1.Text :=concat(s,inttostr(j));
   dm.ADOdy.Edit ;
   dm.ADOdy.FieldByName('xh').AsString :=trim(edit1.Text);
   dm.ADOdy.FieldByName('tm').AsString :=concat('*',trim(edit1.Text),'*');
   dm.ADOdy.Post;
   bitbtn3.Enabled :=true;
   bitbtn2.Enabled :=false;
end;

procedure Tbbzs.FormCreate(Sender: TObject);
begin
    bitbtn2.Enabled:=false;
    bitbtn3.Enabled :=false;
end;

procedure Tbbzs.BitBtn3Click(Sender: TObject);
begin
  bbbjfrm.QuickRep1.Preview ;
end;

end.