u_fr_dbchar.pas

来自「人事考勤管理系統源代碼」· PAS 代码 · 共 37 行

unit U_fr_DBchar;

interface

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

type
  TFr_DBChat = class(TFrame)
    DBChart1: TDBChart;
    Series1: TBarSeries;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
    year,sql:string;
    Procedure Exec_sql(s:string);
  public
    { Public declarations }
  end;

implementation

uses U_Fr_DM;

{$R *.DFM}

procedure TFr_DBChat.SpeedButton1Click(Sender: TObject);
begin
   Label1.Caption:=inttostr(strtoint(copy(Label1.Caption,1,4))-1);
   year:=Label1.Caption;
   Label1.Caption:=Label1.Caption+'