unit10.~pas

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

unit Unit10;

interface

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

type
  Tbook_change = class(TForm)
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    ImageList1: TImageList;
    MaskEdit1: TMaskEdit;
    DateTimePicker1: TDateTimePicker;
    MaskEdit2: TMaskEdit;
    Memo1: TMemo;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit5: TEdit;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    Edit2: TEdit;
    Edit1: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label13: TLabel;
    Label10: TLabel;
    Label7: TLabel;
    Label12: TLabel;
    Label6: TLabel;
    BitBtn1: TBitBtn;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label1: TLabel;
    Image_title: TImage;
    Image1: TImage;
    Image_close: TImage;
    Label11: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Image_closeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  book_change: Tbook_change;

implementation

uses Unit6;

{$R *.dfm}

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

procedure Tbook_change.BitBtn1Click(Sender: TObject);
var
s1:string;
begin
s1:='您确实要修改此书为吗？';
 if messagedlg(s1,mtconfirmation,[mbok,mbcancel],0)=mrok then
 begin
 shukuguanli.ADODataSet1.Edit;
shukuguanli.ADODataSet1.FieldByName('书籍编号').value:=edit1.Text;
shukuguanli.ADODataSet1.FieldByName('书籍名称').value:=edit2.Text;
shukuguanli.ADODataSet1.FieldByName('索书号').value:=edit3.Text;
shukuguanli.ADODataSet1.FieldByName('出版社').value:=edit5.Text;
shukuguanli.ADODataSet1.FieldByName('作者名称').value:=edit6.Text;
shukuguanli.ADODataSet1.FieldByName('书籍价格').value:=edit7.Text;
shukuguanli.ADODataSet1.FieldByName('书籍页码').value:=maskedit1.Text;
shukuguanli.ADODataSet1.FieldByName('登记日期').value:=datetimepicker1.Date;
shukuguanli.ADODataSet1.FieldByName('总库存量').value:=maskedit2.Text;
shukuguanli.ADODataSet1.FieldByName('备注').value:=memo1.Text;
shukuguanli.ADODataSet1.Post
 end else
    exit
end;


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

end.