rsqkqxfs.pas

一个用vb mysql实现的人事管理信息系统希望对大家有用。

unit rsqkqxfs;

interface

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

type
  Tfrm_rsqkqxfs = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBChart1: TDBChart;
    CheckBox1: TCheckBox;
    Series1: TPieSeries;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Bevel1: TBevel;
    Button1: TButton;
    Bevel2: TBevel;
    Panel3: TPanel;
    ADOQuery1: TADOQuery;
    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
uses dm;
{$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
   ADOQuery1.sql.Clear;
   ADOQuery1.sql.Add('select count(*)as rs,xb as hl from ygzlb group by xb');
  end;
if RadioButton2.Checked then
  begin
   ADOQuery1.sql.Clear;
   ADOQuery1.sql.Add('select count(*)as rs,xl as hl from ygzlb group by xl');
   end;
if RadioButton3.Checked then
  begin
   ADOQuery1.sql.Clear;
   ADOQuery1.sql.Add('select count(*) as rs,ssbm as hl from ygzlb group by ssbm');
   end;
if RadioButton4.Checked then
  begin
   ADOQuery1.sql.Clear;
   ADOQuery1.sql.Add('select count(*) as rs,zc as hl from ygzlb group by zc');
   end;
if RadioButton5.Checked then
  begin
   ADOQuery1.sql.Clear;
   ADOQuery1.sql.Add('select count(*) as rs,zw as hl from ygzlb group by zw');
  end;
if ADOQuery1.active then ADOQuery1.Close;
   ADOQuery1.open;
end;


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

end.