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


   { if Application.MessageBox('真的删除记录吗?',
      '确认', MB_ICONQUESTION + MB_OKCANCEL) = IDOK then    }

      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.