unit7.pas

一个小型的仓库管理系统实现了出库和入库的基本功能

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    ADOCommand1: TADOCommand;
    ADOQuery1: TADOQuery;
    Button2: TButton;
    BitBtn1: TBitBtn;
   
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

uses Unit2, Unit1;

{$R *.dfm}



procedure TForm7.Button2Click(Sender: TObject);
begin
form1.show;
form7.Hide;
end;

procedure TForm7.BitBtn1Click(Sender: TObject);
begin
if (Edit1.text='') then
    begin
    showmessage('用户名不能为空');
    end
  else
    begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text:='select 用户名 from login where 用户名='''+Edit1.Text+''' ';
    ADOQuery1.Open;
    if(ADOQuery1.FieldByName('用户名').AsString<>'') then
      begin
      ShowMessage('该用户名已被占用');
      end
    else
      begin
      if (Edit2.text=Edit3.text) then
        begin
        ADOCommand1.CommandText:='INSERT INTO login VALUES('''+Edit1.text+''','''+Edit2.text+''') ';
        ADOCommand1.Execute;
        ShowMessage(' '''+Edit1.text+''' 添加成功');
        Edit1.Text:='';
        Edit2.Text:='';
        Edit3.Text:='';
        form7.Hide;
        form1.show;
        end
      else
        begin
        showmessage('密码不一致');
        end
      end
    end
end;

end.