新版学生信息基础管理系统

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.FieldValuesuser); 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

5、; pwd1 := edit1.Text; dataModule1.adoTable1.Open; dataModule1.adoTable1.First; while not dataModule1.adoTable1.EOF do begin if (user1 = DataModule1.adoTable1.FieldValuesuser) and ( pwd1 = DataModule1.adoTable1.FieldValuespwd) then begin nowUser := user1; dataModule1.ADOQuery1.Close; dataModule1.ADOQ

6、uery1.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.adoTable1.Next; end; ShowMessage(登录失败，请重试!); edit1.Text := ; comboBox1.SetFocus; D

7、ataModule1.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 isS

8、top := 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: T

9、MenuItem; 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; edit

10、Hour: 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 Form

11、Create(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.view

12、1Click(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;

13、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,纪念于.5.20.);end;procedure TFormConsole.FormShow(Sender: TObject);begin wit

14、h 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(sec);end;procedure TFormCo

15、nsole.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(min); editSec.Text := IntToStr(sec);

16、end;end.添加顾客界面：UnitAdd.pasunit UnitAdd;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls;type TFormAdd = class(TForm) Image1: TImage; lblUser: TLabel; lblPwd2: TLabel; lblPower: TLabel; jlblPwd1: TLabel; editUser: TEdit; editPw

17、d2: TEdit; editPwd1: TEdit; ComboBox1: TComboBox; btnQuit: TButton; btnOk: TButton; procedure btnQuitClick(Sender: TObject); procedure btnOkClick(Sender: TObject); private Private declarations public Public declarations end;var FormAdd: TFormAdd;implementation$R *.dfm uses UnitDataModule;procedure T

18、FormAdd.btnQuitClick(Sender: TObject);begin Close;end;procedure TFormAdd.btnOkClick(Sender: TObject);var user1, pwd1, pwd2, power : String;begin user1 := editUser.Text; pwd1 := editPwd1.Text; pwd2 := editPwd2.Text; power := IntToStr(comboBox1.ItemIndex+1); if dataModule1.ADOTable1.FieldValuesuser =

19、user1 then begin ShowMessage(顾客已存在!); editUser.Clear; editUser.SetFocus; end else begin if (user1 ) and (pwd1 ) and (pwd1 = pwd2) then begin with DataModule1.ADOTable1 do begin Open; Append; FieldByName(user).AsString := user1; FieldByName(pwd).AsString := pwd2; FieldByName(power).AsString := power;

20、 Post; end; ShowMessage(添加成功!); DataModule1.ADOTable1.Close; end else begin ShowMessage(顾客名或密码为空或密码不一致,请重新输入!); editUser.Clear; editPwd1.Clear; editPwd2.Clear; editUser.SetFocus; end; end;end;end.数据链接模块：UnitDataModule.pasunit UnitDataModule;interfaceuses SysUtils, Classes, DB, ADODB;type TDataModule

21、1 = class(TDataModule) ADOConnection1: TADOConnection; ADOTable1: TADOTable; DataSource1: TDataSource; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; DataSource2: TDataSource; ADOQuery2user: TWideStringField; ADOQuery2pwd: TWideStringField; ADOQuery2power: TIntegerField; procedure ADOQuery2pwdGetText(S

22、ender: TField; var Text: String; DisplayText: Boolean); private 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 :=

23、*;end;end.顾客管理界面（可修改、添加星号密码，顾客管理有登录顾客旳权限区别）：UnitUserMang.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: TDBNavigat

24、or; editPower: TEdit; editUser: TEdit; lblPower: 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,

25、power1, strSql2 : String;implementation$R *.dfm uses 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 * f

26、rom Account 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.ReadOnly := true; formUserMang.DBNavigator1.VisibleButtons := formView.DBNavigator1

27、.VisibleButtons-nbInsert, nbDelete; end;end;end.学生信息查询界面（涉及一般模糊查询、范畴查询、实时动态查询以及自定义语句查询）：UnitView.pasunit UnitView;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons, jpeg;type TFormView = c

28、lass(TForm) DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; btnQuery: TBitBtn; Image1: TImage; RadioGroup1: TRadioGroup; RadioButton1: TRadioButton; Label9: TLabel; Label8: TLabel; Label7: TLabel; Label6: TLabel; Label5: TLabel; Label4: TLabel; Label2: TLabel; Label11: TLabel; Label10: TLabel; Label1:

29、 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: TEdit; procedure btnQueryClick(Sender: TObject); procedure FormShow(Sender: TObj

30、ect); procedure RadioButton1Click(Sender: TObject); procedure RadioGroup1Click(Sender: TObject); procedure editSidChange(Sender: TObject); procedure editSexChange(Sender: TObject); private Private declarations public Public declarations end;var FormView: TFormView; sid1, name1, sex1, age1, home1, ra

31、nge1, 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; DataModule1.ADOQuery1.SQL.Clear; case radioGroup1.ItemIndex of 0: begin sid1 :=

32、 %+Trim(editSid.Text)+%; name1 := %+Trim(editName.Text)+%; age1 := %+Trim(editAge.Text)+%; home1 := %+Trim(editHome.Text)+%; range1 := %+Trim(editRange.Text)+%; sex1 := %+Trim(editSex.Text)+%; with DataModule1.ADOQuery1 do begin strSql := select * from Student where ; strSql := strSql+sid like +sid1

33、+ and name like +name1+ and sex like +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); sid3 := 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=+age2; if (age3 = ) then age3 := else age3 := and age=+age3; strSql := select * from Student where+sid2+sid3+age2+age3; with DataModu