select.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 59 行

unit select;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, wwDialog, Wwlocate,ADODB,DB;

type
  TFrmselect = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    RadioGroup1: TRadioGroup;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmselect: TFrmselect;
implementation
uses pasBom;
{$R *.dfm}

procedure TFrmselect.Button1Click(Sender: TObject);
begin
  with frmBom.QBaseInfo do
  begin
    if FieldValues['xh']=Trim(Edit1.Text) then
      Next
    else
      first;
    if (CheckBox1.Checked) and (CheckBox2.Checked) then
      Locate('xh',Trim(Edit1.Text),[loCaseInsensitive,loPartialKey])
    else if (CheckBox1.Checked) and (CheckBox2.Checked=False) then
      Locate('xh',Trim(Edit1.Text),[loPartialKey])
    else if (CheckBox1.Checked=False) and (CheckBox2.Checked) then
      Locate('xh',Trim(Edit1.Text),[loCaseInsensitive])
    else
      Locate('xh',Trim(Edit1.Text),[]);
  end;
end;

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

end.