main.pas

来自「有关delphi的应用」· PAS 代码 · 共 57 行

unit main;

interface

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

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Button1: TButton;
    DBGrid8: TDBGrid;
    Label2: TLabel;
    ADOQuery2: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
try
  adoquery2.Close;
  adoquery2.SQL.Clear;
  adoquery2.SQL.Add('select sn from device_testvalue1 where (para_id1='''+'1127'+''')and(testvalue='''+edit1.Text+''')');
  adoquery2.Open;
  label2.Caption:=adoquery2.FieldValues['sn'];
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select s.paraname, s.temperature, s.maxvalue, s.minvalue, v.testvalue, v.status ');
  adoquery1.SQL.Add('from device_testvalue2 v,device_paraset2 s where (v.sn='''+label2.Caption+''' ');
  adoquery1.SQL.Add(')and(s.para_id2=v.para_id2)');
  adoquery1.Open;
except
showmessage('error');
end;

end;

end.