unit7.pas

1.学生成绩管理系统的设计与实现 要求有以下文档: (1)概要设计（电子文档） (2)详细设计（电子文档） (3)课程设计的报告（打印文档） 选题,设计,实现,测试,参考文献

unit unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, Grids, DBGrids, ComCtrls, DB, ADODB, StdCtrls,
  Buttons, DBCtrls, Mask;

type
  TForm7 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    PageControl2: TPageControl;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    SpeedButton3: TSpeedButton;
    DBGrid2: TDBGrid;
    StatusBar1: TStatusBar;
    StatusBar2: TStatusBar;
    DataSource2: TDataSource;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Edit5: TEdit;
    Edit7: TEdit;
    Edit6: TEdit;
    Edit4: TEdit;
    Label5: TLabel;
    Label8: TLabel;
    Label6: TLabel;
    SpeedButton4: TSpeedButton;
    Label7: TLabel;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    N8: TMenuItem;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit2: TDBEdit;
    Label12: TLabel;
    DBEdit3: TDBEdit;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Label20: TLabel;
    DBMemo1: TDBMemo;
    Label21: TLabel;
    Label22: TLabel;
    Image1: TImage;
    DBMemo2: TDBMemo;
    Panel3: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    DBComboBox1: TDBComboBox;
    DBNavigator1: TDBNavigator;
    N9: TMenuItem;
    N10: TMenuItem;
    PageControl3: TPageControl;
    ADOQuery1: TADOQuery;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    DBMemo3: TDBMemo;
    Image2: TImage;
    DBMemo4: TDBMemo;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    DBComboBox2: TDBComboBox;
    procedure N7Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBComboBox1Change(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure DBComboBox2Change(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation
  uses unit8,unit10,unit4;
{$R *.dfm}



procedure TForm7.N7Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet2;
if panel4.Visible=false then
panel4.Visible:=true
else
panel4.Visible:=false;
end;

procedure TForm7.N6Click(Sender: TObject);
begin
application.CreateForm(tform8,form8);
form8.ShowModal;
end;

procedure TForm7.N4Click(Sender: TObject);
begin
form8.Close;
form7.Close;
end;

procedure TForm7.N2Click(Sender: TObject);
begin
form10.showmodal;
end;

procedure TForm7.SpeedButton3Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet2;
if  edit1.Text='' then
   begin
   MessageBox(handle,'请输入姓名,不能为空！','提示',MB_OK or MB_ICONINFORMATION);
   exit;
   end
else
   begin
   adoquery1.SQL.Clear;
   adoquery1.Close;
   adoquery1.sql.add('select *from 用户表 where 用户名='''+Edit1.Text+'''');
   MessageBox(handle,'查询完毕！','提示',MB_OK or MB_ICONINFORMATION);
   adoquery1.Open;
   edit1.Text:='';
   end;
end;

procedure TForm7.N8Click(Sender: TObject);
begin
form4.showmodal;
end;

procedure TForm7.SpeedButton4Click(Sender: TObject);
var
sql:string;
begin
if (edit2.Text<>'')or (edit3.Text<>'')or (edit4.Text<>'')or (edit5.Text<>'')or (edit6.Text<>'')or (edit7.Text<>'')then
 sql:='where (用户名 like'''+'%'+edit2.Text+'%'') or (联系地址 like'''+'%'+edit3.Text+'%'') or (联系电话 like'''+'%'+edit4.Text+'%'') or (邮政编码 like'''+'%'+edit5.Text+'%'') or (所在系别 like'''+'%'+edit6.Text+'%'') or (所在班级 like'''+'%'+edit7.Text+'%'')'
 else
 begin
  application.messagebox('没有查询条件！','提示',mb_ok);
  exit;
  end;
   ADOQuery1.Close ;
   ADOQuery1.SQL.Clear ;
   ADOQuery1.SQL.Add('select * from 用户表');
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.Open ;
   edit2.Text:='';
   edit3.Text:='';
   edit4.Text:='';
   edit5.Text:='';
   edit6.Text:='';
   edit7.Text:='';
end;

procedure TForm7.DBGrid1CellClick(Column: TColumn);
begin
if dbcombobox1.Text='A' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/A.ico');
if dbcombobox1.Text='B' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/B.ico');
if dbcombobox1.Text='C' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/C.ico');
if dbcombobox1.Text='D' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/D.ico');
if dbcombobox1.Text='E' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/E.ico');
if dbcombobox1.Text='F' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/F.ico');
if dbcombobox1.Text='G' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/G.ico');
if dbcombobox1.Text='H' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/H.ico');
if dbcombobox1.Text='I' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/I.ico');
if dbcombobox1.Text='J' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/J.ico');
if dbcombobox1.Text='K' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/K.ico');
if dbcombobox1.Text='L' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/L.ico');
if dbcombobox1.Text='M' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/M.ico');
if dbcombobox1.Text='N' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/N.ico');
end;

procedure TForm7.FormClick(Sender: TObject);
begin
if dbcombobox1.Text='A' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/A.ico');
if dbcombobox1.Text='B' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/B.ico');
if dbcombobox1.Text='C' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/C.ico');
if dbcombobox1.Text='D' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/D.ico');
if dbcombobox1.Text='E' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/E.ico');
if dbcombobox1.Text='F' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/F.ico');
if dbcombobox1.Text='G' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/G.ico');
if dbcombobox1.Text='H' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/H.ico');
if dbcombobox1.Text='I' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/I.ico');
if dbcombobox1.Text='J' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/J.ico');
if dbcombobox1.Text='K' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/K.ico');
if dbcombobox1.Text='L' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/L.ico');
if dbcombobox1.Text='M' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/M.ico');
if dbcombobox1.Text='N' then
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/N.ico');