unit9.~pas

实现图书馆数据库管理功能

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, Menus,  ImgList,
  Buttons, Mask, DB, ADODB;

type
  Tbook_add = class(TForm)
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    ImageList1: TImageList;
    Label2: TLabel;
    Edit1: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Label9: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label10: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    Button1: TButton;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    ComboBox2: TComboBox;
    Image_title: TImage;
    Image1: TImage;
    Image_close: TImage;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure MaskEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure Image_closeClick(Sender: TObject);

  private

    { Private declarations }
    originalpos:tpoint;
    currentpos:tpoint;
    downpos:tpoint;
    mouselbuttondown:boolean;
    originalwid,originalhei:integer;
    flag:string;
    flag_normal:boolean;
     public
    { Public declarations }
  end;

var
  book_add: Tbook_add;


implementation

uses Unit6, Unit2;

{$R *.dfm}






procedure Tbook_add.FormCreate(Sender: TObject);

begin
flag_normal:=true;
mouselbuttondown:=false;
//DefaultMonitor:= dmdesktop;
datetimepicker1.Date:=form2.GetCurrentDateTime;


//hr:=createrectrgn(0,0,width,height);
//setwindowrgn(handle,hr,true)
end;







procedure Tbook_add.FormClose(Sender: TObject; var Action: TCloseAction);
begin
shukuguanli.enabled:=true;
end;

procedure Tbook_add.Button1Click(Sender: TObject);
begin
self.close;
end;

procedure Tbook_add.BitBtn1Click(Sender: TObject);
begin
      shukuguanli.ADOTable1.Open;
      if edit1.Text='' then
       begin
        messagedlg('请填写书籍编号',mterror,[mbok],0);
        exit;
       end;
        if shukuguanli.ADOTable1.Locate('书籍编号',edit1.Text,[loCaseInsensitive])=true then
         begin
          messagedlg('此书籍编号已存在，请更换书籍编号',mterror,[mbok],0);
          edit1.SelectAll;
          exit;
         end
        else
         if edit2.Text='' then
          begin
           messagedlg('请填写书籍名称',mtwarning,[mbok],0);
           edit2.SetFocus;
           exit;
          end;
        shukuguanli.ADOTable3.Open;
        shukuguanli.adotable3.Append;
        shukuguanli.adotable3.FieldByName('书籍编号').value:=edit1.Text;
        shukuguanli.adotable3.FieldByName('书籍名称').value:=edit2.Text;
        shukuguanli.adotable3.FieldByName('索书号').value:=edit3.Text;
        shukuguanli.adotable3.FieldByName('类别代码').value:=inttostr(combobox2.ItemIndex+1);
        shukuguanli.adotable3.FieldByName('出版社').value:=edit5.Text;
        shukuguanli.adotable3.FieldByName('作者名称').value:=edit6.Text;
        shukuguanli.adotable3.FieldByName('书籍价格').value:='￥'+edit7.Text;
        shukuguanli.adotable3.FieldByName('书籍页码').value:=maskedit1.Text;
        shukuguanli.adotable3.FieldByName('登记日期').value:=formatdatetime('yyyy-mm-dd',DateTimePicker1.Date);
        shukuguanli.adotable3.FieldByName('备注').value:=memo1.Text;
        shukuguanli.adotable3.FieldByName('总库存量').value:=maskedit2.Text;
        shukuguanli.adotable3.Post;
        messagedlg('添加成功',mtinformation,[mbok],0);
        edit1.Text:='';
        edit2.Text:='';
        edit3.Text:='';
        edit5.Text:='';
        edit6.Text:='';
        edit7.Text:='0';
        memo1.Text:='';
        maskedit2.Text:='1';
        maskedit1.Text:='300';

end;

procedure Tbook_add.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
 edit2.SetFocus;
 edit2.SelectAll;
end;
end;
procedure Tbook_add.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
 edit3.SetFocus;
 edit3.SelectAll;
end;
end;

procedure Tbook_add.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 combobox2.SetFocus;

end;

procedure Tbook_add.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 edit5.SetFocus;
end;

procedure Tbook_add.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then

 begin
 edit6.SetFocus;
 edit6.SelectAll;
end;
end;
procedure Tbook_add.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
 edit7.SetFocus;
 edit7.SelectAll
end;
end;

procedure Tbook_add.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
 maskedit1.SetFocus;
 maskedit1.SelectAll;
end;

end;
procedure Tbook_add.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
 maskedit2.SetFocus;
 maskedit2.SelectAll;
 end;

end;

procedure Tbook_add.MaskEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
 memo1.SetFocus;
 memo1.SelectAll;
 end;

end;

procedure Tbook_add.BitBtn2Click(Sender: TObject);
begin
shukuguanli.adotable1.cancel;
        edit1.Text:='';
        edit2.Text:='';
        edit3.Text:='';
        edit5.Text:='';
        edit6.Text:='';
        edit7.Text:='0';
        memo1.Text:='';
        maskedit2.Text:='1';
        maskedit1.Text:='300';
end;

procedure Tbook_add.Image_closeClick(Sender: TObject);
begin
close;
end;

end.