rsqkqxfs.~pas

来自「一个关于工资管理系统的设计」· ~PAS 代码 · 共 89 行

unit rsqkqxfs;

interface

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

type
  Tfrm_rsqkqxfs = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBChart1: TDBChart;
    CheckBox1: TCheckBox;
    Series1: TPieSeries;
    Query1: TQuery;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Bevel1: TBevel;
    Button1: TButton;
    Bevel2: TBevel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_rsqkqxfs: Tfrm_rsqkqxfs;

implementation

{$R *.DFM}

procedure Tfrm_rsqkqxfs.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrm_rsqkqxfs.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked then
  begin
   Query1.sql.Clear;
   Query1.sql.Add('select count(*) rs,xb hl from ygzlb group by xb');
  end;
if RadioButton2.Checked then
  begin
   Query1.sql.Clear;
   Query1.sql.Add('select count(*) rs,xl hl from ygzlb group by xl');
   end;
if RadioButton3.Checked then
  begin
   Query1.sql.Clear;
   Query1.sql.Add('select count(*) rs,ssbm hl from ygzlb group by ssbm');
   end;
if RadioButton4.Checked then
  begin
   Query1.sql.Clear;
   Query1.sql.Add('select count(*) rs,zc hl from ygzlb group by zc');
   end;
if RadioButton5.Checked then
  begin
   Query1.sql.Clear;
   Query1.sql.Add('select count(*) rs,zw hl from ygzlb group by zw');
  end;
if Query1.active then Query1.Close;
   Query1.open;
end;


procedure Tfrm_rsqkqxfs.CheckBox1Click(Sender: TObject);
begin
 if Query1.Active then
    DBChart1.View3d:=CheckBox1.Checked;
end;

end.