ufrm_query.pas

来自「完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0」· PAS 代码 · 共 36 行

unit Ufrm_query;

interface
uses
SysUtils,forms,Dialogs,udm,registry,windows,controls,Classes,Math,
uglobal_var,dxDBGrid,Winsock,Graphics, DBCtrls,dxDBELib,DBTables,db,variants,
dxExEdtr, dxEdLib, dxCntner, dxEditor,USelect_form,
StdCtrls,DateUtils;

function cl_qrycust():string ;  // Query customer Master Data .

implementation

function cl_qrycust():string ;
begin
  result := '' ;
  application.CreateForm(TSelect_Form, Select_Form);
  Select_form.ComboBox1.Items.Add('CUSTNO') ;
  Select_form.ShowModal;
  if Select_form.ModalResult = mrok then
  begin
    result := Select_form.Query1.fieldbyname('CUSTON').AsString ;
  end;  
  try
     select_form.release;
   except
     ;
   end;
  
end;




end.