www.pudn.com > jiaocaiguanlixitongdaima.rar > ClassManageUnit.pas

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.