Delphi+Access学生信息管理系统10.docx
- 文档编号:3233677
- 上传时间:2022-11-20
- 格式:DOCX
- 页数:19
- 大小:1.76MB
Delphi+Access学生信息管理系统10.docx
《Delphi+Access学生信息管理系统10.docx》由会员分享,可在线阅读,更多相关《Delphi+Access学生信息管理系统10.docx(19页珍藏版)》请在冰豆网上搜索。
Delphi+Access学生信息管理系统10
~Delphi学习记念
全部资源文件(可直接用Delphi打开编辑)下载地址:
效果图:
源码:
登录界面(从Access数据库读取对比用户名与密码):
UnitLogin.pas
unitUnitLogin;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,ExtCtrls,jpeg;
type
TFormLogin=class(TForm)
Image1:
TImage;
Button1:
TButton;
Button2:
TButton;
ComboBox1:
TComboBox;
Edit1:
TEdit;
Label1:
TLabel;
Timer1:
TTimer;
lblMsg:
TLabel;
Label2:
TLabel;
shpBall2:
TShape;
shpBall1:
TShape;
procedureFormShow(Sender:
TObject);
procedureButton1Click(Sender:
TObject);
procedureButton2Click(Sender:
TObject);
procedureTimer1Timer(Sender:
TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
FormLogin:
TFormLogin;
nowUser:
String;
nowPower:
integer;
implementation
{$R*.dfm}
usesUnitDataModule,UnitConsole;
varisStop:
boolean;
procedureTFormLogin.FormShow(Sender:
TObject);
begin
dataModule1.adoTable1.Open;
whiledataModule1.adoTable1.EOF<>truedo
begin
comboBox1.Items.Append(dataModule1.adoTable1.FieldValues['user']);
dataModule1.adotable1.Next;
end;
dataModule1.adoTable1.Close;
isStop:
=false;
lblMsg.Visible:
=false;
end;
procedureTFormLogin.Button1Click(Sender:
TObject);
varuser1,pwd1:
string;
begin
user1:
=comboBox1.Text;
pwd1:
=edit1.Text;
dataModule1.adoTable1.Open;
dataModule1.adoTable1.First;
whilenotdataModule1.adoTable1.EOFdo
begin
if(user1=DataModule1.adoTable1.FieldValues['user'])and(pwd1=DataModule1.adoTable1.FieldValues['pwd'])then
begin
nowUser:
=user1;
dataModule1.ADOQuery1.Close;
dataModule1.ADOQuery1.SQL.Clear;
dataModule1.ADOQuery1.SQL.Add('selectpowerfromAccountwhereuser='''+nowUser+'''');
dataModule1.ADOQuery1.Open;
nowPower:
=dataModule1.ADOQuery1.Fields[0].AsInteger;
formConsole.Show;
Exit;
end;
DataModule1.adoTable1.Next;
end;
ShowMessage('登录失败,请重试!
');
edit1.Text:
='';
comboBox1.SetFocus;
DataModule1.adoTable1.Close;
end;
procedureTFormLogin.Button2Click(Sender:
TObject);
begin
Application.Terminate;
end;
procedureTFormLogin.Timer1Timer(Sender:
TObject);
begin
if(notisStop)then
begin
shpBall1.Left:
=shpBall1.Left-10;
shpBall2.Left:
=shpBall2.Left+10;
if(shpBall1.Left<=100)thenisStop:
=true;
end
elselblMsg.Visible:
=true;
end;
end.
预览界面:
UnitConsole.pas
unitUnitConsole;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,Menus,Grids,DBGrids,StdCtrls,ExtCtrls,jpeg;
type
TFormConsole=class(TForm)
MainMenu1:
TMainMenu;
view1:
TMenuItem;
User:
TMenuItem;
quit1:
TMenuItem;
DBGrid1:
TDBGrid;
DBGrid2:
TDBGrid;
Add:
TMenuItem;
help:
TMenuItem;
userMang:
TMenuItem;
time1:
TTimer;
Image1:
TImage;
lblSec:
TLabel;
lblNote:
TLabel;
lblMin:
TLabel;
lblHour:
TLabel;
Label2:
TLabel;
Label1:
TLabel;
editSec:
TEdit;
editMin:
TEdit;
editHour:
TEdit;
procedureview1Click(Sender:
TObject);
procedurequit1Click(Sender:
TObject);
procedureAddUserClick(Sender:
TObject);
procedureuserMangClick(Sender:
TObject);
procedureAddClick(Sender:
TObject);
procedurehelpClick(Sender:
TObject);
procedureFormShow(Sender:
TObject);
procedureFormCreate(Sender:
TObject);
proceduretime1Timer(Sender:
TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
FormConsole:
TFormConsole;
implementation
{$R*.dfm}
usesUnitView,UnitAdd,UnitDataModule,UnitUserMang,UnitLogin;
varhour,min,sec,msec:
word;
procedureTFormConsole.view1Click(Sender:
TObject);
begin
formView.ShowModal;
end;
procedureTFormConsole.quit1Click(Sender:
TObject);
begin
Application.Terminate;
end;
procedureTFormConsole.AddUserClick(Sender:
TObject);
begin
formAdd.ShowModal;
end;
procedureTFormConsole.userMangClick(Sender:
TObject);
begin
formUserMang.ShowModal;
end;
procedureTFormConsole.AddClick(Sender:
TObject);
begin
if(nowPower=1)thenformAdd.ShowModal
elseShowMessage('您没有权限添加新用户,请联系管理员!
');
end;
procedureTFormConsole.helpClick(Sender:
TObject);
begin
ShowMessage('Delphi学生信息管理系统1.0,纪念于2012.5.20.');
end;
procedureTFormConsole.FormShow(Sender:
TObject);
begin
withdataModule1.ADOQuery1do
begin
Close;
SQL.Text:
='select*fromStudent';
Open;
end;
end;
procedureTFormConsole.FormCreate(Sender:
TObject);
begin
DecodeTime(Now,hour,min,sec,msec);
editHour.Text:
=IntToStr(hour);
editMin.Text:
=IntToStr(min);
editSec.Text:
=IntToStr(sec);
end;
procedureTFormConsole.time1Timer(Sender:
TObject);
begin
sec:
=sec+1;
if(sec=60)then
begin
min:
=min+1;
sec:
=0;
end;
if(min=60)then
begin
hour:
=hour+1;
min:
=0;
end;
if(hour=24)then
begin
hour:
=0;
end;
editHour.Text:
=IntToStr(hour);
editMin.Text:
=IntToStr(
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Delphi Access 学生 信息管理 系统 10