login.pas

一个很简单的三层数据库程序,包括毕业论文, 因为简单,所以容易供参考学习!

unit login;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,  IdWinsock,ExtCtrls;
type
  TFm_login = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    i:integer;
    function get_computernm:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fm_login: TFm_login;

implementation

uses main, data;



{$R *.dfm}

procedure TFm_login.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TFm_login.Button1Click(Sender: TObject);
var
    vrt:olevariant;
begin
    Fm_data.Socket.AppServer.autho(Edit1.text,get_computernm,'10.1.104.186',Edit2.Text,vRt);

    if(vrt ='T')  then
    begin
            loged := true;
            close;
    end
    else
    begin
        i := i+1;
        Messagedlg('Invalid User Or Password!',mterror,[mbok],0);
       Edit1.SetFocus;
        if(i>=3) then
        application.Terminate;
    end;
    //loged:=TRue;
    //close;
end;

function TFm_login.get_computernm:string;
var
  pcComputer: PChar;
  dwCSize: DWORD;
begin
  dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
  result := '';
  GetMem(pcComputer, dwCSize);

  try
    if Windows.GetComputerName(pcComputer, dwCSize) then
      Result := pcComputer;
  finally
    FreeMem(pcComputer);
  end;
end;

procedure TFm_login.FormCreate(Sender: TObject);
begin
if not (fm_data.Socket.Connected) then
    fm_data.Socket.Connected:=true;
i:=1;
end;

end.


//此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
//╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
//╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
//,︶︶︶︶,''︶~~ ,''~︶︶　 ,''
//╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
//╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
//╬　　　　　　　http://www.5ivb.net ╬
//╬　 ╭○╮●　                   　╬
//╬　　/■\/■\　　                  ╬
//╬　　 <|　||　   有希望,就有成功！ ╬
//╬　　　　　　　　　　　　　　　　　╬
//╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
//
//说明：
//专业提供VB、．NET、Delphi、ASP、PB源码下载
//包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档