u_log.pas

招投标软件代码,很有应用价值,请大家参考下哦,不明白的地方给我留言

unit U_Log;

interface

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

type
  TF_log = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edt_PassWord: TEdit;
    Btn_Queding: TBitBtn;
    btn_cancel: TBitBtn;
    Com_name: TComboBox;
    procedure Edt_PassWordKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure Btn_QuedingClick(Sender: TObject);
    procedure Com_nameDropDown(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_log: TF_log;

implementation

uses
  datamodule;

{$R *.dfm}

procedure TF_log.Edt_PassWordKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     btn_queding.SetFocus;
end;

procedure TF_log.FormShow(Sender: TObject);
var
  adoquery:tadoquery;
  i:Integer;
begin
  com_name.Items.Clear;
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Close;
    adoquery.Connection:=datamodule1.ADOMainConn;
    adoquery.SQL.Text:='select Login_name from bid_user';
    adoquery.Open;
    for i:=0 to adoquery.recordcount-1 do
    begin
      com_name.Items.Add(adoquery.fieldbyname('login_name').AsString);
      adoquery.Next;
    end;
  finally
    freeandnil(adoquery);
  end;
  com_name.SetFocus;
end;

procedure TF_log.Btn_QuedingClick(Sender: TObject);
var
  adoquery:tadoquery;
begin
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Close;
    adoquery.Connection:=datamodule1.ADOMainConn;
    adoquery.SQL.Text:='select count(*) as sl from bid_user where login_name='''
      +trim(com_name.Text)+''' and password='''+trim(edt_password.Text)+'''';
    adoquery.Open;
    adoquery.First;
    if adoquery.FieldByName('sl').AsInteger=0 then
    begin
      showmessage('用户名或密码错误');
      exit;
    end;
    modalresult:=mrok;
  finally
    freeandnil(adoquery);
  end;
end;

procedure TF_log.Com_nameDropDown(Sender: TObject);
var
  adoquery:tadoquery;
  i:Integer;
begin
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Close;
    adoquery.Connection:=datamodule1.ADOMainConn;
    adoquery.SQL.Text:='select login_name from bid_user where login_name like ''%'
       +trim(com_name.Text)+'%''';
    adoquery.Open;
    adoquery.First;
    com_name.Items.Clear;
    for i:=0 to adoquery.RecordCount-1 do
    begin
      com_name.Items.Add(adoquery.fieldbyname('login_name').AsString);
      adoquery.Next;
    end;
  finally
    freeandnil(adoquery);
  end;

end;

end.