plansubject_unit.pas

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

unit PlanSubject_Unit;

interface

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

type
  TfrmPlanSubject = class(TfrmBase)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    cmbxSubject: TDBLookupComboBox;
    cmbxTeacher: TDBLookupComboBox;
    cmbxStudentID: TDBLookupComboBox;
    edtRemark: TDBMemo;
    cmbxTerm: TDBComboBox;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    btnAdd: TBitBtn;
    btnModify: TBitBtn;
    btnDel: TBitBtn;
    btnCancel: TBitBtn;
    DataPlanSubject: TDataSource;
    DataStudentID: TDataSource;
    DataSubjectID: TDataSource;
    DataTeacherID: TDataSource;
    btnSave: TBitBtn;
    Label6: TLabel;
    Label7: TLabel;
    edtBegin: TDBEdit;
    edtEnd: TDBEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnAddClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnModifyClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPlanSubject: TfrmPlanSubject;

implementation

uses Common_Unit, DM_Unit, DateChoice_Unit;

{$R *.dfm}

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

procedure TfrmPlanSubject.btnAddClick(Sender: TObject);
begin
  inherited;
  DataPlanSubject.DataSet.Insert;
end;

procedure TfrmPlanSubject.FormShow(Sender: TObject);
var
  SQLPlanSubject, SQLSubjectID, SQLTeacherID, SQLSudentID: string;
begin
  inherited;
  SQLPlanSubject := 'Select * From Course';
  DataPlanSubject.DataSet := SQLDataSet(SQLPlanSubject,DM.ADOConn);   //连接数据库

  SQLSudentID := 'Select * From StudentInfo';
  DataStudentID.DataSet := SQLDataSet(SQLSudentID,DM.ADOConn);

  SQLSubjectID := 'Select * From SubjectInfo';
  DataSubjectID.DataSet := SQLDataSet(SQLSubjectID,DM.ADOConn);

  SQLTeacherID := 'Select * From TeacherInfo';
  DataTeacherID.DataSet := SQLDataSet(SQLTeacherID,DM.ADOConn);
end;

procedure TfrmPlanSubject.btnSaveClick(Sender: TObject);
begin
  inherited;
  if DataPlanSubject.State in [dsInsert,dsEdit] then          //判断状态,只有在添加或是修改的时候才能保存信息
    DataPlanSubject.DataSet.Post;
end;

procedure TfrmPlanSubject.btnCancelClick(Sender: TObject);
begin
  inherited;
  DataPlanSubject.DataSet.Cancel;
end;

procedure TfrmPlanSubject.btnModifyClick(Sender: TObject);
begin
  inherited;
  DataPlanSubject.DataSet.Edit;
end;

procedure TfrmPlanSubject.btnDelClick(Sender: TObject);
begin
  inherited;
  if Application.MessageBox('确定要删除此条记录?','提示',68) = IDNo then
    Exit;
  DataPlanSubject.DataSet.Delete;
end;

procedure TfrmPlanSubject.SpeedButton1Click(Sender: TObject);
begin
  inherited;
//选择日期的输入
  frmDateChoice := TfrmDateChoice.Create(Self);
  try
    frmDateChoice.ShowModal;
    edtBegin.Text :=DateToStr(frmDateChoice.MonthCalendar1.Date);    
  finally
    frmDateChoice.Free;
  end;
end;

procedure TfrmPlanSubject.SpeedButton2Click(Sender: TObject);
begin
  inherited;
//选择日期的输入 
  frmDateChoice := TfrmDateChoice.Create(Self);
  try
    frmDateChoice.ShowModal;
    edtEnd.Text :=DateToStr(frmDateChoice.MonthCalendar1.Date);    
  finally
    frmDateChoice.Free;
  end;
end;

end.