mrp_qry_graphpsidate.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 71 行

unit Mrp_Qry_GraphPsiDate;

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_GraphPsiDate = Class(TFrm_Base_Entry_Head)
    DBChArt1: TDBChArt;
    Series1: TLineSeries;
    AdoQry_Headxsbz: TStringField;
    AdoQry_HeadDatetimes: TIntegerField;
    AdoQry_HeadQty: TFloatField;
    Label1: TLabel;
    Label2: TLabel;
    Series5: TLineSeries;
    procedure FormKeyPress(Sender: TObject; var Key: ChAr);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_GraphPsiDate: TFrm_Mrp_Qry_GraphPsiDate;

implementation

uses Sys_Global, Mrp_Qry_PsiDate;

{$R *.DFM}

{ TFrm_Mrp_Qry_GraphPsiDate }

procedure TFrm_Mrp_Qry_GraphPsiDate.InitForm(AdOConnection: TAdOConnection;
  ShowExtendColumn: Boolean);
var
  SqlText:String;
begin
  inherited;
   SqlText:='Select * from #Dzbzx';
   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_PsiDate.conditionHint2;
end;

procedure TFrm_Mrp_Qry_GraphPsiDate.FormKeyPress(Sender: TObject;
  var Key: ChAr);
begin
//  inherited;

end;

procedure TFrm_Mrp_Qry_GraphPsiDate.FormKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
//  inherited;

end;

end.