classmanageunit.pas

是一个Delphi的教材管理系统,内容很全面详细

unit ClassManageUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons, Mask, Grids, DBGrids;

type
  TfrmClassManage = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    MaskEdit1: TMaskEdit;
    Edit33: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DataSource1: TDataSource;
    Edit3: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1ColEnter(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    procedure LoadData();
    procedure ClearData();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmClassManage: TfrmClassManage;
  newRecord:boolean;
implementation

uses DataModuleUnit, MainUnit;

{$R *.dfm}

procedure TfrmClassManage.ClearData();
begin
   edit1.Text:='';//班级
   edit2.Text:=''; //专业
   edit3.Text:='';//院 系
   MaskEdit1.Text:=''; //入学日期
   edit4.Text:=''; //班长
   edit5.Text:=''; //班长电话
   edit6.Text:='';//班主任
   edit7.Text:='';//班主任电话
   edit8.Text:=''; //人数
end;
procedure TfrmClassManage.LoadData();
begin
  with frmDataModule.ClassManage do
  begin
   edit1.Text:=FieldByName('classname').Value;//班级
   edit2.Text:=FieldByName('Specialization').Value; //专业
   edit3.Text:=FieldByName('department').Value;//院 系
   MaskEdit1.Text:=FormatDateTime('yyyy-mm-dd',FieldByName('EnterDate').Value); //入学日期 
   edit4.Text:=FieldByName('mornitor').Value; //班长
   edit5.Text:=FieldByName('mornitorPhone').Value; //班长电话
   edit6.Text:=FieldByName('master').Value;//班主任
   edit7.Text:=FieldByName('masterPhone').Value;//班主任电话
   edit8.Text:=FieldByName('Strength').Value; //人数
  end;
end;
procedure TfrmClassManage.FormCreate(Sender: TObject);
var
   dep:TADOTable; 
   i:integer;
begin
   NewRecord:=false;
   
   dep:=TADOTable.Create(nil);
   dep.Connection:=frmDataModule.Connection;
   dep.TableName:='departments';
   dep.Active:=true;
   for i:=0 to dep.RecordCount-1 do
   begin
     edit3.Items.Add(dep.fieldByName('DepartmentName').Value);
     dep.Next;
   end;
   dep.Close;
   dep.Free;
   edit3.ItemIndex:=0;

   frmDataModule.ClassManage.Active:=true;
end;

procedure TfrmClassManage.DBGrid1ColEnter(Sender: TObject);
begin
  loadData;
end;

procedure TfrmClassManage.BitBtn3Click(Sender: TObject);
begin
  self.ClearData;
  NewRecord:=true;
end;

procedure TfrmClassManage.BitBtn4Click(Sender: TObject);
begin
  if MessageDlg('你真的要删除吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    frmDataModule.ClassManage.Delete;
end;

procedure TfrmClassManage.BitBtn1Click(Sender: TObject);
begin
   with frmDataModule.ClassManage do
   begin
     if newRecord then
        Append;
     edit;
     FieldByName('classname').Value:=edit1.Text;//班级
     FieldByName('Specialization').Value:=edit2.Text; //专业
     FieldByName('department').Value:=edit3.Text;//院 系
     FieldByName('EnterDate').AsString:=MaskEdit1.Text; //入学日期
     FieldByName('mornitor').Value:=edit4.Text; //班长
     FieldByName('mornitorPhone').Value:=edit5.Text; //班长电话
     FieldByName('master').Value:=edit6.Text;//班主任
     FieldByName('masterPhone').Value:=edit7.Text;//班主任电话
     FieldByName('Strength').Value:=edit8.Text; //人数
     FieldByName('OperatorID').Value:=frmMain.OperatorInfo.OperatorID;
     Post;
   end;
   NewRecord:=false;
   self.ClearData;
   dbGrid1.SetFocus;
end;

procedure TfrmClassManage.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TfrmClassManage.Edit1Exit(Sender: TObject);
var
  isExists:boolean;
begin
   isExists:=frmDataModule.ClassManage.Locate('ClassName',edit1.Text,[loCaseInsensitive]);
   if trim(Edit1.Text)='' then
   begin
     Application.MessageBox('该班级名不能为空或空格!','出错提示',mb_ok);
     Edit1.SetFocus;
     abort;
   end
   else
   if isExists and NewRecord then
   begin
     Application.MessageBox('该班级已存在!','出错提示',mb_ok);
     Edit1.SetFocus;
     abort;
   end;
   bitbtn1.Enabled:=true;
end;

end.