unit1.~pas

< SQL SERVER 2000 案例教程>>,冶金工业出版社,这本书的代码

unit Unit1;

interface

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

type
  TLogin = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    loginbutton: TBitBtn;
    cancel: TBitBtn;
    procedure loginbuttonClick(Sender: TObject);
    procedure cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Login: TLogin;

implementation

{$R *.dfm}
uses Unit2,Unit3;
procedure TLogin.loginbuttonClick(Sender: TObject);
var   delphiini:TInifile;
      filepath:string;
begin
  filepath:=extractfilepath(application.ExeName); //获取exe文件目录路径
  delphiini:=TIniFile.Create(filepath+'db.ini');//创建一个TiniFile文件
  With  mydata.Database1  do//对mydata中的Database组件进行操作
  begin
    close;  //操作之前先关闭该组件
    Params.Clear;//清除Database组件属性内容
    //读取ini文件中的databasename等号右边的值，
    //并将它赋值给database组件的Databasename属性
    Params.Add('databasename='+delphiini.ReadString('mssql','databasename',''));
    Params.Add('username='+delphiini.ReadString('mssql','username',''));
    Params.Add('password='+delphiini.ReadString('mssql','password',''));
    loginprompt:=false;
    open;
  end;
  with  mydata.Query1 do
  begin
    close;
    with  sql do
    begin
      clear;
      add('select * from  用户密码表 where 用户名=:user and 用户密码=:password');
      ParamByName('user').AsString:=trim(Edit1.Text);
      ParamByName('password').AsString:=trim(Edit2.Text);
    end;
    open;
    if findlast() then
    begin
      main.Show();
      with  mydata.Query1 do
      begin
        close;
        with  sql do
        begin
          clear;
          add('select * from 用户密码表');
        end;
      end;
      with  mydata.Query1 do
      begin
        close;
        with  sql do
        begin
          clear;
          add('select * from 用户密码表');
        end;
        open;
      end;
      main.oninit();
      main.oninit1();
      main.radioamstart.Checked:=true;
      main.RadioButton2.Checked:=true;
      main.oninit2();
      main.oninit3();
      main.oninit4();
      login.Hide;
    end else
    begin
      showmessage('用户名或者密码输入有误，请重新输入');
      Edit2.Text:='';
    end;
  end;

end;

procedure TLogin.cancelClick(Sender: TObject);
begin
  close;
end;

end.