studentset_unit.pas

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

unit StudentSet_Unit;

interface

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

type
  TfrmStudentSet = class(TfrmDictionaryBase)
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    edtAge: TDBEdit;
    cmbxSex: TDBComboBox;
    cmbxClass: TDBLookupComboBox;
    DataStudent: TDataSource;
    DataClassName: TDataSource;
    edtInDate: TDBEdit;
    edtOutDate: TDBEdit;
    edtAddress: TDBEdit;
    btnInDate: TSpeedButton;
    btnOutDate: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure btnInDateClick(Sender: TObject);
    procedure btnOutDateClick(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnModifyClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmStudentSet: TfrmStudentSet;

implementation
uses
  Common_Unit, DM_Unit, DateChoice_Unit;
{$R *.dfm}

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

procedure TfrmStudentSet.FormCreate(Sender: TObject);
var
  SQLStudentInfo, SQLClassID: string;
begin
  inherited;
  SQLStudentInfo := 'Select * From StudentInfo';
  DataStudent.DataSet := SQLDataSet(SQLStudentInfo,DM.ADOConn);   //连接数据库
  SQLClassID := 'Select * From ClassInfo';
  DataClassName.DataSet := SQLDataSet(SQLClassID,DM.ADOConn);   //连接数据库
end;

procedure TfrmStudentSet.btnInDateClick(Sender: TObject);
begin
//选择日期的输入  入学
  frmDateChoice := TfrmDateChoice.Create(Self);
  try
    frmDateChoice.ShowModal;
    edtInDate.Text :=DateToStr(frmDateChoice.MonthCalendar1.Date);
  finally
    frmDateChoice.Free;
  end;
end;

procedure TfrmStudentSet.btnOutDateClick(Sender: TObject);
begin
//选择日期的输入 毕业
  frmDateChoice := TfrmDateChoice.Create(Self);
  try
    frmDateChoice.ShowModal;
    edtOutDate.Text :=DateToStr(frmDateChoice.MonthCalendar1.Date);    
  finally
    frmDateChoice.Free;
  end;
end;

procedure TfrmStudentSet.btnAddClick(Sender: TObject);
var
  SQLMaxID, MaxID: string;
begin
  inherited;
  DataStudent.DataSet.Insert;
  SQLMaxID := 'SELECT Max(StudentID) as StudentID FROM StudentInfo';    //搜索最大的编号
  MaxID := SQLDataSet(SQLMaxID,DM.ADOConn).FieldByName('StudentID').AsString;
  if MaxID = '' then
    MaxID := MaxID + '2007001'
  else
    MaxID := IntToStr(StrToInt(MaxID) + 1 );
  txtID.Caption := MaxID;
  DataStudent.DataSet.FieldByName('StudentID').AsString := MaxID;
end;

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

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

procedure TfrmStudentSet.btnModifyClick(Sender: TObject);
begin
  inherited;
  DataStudent.DataSet.Edit;
end;

procedure TfrmStudentSet.btnCancelClick(Sender: TObject);
begin
  inherited;
  DataStudent.DataSet.Cancel;
end;

end.