change2.~pas

有关delphi的应用

unit change2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tfrmchange2 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmchange2: Tfrmchange2;

implementation

uses datalink, dinsert;

{$R *.dfm}

procedure Tfrmchange2.Button1Click(Sender: TObject);
var str,status:string;
begin
  if (strtofloat(edit1.Text)>strtofloat(frminsert.DBGrid2.Fields[3].Value)) or (strtofloat(edit1.Text)<strtofloat(frminsert.DBGrid2.Fields[4].Value)) then
  status:='false'
  else
  status:='pass';
  str:='update device_testvalue2 set testvalue='''+edit1.text+''',status='''+status+''' where (value_id2='''+inttostr(frminsert.DBGrid2.Fields[0].Value)+''')';
  with dm do
  begin
    with adoquery1 do
    begin
      close;
      with sql do
      begin
        clear;
        add(str);
      end;
      execsql;
    end;
  end;
  frminsert.ADODataSet2.Active:=false;
  frminsert.ADODataSet2.Active:=true;
  frmchange2.Close;

end;

procedure Tfrmchange2.Button2Click(Sender: TObject);
begin
frmchange2.Close;
end;

procedure Tfrmchange2.FormShow(Sender: TObject);
begin
  edit1.Text:=frminsert.DBGrid2.Fields[5].Value;
end;

end.