unitlogin.pas

来自「这是一个SQL的物资管理系统 这是一个SQL的物资管理系统」· PAS 代码 · 共 77 行

unit UnitLogin;

interface

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

type
  TFrmLogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Login: TButton;
    Reset: TButton;
    ADOStoredProc1: TADOStoredProc;
    ADOStoredProc2: TADOStoredProc;
    procedure FormCreate(Sender: TObject);
    procedure LoginClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;

implementation

uses UnitDM, UnitMain;

{$R *.dfm}

procedure TFrmLogin.FormCreate(Sender: TObject);
begin
      self.ComboBox1.ItemIndex:=0;
end;

procedure TFrmLogin.LoginClick(Sender: TObject);
var
  y:string;
begin
    ADOStoredProc1.Connection:=DataModule2.ADOConnection1;
    ADOStoredProc1.Close;
    ADOStoredProc1.ProcedureName:='UserLogin';
    ADOStoredProc1.Parameters.Refresh;
    ADOStoredProc1.Parameters.ParamByName('@username').Value:=self.Edit1.Text;
    ADOStoredProc1.Parameters.ParamByName('@Password').Value:=Edit2.Text;
    ADOStoredProc1.Parameters.ParamByName('@type').Value:=self.ComboBox1.Text;
    ADOStoredProc1.Parameters.ParamByName('@str').Value:=y;
    ADOStoredProc1.ExecProc;
    y:=ADOStoredProc1.Parameters.ParamByName('@str').Value;
    MessageBox(Handle,pchar(y), '系统提示', MB_ICONASTERISK);

    if y='login successfully!' then
    begin
        if self.ComboBox1.Text='管理员' then
            FrmMain.N2.Visible:=true;
        FrmMain.LoginUseID:=Edit1.Text;
        ADOStoredProc2.Connection:=DataModule2.ADOConnection1;
        ADOStoredProc2.Close;
        ADOStoredProc2.ProcedureName:='Log_Operation';
        ADOStoredProc2.Parameters.Refresh;
        ADOStoredProc2.Parameters.ParamByName('@ID').Value:=Edit1.Text;
        ADOStoredProc2.Parameters.ParamByName('@Op').Value:='登录成功';
        ADOStoredProc2.ExecProc;
        self.Close;
        FrmMain.Show;
    end;
end;

end.