DelphiAccess学生信息管理系统

1、Delphi学习记念全部资源文件（可直接用Delphi打开编辑）下载地址：效果图：源码：登录界面（从Access数据库读取对比用户名与密码）：UnitLogin.pasunit UnitLogin;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg;type TFormLogin = class(TForm) Image1: TImage; Button1: TButton; Button2: TBut

2、ton; 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);

3、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.ado

4、Table1.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 user

5、1 := 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; dataMo

6、dule1.ADOQuery1.Close; dataModule1.ADOQuery1.SQL.Clear; dataModule1.ADOQuery1.SQL.Add('select power from Account where user='''+nowUser+''''); dataModule1.ADOQuery1.Open; nowPower := dataModule1.ADOQuery1.Fields0.AsInteger; formConsole.Show; Exit; end; DataModule1.ado

7、Table1.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 shpBa

8、ll1.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, Gri

9、ds, 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;

10、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

11、: 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

12、, 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 form

13、Add.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

14、);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

15、, min, sec, msec); editHour.Text := IntToStr(hour); editMin.Text := IntToStr(min); editSec.Text := IntToStr(sec);end;procedure TFormConsole.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

16、 (hour = 24) then begin hour := 0; end; editHour.Text := IntToStr(hour); editMin.Text := IntToStr(min); editSec.Text := IntToStr(sec);end;end.添加用户界面：UnitAdd.pasunit UnitAdd;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls;type

17、 TFormAdd = class(TForm) Image1: TImage; lblUser: TLabel; lblPwd2: TLabel; lblPower: TLabel; jlblPwd1: TLabel; editUser: TEdit; editPwd2: TEdit; editPwd1: TEdit; ComboBox1: TComboBox; btnQuit: TButton; btnOk: TButton; procedure btnQuitClick(Sender: TObject); procedure btnOkClick(Sender: TObject); pr

18、ivate Private declarations public Public declarations end;var FormAdd: TFormAdd;implementation$R *.dfm uses UnitDataModule;procedure TFormAdd.btnQuitClick(Sender: TObject);begin Close;end;procedure TFormAdd.btnOkClick(Sender: TObject);var user1, pwd1, pwd2, power : String;begin user1 := editUser.Tex

19、t; pwd1 := editPwd1.Text; pwd2 := editPwd2.Text; power := IntToStr(comboBox1.ItemIndex+1); if dataModule1.ADOTable1.FieldValues'user' = user1 then begin ShowMessage('用户已存在!'); editUser.Clear; editUser.SetFocus; end else begin if (user1 <> '') and (pwd1 <> '

20、9;) and (pwd1 = pwd2) then begin with DataModule1.ADOTable1 do begin Open; Append; FieldByName('user').AsString := user1; FieldByName('pwd').AsString := pwd2; FieldByName('power').AsString := power; Post; end; ShowMessage('添加成功!'); DataModule1.ADOTable1.Close; end els

21、e begin ShowMessage('用户名或密码为空或密码不一致,请重新输入!'); editUser.Clear; editPwd1.Clear; editPwd2.Clear; editUser.SetFocus; end; end;end;end.数据链接模块：UnitDataModule.pasunit UnitDataModule;interfaceuses SysUtils, Classes, DB, ADODB;type TDataModule1 = class(TDataModule) ADOConnection1: TADOConnection; ADO

22、Table1: TADOTable; DataSource1: TDataSource; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; DataSource2: TDataSource; ADOQuery2user: TWideStringField; ADOQuery2pwd: TWideStringField; ADOQuery2power: TIntegerField; procedure ADOQuery2pwdGetText(Sender: TField; var Text: String; DisplayText: Boolean); pr

23、ivate Private declarations public Public declarations end;var DataModule1: TDataModule1;implementation$R *.dfm uses UnitUserMang;procedure TDataModule1.ADOQuery2pwdGetText(Sender: TField; var Text: String; DisplayText: Boolean);begin Text := '*'end;end.用户管理界面（可修改、添加星号密码，用户管理有登录用户的权限区别）：UnitU

24、serMang.pasunit UnitUserMang;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, jpeg;type TformUserMang = class(TForm) Image1: TImage; DBNavigator1: TDBNavigator; editPower: TEdit; editUser: TEdit; lblPower:

25、TLabel; lblUser: TLabel; btnUserQuery1: TButton; DBGrid1: TDBGrid; procedure btnUserQuery1Click(Sender: TObject); procedure FormShow(Sender: TObject); private Private declarations public Public declarations end;var formUserMang: TformUserMang; user1, power1, strSql2 : String;implementation$R *.dfm u

26、ses UnitDataModule, UnitLogin, UnitView;procedure TformUserMang.btnUserQuery1Click(Sender: TObject);begin user1 := '%'+Trim(editUser.Text)+'%' power1 := '%'+Trim(editPower.Text)+'%' with dataModule1.ADOQuery2 do begin Close; SQL.Clear; strSql2 := 'select * from Ac

27、count where ' strSql2 :=strSql2+'user like '''+user1+''' and power like '''+power1+'''' SQL.Add(strSql2); Open; end;end;procedure TformUserMang.FormShow(Sender: TObject);begin if (nowPower <> 1) then begin formUserMang.DBGrid1.ReadOnl

28、y := true; formUserMang.DBNavigator1.VisibleButtons := formView.DBNavigator1.VisibleButtons-nbInsert, nbDelete; end;end;end.学生信息查询界面（包括普通模糊查询、范围查询、实时动态查询以及自定义语句查询）：UnitView.pasunit UnitView;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, E

29、xtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons, jpeg;type TFormView = class(TForm) DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; btnQuery: TBitBtn; Image1: TImage; RadioGroup1: TRadioGroup; RadioButton1: TRadioButton; Label9: TLabel; Label8: TLabel; Label7: TLabel; Label6: TLabel; Label5: TLabe

30、l; Label4: TLabel; Label2: TLabel; Label11: TLabel; Label10: TLabel; Label1: TLabel; editSid3: TEdit; editSid2: TEdit; editSid: TEdit; editRange: TEdit; editName: TEdit; editHome: TEdit; editDIY2: TEdit; editDIY1: TEdit; editAge3: TEdit; editAge2: TEdit; editAge: TEdit; Label3: TLabel; editSex: TEdi

31、t; procedure btnQueryClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure RadioButton1Click(Sender: TObject); procedure RadioGroup1Click(Sender: TObject); procedure editSidChange(Sender: TObject); procedure editSexChange(Sender: TObject); private Private declarations public Public

32、declarations end;var FormView: TFormView; sid1, name1, sex1, age1, home1, range1, strSql : String; sid2, sid3, age2, age3, diy1, diy2 : String;implementation$R *.dfm uses UnitDataModule, UnitUserMang, UnitLogin;procedure TFormView.btnQueryClick(Sender: TObject);begin DataModule1.ADOQuery1.Close; Dat

33、aModule1.ADOQuery1.SQL.Clear; case radioGroup1.ItemIndex of 0: begin sid1 := '%'+Trim(editSid.Text)+'%' name1 := '%'+Trim(editName.Text)+'%' age1 := '%'+Trim(editAge.Text)+'%' home1 := '%'+Trim(editHome.Text)+'%' range1 := '%'+T

34、rim(editRange.Text)+'%' sex1 := '%'+Trim(editSex.Text)+'%' with DataModule1.ADOQuery1 do begin strSql := 'select * from Student where ' strSql := strSql+'sid like '''+sid1+''' and name like '''+name1+''' and sex like

35、 '''+sex1+'''' strSql := strSql+' and age like '''+age1+''' and home like '''+home1+''' and range like '''+range1+'''' SQL.Add(strSql); Open; end; end; 1: begin sid2 := Trim(editSid2.Text); si

36、d3 := Trim(editSid3.Text); age2 := Trim(editAge2.Text); age3 := Trim(editAge3.Text); if (sid2 = '') then sid2 := ' sid like ''%''' else sid2 := ' sid>='+sid2; if (sid3 = '') then sid3 := '' else sid3 := ' and sid<='+sid3; if (age2 = '') then age2 := '' else age2 := ' and age>='+age2; if (age3 = '') then age3 := '' else age3 := ' and age<='+age3; strSql := 'select * from Student wher