Delphi+Access图书管理系统

Delphi图书管理系统

??

procedure DataSource1DataChange(Sender: TObject; Field: TField); private

{ Private declarations } public

{ Public declarations } end; var

BookForm: TBookForm; implementation uses DataModule; {$R *.dfm}

procedure TBookForm.Button1Click(Sender: TObject); begin

if Length(CodeEdit.Text)<> 10 then begin

MessageDlg('书号不正确',mtError,[mbok],0); CodeEdit.SetFocus; Exit; end;

with DataModuleADO.ADOQuery1 do ?? ??

procedure TBookForm.ComboBox1Change(Sender: TObject); begin

if Length(ComboBox1.Text) = 10 then

- 17 -

Delphi图书管理系统

begin try

with DataModuleADO.ADOTable1 do begin

TableName:='book';

DBOutDate.DataField:= 'OutDate'; DBName.DataField:= 'Name'; DBAuthor.DataField:= 'Author'; DBPress.DataField:= 'Press'; DBCost.DataField:= 'Cost'; DBMemo.DataField:= 'Memo';

Active:=True;

Locate('code',ComboBox1.Text,[]); Edit; end; except

MessageDlg('数据操作出错',mtError,[mbok],0); end; end; end; ?? ?? begin end; end.

- 18 -

Delphi图书管理系统

4.4.3读者管理模块设计

通过读者管理功能主要实现对读者详细信息的添加、修改、删除等功能。其运行结果如图5所示

图5 读者管理截图

图书管理功能实现部分代码如下 unit Reader; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type

TReaderForm = class(TForm) GroupBox3: TGroupBox; Button3: TButton; Button4: TButton; GroupBox2: TGroupBox;

- 19 -

Delphi图书管理系统

GroupBox1: TGroupBox; RadioButton1: TRadioButton; RadioButton2: TRadioButton; GroupBox4: TGroupBox; Edit3: TEdit; Edit1: TEdit; Edit2: TEdit;

StaticText1: TStaticText; StaticText2: TStaticText; StaticText3: TStaticText; StaticText4: TStaticText; Button2: TButton; Button1: TButton; ListView1: TListView; ComboBox1: TComboBox;

procedure Button1Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure RadioButton1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ListView1Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end; ??

- 20 -