unit8.pas

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

unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: 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
  Form8: TForm8;

implementation

uses Unit9, Unit1, Unit2;

{$R *.dfm}



procedure TForm8.Button2Click(Sender: TObject);
begin
form1.show;
form8.Hide;
end;

procedure TForm8.BitBtn1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='select 用户名 from login where 用户名='''+Edit1.Text+''' and 密码='''+Edit2.text+''' ';
  ADOQuery1.Open;
  if(ADOQuery1.FieldByName('用户名').AsString<>'') then
    begin
    if (Edit3.text=Edit4.text)  then
      begin
      ADOCommand1.CommandText:='UPDATE login SET  密码='''+Edit3.text+''' WHERE 用户名='''+Edit1.Text+''' ';
      ADOCommand1.Execute;
      ShowMessage(' '''+Edit1.text+''' 修改成功');
      Edit1.Text:='';
      Edit2.Text:='';
      Edit3.Text:='';
      Edit4.Text:='';

      form1.show;
      end
    else
      begin
      showmessage('密码不一致');
      end
    end
  else
    begin
      ShowMessage('用户名，密码错误或不存在');
    end
end;


end.