searchstore.pas

来自「飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7」· PAS 代码 · 共 72 行

unit searchstore;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;

type
  Tsearstoreform = class(TForm)
    DBGrid1: TDBGrid;
    OkBtn: TBitBtn;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    BitBtn1: TBitBtn;
    procedure OkBtnClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure LabeledEdit1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  searstoreform: Tsearstoreform;

implementation
uses datamodule1, Iorder, unitmb;
{$R *.DFM}


procedure Tsearstoreform.OkBtnClick(Sender: TObject);
begin
with dataE2 do
  begin
//if selint=0 then
//      setDetail.edit;
//      setDetail.fieldbyname('barcode').value:=searstore.fieldbyname('barcode').asstring;
//if selint=1 then
//  datahotel.Qyvesitcus.fieldbyname('cusid').asstring:=datahotel.QueryDlg.fieldbyname('cusid').asstring;
//if selint=2 then
//  FormschSale.edtCusId.text:=datahotel.QueryDlg.fieldbyname('cusid').asstring;
  end;
end;

procedure Tsearstoreform.DBGrid1DblClick(Sender: TObject);
begin
OkBtn.Click;
end;

procedure Tsearstoreform.LabeledEdit1Change(Sender: TObject);
begin
  with dataE2.searstore  do
  begin
    if Active then close;
    parameters[0].value:=LabeledEdit1.text+'%';
    parameters[1].value:='%'+LabeledEdit2.text+'%';
   open;
  end;

end;

procedure Tsearstoreform.FormShow(Sender: TObject);
begin
LabeledEdit1.SetFocus;
end;


end.