Delphi+Acess学生信息管理系统1.0.doc

~Delphi学习记念全部资源文件（可直接用Delphi打开编辑）下载地址： UnitLogin;interfaceuses 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; procedure FormShow(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end;var FormLogin: TFormLogin; nowUser: String; nowPower: integer;implementation{$R *.dfm} uses UnitDataModule, UnitConsole;var isStop: boolean;procedure TFormLogin.FormShow(Sender: TObject);begin dataModule1.adoTable1.Open; while dataModule1.adoTable1.EOF <> true do begin comboBox1.Items.Append(dataModule1.adoTable1.FieldValues[user]); dataModule1.adotable1.Next; end; dataModule1.adoTable1.Close; isStop := false; lblMsg.Visible := false;end;procedure TFormLogin.Button1Click(Sender: TObject);var user1, pwd1 : string;begin user1 := comboBox1.Text; pwd1 := edit1.Text; dataModule1.adoTable1.Open; dataModule1.adoTable1.First; while not dataModule1.adoTable1.EOF do 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(select power from Account where user=+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;procedure TFormLogin.Button2Click(Sender: TObject);begin Application.Terminate;end;procedure TFormLogin.Timer1Timer(Sender: TObject);begin if (not isStop) then begin shpBall1.Left := shpBall1.Left-10; shpBall2.Left := shpBall2.Left+10; if (shpBall1.Left <= 100) then isStop := true; end else lblMsg.Visible := true; end;end.预览界面：UnitConsole.pasunit UnitConsole;interfaceuses 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; procedure view1Click(Sender: TObject); procedure quit1Click(Sender: TObject); procedure AddUserClick(Sender: TObject); procedure userMangClick(Sender: TObject); procedure AddClick(Sender: TObject); procedure helpClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); procedure time1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end;var FormConsole: TFormConsole;implementation{$R *.dfm} uses UnitView, UnitAdd, UnitDataModule, UnitUserMang, UnitLogin;var hour, min, sec, msec : word;procedure TFormConsole.view1Click(Sender: TObject);begin formView.ShowModal;end;procedure TFormConsole.quit1Click(Sender: TObject);begin Application.Terminate;end;procedure TFormConsole.AddUserClick(Sender: TObject);begin formAdd.ShowModal;end;procedure TFormConsole.userMangClick(Sender: TObject);begin formUserMang.ShowModal;end;procedure TFormConsole.AddClick(Sender: TObject);begin if (nowPower = 1) then formAdd.ShowModal else ShowMessage(您没有权限添加新用户，请联系管理员!);end;procedure TFormConsole.helpClick(Sender: TObject);begin ShowMessage(Delphi学生信息管理系统1.0,纪念于2012.5.20.);end;procedure TFormConsole.FormShow(Sender: TObject);begin with dataModule1.ADOQuery1 do begin Close; SQL.Text := select * from Student; Open; end;end;procedure TFormConsole.FormCreate(Sender: TObject);begin DecodeTime(Now, hour, min, sec, msec); editHour.Text := IntToStr(hour); editMin.Text := IntToStr(min); editSec.Text := IntToStr(se。