gng.~pas

用VC和SQL Server开发的固定资产管理系统

unit gng;

interface

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

type
  TForm4 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    Bevel1: TBevel;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
   i:integer;
  sinputname,sinputpwd:string;
implementation

uses main, delete;

{$R *.dfm}
  const
  user='admin';
  pwd='123';
procedure TForm4.Button2Click(Sender: TObject);
begin
 showmessage('确实要退出登陆界面吗？');
     if messagedlg('是否停止运行？只有停止才能关闭！',mtinformation,
     [mbYes,mbNo],0)=mrYes then begin
     close;
     end;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
inc(i);
 if (edit1.Text=user)and (edit2.Text=pwd) then
        if edit1.Text='' then
            begin
                messageDlg('输入用户名。',mtInformation,[mbok],0);
                exit;
            end
            else if edit2.Text='' then
                  begin
                   messageDlg('请输入密码。',mtInformation,[mbok],0);
                   exit;
                   end
              else if length(edit1.Text)=0  then
                      begin
                        application.Terminate;
                        end
                        else if length(edit2.Text)=0   then
                           begin
                        application.Terminate;
                        end;
              adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select 用户名,密码 from 用户表 where 用户名=:admin and 密码=:123');
  adoquery1.Parameters[0].Value:=edit1.Text;
  adoquery1.Parameters[1].Value:=edit2.Text;
  adoquery1.Open;
  form1.Show;
  form1.N9.Enabled:=true;
  form1.N14.Enabled:=true;
  form1.N3.Enabled:=true;
  form1.N5.Enabled:=true;
  form1.N6.Enabled:=true;
  form1.N29.Enabled:=true;
  if adoquery1.RecordCount=1 then
   showmessage('你已经成功登录本系统！')
  else     begin   messagebox(0,'用户名或密码错误','',mb_ok+mb_iconstop);
                        application.Terminate;
                        end;
    //


  {for i:=0 to 3 do
    begin
      messageDlg('已经超过3次，请退出。',mtInformation,[mbok],0);
      application.Terminate;
      edit1.SetFocus;
    end;  }
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
   form7.ShowModal;
end;

end.