unit5.~pas

学生信息管理系统 学生信息管理系统 学生信息管理系统

unit Unit5;

interface

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

type
  Tcjlr = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    StatusBar1: TStatusBar;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    Label3: TLabel;
    DBLookupComboBox3: TDBLookupComboBox;
    Edit3: TEdit;
    Button4: TButton;
    DBGrid1: TDBGrid;
    queryTeacher: TADOQuery;
    dscourse: TDataSource;
    dsclass: TDataSource;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    querycourse: TADOQuery;
    DataSource2: TDataSource;
    queryClass: TADOQuery;
    ComboBox1: TComboBox;
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
   

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cjlr: Tcjlr;

implementation
uses Unit1;
{$R *.dfm}
procedure Tcjlr.Button3Click(Sender: TObject);
begin

DBGrid1.Refresh;
DBgrid1.Font.Color:=clgreen;
end;

procedure Tcjlr.Button4Click(Sender: TObject);
begin
self.Close;
end;
procedure Tcjlr.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8])then
begin
key:=#0;
application.MessageBox('学号只能填写数字','提示',0+64);
end;
end;
procedure Tcjlr.Button1Click(Sender: TObject);
begin
if (edit1.Text='')or(edit3.Text='')then
begin
application.MessageBox('下面内容不能为空','提示',0+64);
exit;
end;
with ADOquery1 do
begin
 append;
 fieldvalues['学号']:=edit1.Text;
 fieldvalues['所在班级']:=DBLookupcombobox1.Text;
 fieldvalues['课程名称']:=DBLookupcombobox2.Text;
 fieldvalues['学期']:=combobox1.Text;
 fieldvalues['授课教师']:=DBlookupcombobox1.Text;
 fieldvalues['成绩']:=edit3.Text;
 try
 post;
 edit3.Clear;
 edit1.SetFocus;
 Edit1.SelectAll;
 except
 application.MessageBox('学号重复请重新输入','提示',0+64);
 delete;
 edit1.SetFocus;
 Edit1.SelectAll;
 exit;
 end;
 end;
end;

procedure Tcjlr.FormActivate(Sender: TObject);
var
sqlstr:string;
begin
sqlstr:='select * from t_score';
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add(sqlstr);
ADOquery1.Open;

  //  教师列表
sqlstr:='select * from t_jiaoshi';
  with queryTeacher do
   begin
    if active then close;
     SQL.Clear;
     SQL.Add(sqlstr);
     open;
   end;
  if queryTeacher.RecordCount>0 then
     begin
     DBLookupComboBox3.KeyValue:=queryTeacher.FieldValues['教师号'];
     end;
//班级表查找
sqlstr:='select * from t_banji';
  with queryclass do
   begin
    if  active then close;
     SQL.Clear;
     SQL.Add(sqlstr);
     open;
    end;
    if queryclass.RecordCount>0 then
      begin
        DBLookupComboBox1.KeyValue:=queryclass.FieldValues['班级号'];
      end;
   //课程表查找
sqlstr:='select * from t_course';
with querycourse  do
   begin
    if active then close;
    SQL.Clear;
    SQL.Add(sqlstr);
    open;
   end;
    if  querycourse.RecordCount>0 then
    begin
    DBLookupCombobox2.KeyValue:=querycourse.FieldValues['courseID'];
end;
  end;



procedure Tcjlr.Button2Click(Sender: TObject);
begin
edit3.Clear;
edit1.SetFocus;
edit1.SelectAll;
end;
end.