tjyh.~pas

企业库存管理系统

unit tjyh;

interface

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

type
  Ttjyhfrm = class(TForm)
    Image1: TImage;
    Label4: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tjyhfrm: Ttjyhfrm;

implementation
 uses main;
{$R *.dfm}

procedure Ttjyhfrm.BitBtn3Click(Sender: TObject);
begin
 mainfrm.Show;
 tjyhfrm.Hide;
end;

procedure Ttjyhfrm.BitBtn1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from [dbo].[USER] where name=:st  ');
parameters.ParamByName('st').Value:=edit1.Text;
open;
first;
 if recordcount<>0 then
 messagebox(tjyhfrm.Handle,'该用户已经存在！','警告',mb_ok+mb_iconwarning);
 else
  begin
  sql.Add('insert into [dbo].[USER](name,password,class) values(');
  sql.Add(''''+edit1.Text+''''+','+''''+edit2.Text+''''+','+''''+combobox1.Text+''''+')');
  execsql;
  messagebox(jyhfrm.Handle,'添加成功！','提示',mb_ok+mb_iconwarning);
  end;
end;

end;

procedure Ttjyhfrm.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.