unit6.pas

图书馆管理系统dephi版

unit Unit6;

interface

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

type
  Tnewbookfrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Label7: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Edit6: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit7: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit8: TEdit;
    Edit9: TEdit;
    Table1: TTable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  newbookfrm: Tnewbookfrm;

implementation

{$R *.dfm}



procedure Tnewbookfrm.Button1Click(Sender: TObject);
var
num:integer;
num1:integer;
begin
num1:=strtoint(edit6.Text);
//if(num1<=0) then
   //                     begin
     //                   showmessage('数量应为0到9的数
         table1.IndexFieldNames:='ISBN';
  if(edit1.text<>'')and(edit2.text<>'')and(edit3.text<>'')and(edit4.text<>'')and(edit5.text<>'')and(edit6.text<>'')and(edit7.text<>'')   then
                                              begin

                                               edit8.Text:=combobox1.Text;
                                               edit9.Text:=combobox2.Text;

                                               table1.Open;
                                               if(table1.FindKey([edit2.Text])) then
                                                                                    begin
                                                                                     //showmessage('要增加这本书的数量吗？');
                                                                                      if messagedlg('已存在这本书，要增加它的库存吗？',mtinformation,[mbyes,mbno],0)=mryes then

                                                                                                                                                                      begin
                                                                                                                                                                        table1.Edit;
                                                                                                                                                                        table1.fieldbyname('总数量').AsVariant:= table1.fieldbyname('总数量').AsVariant+strtoint(edit6.Text);
                                                                                                                                                                        table1.fieldbyname('可借数量').AsVariant:= table1.fieldbyname('可借数量').AsVariant+strtoint(edit6.Text);
                                                                                                                                                                        table1.Append;
                                                                                                                                                                        end
                                                                                                                                                                      else
                                                                                                                                                                        abort;
                                                                                     end


                                                                              else
                                                                              begin
                                                                              table1.InsertRecord([edit1.Text,edit2.Text,edit3.Text,edit5.Text,edit7.Text,edit8.text,strtoint(edit6.Text),strtoint(edit6.Text),edit9.Text,strtoint(edit4.Text)]);
                                                                              showmessage('图书增加完毕');
                                                                               edit1.Text:='';
                                                                               edit2.Text:='';
                                                                                edit3.Text:='';
                                                                                edit4.Text:='';
                                                                                edit5.Text:='';
                                                                                  edit6.Text:='';
                                                                                   edit7.Text:='';

                                                                              end;

                                               end
                                               else
                                                 showmessage('信息不全,请检查');
                                                 end;


procedure Tnewbookfrm.Button2Click(Sender: TObject);
begin
      edit1.Text:='';
       edit2.Text:='';
        edit3.Text:='';
         edit4.Text:='';
          edit5.Text:='';
           edit6.Text:='';
            edit7.Text:='';
             //edit2.Text:='';
end;

end.