unit9.pas

用Delphi写的学生信息管理系统的源代码

unit Unit9;

interface

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

type
  Tcfgl = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    StatusBar1: TStatusBar;
    Image1: TImage;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    Button6: TButton;
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfgl: Tcfgl;
  whatsave:integer;
implementation
  uses unit1;
{$R *.dfm}

procedure Tcfgl.Button5Click(Sender: TObject);
begin
close;
end;

procedure Tcfgl.Button3Click(Sender: TObject);
 var
 i:integer;
begin
 i:=application.MessageBox('你确定要删除吗？','删除提示',mb_YesNO);
 if i=7 then
 exit;
 ADOquery1.Delete;
end;

procedure Tcfgl.Button1Click(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  edit4.Clear;
  edit5.Clear;
  edit6.Clear;
  edit7.Clear;
  edit8.Clear;
  whatSave:=0;
  button3.Enabled:=false;
  button1.Enabled:=false;
  button2.Enabled:=false;
  button4.Enabled:=true;
  button6.Enabled:=true;
  edit1.Enabled:=true;
  edit2.Enabled:=true;
  edit3.Enabled:=true;
  edit4.Enabled:=true;
  edit5.Enabled:=true;
  edit6.Enabled:=true;
  edit7.Enabled:=true;
  edit8.Enabled:=true;
 end;
procedure Tcfgl.FormActivate(Sender: TObject);
 var
 sqlstr:string;
begin
  edit1.Enabled:=false;
  edit2.Enabled:=false;
  edit3.Enabled:=false;
  edit4.Enabled:=false;
  edit5.Enabled:=false;
  edit6.Enabled:=false;
  edit7.Enabled:=false;
  edit8.Enabled:=false;
  button4.Enabled:=false;
  button6.Enabled:=false;
  whatsave:=0;    //保存增加
  sqlstr:='select * from t_chufa';
  ADOquery1.Close;
  ADOquery1.SQL.Clear;
  ADoquery1.SQL.Add(sqlstr);
  ADoquery1.Open;
end;



procedure Tcfgl.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
edit1.Text:=ADOquery1.FieldValues['学号'];
edit2.Text:=ADoquery1.FieldValues['姓名'];
edit3.Text:=ADOquery1.FieldValues['所在班级'];
edit4.Text:=ADOquery1.FieldValues['处罚级别'];
edit5.Text:=ADOquery1.FieldValues['处罚原因'];
edit6.Text:=ADOquery1.FieldValues['处罚单位'];
edit7.Text:=ADOquery1.FieldValues['处罚时间'];
edit8.Text:=ADOquery1.FieldValues['解除处罚时间'];
end;

procedure Tcfgl.Button4Click(Sender: TObject);
var
  sqlstr:string;
begin
 if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='')or(edit5.Text='')or(edit6.Text='')
 or(edit7.Text='')or(edit8.Text='')then
    begin
     application.MessageBox('下面内容不能为空','提示',0+64);
     exit;
    end;
if whatsave=0 then begin
   sqlstr:='select * from t_chufa where  学号=0000';
    with ADOquery2 do

      begin
     if active then close;
        SQL.Clear;
        SQL.Add(SQLstr);
        open;
     end;

   ADOquery2.Append;
     ADOquery2.fieldvalues['学号']:=edit1.text;
     ADOquery2.fieldvalues['姓名']:=edit2.text;
     ADOquery2.fieldvalues['所在班级']:=edit3.Text;
     ADOquery2.fieldvalues['处罚级别']:=edit4.Text;
     ADOquery2.fieldvalues['处罚原因']:=edit5.Text;
     ADOquery2.fieldvalues['处罚单位']:=edit6.Text;
     ADOquery2.fieldvalues['处罚时间']:=edit7.Text;
     ADOquery2.fieldvalues['解除处罚时间']:=edit8.Text;
   try
      ADOquery2.post;
      ADOquery1.Requery;
   except
     application.MessageBox('学号重复请重新输入','提示',mb_ok);
     ADOquery2.delete;
     edit1.SetFocus;
     edit1.SelectAll;
     exit;
   end;
end
else
  begin
    ADOquery1.Edit;
    ADOquery1.fieldvalues['学号']:=edit1.text;
    ADOquery1.fieldvalues['姓名']:=edit2.text;
    ADOquery1.fieldvalues['所在班级']:=edit3.Text;
    ADOquery1.fieldvalues['处罚级别']:=edit4.Text;
    ADOquery1.fieldvalues['处罚原因']:=edit5.Text;
    ADOquery1.fieldvalues['处罚单位']:=edit6.Text;
    ADOquery1.fieldvalues['处罚时间']:=edit7.Text;
    ADOquery1.fieldvalues['解除处罚时间']:=edit8.Text;
    ADOquery1.Post;
    application.MessageBox('修改完毕','提示',mb_OK);
  end;
  button1.Enabled:=true;
  button2.Enabled:=true;
  button3.Enabled:=true;
  button6.Enabled:=true;
  button4.Enabled:=false;
 end;
procedure Tcfgl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tcfgl.Button2Click(Sender: TObject);
begin
 whatsave:=1;
 button1.Enabled:=false;
 button2.Enabled:=false;
 button3.Enabled:=false;
 button6.Enabled:=false;
 button4.Enabled:=true;
end;

procedure Tcfgl.Button6Click(Sender: TObject);
begin
 button1.Enabled:=true;
 button2.Enabled:=true;
 button3.Enabled:=true;
edit1.Text:=ADOquery1.FieldValues['学号'];
edit2.Text:=ADoquery1.FieldValues['姓名'];
edit3.Text:=ADOquery1.FieldValues['所在班级'];
edit4.Text:=ADOquery1.FieldValues['处罚级别'];
edit5.Text:=ADOquery1.FieldValues['处罚原因'];
edit6.Text:=ADOquery1.FieldValues['处罚单位'];
edit7.Text:=ADOquery1.FieldValues['处罚时间'];
edit8.Text:=ADOquery1.FieldValues['解除处罚时间'];
end;

end.