mrp_qry_graphpsimonth.pas

一个MRPII系统源代码版本

unit Mrp_Qry_GraphPsiMonth;

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_GraphPsiMonth = Class(TFrm_Base_Entry_Head)
    DBChArt1: TDBChArt;
    Series1: TLineSeries;
    AdoQry_Headxsbz: TStringField;
    AdoQry_HeadDatetimes: TIntegerField;
    AdoQry_HeadQty: TFloatField;
    Label1: TLabel;
    Label2: TLabel;
    Series5: TLineSeries;
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_GraphPsiMonth: TFrm_Mrp_Qry_GraphPsiMonth;

implementation

uses Sys_Global, Mrp_Qry_PsiMonth;

{$R *.DFM}

{ TFrm_Mrp_Qry_GraphPsiMonth }

procedure TFrm_Mrp_Qry_GraphPsiMonth.InitForm(AdOConnection: TAdOConnection;
  ShowExtendColumn: Boolean);
var
  SqlText:String;
begin
  inherited;
   SqlText:='Select * from #DzbzxR';
   AdoQry_Head.Close;
   AdoQry_Head.SQL.clear;
   AdoQry_Head.SQL.Text := SqlText;
   AdoQry_Head.Open;
   DBChArt1.SeriesList.Series[1].Title  := AdoQry_Head.fieldbyname('xsbz').asstring;
   Lbl_Condition.Caption := Frm_Mrp_Qry_PsiMonth.conditionHint2;
end;

end.