关于任意条码找主条码

zhgc

1.    //--如果输入的是附件时Q
   
2.     if(edit1.text<>'')then
   
3.     begin
   
4.        kpsn:=trim(edit1.Text);
   
5.        edit1.SelectAll;
   
6.        edit1.SetFocus;
   
7.        //
   
8.        self.Query2.Close;
   
9.        self.Query2.sql.Text:='call sfc.QUERY_SN_BY_ANY('''+kpsn+''',@x)';
   
10.        self.Query2.ExecSQL;
    
11.        self.query2.close;
    
12.        self.Query2.SQL.Text:='select @x res from dual';
    
13.        self.Query2.Open;
    
14.        tmpsn:=self.Query2.fieldbyname('res').AsString;
    
15.        if(tmpsn='')then
    
16.        begin
    
17.           showmessage('附件条码系统无记录：'+kpsn);
    
18.           exit;
    
19.        end else
    
20.        begin
    
21.          combInputSN.Text:=tmpsn;
    
22.        end;
    
23.     end;

复制代码