unit8.pas

Delphi 7基础编程的源代码

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Mask, DBCtrls;

type
  Treaderselectform = class(TForm)
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Table1: TTable;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Table2: TTable;
    Table3: TTable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
    p : bool;
    inputsn : string;
    time : tdatetime;
  public
    { Public declarations }
  end;

var
  readerselectform: Treaderselectform;

implementation

{$R *.dfm}

procedure Treaderselectform.Button1Click(Sender: TObject);
begin
  table1.IndexFieldNames:='bookname';
  table1.Open;
  if table1.Findkey([edit1.text]) then
     p:=true
  else if MessageDlg('没有完全吻合的记录，是否查找相近记录',mtConfirmation,[mbYes,mbNo],0)
         =mryes then
    begin
     table1.FindNearest([edit1.text]);
     p:=true;
    end
  else
     MessageDlg('没有查找到您要求的记录，请重新查找',mtinformation,[mbYes],0);
  edit1.Text:='';
end;

procedure Treaderselectform.Button2Click(Sender: TObject);
begin
    table1.IndexFieldNames:='auther';
  table1.Open;
  if table1.Findkey([edit2.text]) then
     p:=true
  else if MessageDlg('没有完全吻合的记录，是否查找相近记录',mtConfirmation,[mbYes,mbNo],0)
         =mryes then
    begin
     table1.FindNearest([edit2.text]);
     p:=true;
    end
  else
     MessageDlg('没有查找到您要求的记录，请重新查找',mtinformation,[mbYes],0);
  edit1.Text:='';
end;

procedure Treaderselectform.Button3Click(Sender: TObject);
begin
  if p=false then
    messagedlg('请先查找您需要的书',mtinformation,[mbok],0)
  else
   begin
    if dbedit5.Text='t' then
     begin
      Inputsn:= InputBox('请输入学号', 'Prompt', '20020');
      table2.IndexFieldNames:='studentno';
      table2.Open;
      if table2.FindKey([inputsn])=false then
         MessageDlg('学号输入错误',mtinformation,[mbYes],0)
      else
        begin
         messagedlg('你已经借了这本书，请注意按时间归还',mtinformation,[mbok],0);
         table1.Open;
         table1.IndexFieldNames:='bookno';
         table1.CachedUpdates:=true;
         table1.FindKey([dbedit1.Text]);
         table1.Edit;
         table1.FieldByName('borrowstate').AsString:='f';
         table1.Post;
         table1.ApplyUpdates;
         table3.Open;
         table3.CachedUpdates:=true;
         time:=date;
         table3.AppendRecord([dbedit1.Text,inputsn,time]);
         table3.ApplyUpdates;
         end;
     end
   else
    showmessage('这本书已经被人借了');
  end;
end;

procedure Treaderselectform.FormCreate(Sender: TObject);
begin
  p:=false;
end;

procedure Treaderselectform.Button4Click(Sender: TObject);
begin
  close
end;

end.