choosecmppara.pas

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

unit ChooseCmpPara;

interface

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

type
  TChooseCmpParaFrm = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ADODataSet2: TADODataSet;
    DataSource2: TDataSource;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    PopupMenu1: TPopupMenu;
    PopupMenu2: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChooseCmpParaFrm: TChooseCmpParaFrm;

implementation

uses dset, datalink;

{$R *.dfm}

procedure TChooseCmpParaFrm.FormShow(Sender: TObject);
begin
  adodataset1.Active:=false;
  adodataset1.CommandText:='select para_id2, paraname, temperature, maxvalue, minvalue,'+
  ' pn, prodorder ,status from device_paraset2 where para_id2 in '+
  '(select para_idcmp from device_para3cmp where para_id3='''+inttostr(frmdset.paraid)+''' )  order by para_id2';
  adodataset1.Active:=true;

  adodataset2.Active:=false;
  adodataset2.CommandText:='select para_id2, paraname, temperature, maxvalue, minvalue,'+
  ' pn, prodorder ,status from device_paraset2 where pn = '''+frmdset.PNEdit.Text+'''   order by para_id2';
  adodataset2.Active:=true;

end;

procedure TChooseCmpParaFrm.N1Click(Sender: TObject);
begin
  dm.ADOQuery1.Close;
  dm.ADOQuery1.SQL.Clear;
  dm.ADOQuery1.SQL.Add('delete from device_para3cmp where (para_id3='''+inttostr(frmdset.paraid)+''') ');
  dm.ADOQuery1.SQL.Add('and (para_idcmp='''+inttostr(DBGrid1.Fields[0].Value)+''')');
  dm.ADOQuery1.ExecSQL;
  adodataset1.Active:=false;
  adodataset1.Active:=true;
end;

procedure TChooseCmpParaFrm.N2Click(Sender: TObject);
begin
  dm.ADOQuery1.Close;
  dm.ADOQuery1.SQL.Clear;
  dm.ADOQuery1.SQL.Add('insert into device_para3cmp(para_id3,para_idcmp,method) values('''+inttostr(frmdset.paraid)+''','''+inttostr(DBGrid2.Fields[0].Value)+''','''+frmdset.Method_CBox.Text+''')');
  dm.ADOQuery1.ExecSQL;
  adodataset1.Active:=false;
  adodataset1.Active:=true;
end;

end.