unit12.~pas

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

unit Unit12;

interface

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

type
  TForm12 = class(TForm)
    PageControl1: TPageControl;
    DBGrid1: TDBGrid;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Edit2: TEdit;
    CheckBox3: TCheckBox;
    Edit3: TEdit;
    CheckBox4: TCheckBox;
    Edit4: TEdit;
    CheckBox5: TCheckBox;
    Edit5: TEdit;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    StatusBar1: TStatusBar;
    BitBtn1: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation

{$R *.dfm}

procedure TForm12.BitBtn3Click(Sender: TObject);
begin
if dbgrid1.SelectedIndex>=0 then
if (DBedit1.Text='')or(DBedit1.Text='')or(DBedit3.Text='') or (DBedit4.Text='')or (DBedit5.Text='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
adoquery1.Prior;
end;

procedure TForm12.BitBtn4Click(Sender: TObject);
begin
if dbgrid1.SelectedIndex>=0 then
if (DBedit1.Text='')or(DBedit1.Text='')or(DBedit3.Text='') or (DBedit4.Text='')or (DBedit5.Text='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
adoquery1.Next;
end;

procedure TForm12.BitBtn2Click(Sender: TObject);
begin
if dbgrid1.SelectedIndex>=0 then
if (DBedit1.Text='')or(DBedit1.Text='')or(DBedit3.Text='') or (DBedit4.Text='')or (DBedit5.Text='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
begin
adoquery1.Edit;
adoquery1.Post;
application.MessageBox('你已修改该记录的信息','修改提示',mb_ok);
end
else
application.MessageBox('没有记录可修改或没有选定要修改记录！','修改提示',mb_ok);
end;

procedure TForm12.DBGrid1DblClick(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet2;
end;

procedure TForm12.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
combobox1.Enabled:=true
else
combobox1.Enabled:=false;
end;


procedure TForm12.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked then
edit2.Enabled:=true
else
edit2.Enabled:=false;

end;

procedure TForm12.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked then
edit3.Enabled:=true
else
edit3.Enabled:=false;

end;

procedure TForm12.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked then
edit4.Enabled:=true
else
edit4.Enabled:=false;

end;

procedure TForm12.CheckBox5Click(Sender: TObject);
begin
if checkbox5.Checked then
edit5.Enabled:=true
else
edit5.Enabled:=false;
end;


procedure TForm12.BitBtn1Click(Sender: TObject);
var
str:string;
begin
try
str:='where(1=1)';
if combobox1.Text<>'' then str:=str+'and (所在系别 like'''+'%'+combobox1.Text+'%'')' ;
if edit2.Text<>'' then str:=str+'and (所在专业 like'''+'%'+edit2.Text+'%'')';
if edit3.Text<>'' then str:=str+'and (所在班级 like'''+'%'+edit3.Text+'%'')';
if edit4.Text<>'' then str:=str+'and (课程名称 like'''+'%'+edit4.Text+'%'')';
if edit5.Text<>'' then str:=str+'and (课程代号 like'''+'%'+edit5.Text+'%'')';
 ADOquery1.Close;
 ADOquery1.SQL.Clear;
 ADoquery1.SQL.Add('select * from 课程资源表');
 adoquery1.SQL.Add(str);
 adoquery1.Open;

 combobox1.Text:='';
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
 except
 exit;
 end;

end;

end.