findsubject_unit.pas

学校班级教学管理系统 DELPHI7下的

unit FindSubject_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base_Unit, ExtCtrls, Grids, DBGrids, StdCtrls, Buttons, DB,
  ComCtrls, Menus, StdActns, ActnList;

type
  TfrmFindSubject = class(TfrmBase)
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    cmbxItmes: TComboBox;
    Label3: TLabel;
    edtValues: TEdit;
    btnFind: TBitBtn;
    DataFindPlan: TDataSource;
    Label2: TLabel;
    Label4: TLabel;
    dtpBeginDate: TDateTimePicker;
    dtpEndDate: TDateTimePicker;
    procedure btnFindClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmFindSubject: TfrmFindSubject;

implementation

uses DM_Unit, Common_Unit;

{$R *.dfm}

procedure TfrmFindSubject.btnFindClick(Sender: TObject);
var
  FindSQL: string;
begin
  inherited;
  FindSQl := 'Select A.Term,A.Remark,B.SubName,C.StuName,D.TchName ,A.BeginTime ,A.EndTime From Course A '
           + ' ,SubjectInfo B  '
           + ' ,StudentInfo C  '
           + ' ,TeacherInfo D  '
           + ' where A.SubjectID = B.SubjectID and A.StudentID = C.StudentID and A.TeacherID = D.TeacherID';
  if cmbxItmes.Text = '科目编号' then
    FindSQl := FindSQl + ' and A.SubjectID = ' + Quotedstr(edtValues.Text);
  if cmbxItmes.Text = '学号' then
    FindSQL := FindSQL + ' and A.StudentID = ' + Quotedstr(edtValues.Text);
  if cmbxItmes.Text = '教师编号' then
    FindSQL := FindSQL + ' and A.TeacherID = ' + Quotedstr(edtValues.Text);

  if (cmbxItmes.Text = '') and (edtValues.Text = '') then
    FindSQL := FindSQL +
    ' and A.BeginTime between #' + DateToStr(dtpBeginDate.Date) + '# and #' + DateToStr(dtpEndDate.Date) + '#';
  DataFindPlan.DataSet := SQLDataSet(FindSQL,DM.ADOConn);
end;

procedure TfrmFindSubject.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmFindSubject := nil;
end;

end.