unitselectcodenametype.pas

仓储系统

unit UnitSelectCodeNameType;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, RXCtrls, ExtCtrls, ADODB,
  ComCtrls;

type
  TfrmSelectCodeNameType = class(TForm)
    TabSheet1: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    Panel1: TPanel;
    Label1: TLabel;
    sbOk_1: TSpeedButton;
    sbClose_1: TSpeedButton;
    edtCode_1: TEdit;
    edtName_1: TEdit;
    edtType_1: TEdit;
    Panel2: TPanel;
    RxLabel1: TRxLabel;
    lblResult: TRxLabel;
    lbl_1: TRxLabel;
    DBGrid1: TDBGrid;
    qry_1: TADOQuery;
    ds_1: TDataSource;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    Label2: TLabel;
    sbOk_2: TSpeedButton;
    sbClose_2: TSpeedButton;
    edtCode_2: TEdit;
    edtName_2: TEdit;
    edtType_2: TEdit;
    Panel4: TPanel;
    RxLabel2: TRxLabel;
    RxLabel3: TRxLabel;
    lbl_2: TRxLabel;
    DBGrid2: TDBGrid;
    qry_2: TADOQuery;
    ds_2: TDataSource;
    Panel5: TPanel;
    Label3: TLabel;
    sbOk_3: TSpeedButton;
    sbClose_3: TSpeedButton;
    edtCode_3: TEdit;
    edtName_3: TEdit;
    edtType_3: TEdit;
    Panel6: TPanel;
    RxLabel5: TRxLabel;
    RxLabel6: TRxLabel;
    lbl_3: TRxLabel;
    DBGrid3: TDBGrid;
    qry_3: TADOQuery;
    ds_3: TDataSource;
    Panel7: TPanel;
    Label4: TLabel;
    sbOk_4: TSpeedButton;
    sbClose_4: TSpeedButton;
    edtCode_4: TEdit;
    edtName_4: TEdit;
    edtType_4: TEdit;
    Panel8: TPanel;
    RxLabel8: TRxLabel;
    RxLabel9: TRxLabel;
    lbl_4: TRxLabel;
    DBGrid4: TDBGrid;
    qry_4: TADOQuery;
    ds_4: TDataSource;
    Panel9: TPanel;
    Label5: TLabel;
    sbOk_5: TSpeedButton;
    sbClose_5: TSpeedButton;
    edtCode_5: TEdit;
    edtName_5: TEdit;
    edtType_5: TEdit;
    Panel10: TPanel;
    RxLabel11: TRxLabel;
    RxLabel12: TRxLabel;
    lbl_5: TRxLabel;
    DBGrid5: TDBGrid;
    qry_5: TADOQuery;
    ds_5: TDataSource;
    Panel11: TPanel;
    Label6: TLabel;
    sbOk_6: TSpeedButton;
    sbClose_6: TSpeedButton;
    edtCode_6: TEdit;
    edtName_6: TEdit;
    edtType_6: TEdit;
    Panel12: TPanel;
    RxLabel14: TRxLabel;
    RxLabel15: TRxLabel;
    lbl_6: TRxLabel;
    DBGrid6: TDBGrid;
    qry_6: TADOQuery;
    ds_6: TDataSource;
    Panel13: TPanel;
    Label7: TLabel;
    sbOk_7: TSpeedButton;
    sbClose_7: TSpeedButton;
    edtCode_7: TEdit;
    edtName_7: TEdit;
    edtType_7: TEdit;
    Panel14: TPanel;
    RxLabel17: TRxLabel;
    RxLabel18: TRxLabel;
    lbl_7: TRxLabel;
    DBGrid7: TDBGrid;
    qry_7: TADOQuery;
    ds_7: TDataSource;
    TabSheet8: TTabSheet;
    Panel15: TPanel;
    Label8: TLabel;
    sbOk_8: TSpeedButton;
    sbClose_8: TSpeedButton;
    edtCode_8: TEdit;
    edtName_8: TEdit;
    edtType_8: TEdit;
    Panel16: TPanel;
    RxLabel4: TRxLabel;
    RxLabel7: TRxLabel;
    lbl_8: TRxLabel;
    DBGrid8: TDBGrid;
    qry_8: TADOQuery;
    ds_8: TDataSource;
    PageControl1: TPageControl;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    qry_PlanNum: TADOQuery;
    dsPlanNum: TDataSource;
    TabSheet9: TTabSheet;
    Panel17: TPanel;
    Label9: TLabel;
    sbOk_9: TSpeedButton;
    sbClose_9: TSpeedButton;
    edtCode_9: TEdit;
    edtName_9: TEdit;
    edtType_9: TEdit;
    Panel18: TPanel;
    RxLabel10: TRxLabel;
    RxLabel13: TRxLabel;
    lbl_9: TRxLabel;
    DBGrid9: TDBGrid;
    procedure edtCode_1Exit(Sender: TObject);
    procedure edtCode_1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure edtName_1Exit(Sender: TObject);
    procedure edtType_1Exit(Sender: TObject);
    procedure sbClose_1Click(Sender: TObject);
    procedure edtCode_2Exit(Sender: TObject);
    procedure edtName_2Exit(Sender: TObject);
    procedure edtType_2Exit(Sender: TObject);
    procedure edtCode_3Exit(Sender: TObject);
    procedure edtName_3Exit(Sender: TObject);
    procedure edtType_3Exit(Sender: TObject);
    procedure edtCode_4Exit(Sender: TObject);
    procedure edtName_4Exit(Sender: TObject);
    procedure edtType_4Exit(Sender: TObject);
    procedure edtCode_5Exit(Sender: TObject);
    procedure edtName_5Exit(Sender: TObject);
    procedure edtType_5Exit(Sender: TObject);
    procedure edtCode_6Exit(Sender: TObject);
    procedure edtName_6Exit(Sender: TObject);
    procedure edtType_6Exit(Sender: TObject);
    procedure edtCode_7Exit(Sender: TObject);
    procedure edtName_7Exit(Sender: TObject);
    procedure edtType_7Exit(Sender: TObject);
    procedure edtCode_8Exit(Sender: TObject);
    procedure edtName_8Exit(Sender: TObject);
    procedure edtType_8Exit(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure DBGrid3DblClick(Sender: TObject);
    procedure DBGrid4DblClick(Sender: TObject);
    procedure DBGrid5DblClick(Sender: TObject);
    procedure DBGrid6DblClick(Sender: TObject);
    procedure DBGrid7DblClick(Sender: TObject);
    procedure DBGrid8DblClick(Sender: TObject);
    procedure DBGrid9DblClick(Sender: TObject);
    procedure edtCode_9Exit(Sender: TObject);
    procedure edtName_9Exit(Sender: TObject);
    procedure edtType_9Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSelectCodeNameType: TfrmSelectCodeNameType;

implementation

uses UnitDm, UnitStockIn, UnitStockZz, UnitProductIn, UnitTuiLiao,
  UnitProductOut, UnitBaoFei, UnitMateNumChg, UnitLy, UnitPyPk, UnitPlanNum;

{$R *.dfm}

procedure TfrmSelectCodeNameType.edtCode_1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    perform(cm_dialogkey,vk_tab,0);
  end;
end;

procedure TfrmSelectCodeNameType.DBGrid1DblClick(Sender: TObject);
begin
  if frmStockIn.caption='采购入库' then
  begin
    frmStockIn.edtWlbm.text:=trim(qry_1.fieldByName('Mate_Code').asstring);
    frmStockIn.edtWlmc.text:=trim(qry_1.fieldByName('Mate_Name').asstring);
    frmStockIn.edtType.text:=trim(qry_1.fieldByName('Mate_Type').asstring);
    frmStockIn.edtPrice.text:=trim(qry_1.fieldByName('Mate_Price').asstring);
    close;
  end;
end;

procedure TfrmSelectCodeNameType.FormCreate(Sender: TObject);
begin
  //如库业务-------4 个
  if frmStockIn.caption='采购入库' then       //不是领部件、不是成品的就是外购入库
  begin
   // PageControl1.ActivePage:=TabSheet1;
    TabSheet1.TabVisible:=true;
    TabSheet2.TabVisible:=false;
    TabSheet3.TabVisible:=false;
    TabSheet4.TabVisible:=false;
    TabSheet5.TabVisible:=false;
    TabSheet6.TabVisible:=false;
    TabSheet7.TabVisible:=false;
    TabSheet8.TabVisible:=false;
    TabSheet9.TabVisible:=false;

    with qry_1 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from mate_basic where (mate_class != ''CCC'') and (mate_class != ''PPP'') order by mate_code ');
      open;
    end;
    lbl_1.Caption:=inttostr(qry_1.RecordCount)+' 条';
  end;
  //
  if frmStockZz.caption='自制入库' then       //零部件入库
  begin
    PageControl1.ActivePage:=TabSheet2;
    TabSheet1.TabVisible:=false;
    TabSheet2.TabVisible:=true;
    TabSheet3.TabVisible:=false;
    TabSheet4.TabVisible:=false;
    TabSheet5.TabVisible:=false;
    TabSheet6.TabVisible:=false;
    TabSheet7.TabVisible:=false;
    TabSheet8.TabVisible:=false;
    TabSheet9.TabVisible:=false;
    with qry_2 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from mate_basic where mate_class=''CCC'' order by mate_code');
      open;
    end;
    lbl_2.Caption:=inttostr(qry_2.RecordCount)+' 条';
  end;
  //
  if frmProductIn.caption='成品入库' then     //成品入库
  begin
    PageControl1.ActivePage:=TabSheet3;
    TabSheet1.TabVisible:=false;
    TabSheet2.TabVisible:=false;
    TabSheet3.TabVisible:=true;
    TabSheet4.TabVisible:=false;
    TabSheet5.TabVisible:=false;
    TabSheet6.TabVisible:=false;
    TabSheet7.TabVisible:=false;
    TabSheet8.TabVisible:=false;
    TabSheet9.TabVisible:=false;
    with qry_3 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from mate_basic where mate_class=''PPP'' order by mate_code');
      open;
    end;
    lbl_3.Caption:=inttostr(qry_3.RecordCount)+' 条';
  end;
  //这个代码还要修改，因为1张退料单号可退多种物料
  if frmTuiLiao.caption='退料入库' then       //外购件、零部件、成品都可退料入库
  begin
    PageControl1.ActivePage:=TabSheet4;
    TabSheet1.TabVisible:=false;
    TabSheet2.TabVisible:=false;
    TabSheet3.TabVisible:=false;
    TabSheet4.TabVisible:=true;      //
    TabSheet5.TabVisible:=false;
    TabSheet6.TabVisible:=false;
    TabSheet7.TabVisible:=false;
    TabSheet8.TabVisible:=false;
    TabSheet9.TabVisible:=false;

    with qry_4 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from mate_basic order by mate_code');
      open;
    end;
    lbl_4.Caption:=inttostr(qry_4.RecordCount)+' 条';
  end;
  //出库业务-------3 个
  if (frmProductOut.caption='成品出库') then
  begin
    PageControl1.ActivePage:=TabSheet5;
    TabSheet1.TabVisible:=false;
    TabSheet2.TabVisible:=false;
    TabSheet3.TabVisible:=false;
    TabSheet4.TabVisible:=false;

    TabSheet5.TabVisible:=true;       //
    TabSheet6.TabVisible:=false;
    TabSheet7.TabVisible:=false;
    TabSheet8.TabVisible:=false;
    TabSheet9.TabVisible:=false;

    with qry_5 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from mate_basic where (mate_class like ''PPP'') order by mate_code');
      open;
    end;
    lbl_5.Caption:=inttostr(qry_5.RecordCount)+' 条';
  end;
  if (frmPlanNum.caption='成品计划数量') then
  begin
    PageControl1.ActivePage:=TabSheet9;
    TabSheet1.TabVisible:=false;
    TabSheet2.TabVisible:=false;
    TabSheet3.TabVisible:=false;
    TabSheet4.TabVisible:=false;

    TabSheet5.TabVisible:=false;       //
    TabSheet6.TabVisible:=false;
    TabSheet7.TabVisible:=false;
    TabSheet8.TabVisible:=false;
    TabSheet9.TabVisible:=true;

    with qry_PlanNum do
    begin
      close;
      sql.Clear;
      sql.Add('select * from mate_basic where (mate_class like ''PPP'') order by mate_code');
      open;
    end;
    lbl_5.Caption:=inttostr(qry_PlanNum.RecordCount)+' 条';
  end;
  //
  if frmLy.caption='物料领用' then
  begin
    PageControl1.ActivePage:=TabSheet6;
    TabSheet1.TabVisible:=false;
    TabSheet2.TabVisible:=false;
    TabSheet3.TabVisible:=false;
    TabSheet4.TabVisible:=false;
    TabSheet5.TabVisible:=false;
    TabSheet6.TabVisible:=true;      //
    TabSheet7.TabVisible:=false;
    TabSheet8.TabVisible:=false;
    TabSheet9.TabVisible:=false;

    with qry_6 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from mate_basic where (mate_class != ''PPP'') order by mate_code');
      open;
    end;
    lbl_6.Caption:=inttostr(qry_6.RecordCount)+' 条';
  end;
  //
  if frmBaoFei.caption='报废出库' then        //所有物料都可报废出库