unit3.pas

涉及到系部工作的各个环节

unit Unit3;

interface

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

type
  TForm_xjbd = class(TForm)
    Label34: TLabel;
    Label1: TLabel;
    reason: TEdit;
    Label2: TLabel;
    destination: TEdit;
    Label4: TLabel;
    Cancel: TButton;
    Ok: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    changetime: TDateTimePicker;
    ADOQuery1ID: TIntegerField;
    ADOQuery1DSDesigner: TDateTimeField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TWideStringField;
    DBGrid1: TDBGrid;
    xsID: TDBEdit;
    ADOQuery_add: TADOQuery;
    procedure CancelClick(Sender: TObject);
    procedure OkClick(Sender: TObject);
    procedure OnChange(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure OnFormCreate(Sender: TObject);
   


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

var
  Form_xjbd: TForm_xjbd;

implementation
uses Unit2,unit1;
{$R *.dfm}



procedure TForm_xjbd.CancelClick(Sender: TObject);
begin
  self.Close();
end;

procedure TForm_xjbd.OkClick(Sender: TObject);
begin

    if (self.xsID.Text='')or (self.reason.Text='')or (self.destination.Text='')then
      begin
         showmessage('输入信息不能为空，请重新输入！');
         self.xsID.Text:='';
         self.reason.Text:='';
         self.destination.Text:='';
         exit;
      end
     else
       begin
          self.ADOQuery_add.Close;
          self.ADOQuery_add.SQL.Clear;
          self.ADOQuery_add.SQL.Add('select * from class_bg');
          self.ADOQuery_add. open();
          ADOQuery_add.First;
          while not ADOQuery_add.Eof do
             begin
                 if(self.xsID.Text=ADOQuery_add.FieldByName('学生ID').AsString) then
                    begin
                      showmessage('您添加的用户已存在，请重新输入！');
                      self.xsID.Text:='';
                      self.xsID.SetFocus;
                      exit;
                    end;
                 ADOQuery_add.Next;
              end;

            self.ADOQuery_add.Close;
            self.ADOQuery_add.SQL.Clear;
            self.ADOQuery_add.SQL.Add('insert into class_bg (学生ID,变更时间,原因,去向)');
            self.ADOQuery_add.SQL.Add('values(:A,:B,:C,:D)');
            self.ADOQuery_add.Parameters.ParamByName('A').Value:=strtoint(xsID.Text);
            self.ADOQuery_add.Parameters.ParamByName('B').Value:=changetime.DateTime;
            self.ADOQuery_add.Parameters.ParamByName('C').Value:=reason.Text;
            self.ADOQuery_add.Parameters.ParamByName('D').Value:=destination.Text;

       try
          self.ADOQuery_add.ExecSQL;
          showmessage('添加用户成功！');

          self.ADOQuery1.Close;  //用于动态更新dbgrid
          self.ADOQuery1.SQL.Clear;
          self.ADOQuery1.SQL.Add('select * from class_bg');
          self.ADOQuery1.Open();
       except
          showmessage('添加用户失败！');
       end;
       end;

end;

procedure TForm_xjbd.OnChange(Sender: TObject);
begin
     self.ADOQuery1.Close;
     self.ADOQuery1.SQL.Clear;
     self.ADOQuery1.SQL.Add('update class_bg set(学生ID,变更时间,原因,去向)');
     self.ADOQuery1.SQL.Add('values(:A,:B,:C,:D)');
     self.ADOQuery1.Parameters.ParamByName('A').Value:=strtoint(xsID.Text);
     self.ADOQuery1.Parameters.ParamByName('B').Value:=changetime.DateTime;
     self.ADOQuery1.Parameters.ParamByName('C').Value:=reason.Text;
     self.ADOQuery1.Parameters.ParamByName('D').Value:=destination.Text;

end;

procedure TForm_xjbd.DBGrid1CellClick(Column: TColumn);
begin
       xsID.Text:=  self.DBGrid1.SelectedField.Text;
       self.DBGrid1.SelectedIndex;  //列下标
       //xsno.Text:=self.DBGrid1.SelectedRows.Items[ self.DBGrid1.SelectedIndex];


end;



procedure TForm_xjbd.OnFormCreate(Sender: TObject);
begin
      try
       self.ADOQuery1.Open();
     except
       showmessage('数据库读取错误');
     end;
     self.xsID.text:='';


end;

end.