enter.~pas

来自「delphi自动出题系统源代码,有兴趣的可以来看看！」· ~PAS 代码 · 共 111 行

unit enter;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Buttons;

type
  Tenterform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DataSource1: TDataSource;
    Query1: TQuery;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  enterform: Tenterform;

implementation

uses
     global;

{$R *.DFM}

procedure Tenterform.BitBtn2Click(Sender: TObject);
begin
    close;
end;

procedure Tenterform.BitBtn1Click(Sender: TObject);
begin
   with  query1 do
   begin
       close;
       sql.Clear;
       sql.Add('select * from user');
       sql.Add('where username=:usernm');
       sql.Add('  and password=:passwd');
       parambyname('usernm').asstring:=edit1.Text;
       parambyname('passwd').asstring:=edit2.Text;
       prepare;
       open;
   end;
   if query1.RecordCount=0 then
      modalresult:=mrcancel
      else
           if query1['usertype']='systemmg' then
           begin
              G_username:=query1['username'];
              modalresult:=mrOK;
           end
           else
              begin
                G_username:=query1['username'];
                modalresult:=mrignore;
              end;

end;

procedure Tenterform.SpeedButton1Click(Sender: TObject);
begin
   close;
end;

procedure Tenterform.SpeedButton2Click(Sender: TObject);
begin
  with  query1 do
   begin
       close;
       sql.Clear;
       sql.Add('select * from user');
       sql.Add('where username=:usernm');
       sql.Add('  and password=:passwd');
       parambyname('usernm').asstring:=edit1.Text;
       parambyname('passwd').asstring:=edit2.Text;
       prepare;
       open;
   end;
   if query1.RecordCount=0 then
      modalresult:=mrcancel
      else
           if query1['usertype']='systemmg' then
           begin
              G_username:=query1['username'];
              modalresult:=mrOK;
           end
           else
              begin
                G_username:=query1['username'];
                modalresult:=mrignore;
              end;

end;

end.