u_dl.pas

这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版

unit U_Dl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, Buttons, StdCtrls, ActnList, XPStyleActnCtrls,
  ActnMan,u_public_define;

type
  TFrm_dl = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ActionManager1: TActionManager;
    Action1: TAction;
    Action2: TAction;
    Button1: TButton;
    Button2: TButton;
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_dl: TFrm_dl;

implementation
    uses u_data;
{$R *.dfm}

procedure TFrm_dl.Action1Execute(Sender: TObject);
var bb:string;
begin
 g_bool_dlok:=false;
     bb:='select * from user1 where name_id='+quotedstr(edit1.Text)+' and name_password='+quotedstr(edit2.Text);
      data.G_con.Open();
         data.G_Rst_use.SQL.Clear;
         data.G_Rst_use.SQL.Add(bb);
         data.G_Rst_use.ExecSQL;
         data.G_Rst_use.Open;
         if data.G_Rst_use.Eof  then
             begin
                 application.MessageBox('原口令错误，请重新输入','明日科技');
                 edit1.Text:='';
                 edit2.Text:='';
                 edit1.SetFocus;
                 data.G_Rst_use.Close;
                // data.G_con.Close;
                 exit;
             end;
               data.G_Rst_use.Close;
              // data.G_con.Close;
               g_bool_dlok:=true;
               close;
  end;


procedure TFrm_dl.Action2Execute(Sender: TObject);
begin
  g_bool_dlok:=false;
  close;
end;

procedure TFrm_dl.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then edit2.SetFocus;
end;

procedure TFrm_dl.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then button1.SetFocus;
end;

end.