unit12.pas

来自「利用Modem的远程通信功能」· PAS 代码 · 共 78 行

unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  TeEngine, Series, TeeProcs, Chart, DBChart, ExtCtrls, Menus, StdCtrls,
  Buttons, ComCtrls;

type
  TDay_curve = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N2S1: TMenuItem;
    N3D1: TMenuItem;
    N4: TMenuItem;
    Label2: TLabel;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    DBChart1: TDBChart;
    Series1: TLineSeries;
    DBChart2: TDBChart;
    Series2: TLineSeries;
    DBChart3: TDBChart;
    Series3: TLineSeries;
    DBChart4: TDBChart;
    Series4: TLineSeries;
    procedure N2S1Click(Sender: TObject);
    procedure N3D1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Day_curve: TDay_curve;

implementation
 uses
   unit6;
{$R *.DFM}

procedure TDay_curve.N2S1Click(Sender: TObject);
begin
  DBchart1.View3D:=false;
  DBchart2.View3D:=false;
  DBchart3.View3D:=false;
  DBchart4.View3D:=false;

end;

procedure TDay_curve.N3D1Click(Sender: TObject);
begin
 DBchart1.View3D:=true;
  DBchart2.View3D:=true;
   DBchart3.View3D:=true;
    DBchart4.View3D:=true;
end;

procedure TDay_curve.N4Click(Sender: TObject);
begin
 close;
end;

procedure TDay_curve.FormCreate(Sender: TObject);
begin
//  label2.Caption:=Day_data.ComboBox1.Text+'流量计';
end;

end.