addnewbookf.pas

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

unit addnewbookF;

interface

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

type
  Taddnewbook = class(Tinherit)
    DBEdit1: TDBEdit;
    Label6: TLabel;
    DBEdit2: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit4: TDBEdit;
    Label9: TLabel;
    DBEdit5: TDBEdit;
    Label10: TLabel;
    DBEdit6: TDBEdit;
    Label12: TLabel;
    DBEdit7: TDBEdit;
    Label13: TLabel;
    DBEdit8: TDBEdit;
    Label14: TLabel;
    Label15: TLabel;
    Edit4: TEdit;
    BitBtn2: TBitBtn;
    Label16: TLabel;
    DBComboBox1: TDBComboBox;
    ADOCommand1: TADOCommand;
    DBEdit9: TDBEdit;
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure ToolButton6Click(Sender: TObject);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBEdit2Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addnewbook: Taddnewbook;

implementation

{$R *.dfm}

uses selectF,faceF,dataconnect;

procedure Taddnewbook.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  inherited;

  //设置表的字段宽度
  dbgrid1.Columns[0].Width:=80;
  dbgrid1.Columns[1].Width:=80;
  dbgrid1.Columns[2].Width:=80;
  dbgrid1.Columns[3].Width:=96;
  dbgrid1.Columns[4].Width:=80;
  dbgrid1.Columns[5].Width:=80;
  dbgrid1.Columns[6].Width:=96;
  dbgrid1.Columns[7].Width:=80;



end;

procedure Taddnewbook.ToolButton6Click(Sender: TObject);
var
maxnum:integer;
newnum:string;
begin
  inherited;
  //自动确定新用户编号
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select max(入库编号) 最大编号 from 新增图书');
adoquery1.Open;
maxnum:=adoquery1.FieldByName('最大编号').AsInteger;
maxnum:=maxnum+1;
newnum:=inttostr(maxnum);
if length(newnum)=1 then
 dbedit1.Text:='000000'+newnum;
if length(newnum)=2 then
 dbedit1.Text:='00000'+newnum;
if length(newnum)=3 then
 dbedit1.Text:='0000'+newnum;
if length(newnum)=4 then
 dbedit1.Text:='000'+newnum;
if length(newnum)=5 then
 dbedit1.Text:='00'+newnum;
if length(newnum)=6 then
 dbedit1.Text:='0'+newnum;
//插入当前时间
dbedit8.Text:=datetostr(date)+' '+timetostr(time);
//新加入的图书都是未验收的，所以此项必须是false
dbcombobox1.SelText:='False';
end;


//控制在订购数量和订购单价文本框中只能输入数字
procedure Taddnewbook.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
if(key<=#39)and(key>=#30) then
 dbedit6.Text:=dbedit6.Text+key;
end;

procedure Taddnewbook.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
if(key<=#39)and(key>=#30) then
 dbedit7.Text:=dbedit7.Text+key;
end;

procedure Taddnewbook.BitBtn2Click(Sender: TObject);
var
newform:Tselect;
begin
  inherited;
  newform:=Tselect.Create(application);



end;



procedure Taddnewbook.FormActivate(Sender: TObject);
begin
 if panel2.Enabled=true then
 dbedit2.Text:=main.Formcap;
end;

procedure Taddnewbook.DBEdit2Change(Sender: TObject);
begin
  inherited;
  //设置书名的显示
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select 书名 from 图书信息 where 图书编号='''+dbedit2.Text+'''');
  adoquery1.Open;
  edit4.Text:=adoquery1.FieldByName('书名').AsString;
end;

procedure Taddnewbook.BitBtn3Click(Sender: TObject);
begin
  inherited;
  //新书入库
  adocommand1.CommandText:='exec sf_新增图书';
  adocommand1.Execute;
  //更新数据库

  adotable1.Active:=false;
  adotable1.Active:=true;
end;

end.