unitselectcodenametype.pas

仓储系统

  begin
    PageControl1.ActivePage:=TabSheet7;
    TabSheet1.TabVisible:=false;
    TabSheet2.TabVisible:=false;
    TabSheet3.TabVisible:=false;
    TabSheet4.TabVisible:=false;
    TabSheet5.TabVisible:=false;
    TabSheet6.TabVisible:=false;
    TabSheet7.TabVisible:=true;     //
    TabSheet8.TabVisible:=false;
    TabSheet9.TabVisible:=false;

    with qry_7 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from mate_basic order by mate_code');
      open;
    end;
    lbl_7.Caption:=inttostr(qry_7.RecordCount)+' 条';
  end;
  //
  if frmPyPk.caption='盘盈盘亏' then
  begin
    PageControl1.ActivePage:=TabSheet8;
    TabSheet1.TabVisible:=false;
    TabSheet2.TabVisible:=false;
    TabSheet3.TabVisible:=false;
    TabSheet4.TabVisible:=false;
    TabSheet5.TabVisible:=false;
    TabSheet6.TabVisible:=false;
    TabSheet7.TabVisible:=false;     //
    TabSheet8.TabVisible:=true;
    TabSheet9.TabVisible:=false;

    with qry_8 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from mate_basic order by mate_code');
      open;
    end;
    lbl_8.Caption:=inttostr(qry_8.RecordCount)+' 条';
  end;
  //
  if frmMateNumChg.caption='收发料查询' then       //所有物料
  begin
    PageControl1.ActivePage:=TabSheet8;
    TabSheet1.TabVisible:=false;
    TabSheet2.TabVisible:=false;
    TabSheet3.TabVisible:=false;
    TabSheet4.TabVisible:=false;
    TabSheet5.TabVisible:=false;
    TabSheet6.TabVisible:=false;
    TabSheet7.TabVisible:=false;
    TabSheet8.TabVisible:=true;       //
    TabSheet9.TabVisible:=false;

    with qry_8 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from mate_basic order by mate_code');
      open;
    end;
    lbl_8.Caption:=inttostr(qry_8.RecordCount)+' 条';
  end;
end;

procedure TfrmSelectCodeNameType.edtCode_1Exit(Sender: TObject);
begin
  if qry_1.Locate('Mate_Code',Trim(edtCode_1.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtName_1Exit(Sender: TObject);
begin
  if qry_1.Locate('Mate_Name',Trim(edtName_1.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtType_1Exit(Sender: TObject);
begin
  if qry_1.Locate('Mate_Type',Trim(edtType_1.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.sbClose_1Click(Sender: TObject);
begin
  close;
end;

procedure TfrmSelectCodeNameType.edtCode_2Exit(Sender: TObject);
begin
  if qry_2.Locate('Mate_Code',Trim(edtCode_2.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtName_2Exit(Sender: TObject);
begin
  if qry_2.Locate('Mate_Name',Trim(edtName_2.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtType_2Exit(Sender: TObject);
begin
  if qry_2.Locate('Mate_Type',Trim(edtType_2.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtCode_3Exit(Sender: TObject);
begin
  if qry_3.Locate('Mate_Code',Trim(edtCode_3.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtName_3Exit(Sender: TObject);
begin
  if qry_3.Locate('Mate_Name',Trim(edtName_3.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtType_3Exit(Sender: TObject);
begin
  if qry_3.Locate('Mate_Type',Trim(edtType_3.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtCode_4Exit(Sender: TObject);
begin
  if qry_4.Locate('Mate_Code',Trim(edtCode_4.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtName_4Exit(Sender: TObject);
begin
  if qry_4.Locate('Mate_Name',Trim(edtName_4.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtType_4Exit(Sender: TObject);
begin
  if qry_4.Locate('Mate_Type',Trim(edtType_4.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtCode_5Exit(Sender: TObject);
begin
  if qry_5.Locate('Mate_Code',Trim(edtCode_5.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;

end;

procedure TfrmSelectCodeNameType.edtName_5Exit(Sender: TObject);
begin
  if qry_5.Locate('Mate_Name',Trim(edtName_5.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;

end;

procedure TfrmSelectCodeNameType.edtType_5Exit(Sender: TObject);
begin
 if qry_5.Locate('Mate_Type',Trim(edtType_5.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtCode_6Exit(Sender: TObject);
begin
  if qry_6.Locate('Mate_Code',Trim(edtCode_6.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;

end;

procedure TfrmSelectCodeNameType.edtName_6Exit(Sender: TObject);
begin
 if qry_6.Locate('Mate_Name',Trim(edtName_6.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;

end;

procedure TfrmSelectCodeNameType.edtType_6Exit(Sender: TObject);
begin
  if qry_6.Locate('Mate_Type',Trim(edtType_6.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtCode_7Exit(Sender: TObject);
begin
  if qry_7.Locate('Mate_Code',Trim(edtCode_7.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtName_7Exit(Sender: TObject);
begin
  if qry_7.Locate('Mate_Name',Trim(edtName_7.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;

end;

procedure TfrmSelectCodeNameType.edtType_7Exit(Sender: TObject);
begin
 if qry_7.Locate('Mate_Type',Trim(edtType_7.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtCode_8Exit(Sender: TObject);
begin
  if qry_8.Locate('Mate_Code',Trim(edtCode_8.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtName_8Exit(Sender: TObject);
begin
 if qry_8.Locate('Mate_Name',Trim(edtName_8.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtType_8Exit(Sender: TObject);
begin
 if qry_8.Locate('Mate_Type',Trim(edtType_8.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.DBGrid2DblClick(Sender: TObject);
begin
  if frmStockZz.caption='自制入库' then
  begin
    frmStockZz.edtWlbm.text:=trim(qry_2.fieldByName('Mate_Code').asstring);
    frmStockZz.edtWlmc.text:=trim(qry_2.fieldByName('Mate_Name').asstring);
    frmStockZz.edtType.text:=trim(qry_2.fieldByName('Mate_Type').asstring);
    frmStockZz.edtPrice.text:=trim(qry_2.fieldByName('Mate_Price').asstring);
    close;
  end;
end;

procedure TfrmSelectCodeNameType.DBGrid3DblClick(Sender: TObject);
begin
  if frmProductIn.caption='成品入库' then
  begin
    frmProductIn.edtWlbm.text:=trim(qry_3.fieldByName('Mate_Code').asstring);
    frmProductIn.edtWlmc.text:=trim(qry_3.fieldByName('Mate_Name').asstring);
    frmProductIn.edtType.text:=trim(qry_3.fieldByName('Mate_Type').asstring);
    frmProductIn.edtPrice.text:=trim(qry_3.fieldByName('Mate_Price').asstring);
    close;
  end;
end;

procedure TfrmSelectCodeNameType.DBGrid4DblClick(Sender: TObject);
begin
  if frmTuiLiao.caption='退料入库' then
  begin
    frmTuiLiao.edtWlbm.text:=trim(qry_4.fieldByName('Mate_Code').asstring);
    frmTuiLiao.edtWlmc.text:=trim(qry_4.fieldByName('Mate_Name').asstring);
    frmTuiLiao.edtType.text:=trim(qry_4.fieldByName('Mate_Type').asstring);
    frmTuiLiao.edtPrice.text:=trim(qry_4.fieldByName('Mate_Price').asstring);
    close;
  end;
end;

procedure TfrmSelectCodeNameType.DBGrid5DblClick(Sender: TObject);
begin
  if frmProductOut.caption='成品出库' then
  begin
    frmProductOut.edtWlbm.text:=trim(qry_5.fieldByName('Mate_Code').asstring);
    frmProductOut.edtWlmc.text:=trim(qry_5.fieldByName('Mate_Name').asstring);
    frmProductOut.edtType.text:=trim(qry_5.fieldByName('Mate_Type').asstring);
    frmProductOut.edtPrice.text:=trim(qry_5.fieldByName('Mate_Price').asstring);
    close;
  end;
end;

procedure TfrmSelectCodeNameType.DBGrid6DblClick(Sender: TObject);
begin
  if frmLy.caption='物料领用' then
  begin
    frmLy.edtWlbm.text:=trim(qry_6.fieldByName('Mate_Code').asstring);
    frmLy.edtWlmc.text:=trim(qry_6.fieldByName('Mate_Name').asstring);
    frmLy.edtType.text:=trim(qry_6.fieldByName('Mate_Type').asstring);
    frmLy.edtPrice.text:=trim(qry_6.fieldByName('Mate_Price').asstring);
    close;
  end;
end;

procedure TfrmSelectCodeNameType.DBGrid7DblClick(Sender: TObject);
begin
  if frmBaoFei.caption='报废出库' then
  begin
    frmBaoFei.edtWlbm.text:=trim(qry_7.fieldByName('Mate_Code').asstring);
    frmBaoFei.edtWlmc.text:=trim(qry_7.fieldByName('Mate_Name').asstring);
    frmBaoFei.edtType.text:=trim(qry_7.fieldByName('Mate_Type').asstring);
    frmBaoFei.edtPrice.text:=trim(qry_7.fieldByName('Mate_Price').asstring);
    close;
  end;
end;

procedure TfrmSelectCodeNameType.DBGrid8DblClick(Sender: TObject);
begin
  if frmMateNumChg.caption='收发料查询' then
  begin
    frmMateNumChg.edtWlbm.text:=trim(qry_8.fieldByName('Mate_Code').asstring);
    frmMateNumChg.lblWlmc.caption:=trim(qry_8.fieldByName('Mate_Name').asstring);
    close;
  end;
  //
  
end;

procedure TfrmSelectCodeNameType.DBGrid9DblClick(Sender: TObject);
begin
  if frmPlanNum.caption='成品计划数量' then
  begin
    frmPlanNum.edtWlbm.text:=trim(qry_PlanNum.fieldByName('Mate_Code').asstring);
    close;
  end;
end;

procedure TfrmSelectCodeNameType.edtCode_9Exit(Sender: TObject);
begin
  if qry_PlanNum.Locate('Mate_Code',Trim(edtCode_9.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtName_9Exit(Sender: TObject);
begin
  if qry_PlanNum.Locate('Mate_Name',Trim(edtName_9.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

procedure TfrmSelectCodeNameType.edtType_9Exit(Sender: TObject);
begin
  if qry_PlanNum.Locate('Mate_Type',Trim(edtType_9.text),[loPartialKey]) then
  begin                                                     //loCaseInsensitive

  end;
end;

end.