newbook.pas

来自「图书馆管理系统设计用delphi开发的系统」· PAS 代码 · 共 84 行

unit newbook;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TnewbookForm3 = class(TForm)
    GroupBox1: TGroupBox;
    Label8: TLabel;
    Label7: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    beizhubox: TMemo;
    pricebox: TEdit;
    chubanbox: TEdit;
    writerbox: TEdit;
    namebox: TEdit;
    leibie: TComboBox;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    nobox: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  newbookForm3: TnewbookForm3;

implementation

uses module;

{$R *.dfm}

procedure TnewbookForm3.BitBtn2Click(Sender: TObject);
begin
newbookform3.Close;
end;

procedure TnewbookForm3.BitBtn3Click(Sender: TObject);
begin
nobox.Clear;
namebox.Clear;
writerbox.Clear;
chubanbox.Clear;
pricebox.Clear;
beizhubox.Clear;
end;

procedure TnewbookForm3.BitBtn1Click(Sender: TObject);
begin
with datamodule1.deleteadoquery1 do
begin
close;
sql.clear;
sql.add('insert into books');
sql.add('values('+''''+nobox.text+''''+','+''''+namebox.text+''''+','+
 ''''+writerbox.text+''''+','+''''+chubanbox.text+''''+','+
 pricebox.text+','+''''+leibie.text+''''+','+''''+beizhubox.text+''''+')');
//sql.Add('values(:n1,:n2,:n3,:n4,:n5,:n6,:n7)');
//Parameters.ParamByName('n1').value:=nobox.text;
 execsql;
  messagedlg('入库成功！',mtinformation,[mbYes],0);
close;
sql.clear;
sql.add('select * from books');
open;
end;
end;

end.