searchsupplierid.pas

一套融入了系统营销管理思想的管理软件产品

unit SearchSupplierID;

interface

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

type
  TfmSearchSupplierID = class(TfmBaseSearch)
    qyTempSupplierID: TStringField;
    qyTempSupplierAttribName: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OpenDB; override;
  end;
  function MySearchSupplierID(SupplierID: String): String;  //琩高ㄑ莱坝絪腹

var
  fmSearchSupplierID: TfmSearchSupplierID;

implementation

{$R *.DFM}

{ TfmBaseSearchTemplete }

function MySearchSupplierID(SupplierID: String): String;    //琩高ㄑ莱坝絪腹
begin
  try
    fmSearchSupplierID := TfmSearchSupplierID.Create(Application);
    if fmSearchSupplierID.ShowModal = mrOK then
      Result := fmSearchSupplierID.qyTemp.FieldByName('SupplierID').AsString
    else
      Result := '';
  finally
    fmSearchSupplierID.Free;
  end;
end;

procedure TfmSearchSupplierID.OpenDB;
begin
  OrderBySQL := 'SupplierID';           //箇砞