unit2.pas

图书管理系统

unit Unit2;

interface

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

type
  TAddReaderType = class(TForm)
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DataSource1: TDataSource;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    Label7: TLabel;
    ADOTable1: TADOTable;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label8: TLabel;
    ComboBox3: TComboBox;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure formshow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddReaderType: TAddReaderType;

implementation

{$R *.dfm}

procedure TAddReaderType.Button1Click(Sender: TObject);
begin
   if edit1.Text='' then showmessage('请输入种类名称')
     else if edit2.Text='' then showmessage('请输入种类编号')
       else if combobox3.Text='' then showmessage('请输入种类本数')
         else if combobox1.Text='' then showmessage('请输入借阅期限')
           else if combobox2.Text='' then showmessage('请输入有效年限')
              else
begin
 if messagedlg('确实要增加该类型？',mtInformation,[mbOK, mbCancel],0)=mrok then
   begin
     adotable1.Active:= false;
     adotable1.Active:= true;
     adotable1.Edit;
     adotable1.Append;
     adotable1.fieldbyname('RT_typename').AsString := edit1.Text;
     adotable1.fieldbyname('RT_typeno').AsString := edit2.Text;
     adotable1.fieldbyname('RT_booknumber').AsString := combobox3.Text;
     adotable1.fieldbyname('RT_bookdays').AsString := combobox1.Text;
     adotable1.fieldbyname('RT_userfullife').AsString := combobox2.Text;
     adotable1.fieldbyname('RT_typememo').AsString := memo1.Text;
     adotable1.post;
     messagebeep(0);
    operatesuccessmessage.Show;
     addreadertype.Hide;
     Edit1.Text := '';
     Edit2.Text := '';
     combobox3.Text := '';
     combobox1.Text := '';
     combobox2.Text := '';
     Memo1.Text := '';  
   end
   else
   begin
     showmessage('添加失败');
     adotable1.Append;
   end;
end;
end;
procedure TAddReaderType.Button2Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  combobox3.Text := '';
  combobox1.Text := '';
  combobox2.Text := '';
  Memo1.Text := '';
end;

procedure TAddReaderType.Button3Click(Sender: TObject);
begin
 adotable1.Close;
 AddReaderType.Close;
end;
procedure TAddReaderType.formshow(Sender: TObject);
begin
 adotable1.Open;
end;

end.