unit5.~pas

图书管理系统设计程序

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  Tregister_reader = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    reader_no_input: TEdit;
    Label2: TLabel;
    name_input: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    department_input: TEdit;
    type_input: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Label5: TLabel;
    reader_input: TADODataSet;
    introduction: TMemo;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  register_reader: Tregister_reader;
  i:integer;
  num:integer;
  _date:integer;

implementation
uses unit3;
{$R *.dfm}

procedure Tregister_reader.Button1Click(Sender: TObject);
begin
    reader_input.Active:=false;
    reader_input.CommandText:='select * from reader';
    reader_input.Active:=true;
    if (reader_no_input.Text<>'') and (name_input.Text<>'') and (type_input.Text<>'') and (department_input.Text<>'') then
    begin
        if (reader_input.Locate('reader_no;name',VarArrayOf([reader_no_input.Text,name_input.Text]),[loPartialKey])) then
        begin
            showmessage('图书馆里已有该借书证。');
        end
        else
            i:=type_input.ItemIndex;
            case i of
            0,6:
              begin
                num:=8;
                _date:=28;
            end;
            1:
              begin
                num:=10;
                _date:=42;
            end;
            2,3:
              begin
                num:=12;
                _date:=56;
              end;
            4:
              begin
                num:=14;
                _date:=70;
              end;
            5:
              begin
                num:=16;
                _date:=84;
              end;
        end;
        with reader_input do
        begin
            insert;
            fieldbyname('reader_no').AsString:=reader_no_input.Text;
            fieldbyname('name').AsString:=name_input.Text;
            fieldbyname('type').AsString:=type_input.Text;
            fieldbyname('datelimit').AsInteger:=_date;
            fieldbyname('book_num').AsInteger:=num;
            fieldbyname('password').AsString:='0000';
            fieldbyname('department').AsString:=department_input.Text;
            if (introduction.Text<>'') then
            begin
                fieldbyname('introduction').AsString:=introduction.Text;
            end;
        end;
        reader_input.Post;
        reader_input.Active:=false;
        reader_input.Active:=true;
      reader_no_input.Text:='';
      name_input.Text:='';
      type_input.Text:='';
      department_input.Text:='';
      introduction.Text:='';
        showmessage('借书证办理成功。');

    end
    else
      showmessage('还没有完全输入数据，请立刻输入。');

end;

procedure Tregister_reader.FormCreate(Sender: TObject);
begin
      reader_no_input.Text:='';
      name_input.Text:='';
      type_input.Text:='';
      department_input.Text:='';
      introduction.Text:='';
end;

procedure Tregister_reader.Button2Click(Sender: TObject);
begin
      reader_no_input.Text:='';
      name_input.Text:='';
      type_input.Text:='';
      department_input.Text:='';
      introduction.Text:='';
end;

end.