login.pas

这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不过是可以用来答辩的,完整的毕业设计,有源代码,可爱执行文件,文档资料.

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, Buttons;

type
  Tf_login = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    SB_Login: TSpeedButton;
    SB_Exit: TSpeedButton;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    procedure SB_LoginClick(Sender: TObject);
    procedure SB_ExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
    public
    { Public declarations }
  login:Boolean;
  end;

var
  f_login: Tf_login;

implementation

uses datamodule, about;

{$R *.dfm}

procedure Tf_login.SB_LoginClick(Sender: TObject);
       {*****登陆按钮单击事件*****}
var
 popedom,name,name1,passwd, passwrd:String;
  i:integer;
 begin
       passwd:=trim(Edit1.Text);
       name:=trim(ComboBox1.Text);
       DM.q_maintenance.First;
        for i:=0 to DM.q_maintenance.RecordCount-1 do
        begin
         passwrd:=trim(DM.q_maintenance['User_Password']);
         name1:=trim(DM.q_maintenance['User_Name']);
         popedom:= trim(DM.q_maintenance['User_Popedom']);
           if (passwrd=passwd)and (name1=name) then
           begin
             F_Login.login:=true;

            close;
            Exit

           end
           else
           DM.q_maintenance.Next;
         end;
         Application.MessageBox('密码错误！请重新输入密码。'+#13+'注意大小写！','错误提示',MB_OK);
end;

procedure Tf_login.SB_ExitClick(Sender: TObject);
begin
close;
end;

procedure Tf_login.FormShow(Sender: TObject);
var
  i:integer;
begin
ComboBox1.Items.Clear;
DM.q_maintenance.First;
for i:=0 to DM.q_maintenance.RecordCount-1 do
begin
ComboBox1.Items.Add(trim(DM.q_maintenance['User_Name']));
DM.q_maintenance.Next;
end;
combobox1.ItemIndex:=0;
end;

procedure Tf_login.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key=#13)then
 SB_LoginClick(Sender);
end;


procedure Tf_login.N1Click(Sender: TObject);
begin
Application.CreateForm(Taboutform, aboutform);
aboutform.showmodal;
end;

end.