denglu.pas

DELPHI语言制作的音象管理系统 很经典的例子噢 欢迎下载参考

unit denglu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, jpeg, ExtCtrls, DB, ADODB;

type
  TForm2 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOTable1: TADOTable;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  i:integer;

implementation

uses main, qidonghuamian,yonghuguanli;

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
{form2.ModalResult:=mrok;//交付时此行应删除}
if combobox1.ItemIndex=0 then
   begin
   i:=0;
    adotable1.TableName:='guanli';
    adotable1.Active:=true;
    end
    else
    begin
    i:=1;
    adotable1.TableName:='yiban';
    adotable1.Active:=true;
    end;
if i=0 then
   begin
   if (adotable1.Locate('id',edit1.Text,[])) and
      (edit2.text=adotable1.FieldByName('password').AsString)
        then
        begin
        form2.ModalResult:=mrok;
        showmessage('登陆成功~');

        end
        else
        begin

        showmessage('您的输入有错误，请重新输入！');
        edit1.text:='';
        edit2.text:='';
        combobox1.text:='';
        adotable1.Active:=false;
        end;
   end
else
    begin
    if (adotable1.Locate('id',edit1.Text,[])) and
      (edit2.text=adotable1.FieldByName('password').AsString)
      then
        begin
        form2.ModalResult:=mrok;
        showmessage('登陆成功~');
        end
        else
        begin

        showmessage('您的输入有错误，请重新输入');
         edit1.text:='';
        edit2.text:='';
        combobox1.text:='';
        adotable1.Active:=false;
        end;
        end;


end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin //确保系统正常退出
    adotable1.TableName:='guanli';
    adotable1.Active:=true;
    if (adotable1.Locate('id',edit1.Text,[])) and
      (edit2.text=adotable1.FieldByName('password').AsString)
        then
        begin
        form2.ModalResult:=mrok;
        showmessage('登陆成功~');
        end;


application.Terminate;
form2.close;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
application.Title:='音像租赁管理';
end;

end.