queryscore.pas

自己做的用delphi开发的学生成绩管理系统。

unit QueryScore;

interface

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

type
  TfrmQueryScore = class(TForm)
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    cmbClass: TComboBox;
    CheckBox2: TCheckBox;
    cmbKCDM: TComboBox;
    CheckBox3: TCheckBox;
    cmbXH: TComboBox;
    cmbScore1: TComboBox;
    edtScore1: TEdit;
    cmbScore2: TComboBox;
    edtScore2: TEdit;
    Label1: TLabel;
    cmbDate1: TComboBox;
    Label4: TLabel;
    cmbDate2: TComboBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cmbClassChange(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmQueryScore: TfrmQueryScore;

implementation
uses global, main;

{$R *.dfm}

procedure TfrmQueryScore.CheckBox1Click(Sender: TObject);
begin
  cmbClass.Enabled:=checkbox1.Checked;
end;

procedure TfrmQueryScore.Button2Click(Sender: TObject);
begin
  self.ModalResult:=mrCancel;
end;

procedure TfrmQueryScore.Button1Click(Sender: TObject);
begin
  if (checkbox3.Checked) and (not checkbox1.Checked) then
  begin
    showmessage('要先选择班级，再选择学生');
    exit;
  end;
  self.ModalResult:=mrOk;
end;

procedure TfrmQueryScore.CheckBox2Click(Sender: TObject);
begin
  cmbKcDM.Enabled:=checkbox2.Checked;
end;

procedure TfrmQueryScore.CheckBox3Click(Sender: TObject);
begin
  cmbXH.Enabled:=checkbox3.Checked;
end;

procedure TfrmQueryScore.FormShow(Sender: TObject);
var Query:TadoQuery;
begin
  Query:=TAdoQuery.create(self);
  query.Connection:=frmmain.adoconnection1;
  Query.SQL.Text:='select distinct 班级名称 from 学生名单';
  Query.Active:=true;
  cmbClass.Clear;
  if not Query.IsEmpty then
  begin
    Query.First;
    while not Query.Eof do
    begin
      cmbClass.Items.Add(Query.FieldByName('班级名称').AsString);
      Query.Next;
    end;
  end;
  Query.Active:=false;
  Query.SQL.Text:='select distinct 课程代码 from 课程目录';
  Query.Active:=true;
  cmbKCDM.Clear;
  if not Query.IsEmpty then
  begin
    Query.First;
    while not Query.Eof do
    begin
      cmbKCDM.Items.Add(Query.FieldByName('课程代码').AsString);
      Query.Next;
    end;
  end;
  if cmbClass.Items.Count>0 then
    cmbClass.ItemIndex:=0;
  if cmbKCDM.Items.Count>0 then
    cmbKCDM.ItemIndex:=0;
  cmbClassChange(self);
  Query.Free;


end;

procedure TfrmQueryScore.cmbClassChange(Sender: TObject);
var Query:TadoQuery;
begin
  Query:=TAdoQuery.create(self);
  query.Connection:=frmmain.adoconnection1;
  Query.SQL.Text:='select distinct 学号 from 学生名单 where 班级名称='+''''+cmbClass.Text+'''';
  Query.Active:=true;
  cmbXH.Clear;
  if not Query.IsEmpty then
  begin
    Query.First;
    while not Query.Eof do
    begin
      cmbXH.Items.Add(Query.FieldByName('学号').AsString);
      query.Next;
    end;
  end;
  if cmbXH.Items.Count>0 then
    cmbXH.ItemIndex:=0;
  Query.Free;
end;

procedure TfrmQueryScore.CheckBox5Click(Sender: TObject);
begin
  cmbDate1.Enabled:=checkbox5.Checked;
  cmbDate2.Enabled:=checkbox5.Checked;
  DateTimePicker1.Enabled:=checkbox5.Checked;
  DateTimePicker2.Enabled:=checkbox5.Checked;
end;

procedure TfrmQueryScore.CheckBox4Click(Sender: TObject);
begin
  cmbScore1.Enabled:=checkbox4.Checked;
  cmbScore2.Enabled:=checkbox4.Checked;
  edtScore1.Enabled:=checkbox4.Checked;
  edtScore2.Enabled:=checkbox4.Checked;

end;

procedure TfrmQueryScore.FormCreate(Sender: TObject);
begin
  dateTimePicker1.Date:=strtodate(inttostr(GetYear(Date))+'-1-1');
  dateTimePicker2.Date:=strtodate(inttostr(GetYear(Date))+'-1-1');
end;

end.