unit_modeman.pas

此代码为企业原料管理代码

unit Unit_modeman;

interface

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

type
  TForm_modeman = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox2: TGroupBox;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    Panel9: TPanel;
    Panel10: TPanel;
    bbSerchAllName: TBitBtn;
    bballprint: TBitBtn;
    bballchart: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    DBGrid2: TDBGrid;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Panel6: TPanel;
    RBdate: TRadioButton;
    RBMonth: TRadioButton;
    bbSerch: TBitBtn;
    bbcancal: TBitBtn;
    Panel3: TPanel;
    Panel4: TPanel;
    bbprior: TBitBtn;
    bbnext: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    BBprint: TBitBtn;
    BBpic: TBitBtn;
    Panel7: TPanel;
    Panel2: TPanel;
    ename: TEdit;
    Panel8: TPanel;
    CheckBoxname: TCheckBox;
    DBGrid1: TDBGrid;
    Panel5: TPanel;
    Queryindexqcper: TQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    Table1: TTable;
    TableAllName: TTable;
    QueryAllName: TQuery;
    Query1: TQuery;
    Query2: TQuery;
    Table1Name: TStringField;
    Table1TDate: TDateField;
    Table1Prodname: TStringField;
    Table1Figid: TStringField;
    Table1QcNum: TIntegerField;
    Table1Qcper: TFloatField;
    Table1Wasternum: TIntegerField;
    Table1Wastermoney: TFloatField;
    Table1WasterPer: TFloatField;
    Table1LackNum: TSmallintField;
    Table1ImpuNum: TSmallintField;
    Table1PoleNum: TSmallintField;
    Table1RipNum: TSmallintField;
    Table1ElseNum: TSmallintField;
    Table1TMonth: TStringField;
    Queryindexqcpername: TStringField;
    QueryindexqcperSumQcNum: TFloatField;
    Queryindexqcpersumwasternum: TFloatField;
    Queryindexqcpersumper: TFloatField;
    Queryindexqcpersumwmoney: TFloatField;
    Queryindexqcperavgqcper: TFloatField;
    QueryindexqcperSumLackNum: TFloatField;
    QueryindexqcperSumImpuNum: TFloatField;
    QueryindexqcperSumElseNum: TFloatField;
    Query3: TQuery;
    TableAllNameName: TStringField;
    TableAllNameQcNum: TIntegerField;
    TableAllNameQcper: TFloatField;
    TableAllNameWasternum: TIntegerField;
    TableAllNameWastermoney: TFloatField;
    TableAllNameWasterPer: TFloatField;
    TableAllNameLackNum: TSmallintField;
    TableAllNameImpuNum: TSmallintField;
    TableAllNamePoleNum: TSmallintField;
    TableAllNameRipNum: TSmallintField;
    TableAllNameElseNum: TSmallintField;
    procedure bbSerchAllNameClick(Sender: TObject);
    procedure bbSerchClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure enameEnter(Sender: TObject);
    procedure RBdateClick(Sender: TObject);
    procedure bbpriorClick(Sender: TObject);
    procedure bbnextClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure bbcancalClick(Sender: TObject);
    procedure TabSheet1Exit(Sender: TObject);
    procedure TabSheet2Exit(Sender: TObject);
    procedure bballprintClick(Sender: TObject);
    procedure BBprintClick(Sender: TObject);
    procedure bballchartClick(Sender: TObject);
    procedure BBpicClick(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_modeman: TForm_modeman;
  i,j: integer;
implementation

uses UnitQueryID, Unit_modemanallprt, Unit_modemanprt, Unit_modemanprtM,
  Unit_modenamallchart, Unit_modemanchart, Unit_modemanchartM;

{$R *.DFM}

procedure TForm_modeman.bbSerchAllNameClick(Sender: TObject);
var int0,int1,int2,int3,int4,int5,int6,int7:integer;
    flt1,flt2,flt3,flt4,flt5,flt6,flt7:real;
    clmodhu:real;
    str1,str2,str3:string;
begin
  bbSerchAllName.Cursor:=crAppStart;
  flt4:=0;
 i:=1;
//=============初始化，清空记录===================
 with query1 do
      begin
        close;
        sql.Clear;
        sql.Add('delete from modeallname ');
        execsql;
      end;

//============SQL分组查询开始===========================

  with queryallname do begin
   close;
   sql.clear;
   sql.Add (' select name,prodid,sum(hao)as SumQcNum,sum(lin)as sumDW,');
   sql.Add ('sum(xioufei)as SumLackNum,sum(huai)as SumImpuNum from zhenxiou');
   //sql.Add (' where  tdate between :fromdate and :todate and SulfCard.prodnameid=ProdDictionary.prodid and SulfCard.生产批号 = 炼胶工艺卡.生产批号');
   sql.Add (' where  riqi between :fromdate and :todate ');//and SulfCard.prodnameid=ProdDictionary.prodid ');
   sql.Add ('group by name,prodid'  );
   parambyname('fromdate').asdate:=DateTimePicker3.date;
   parambyname('todate').asdate:=DateTimePicker4.date;
   open;
   if queryallname.FieldByName('name').asstring='' then  begin
        showmessage('无记录！');
        exit;
      end;
 end;//with
 tableAllname.open;
 queryAllname.First;
 while  not queryAllname.eof do
 begin
  tableAllname.append;
  tableAllname.FieldByName('name').asstring:=queryAllname.fieldbyname('name').asstring;
  //tableAllname.FieldByName('figid').asstring:=queryAllname.fieldbyname('figid').asstring;
  //tableAllname.FieldByName('prodname').asstring:=queryAllname.fieldbyname('prodname').asstring;
  tableAllname.FieldByName('qcnum').asinteger:=queryAllname.fieldbyname('sumqcnum').asinteger;
  tableAllname.FieldByName('lacknum').asinteger:=queryAllname.fieldbyname('sumlacknum').asinteger;
  tableAllname.FieldByName('impunum').asinteger:=queryAllname.fieldbyname('sumimpunum').asinteger;
 // tableAllname.FieldByName('ripnum').asinteger:=queryAllname.fieldbyname('sumripnum').asinteger;
 // tableAllname.FieldByName('polenum').asinteger:=queryAllname.fieldbyname('sumpolenum').asinteger;
  tableAllname.FieldByName('elsenum').asinteger:=queryAllname.fieldbyname('sumDW').asinteger;
  //==============计算废品数和合格率/胶料损耗/金额损耗=====================
  int0:=tableAllname.FieldByName('qcnum').asinteger;
  int1:=tableAllname.FieldByName('lacknum').asinteger;
  int2:=tableAllname.FieldByName('impunum').asinteger;
 // int3:=tableAllname.FieldByName('polenum').asinteger;
  //int4:=tableAllname.FieldByName('ripnum').asinteger;
 // int5:=tableAllname.FieldByName('elsenum').asinteger;
  tableAllname.FieldByName('wasternum').asinteger:=int1+int2;//废品数
  if int0+int1+int2=0 then
   tableAllname.FieldByName('qcper').asfloat:=0
  else
  begin
   flt4:=int0/(int0+int1+int2);
   flt4:=strtofloat(formatfloat('0.00',flt4*100));
   tableAllname.FieldByName('qcper').asfloat:=flt4; //合格率
  end;
  flt1:=queryAllname.fieldbyname('sumDW').asfloat; //领坯
     with Query1 do
    begin
      close;
      SQL.Clear ;
      sql.Add (' select * from ProdDictionary');
      sql.Add (' where ProdID =:index');
      parambyname('index').asstring:=queryallname.fieldbyname('prodId').asstring;
       open;
      //flt6:=fieldbyname('单价').asfloat; //胶料价
     flt2:=Query1.fieldbyname('Weight').asfloat; //单净重
     int6:=Query1.fieldbyname('gujia').asinteger;
     int7:=Query1.fieldbyname('tanhuang').asinteger;
     str1:=query1.fieldbyname('rubbname').asstring;
     str2:=query1.fieldbyname('gjxh').asstring;
     str3:=query1.fieldbyname('thxh').asstring;
      end;
      with Query1 do
    begin
      close;
      SQL.Clear ;
      sql.Add (' select * from 炼胶工艺卡');
      sql.Add (' where 制成品名称=:index');
      parambyname('index').asstring:=str1;
      open;
      flt5:=fieldbyname('单价').asfloat; //胶料价
     end;
      with Query1 do
    begin
      close;
      SQL.Clear ;
      sql.Add (' select * from 原材料台帐');
      sql.Add (' where 材料名称=:index');
      parambyname('index').asstring:=str2;
      open;
      flt6:=fieldbyname('单价').asfloat; //骨架价
     end;
      with Query1 do
    begin
      close;
      SQL.Clear ;
      sql.Add (' select * from 原材料台帐');
      sql.Add (' where 材料名称=:index');
      parambyname('index').asstring:=str3;
      open;
      flt7:=fieldbyname('单价').asfloat; //弹簧价
     end;
  flt6:=int6*flt6*(int1+int2); //骨架金额损耗
  //flt5:=queryAllname.fieldbyname('avgrubbprce').asfloat; //胶料单价
  flt3:=flt2*(int1+int2);
  flt3:=strtofloat(formatfloat('0.0',flt3));
  tableAllname.FieldByName('Wasterper').asfloat:=flt3;//胶料损耗

//修改小数点
  clmodhu:=strtofloat(formatfloat('0.00',(flt3*flt5/1000+flt6)));
  tableAllname.FieldByName('wastermoney').asfloat:=clmodhu;//金额损耗
  tableAllname.Post;
  queryAllname.next;
 end;//while
// tableAllname.First;
 with tableAllname do
  begin
  open;
  first;
  while  not eof do
  begin
   edit;
    with Query1 do
    begin
   close;
   sql.clear;
   sql.Add (' select sum(qcnum)as SumQcNum,sum(elsenum)as SumElseNum from modeAllName where name=:na');
   parambyname('na').asstring:=tableAllname.fieldbyname('name').asstring;
   open;
   flt1:=fieldbyname('SumQcNum').asfloat/fieldbyname('SumElseNum').asfloat*100;
   flt1:=strtofloat(formatfloat('0.00',flt1));
    end;//with
   fieldbyname('qcper').asfloat:=flt1;
   post;
   next;
  end;
  end;

 //===再分组======
 with queryindexqcper do begin
   close;
   sql.clear;
   sql.Add (' select name,sum(qcnum)as SumQcNum,sum(wasternum)as sumwasternum,');
   sql.Add ('sum(wasterper)as sumper,sum(wastermoney)as sumwmoney,avg(qcper)as avgqcper,');
   sql.Add ('sum(lacknum)as SumLackNum,sum(impunum)as SumImpuNum,');
   sql.Add ('sum(elsenum)as SumElseNum from modeAllName');
   sql.Add ('group by name');
   sql.Add ('order  by avgqcper desc ');
   open;
 end;//with
 bbSerchAllName.Cursor:=crDefault;
end;

procedure TForm_modeman.bbSerchClick(Sender: TObject);
var int0,int1,int2,int3,int4,int5,int6:integer;
    flt1,flt2,flt3,flt4,flt5,flt6:real;
    clmodhu:real;
    ru,str1:string;
begin
  flt4:=0;
  if (i=1) and (ename.text<>'') then
  begin
   j:=1;
//=============初始化，清空记录===================
 with query1 do
      begin
        close;
        sql.Clear;
        sql.Add('delete from modeName ');
        execsql;
      end;

//============SQL分组查询开始===========================
if rbdate.Checked=true then  //==判断显示日=========
begin
  with query2 do
    begin
      close;
      SQL.Clear ;
      sql.Add (' select riqi,name,Figid,prodname,prodid,hao as SumQcNum,lin as sumDW,');
      sql.Add ('xioufei as SumLackNum,huai as SumImpuNum from zhenxiou');
      sql.Add (' where name=:index and  riqi between :fromdate and :todate ');//and SulfCard.prodnameid=ProdDictionary.prodid');
      parambyname('fromdate').asdate:=DateTimePicker1.date;
      parambyname('todate').asdate:=DateTimePicker2.date;
      parambyname('index').asstring:=eName.text;
      open;
      if query2.FieldByName('name').asstring='' then  begin
        showmessage('无记录！');
        exit;
      end;
    end;
//===========以下是向Table1中抄写记录================
//Table1TMonth.Visible:=false;
//Table1TDate.Visible:=true;
table1.open;
query2.First;
while  not query2.eof do
 begin
  table1.append;
  table1.FieldByName('tdate').asdatetime:=query2.fieldbyname('riqi').asdatetime;
  table1.FieldByName('name').asstring:=query2.fieldbyname('name').asstring;
  table1.FieldByName('figid').asstring:=query2.fieldbyname('figid').asstring;
  table1.FieldByName('prodname').asstring:=query2.fieldbyname('prodname').asstring;
  table1.FieldByName('qcnum').asinteger:=query2.fieldbyname('sumqcnum').asinteger;
  table1.FieldByName('lacknum').asinteger:=query2.fieldbyname('sumlacknum').asinteger;
  table1.FieldByName('impunum').asinteger:=query2.fieldbyname('sumimpunum').asinteger;
  //table1.FieldByName('ripnum').asinteger:=query2.fieldbyname('sumripnum').asinteger;
  //table1.FieldByName('polenum').asinteger:=query2.fieldbyname('sumpolenum').asinteger;
  table1.FieldByName('elsenum').asinteger:=query2.fieldbyname('sumDW').asinteger;
  //==============计算废品数和合格率/胶料损耗/金额损耗=====================
  int0:=table1.FieldByName('qcnum').asinteger;
  int1:=table1.FieldByName('lacknum').asinteger;
  int2:=table1.FieldByName('impunum').asinteger;
  //int3:=table1.FieldByName('polenum').asinteger;
  //int4:=table1.FieldByName('ripnum').asinteger;
  int5:=table1.FieldByName('elsenum').asinteger;
  table1.FieldByName('wasternum').asinteger:=int1+int2;//废品数
  if int5=0 then
   table1.FieldByName('qcper').asfloat:=100
  else
  begin
   flt4:=int0/int5;
   flt4:=strtofloat(formatfloat('0.00',flt4*100));
   table1.FieldByName('qcper').asfloat:=flt4; //合格率
  end;
  flt1:=query2.fieldbyname('sumDW').asinteger; //领坯
   with query1 do
    begin
      close;
      SQL.Clear ;
      sql.Add (' select * from ProdDictionary');
      sql.Add (' where prodid=:index ');
      parambyname('index').asstring:=query2.fieldbyname('prodid').asstring;
      open;
      ru:=fieldbyname('RubbName').asstring;
      str1:=fieldbyname('gjxh').asstring;
      flt2:=fieldbyname('Weight').asfloat; //净重
      int6:=fieldbyname('gujia').asinteger;
      flt3:=flt2*(int1+int2);
      flt3:=strtofloat(formatfloat('0.0',flt3));
      table1.FieldByName('Wasterper').asfloat:=flt3;//胶料损耗
      close;
      SQL.Clear ;
      sql.Add (' select 单价,制成品名称 from 炼胶工艺卡');