新版学生信息综合管理系统.docVIP

~Delphi学习记念 全部资源文件（可直接用Delphi打开编辑）下载地址： 效果图： 源码： 登录界面（从Access数据库读取对比用户名和密码）：UnitLogin.pas unit UnitLogin; 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; 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