addbooktolist.pas

现在家庭藏书越来越多

unit addbooktolist;

interface

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

type
  TForm3 = class(TForm)
    lbl1: TLabel;
    cbb1: TComboBox;
    lbl2: TLabel;
    edt1: TEdit;
    lbl3: TLabel;
    edt2: TEdit;
    lbl4: TLabel;
    edt3: TEdit;
    lbl5: TLabel;
    edt4: TEdit;
    lbl6: TLabel;
    edt5: TEdit;
    chk1: TCheckBox;
    lbl7: TLabel;
    btn1: TButton;
    ADOTable1: TADOTable;
    procedure cbb1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  bianhao:tbianhao;
  booklist:tbooklist;
implementation
uses
main,manage;
{$R *.dfm}

procedure TForm3.cbb1Change(Sender: TObject);
begin
 edt1.Text:=bianhao.createid(cbb1);
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
 bianhao:=tbianhao.create;
 booklist:=tbooklist.create;
 booklist.connect.adotable:=adotable1;
 booklist.connect.comm;
end;

procedure TForm3.FormDestroy(Sender: TObject);
begin
 bianhao.Free;
 bianhao:=nil;
 booklist.Free;
 booklist:=nil;
end;

procedure TForm3.btn1Click(Sender: TObject);
var
 i,m:integer;
 s:string;
begin
if edt2.Text='' then
 messagedlg('书名不能为空！',mterror,[mbok],0);
if edt3.Text='' then
 messagedlg('作者不能为空！',mterror,[mbok],0);
if edt5.Text='' then
 messagedlg('金额不能为空！',mterror,[mbok],0);
 s:=edt5.Text;
 m:=length(s);
for i:=1 to m do
 if not (s[i] in ['0'..'9']) then
  messagedlg('金额必须是数字！',mterror,[mbok],0);
 booklist.book.isbn:=edt1.Text;
 booklist.book.bookname:=edt2.Text;
 booklist.book.writer:=edt3.Text;
 booklist.book.press:=edt4.Text;
 booklist.book.money:=strtoint(edt5.Text);
 booklist.book.iscdrom:=chk1.Checked;
 booklist.add;
 edt1.Text:='';
 edt2.Text:='';
 edt3.Text:='';
 edt4.Text:='';
 edt5.Text:='';
end;

end.