store_table.pas

这是用delphi开发的一个物资管理信息系统

unit store_table;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, Grids, DBGrids, ExtCtrls, TeeProcs, Chart,
  DbChart, DB, DBTables, StdCtrls, Buttons;

type
  Tstore_tablefrm = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    TDBChart1: TDBChart;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    Series1: THorizBarSeries;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  store_tablefrm: Tstore_tablefrm;

implementation

{$R *.dfm}

procedure Tstore_tablefrm.FormShow(Sender: TObject);
begin
  table1.Active :=true;
end;

procedure Tstore_tablefrm.BitBtn1Click(Sender: TObject);
begin
 store_tablefrm.Close ;
end;

procedure Tstore_tablefrm.CheckBox1Click(Sender: TObject);
begin
  if checkbox1.Checked =true then
     TDBChart1.View3D :=true
  else
    TDBChart1.View3D :=false;
end;

procedure Tstore_tablefrm.BitBtn2Click(Sender: TObject);
begin
 TDBChart1.ZoomPercent(100); 
end;

procedure Tstore_tablefrm.BitBtn3Click(Sender: TObject);
begin
 TDBChart1.ZoomPercent(95) 
end;

end.