unit2.pas

用ping 的方法实现日常的考勤工作

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    BitBtnadd: TBitBtn;
    BitBtndel: TBitBtn;
    BitBtnsave: TBitBtn;
    BitBtnexit: TBitBtn;
    Editip: TEdit;
    Editname: TEdit;
    DBEdit1: TDBEdit;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;

    procedure BitBtndelClick(Sender: TObject);
    procedure BitBtnexitClick(Sender: TObject);
    procedure BitBtnaddClick(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
    procedure BitBtnsaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}



procedure TForm2.BitBtndelClick(Sender: TObject); //删除
var
  sSql: string;
begin



  with adoQuery2 do begin
    Close;
    SQL.Clear;
    sSql := 'delete   from  usermessage  where id= ''' + trim(dbedit1.Text) + '''';
    SQL.Add(sSql);
    ExecSQL;
  end;
  showMessage('数据删除成功！');
  with adoQuery1 do begin
    Close;
    SQL.Clear;
    sSql := 'select * from usermessage';

    SQL.Add(sSql); ;
    open;
  end;



end;




procedure TForm2.BitBtnexitClick(Sender: TObject);
begin
  close;
end;

procedure TForm2.BitBtnaddClick(Sender: TObject); //新增
begin
  editip.Text := '';
  editname.Text := '';
  bitbtnadd.Enabled := false;
  BitBtndel.enabled := false;

end;

procedure TForm2.DBEdit1Change(Sender: TObject);
begin

  editip.Text := DBGrid1.DataSource.DataSet.FieldByName('ip').AsString;
  editname.Text := DBGrid1.DataSource.DataSet.FieldByName('username').AsString;
end;


procedure TForm2.BitBtnsaveClick(Sender: TObject); //保存
var
  sSql: string;
  str1: string;
  str2: string;
  str3: string;
  no: integer;
begin
  str1 := editip.Text;
  str2 := editname.Text;
  str3 := dbedit1.Text;
  no := adoQuery1.RecordCount + 1;
  if (BitBtnAdd.Enabled = false) then
  begin

    with adoQuery1 do begin
      Close;
      SQL.Clear;
      sSql := 'insert into  usermessage(id,ip,username) values (' + '''' + inttostr(no) + '''' + ',' + '''' + str1 + '''' + ',' + '''' + str2 + '''' + ')';

      SQL.Add(sSql); ;
      ExecSQL;

    end;

  end
  else
  begin


    with adoQuery1 do begin
      Close;
      SQL.Clear;
      sSql := 'update   usermessage set ip=''' + str1 + ''''
        + ', username=''' + str2 + '''where id=''' + str3 + '''';

      SQL.Add(sSql); ;
      ExecSQL;

    end;
  end;




  BitBtnAdd.Enabled := true;
  BitBtnDel.Enabled := true;
  editip.SetFocus;
  showMessage('数据保存成功！');
  with adoQuery1 do begin
    Close;
    SQL.Clear;
    sSql := 'select * from usermessage';

    SQL.Add(sSql); ;
    open;
  end;

end;

end.