moralset_unit.pas

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

unit MoralSet_Unit;

interface

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

type
  TfrmMoralSet = class(TfrmBase)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    cmbxStudentID: TDBLookupComboBox;
    cmbxClassID: TDBLookupComboBox;
    edtMoralResult: TDBEdit;
    edtRemark: TDBMemo;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    btnCancel: TBitBtn;
    btnSave: TBitBtn;
    btnDel: TBitBtn;
    btnModify: TBitBtn;
    btnAdd: TBitBtn;
    DataMoral: TDataSource;
    DataStudentID: TDataSource;
    DataClassID: TDataSource;
    trvwMoralName: TTreeView;
    edtMoralID: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure trvwMoralNameDblClick(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
  frmMoralSet: TfrmMoralSet;

implementation

uses Common_Unit, DM_Unit;

{$R *.dfm}

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

procedure TfrmMoralSet.FormCreate(Sender: TObject);
var
  SQLMoral, SQLStudentID, SQLClassID: string;
begin
  inherited;
  SQLMoral := 'Select * From Moral';
  DataMoral.DataSet := SQLDataSet(SQLMoral,DM.ADOConn);   //连接数据库

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

  SQLClassID := 'Select * From ClassInfo';
  DataClassID.DataSet := SQLDataSet(SQLClassID,DM.ADOConn);
end;

procedure TfrmMoralSet.trvwMoralNameDblClick(Sender: TObject);
var
  MoralID, SelectText: string;
begin
  inherited;
  if trvwMoralName.Selected.Level = 1 then      //TreeView指的是操作第二层的时候才取执行此代码
  begin
    SelectText := trvwMoralName.Selected.Text;
    MoralID := Copy(SelectText,1,Pos('.',SelectText)-1);  //取'.'前面的值
    edtMoralID.Text := MoralID;
  end;
end;

procedure TfrmMoralSet.btnAddClick(Sender: TObject);
begin
  inherited;
  DataMoral.DataSet.Insert;  
end;

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

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

procedure TfrmMoralSet.btnModifyClick(Sender: TObject);
begin
  inherited;
  DataMoral.DataSet.Edit;
end;

procedure TfrmMoralSet.btnCancelClick(Sender: TObject);
begin
  inherited;
  DataMoral.DataSet.Cancel;
end;

end.