dataupdateformunit.pas

学生信息管理系统是使用DELPHI集成环境编写的一款软件

unit DataUpdateFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, Spin, Mask, DBCtrls;

type
  TDataUpdateForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label5: TLabel;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn20: TBitBtn;
    BitBtn21: TBitBtn;
    BitBtn22: TBitBtn;
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn18Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure BitBtn20Click(Sender: TObject);
    procedure BitBtn21Click(Sender: TObject);
    procedure BitBtn22Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataUpdateForm: TDataUpdateForm;

implementation

uses UpDateDataModuleUnit;

{$R *.dfm}

procedure TDataUpdateForm.BitBtn7Click(Sender: TObject);
begin
UpDateDataModule.TeachersTable.prior;
BitBtn4.Enabled:=true;
end;

procedure TDataUpdateForm.BitBtn8Click(Sender: TObject);
begin
UpDateDataModule.TeachersTable.Next;
BitBtn4.Enabled:=true;
end;

procedure TDataUpdateForm.BitBtn4Click(Sender: TObject);
begin
With UpDateDataModule.TeachersTable do
begin
  Insert;
  BitBtn5.Enabled:=true;
  BitBtn4.Enabled:=False;
end;
end;

procedure TDataUpdateForm.BitBtn5Click(Sender: TObject);
begin
   if((DBEdit2.Text='')or(DBEdit1.Text=''))then
  begin
  ShowMessage('姓名和学号不能为空！！');
  Exit;
  end;
  with UpDateDataModule.TeachersTable do
  begin
  try
    post;
    ShowMessage('添加成功！');
    BitBtn5.Enabled:=false;
    Bitbtn4.Enabled:=true;
  except
  begin
    Active:=false;
    Active:=true;
    Insert;
    BitBtn4.Enabled:=true;
    BitBtn5.Enabled:=false;
    ShowMessage('添加失败！');
    Exit;
    end;
  end;
  end;
end;

procedure TDataUpdateForm.BitBtn6Click(Sender: TObject);
begin
With UpDateDataModule.TeachersTable do
  begin
    if DBEdit2.text='' then
    begin
    ShowMessage('输入教师编号！！');
    Exit;
  end;
  try
    Delete;
    ShowMessage('删除成功！');
    except
    begin
    Active:=true;
    Insert;
    ShowMessage('删除失败！');
    exit;
    end;
  end;
  end;
end;

procedure TDataUpdateForm.BitBtn10Click(Sender: TObject);
begin
UpDateDataModule.StudentsTable.Next;
BitBtn2.Enabled:=true;
end;

procedure TDataUpdateForm.BitBtn9Click(Sender: TObject);
begin
UpdateDataModule.StudentsTable.Prior;
BitBtn2.Enabled:=true;
end;

procedure TDataUpdateForm.BitBtn2Click(Sender: TObject);
begin
With UpDateDataModule.StudentsTable do
begin
Insert;
BitBtn11.Enabled:=true;
BitBtn2.Enabled:=false;
end;
end;

procedure TDataUpdateForm.BitBtn11Click(Sender: TObject);
begin
if((DBEdit6.Text='')or(DBEdit7.Text=''))then
  begin
  ShowMessage('姓名和学号不能为空！！');
  Exit;
  end;
  with UpDateDataModule.StudentsTable do
  begin
  try
    post;
    ShowMessage('添加成功！');
    BitBtn11.Enabled:=false;
    Bitbtn2.Enabled:=true;
  except
  begin
    Active:=false;
    Active:=true;
    Insert;
    BitBtn2.Enabled:=true;
    BitBtn11.Enabled:=false;
    ShowMessage('添加失败！');
    Exit;
    end;
  end;
  end;

end;

procedure TDataUpdateForm.BitBtn3Click(Sender: TObject);
begin
 With UpDateDataModule.StudentsTable do
  begin
    if DBEdit7.text='' then
    begin
    ShowMessage('输入学生编号！');
    Exit;
  end;
  try
    Delete;
    ShowMessage('删除成功！');
    except
    begin
    Active:=true;
    Insert;
    ShowMessage('删除失败！');
    exit;
    end;
  end;
  end;
end;

procedure TDataUpdateForm.BitBtn15Click(Sender: TObject);
begin
UpDateDataModule.TeachingTable.Prior;
BitBtn12.Enabled:=true;
end;

procedure TDataUpdateForm.BitBtn16Click(Sender: TObject);
begin
UpDateDataModule.TeachingTable.Next;
BitBtn12.Enabled:=true;
end;

procedure TDataUpdateForm.BitBtn12Click(Sender: TObject);
begin
With UpDateDataModule.TeachingTable do
begin
  Insert;
  BitBtn13.Enabled:=true;
  BitBtn12.Enabled:=false;
  end;
end;

procedure TDataUpdateForm.BitBtn13Click(Sender: TObject);
begin
   if((DBEdit11.Text='')or(DBEdit12.Text='')or(DBEdit13.Text='')or(DBEdit14.Text=''))then
  begin
  ShowMessage('不能为空！！');
  Exit;
  end;
  with UpDateDataModule.TeachingTable do
  begin
  try
    post;
    ShowMessage('添加成功！');
    BitBtn13.Enabled:=false;
    Bitbtn12.Enabled:=true;
  except
  begin
    Active:=false;
    Active:=true;
    Insert;
    BitBtn12.Enabled:=true;
    BitBtn13.Enabled:=false;
    ShowMessage('添加失败！ ');
    Exit;
    end;
  end;
  end;
end;

procedure TDataUpdateForm.BitBtn17Click(Sender: TObject);
begin
close;
end;

procedure TDataUpdateForm.BitBtn18Click(Sender: TObject);
begin
With UpDateDataModule.CourseTable do
begin
  Insert;
  BitBtn19.Enabled:=true;
  BitBtn18.Enabled:=False;
end;
end;

procedure TDataUpdateForm.BitBtn19Click(Sender: TObject);
begin
     if((DBEdit15.Text='')or(DBEdit16.Text=''))then
  begin
  ShowMessage('课程名和课程号不能为空！！');
  Exit;
  end;
  with UpDateDataModule.CourseTable do
  begin
  try
    post;
    ShowMessage('添加成功！');
    BitBtn19.Enabled:=false;
    Bitbtn18.Enabled:=true;
  except
  begin
    Active:=false;
    Active:=true;
    Insert;
    BitBtn18.Enabled:=true;
    BitBtn19.Enabled:=false;
    ShowMessage('添加失败！');
    Exit;
    end;
  end;
  end;
end;

procedure TDataUpdateForm.BitBtn20Click(Sender: TObject);
begin
  With UpDateDataModule.CourseTable do
  begin
    if DBEdit16.text='' then
    begin
    ShowMessage('输入编号！');
    Exit;
  end;
  try
    Delete;
    ShowMessage('删除成功！');
    except
    begin
    Active:=true;
    Insert;
    ShowMessage('删除失败！');
    exit;
    end;
  end;
  end;
end;

procedure TDataUpdateForm.BitBtn21Click(Sender: TObject);
begin
 UpdateDataModule.CourseTable.Prior;
BitBtn18.Enabled:=true;
end;

procedure TDataUpdateForm.BitBtn22Click(Sender: TObject);
begin
 UpDateDataModule.CourseTable.Next;
  BitBtn18.Enabled:=true;
end;

procedure TDataUpdateForm.BitBtn14Click(Sender: TObject);
begin
     With UpDateDataModule.TeachingTable do
  begin
    if DBEdit11.text='' then
    begin
    ShowMessage('输入编号！');
    Exit;
  end;
  try
    Delete;
    ShowMessage('删除成功！');
    except
    begin
    Active:=true;
    Insert;
    ShowMessage('删除失败！');
    exit;
    end;
  end;
  end;
end;

end.