新版学生信息标准管理系统.doc

~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.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.pas
unit UnitConsole;

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;
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,纪念于.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(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 (hour = 24) then
begin
hour := 0;
end;
editHour.Text := IntToStr(hour);
editMin.Text := IntToStr(min);
editSec.Text := IntToStr(sec);
end;

end.

添加顾客界面：UnitAdd.pas
unit UnitAdd;

interface

uses
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;
editPwd2：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 TFormAdd.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.FieldValues['user'] = 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;
Post;
end;
ShowMessage('添加成功!');
DataModule1.ADOTable1.Close;
end
else
begin
ShowMessage('顾客名或密码为空或密码不一致,请重新输入!');
editUser.Clear；editPwd1.Clear；editPwd2.Clear;
editUser.SetFocus;
end;
end;
end;

end.
数据链接模块：UnitDataModule.pas
unit UnitDataModule;

interface

uses
SysUtils，Classes，DB，ADODB;

type
TDataModule1 = class(TDataModule)
ADOConnection1：TADOConnection;
ADOTable1：TADOTable;
DataSource1：TDataSource;
ADOQuery1：TADOQuery;
ADOQuery2：TADOQuery;
DataSource2：TDataSource;
ADOQuery2user：TWideStringField;
ADOQuery2pwd：TWideStringField;
ADOQuery2power：TIntegerField;
procedure ADOQuery2pwdGetText(Sender：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 := '******';
end;

end.
顾客管理界面（可修改、添加星号密码，顾客管理有登录顾客权限区别）：UnitUserMang.pas
unit UnitUserMang;

interface

uses
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：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}
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 * from 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.VisibleButtons-[nbInsert，nbDelete];
end;
end;

end.
学生信息查询界面（涉及普通模糊查询、范畴查询、实时动态查询以及自定义语句查询）：UnitView.pas
unit UnitView;

interface

uses
Windows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms,
Dialogs，DB，ADODB，ExtCtrls，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：TLabel;
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：TEdit;
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 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;
DataModule1.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 := '%'+Trim(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 '''+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<='+sid3;
if (age2 = '') then age2 := '' else age2 := ' and age>='+age2;
if (age3 = '') then age3 := '' else age3 := ' and age<='+age3;
strSql := 'select * from Student where'+sid2+sid3+age2+age3;
with DataModule1.ADOQuery1 do
begin
SQL.Add(strSql);
Open;
end;
end;
else begin
diy1 := Trim(editDIY1.Text)；diy2 := Trim(editDIY2.Text);
if (diy1 = '') and (diy2 = '') then
begin diy1 := 'select * '；diy2 := ''；end;
with DataModule1.ADOQuery1 do
begin
SQL.Add(diy1+' from Student '+diy2);
Open;
end;
end;
end;
end;

procedure TFormView.FormShow(Sender：TObject);
begin
radioGroup1.ItemIndex := 0;
if (nowPower = 3) then
begin
formView.DBGrid1.ReadOnly := true;
editDIY1.Text := 'select * ';
editDIY1.Enabled := false；editDIY2.Enabled := false;
formView.DBNavigator1.VisibleButtons := formView.DBNavigator1.VisibleButtons-[nbInsert，nbDelete];
end;
end;

procedure TFormView.RadioButton1Click(Sender：TObject);
begin
btnQuery.Enabled := false;
end;

procedure TFormView.RadioGroup1Click(Sender：TObject);
begin
if radioGroup1.ItemIndex = 2 then
begin
radioButton1.Checked := false;
btnQuery.Enabled := true;
end;
end;

procedure TFormView.editSidChange(Sender：TObject);
begin
if (radioButton1.Checked = true) then btnQueryClick(Sender);
end;

procedure TFormView.editSexChange(Sender：TObject);
begin
if (radioButton1.Checked = true) then btnQueryClick(Sender);
end;

end.