unit1.pas

不完备信息的数据发现

unit Unit1;

interface

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

type
  Tldproductinfof = class(TForm)
    SB_save: TSpeedButton;
    DS_productinfo: TDataSource;
    Q_productinfo: TADOQuery;
    DBEdit_cpbh: TDBEdit;
    Label1: TLabel;
    DBEdit_price: TDBEdit;
    DBEdit_size: TDBEdit;
    DBEdit_maxspeed: TDBEdit;
    DBEdit_decision: TDBEdit;
    DBEdit_mileage: TDBEdit;
    Q_price: TADOQuery;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Q_size: TADOQuery;
    Q_speed: TADOQuery;
   procedure SB_saveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
 {   procedure Button1Click(Sender: TObject); }
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ldproductinfof: Tldproductinfof;

implementation

uses dm,main_page,lproductinfo;

{$R *.dfm}


procedure Tldproductinfof.SB_saveClick(Sender: TObject);
var descision:string;
    hprice,lprice,hsize,lsize,hspeed,lspeed:double;
begin
  Q_price.Close;
  Q_price.SQL.Text:='select * FROM '+DatabaseName+'priceset' ;
  Q_price.Open;
  hprice:=Q_price.FieldByName('hprice').asfloat;
  lprice:=Q_price.FieldByName('lprice').asfloat;
  Q_size.Close;
  Q_size.SQL.Text:='select * FROM '+DatabaseName+'sizeset' ;
  Q_size.Open;
  hsize:=Q_size.FieldByName('hsize').asfloat;
  lsize:=Q_size.FieldByName('lsize').asfloat;
  Q_speed.Close;
  Q_speed.SQL.Text:='select * FROM '+DatabaseName+'speedset' ;
  Q_speed.Open;
  hspeed:=Q_speed.FieldByName('hspeed').asfloat;
  lspeed:=Q_speed.FieldByName('lspeed').asfloat;
  if  DBEdit_price.Text<>'' then
  begin
    if  strtofloat(DBEdit_price.Text)>=hprice then
     Q_productinfo.FieldByName('price').asstring:='high'
    else  if strtofloat(DBEdit_price.Text)<lprice then
     Q_productinfo.FieldByName('price').asstring:='low';
   end
  else
   Q_productinfo.FieldByName('price').asstring:='*';

  if  DBEdit_size.Text<>'' then
  begin
    if  strtofloat(DBEdit_size.Text)>=hprice then
     Q_productinfo.FieldByName('size').asstring:='full'
    else  if strtofloat(DBEdit_size.Text)<lprice then
     Q_productinfo.FieldByName('size').asstring:='compact';
   end
  else
   Q_productinfo.FieldByName('size').asstring:='*';

  if  DBEdit_maxspeed.Text<>'' then
  begin
    if  strtofloat(DBEdit_maxspeed.Text)>=hspeed then
     Q_productinfo.FieldByName('Max_speed').asstring:='high'
    else  if strtofloat(DBEdit_maxspeed.Text)<lspeed then
     Q_productinfo.FieldByName('Max_speed').asstring:='low';
   end
  else
   Q_productinfo.FieldByName('Max_speed').asstring:='*';
   
   Q_productinfo.CheckBrowseMode;
   Q_productinfo.ExecSQL;
   lproductinfof.Q_productinfo.close;
   lproductinfof.Q_productinfo.open;
   lproductinfof.Q_productinfo.Locate('product_no',Q_productinfo.FieldByName('product_no').asstring,[]);

end;

procedure Tldproductinfof.FormShow(Sender: TObject);
begin
   if ISinsert=true then
   begin
    Q_productinfo.Close;
    Q_productinfo.SQL.Text:='select * FROM '+DatabaseName+'decision where 1<>1';
    Q_productinfo.Open;
    Q_productinfo.Insert;
    end
  else
   begin
    Q_productinfo.Close;
    Q_productinfo.SQL.Text:='select * FROM '+DatabaseName+'decision where product_no ='''+lproductinfof.Q_productinfo.fieldbyname('product_no').asstring+'''';
    Q_productinfo.Open;
    Q_productinfo.edit;
   end;
end;
end.