unit1.pas

一个版本不错的仓库管理系统,可用毕业设计.使用delphi平台,sql数据库

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Panel1: TPanel;
    Image1: TImage;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOTable1: TADOTable;
    N6: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit4, Unit5, Unit7, Unit6, Unit8;

{$R *.dfm}
var pass:boolean;
procedure TForm1.N1Click(Sender: TObject);
begin
   if pass=true then  tushuguanli.show
     else showmessage('请先输入用户名和密码！');
end;

procedure TForm1.N2Click(Sender: TObject);
begin
   if pass=true then   xueshengguanli.show
    else showmessage('请先输入用户名和密码！');
end;

procedure TForm1.N3Click(Sender: TObject);
begin
   if pass=true then   jieyueguanli.show
     else showmessage('请先输入用户名和密码！');
end;

procedure TForm1.N4Click(Sender: TObject);
begin
   if pass=true then   chacunbaobiao.show
     else showmessage('请先输入用户名和密码！');
end;

procedure TForm1.N5Click(Sender: TObject);
begin
   about.show;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin
with form1.Panel2 do
 begin
   adotable1.Active:=true;
   if edit1.text='' then showmessage('请输入ID')else

      if edit2.Text='' then showmessage('请输入密码')
        else   //方法一 密码+用户名=1000
             {  val(edit1.Text,i,code1);
               val(edit2.Text,j,code2);
               if ((code1<>0) or (code2<>0)) then showmessage('用户名和密码的格式错误')
                 else
                  if strtoint(edit1.Text)+strtoint(edit2.Text)=10000  then
                            begin
                              form1.show;
                              showmessage('欢迎使用!');
                              pass:=true;
                              form1.Panel2.Visible:=false;
                            end
                     else  begin
                             showmessage('密码错误!推出系统');
                             form1.Close;

                           end;   }
                  //方法2 密码表
        begin
          if not adotable1.Locate('name',edit1.Text,[]) then
                begin
                  showmessage('没有这个用户，登陆失败');
                  pass:=false;
                 end
              else
                if adotable1.FieldValues['password']=edit2.Text
                 then begin
                          showmessage('登陆成功');
                          panel2.Visible:=false;
                          pass:=true;
                       end
                  else begin showmessage('密码错误，退出系统！');
                             application.Terminate;
                       end;           
         end;
 end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  form1.Close;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
  if messagedlg('确定要退出系统？',mtinformation,[mbno,mbyes],0)=mrYes
     then Application.Terminate;

end;

end.