unit3.~pas

库存管理系统,刚做好的,功能还没做全,还望包涵

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls;

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Image1: TImage;
    Label6: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);
begin
close
end;

procedure TForm3.Button1Click(Sender: TObject);
 var id,name,psw,pow,beizhu:string;
    strsql:string;
 begin

ADOQuery1.close;
ADOQuery1.sql.clear;
strsql:='insert into 用户表(用户ID,姓名,密码,权限,备注)values(:id,:name,:psw,:pow,:beizhu)' ;
ADOQuery1.sql.add(strsql);
adoquery1.Parameters.ParamByName('id').value := edit1.Text;
adoquery1.Parameters.ParamByName('name').value := edit2.Text;
adoquery1.Parameters.ParamByName('psw').value :='000000';
adoquery1.Parameters.ParamByName('pow').value := edit4.Text;
adoquery1.Parameters.ParamByName('beizhu').value := edit5.Text;
ADOQuery1.execsql;
showmessage('插入成功')
end;

end.