mrp_qry_graphpsimonth1.pas

一个MRPII系统源代码版本

unit Mrp_Qry_GraphPsiMonth1;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Entry_Head, Menus, Db, ActnList, AdODB, Grids, DBGridEh, StdCtrls,
  ExtCtrls, ComCtrls, ToolWin, TeeProcs, TeEngine, ChArt, DBChArt, Series;

Type
  TFrm_Mrp_Qry_GraphPsiMonth1 = Class(TFrm_Base_Entry_Head)
    DBChArt1: TDBChArt;
    Series1: TLineSeries;
    AdoQry_Headxsbz: TStringField;
    AdoQry_HeadDatetimes: TIntegerField;
    AdoQry_HeadQty: TFloatField;
    Label1: TLabel;
    Label2: TLabel;
    AdoQuery1: TAdoQuery;
    AdoQuery1xsbz: TStringField;
    AdoQuery1Datetimes: TIntegerField;
    AdoQuery1Qty: TFloatField;
    Series2: TLineSeries;
    AdoQuery2: TAdoQuery;
    StringField1: TStringField;
    IntegerField1: TIntegerField;
    FloatField1: TFloatField;
    AdoQuery3: TAdoQuery;
    StringField2: TStringField;
    IntegerField2: TIntegerField;
    FloatField2: TFloatField;
    AdoQuery4: TAdoQuery;
    StringField3: TStringField;
    IntegerField3: TIntegerField;
    FloatField3: TFloatField;
    AdoQuery5: TAdoQuery;
    StringField4: TStringField;
    IntegerField4: TIntegerField;
    FloatField4: TFloatField;
    Series3: TLineSeries;
    Series4: TLineSeries;
    Series5: TLineSeries;
    Series6: TLineSeries;
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_GraphPsiMonth1: TFrm_Mrp_Qry_GraphPsiMonth1;

implementation

uses Sys_Global, Mrp_Qry_PsiMonth;

{$R *.DFM}

{ TFrm_Mrp_Qry_GraphPsiMonth }

procedure TFrm_Mrp_Qry_GraphPsiMonth1.InitForm(AdOConnection: TAdOConnection;
  ShowExtendColumn: Boolean);
var
  SqlText:String;
begin
  inherited;
   SqlText:='Select * from #DzbzxR1 where xsbz=''主生产计划''';
   AdoQry_Head.Close;
   AdoQry_Head.SQL.clear;
   AdoQry_Head.SQL.Text := SqlText;
   AdoQry_Head.Open;

   SqlText:='Select * from #DzbzxR1 where xsbz=''生产入库''';
   AdoQuery1.Connection := dbconnect;
   AdoQuery1.Close;
   AdoQuery1.SQL.clear;
   AdoQuery1.SQL.Text := SqlText;
   AdoQuery1.Open;

   SqlText:='Select * from #DzbzxR1 where xsbz=''其他入库''';
   AdoQuery2.Connection := dbconnect;
   AdoQuery2.Close;
   AdoQuery2.SQL.clear;
   AdoQuery2.SQL.Text := SqlText;
   AdoQuery2.Open;

   SqlText:='Select * from #DzbzxR1 where xsbz=''销售出库''';
   AdoQuery3.Connection := dbconnect;
   AdoQuery3.Close;
   AdoQuery3.SQL.clear;
   AdoQuery3.SQL.Text := SqlText;
   AdoQuery3.Open;

   SqlText:='Select * from #DzbzxR1 where xsbz=''其它出库''';
   AdoQuery4.Connection := dbconnect;
   AdoQuery4.Close;
   AdoQuery4.SQL.clear;
   AdoQuery4.SQL.Text := SqlText;
   AdoQuery4.Open;

   SqlText:='Select * from #DzbzxR1 where xsbz=''期末结存''';
   AdoQuery5.Connection := dbconnect;
   AdoQuery5.Close;
   AdoQuery5.SQL.clear;
   AdoQuery5.SQL.Text := SqlText;
   AdoQuery5.Open;
   Lbl_Condition.Caption := Frm_Mrp_Qry_PsiMonth.conditionHint2;
end;

end.