unit8.~pas

学生信息管理系统 学生信息管理系统 学生信息管理系统

unit Unit8 ;

interface

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

type
  Tjlgl = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Label9: TLabel;
    Edit9: TEdit;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    StatusBar1: TStatusBar;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Image1: TImage;
    Button6: TButton;
    ADOQuery2: TADOQuery;
    DateTimePicker1: TDateTimePicker;
    procedure Button5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jlgl: Tjlgl;

  whatSave: integer;
implementation
  uses unit1;
{$R *.dfm}

procedure Tjlgl.Button5Click(Sender: TObject);
begin
self.Close;
end;

procedure Tjlgl.FormActivate(Sender: TObject);
 var
  sqlstr:string;
begin
button3.Enabled:=false;
button6.Enabled:=false;
whatSave:=0;//保存增加
sqlstr:='select * from t_jiangli';
ADOquery1.close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add(sqlstr);
ADoquery1.Open;
end;

procedure Tjlgl.Button1Click(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  edit4.Clear;
  edit5.Clear;
  edit7.Clear;
  edit8.Clear;
  edit9.Clear;
  whatSave:=0;
  button3.Enabled:=true;
  button6.Enabled:=true;
  button1.Enabled:=false;
  button2.Enabled:=false;
  button4.Enabled:=false;
end;
procedure Tjlgl.Button3Click(Sender: TObject);
var
  strSQL:string;
begin
 if(edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='')or(edit5.Text='')
 or(edit7.Text='')or(edit8.Text='')or(edit9.Text='')then
  begin
   application.MessageBox('请输入内容','提示',0+64);
   exit;
  end;


 if whatSave=0 then  begin
    //with ADOquery1 do
    //begin
      strSQL:='select * from t_JiangLi where 学号=0000';
      with adoQuery2 do begin
        if active then close;
        SQL.Clear;
        sql.Add(strSQL);
        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['奖励时间']:=Datetimepicker1.Time;
      ADOquery2.fieldvalues['发奖单位']:=edit7.Text;
      ADOquery2.fieldvalues['奖励级别']:=edit8.Text;
      ADOquery2.fieldvalues['奖励名称']:=edit9.Text;
      try
        ADOquery2.post;
        adoQuery1.Requery;
      except
        Application.MessageBox('学号重复，请重新输入！','警告',0+64);
        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['奖励时间']:=datetimepicker1.Time;
     ADOquery1.FieldValues['发奖单位']:=edit7.Text;
     ADoquery1.FieldValues['奖励级别']:=edit8.Text;
     ADOquery1.FieldValues['奖励名称']:=edit9.Text;
     ADOquery1.Post;
     application.MessageBox('修改完毕','提示',mb_OK);
  //修改保存

   end;

   button1.Enabled:=true;
   button2.Enabled:=true;
   button4.Enabled:=true;
   button3.Enabled:=false;
   button6.Enabled:=false;
end;


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

 edit1.Text:=ADOquery1.FieldValues['学号'];
 edit2.Text:=ADOquery1.FieldValues['姓名'];
 edit3.Text:=ADOquery1.FieldValues['所在班级'];
 edit4.Text:=ADOquery1.FieldValues['奖励原因'];
 edit5.Text:=ADOquery1.FieldValues['奖励今额'];
 Datetimepicker1.Time:=ADOquery1.FieldValues['奖励时间'];
 edit7.Text:=ADOquery1.FieldValues['发奖单位'];
 edit8.Text:=ADoquery1.FieldValues['奖励级别'];
 edit9.Text:=ADOquery1.FieldValues['奖励名称'];
end;
procedure Tjlgl.Button2Click(Sender: TObject);
begin
  whatSave:=1;
  button1.Enabled:=false;
  button2.Enabled:=false;
  button4.Enabled:=false;
end;
procedure Tjlgl.Button6Click(Sender: TObject);
begin
button1.Enabled:=true;
button2.Enabled:=true;
button4.Enabled:=true;
edit1.Text:=ADOquery1.FieldValues['学号'];
edit2.Text:=ADOquery1.FieldValues['姓名'];
edit3.Text:=ADOquery1.FieldValues['所在班级'];
edit4.Text:=ADOquery1.FieldValues['奖励原因'];
edit5.Text:=ADOquery1.FieldValues['奖励今额'];
datetimepicker1.Time:=ADOquery1.FieldValues['奖励时间'];
edit7.Text:=ADOquery1.FieldValues['发奖单位'];
edit8.Text:=ADoquery1.FieldValues['奖励级别'];
edit9.Text:=ADOquery1.FieldValues['奖励名称'];
end;

procedure Tjlgl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tjlgl.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13)and (not Edit9.Focused) then
  begin
   key:=#0;
   perform(WM_NEXTDLGCTL,0,0)
  end
else if edit9.focused and(key=#13)then
 begin
  key:=#0;
  button3.SetFocus;
 end;
end;

end.