?? unit1.pas
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, Buttons, ExtCtrls, jpeg, DB, ADODB;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
Panel1: TPanel;
Image1: TImage;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ADOTable1: TADOTable;
N6: TMenuItem;
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit4, Unit5, Unit7, Unit6, Unit8;
{$R *.dfm}
var pass:boolean;
procedure TForm1.N1Click(Sender: TObject);
begin
if pass=true then tushuguanli.show
else showmessage('請先輸入用戶名和密碼!');
end;
procedure TForm1.N2Click(Sender: TObject);
begin
if pass=true then xueshengguanli.show
else showmessage('請先輸入用戶名和密碼!');
end;
procedure TForm1.N3Click(Sender: TObject);
begin
if pass=true then jieyueguanli.show
else showmessage('請先輸入用戶名和密碼!');
end;
procedure TForm1.N4Click(Sender: TObject);
begin
if pass=true then chacunbaobiao.show
else showmessage('請先輸入用戶名和密碼!');
end;
procedure TForm1.N5Click(Sender: TObject);
begin
about.show;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with form1.Panel2 do
begin
adotable1.Active:=true;
if edit1.text='' then showmessage('請輸入ID')else
if edit2.Text='' then showmessage('請輸入密碼')
else //方法一 密碼+用戶名=1000
{ val(edit1.Text,i,code1);
val(edit2.Text,j,code2);
if ((code1<>0) or (code2<>0)) then showmessage('用戶名和密碼的格式錯誤')
else
if strtoint(edit1.Text)+strtoint(edit2.Text)=10000 then
begin
form1.show;
showmessage('歡迎使用!');
pass:=true;
form1.Panel2.Visible:=false;
end
else begin
showmessage('密碼錯誤!推出系統');
form1.Close;
end; }
//方法2 密碼表
begin
if not adotable1.Locate('name',edit1.Text,[]) then
begin
showmessage('沒有這個用戶,登陸失敗');
pass:=false;
end
else
if adotable1.FieldValues['password']=edit2.Text
then begin
showmessage('登陸成功');
panel2.Visible:=false;
pass:=true;
end
else begin showmessage('密碼錯誤,退出系統!');
application.Terminate;
end;
end;
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
if messagedlg('確定要退出系統?',mtinformation,[mbno,mbyes],0)=mrYes
then Application.Terminate;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -