inserdreader.pas

图书馆管理系统设计用delphi开发的系统

unit inserdreader;

interface

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

type
  TreaderForm6 = class(TForm)
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    BitBtn2: TBitBtn;
    no: TEdit;
    sex: TEdit;
    student_name: TEdit;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    xibie: TEdit;
    zhuanye: TEdit;
    Label4: TLabel;
    Edit1: TEdit;
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  readerForm6: TreaderForm6;

implementation

uses module;

{$R *.dfm}

procedure TreaderForm6.BitBtn2Click(Sender: TObject);
begin
with datamodule1.admin_sADOQuery2 do
begin
close;
sql.clear;
sql.add('insert into student');
sql.add('values('+quotedstr(student_name.text)+','+''''+no.text+''''+','+
 ''''+sex.text+''''+','+''''+xibie.text+''''+','+''''+zhuanye.text+''''+ ','+''''+Edit1.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 student');
open;
end;
 student_name.clear;
   sex.Clear;xibie.Clear;no.Clear;zhuanye.clear;edit1.clear;
      end;
end.