viewmaterialform.pas

本程序是一个餐饮业的管理软件

unit ViewMaterialForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart, StdCtrls;

type
  TFrmViewMaterial = class(TForm)
    DBChart1: TDBChart;
    Series1: TLineSeries;
    Label1: TLabel;
    ComboBox1: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmViewMaterial: TFrmViewMaterial;

implementation

uses DataM;

{$R *.dfm}

procedure TFrmViewMaterial.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TFrmViewMaterial.FormCreate(Sender: TObject);
var
 i:integer;
begin
  Data.DataSStaple.DataSet:=Data.ADOQStaple;
  Data.ADOQStaple.Open;
  Data.ADOQStaple.First;
  Data.ADOQDepleteEvent.Close;
  Data.ADOQDepleteEvent.SQL.Clear;
  Data.ADOQDepleteEvent.SQL.Add('select * from DepleteEvent where StapleID='+Data.ADOQStaple.FieldByName('ID').AsString);
  Data.ADOQDepleteEvent.Open;
  DBChart1.CheckDatasource(Series1);
  ComboBox1.Text:=Data.ADOQStaple.FieldByName('Name').AsString;
  for i:=1 to Data.ADOQStaple.RecordCount do
  begin
    ComboBox1.Items.Add(Data.ADOQStaple.FieldByName('Name').AsString);
    Data.ADOQStaple.Next;
  end;
end;

procedure TFrmViewMaterial.ComboBox1Change(Sender: TObject);
begin
  Data.ADOQStaple.Close;
  Data.ADOQStaple.SQL.Clear;
  Data.ADOQStaple.SQL.Add('select * from Staple where Name="'+ComboBox1.Text+'"');
  Data.ADOQStaple.Open;
  if Data.ADOQStaple.RecordCount=1 then
  begin
  Data.ADOQDepleteEvent.Close;
  Data.ADOQDepleteEvent.SQL.Clear;
  Data.ADOQDepleteEvent.SQL.Add('select * from DepleteEvent where StapleID='+Data.ADOQStaple.FieldByName('ID').AsString);
  Data.ADOQDepleteEvent.Open;
  DBChart1.CheckDatasource(Series1);
  end
  else MessageDlg('查无此原料',mtError,[mbOK],0);
end;

end.