bookinfof.pas

图书管理系统：包括借书、还书、查询、添加、统计等功能。

unit bookinfoF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, DB, ImgList, Grids, DBGrids, ComCtrls,
  ToolWin, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask, inheritF;

type
  Tbookinfo = class(Tinherit)
    DBEdit3: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit1: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label10: TLabel;
    DBEdit6: TDBEdit;
    Label11: TLabel;
    Label12: TLabel;
    DBComboBox1: TDBComboBox;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label13: TLabel;
    Label14: TLabel;
    DBComboBox2: TDBComboBox;
    Label16: TLabel;
    DBEdit10: TDBEdit;
    Label17: TLabel;
    DBComboBox3: TDBComboBox;
    Label18: TLabel;
    DBCheckBox1: TDBCheckBox;
    ADOQuery2: TADOQuery;
    DBEdit11: TDBEdit;
    Label19: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure DBCheckBox1Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure ToolButton7Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bookinfo: Tbookinfo;
  ischecked:integer;

implementation

{$R *.dfm}
 uses dataconnect;
procedure Tbookinfo.FormActivate(Sender: TObject);
var
name:string;
begin
  inherited;
//设置《出版社》下拉列表框中下拉列表项目
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select 出版社名称 from 出版社');
adoquery2.Open;
dbcombobox2.Items.Clear;
while not adoquery2.Eof do
 begin
  name:=adoquery2.fieldbyname('出版社名称').AsString;
  dbcombobox2.Items.Add(name);
  adoquery2.Next;
 end;
//设置《类型》下拉列表框中下拉列表项目
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select 类型名称 from 图书类型');
adoquery2.Open;
dbcombobox1.Items.Clear;
while not adoquery2.Eof do
 begin
  name:=adoquery2.fieldbyname('类型名称').AsString;
  dbcombobox1.Items.Add(name);
  adoquery2.Next;
end;
//设置【书架名称】下拉列表框中下拉列表项目
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select 书架名称 from 书架');
adoquery2.Open;
dbcombobox3.Items.Clear;
while not adoquery2.Eof do
 begin
  name:=adoquery2.fieldbyname('书架名称').AsString;
  dbcombobox3.Items.Add(name);
  adoquery2.Next;
end;


end;

procedure Tbookinfo.ToolButton6Click(Sender: TObject);
var
 maxnum:integer;
 newnum:string;
begin
  inherited;
//自动确定新用户编号
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select max(图书编号) 最大编号 from 图书信息');
adoquery2.Open;
maxnum:=adoquery2.FieldByName('最大编号').AsInteger;
maxnum:=maxnum+1;
newnum:=inttostr(maxnum);
if length(newnum)=1 then
 dbedit2.Text:='000000'+newnum;
if length(newnum)=2 then
 dbedit2.Text:='00000'+newnum;
if length(newnum)=3 then
 dbedit2.Text:='0000'+newnum;
if length(newnum)=4 then
 dbedit2.Text:='000'+newnum;
if length(newnum)=5 then
 dbedit2.Text:='00'+newnum;
if length(newnum)=6 then
 dbedit2.Text:='0'+newnum;
dbcombobox2.SelText:=dbcombobox2.Items.Strings[0];
//要求操作员选中 是否注销 才能添加新数据
isChecked:=0;
end;

procedure Tbookinfo.DBCheckBox1Click(Sender: TObject);
begin
  inherited;
 ischecked:=(ischecked)or(1);
end;

procedure Tbookinfo.ToolButton10Click(Sender: TObject);
begin
 if isChecked=0 then
  begin
   showmessage('未选择是否注销，请确定！');
   exit;
  end;
 inherited;
 ischecked:=0;

end;
//控制在 《价格》文本框中输入的必须是数字
procedure Tbookinfo.DBEdit11KeyPress(Sender: TObject; var Key: Char);
var
input:char;
begin
  inherited;
  input:=key;
  if (key>=#30)and(key<=#39) then
   dbedit11.Text:=dbedit11.Text+input;

end;
//控制在 《页码》  文本框中输入的必须是数字
procedure Tbookinfo.DBEdit8KeyPress(Sender: TObject; var Key: Char);
var
input:char;
begin
  inherited;
  input:=key;
  if (key>=#30)and(key<=#39) then
  dbedit8.Text:=dbedit8.Text+input;
end;

procedure Tbookinfo.ToolButton7Click(Sender: TObject);
begin
  inherited;
  ischecked:=1;

end;

procedure Tbookinfo.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  inherited;
    //用程序设置表格的长宽
  dbgrid1.Columns[0].Width:=96;
  dbgrid1.Columns[1].Width:=48;
  dbgrid1.Columns[2].Width:=128;
  dbgrid1.Columns[3].Width:=128;
  dbgrid1.Columns[4].Width:=80;
  dbgrid1.Columns[5].Width:=80;
  dbgrid1.Columns[6].Width:=80;
  dbgrid1.Columns[7].Width:=96;
  dbgrid1.Columns[8].Width:=80;
  dbgrid1.Columns[9].Width:=80;
  dbgrid1.Columns[10].Width:=80;
  dbgrid1.Columns[11].Width:=80;
  dbgrid1.Columns[12].Width:=80;
  dbgrid1.Columns[13].Width:=64;
  dbgrid1.Columns[14].Width:=64;
  dbgrid1.Columns[15].Width:=64;

end;

end.