unitsulfper.~pas

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

unit UnitSulfPer;

interface

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

type
  TFrmSulfPer = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DataSource2: TDataSource;
    Query2: TQuery;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    Label1: TLabel;
    DataSource3: TDataSource;
    SulfQueryPerDate: TQuery;
    Panel5: TPanel;
    DataSource4: TDataSource;
    SulfQueryPerMonth: TQuery;
    Table1TDate: TDateField;
    Table1FigID: TStringField;
    Table1QcNum: TIntegerField;
    Table1Wasternum: TIntegerField;
    Table1Qcper: TFloatField;
    Table1WasterPer: TFloatField;
    Table1ProfitPer: TFloatField;
    Table1RubbMixID: TStringField;
    Table1RubbCardID: TStringField;
    Table1SourceID: TStringField;
    Table1TMonth: TStringField;
    SulfQueryPerDatetdate: TDateField;
    SulfQueryPerDateSUMOFqcnum: TFloatField;
    SulfQueryPerDateSUMOFwasternum: TFloatField;
    SulfQueryPerDateAVERAGEOFqcper: TFloatField;
    SulfQueryPerDateAVERAGEOFProfitPer: TFloatField;
    SulfQueryPerDateSUMOFWasterPer: TFloatField;
    SulfQueryPerMonthtmonth: TStringField;
    SulfQueryPerMonthSUMOFqcnum: TFloatField;
    SulfQueryPerMonthSUMOFwasternum: TFloatField;
    SulfQueryPerMonthAVERAGEOFqcper: TFloatField;
    SulfQueryPerMonthAVERAGEOFProfitPer: TFloatField;
    SulfQueryPerMonthSUMOFWasterPer: TFloatField;
    Table1Prodname: TStringField;
    procedure bbpriorClick(Sender: TObject);
    procedure bbnextClick(Sender: TObject);
    procedure bbcancalClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbpintClick(Sender: TObject);
    procedure RBDateClick(Sender: TObject);
    procedure RBMonthClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  FrmSulfPer: TFrmSulfPer;

implementation

uses UnitSulfPerChart, UnitSulfPerPrint, UnitSulfPerChartM,
  UnitSulfPerPrintM, UnitSulfPerChartMM, UnitSulfPerChartMonth,
  UnitSulfDictionary;


{$R *.DFM}
//=================以下是查询按钮事件==============================
procedure TFrmSulfPer.bbpriorClick(Sender: TObject);
begin
 table1.Prior ;
end;

procedure TFrmSulfPer.bbnextClick(Sender: TObject);
begin
 table1.Next;
end;

procedure TFrmSulfPer.bbcancalClick(Sender: TObject);
begin
  close;
end;

procedure TFrmSulfPer.FormActivate(Sender: TObject);
begin
table1.open;  //打开
end;

procedure TFrmSulfPer.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//========初始化，清空记录===========
 with table1 do begin
  first;
  while not eof do
  delete;
  next;
 end;//with
//=================================
 FrmSulfDictionary.TableSulfDic.Open;
end;

procedure TFrmSulfPer.bbpintClick(Sender: TObject);
begin
end;
//====图表显示事件===========================
procedure TFrmSulfPer.RBDateClick(Sender: TObject);
begin

//===========初始化table1，清空记录==========
 with table1 do begin
  first;
  while not eof do
  delete;
  next;
 end;//with
 Table1TMonth.visible:=false;
 Table1TDate.visible:=true;
 Table1RubbCardID.visible:=true;
 Table1SourceID.visible:=true;
end;

procedure TFrmSulfPer.RBMonthClick(Sender: TObject);
begin

//===========初始化table1，清空记录==========
 with table1 do begin
  first;
  while not eof do
  delete;
  next;
 end;//with
 Table1TMonth.visible:=true;
 Table1TDate.visible:=false;
 Table1RubbCardID.visible:=false;
 Table1SourceID.visible:=false;
end;

end.