unit4.~pas

人事管理(delphi源码)

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, XP_Form, ExtCtrls, StdCtrls;

type
  TForm4 = class(TForm)
    XP_Form1: TXP_Form;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.DFM}

procedure TForm4.Button2Click(Sender: TObject);
begin
form4.close;
end;

procedure TForm4.ComboBox2Change(Sender: TObject);
begin
  if combobox2.text='按年龄统计' then
  begin
  label4.caption:='请输入职工年龄';
  combobox3.visible:=true;
  end;
  if combobox2.text='按性别统计' then
  begin
  label4.caption:='请选择职工性别';
  combobox3.visible:=true;
  end;
  if combobox2.text='按车间统计' then
  begin
  label4.caption:='请选择职工工作车间';
  combobox3.visible:=true;
  end;
  if combobox2.text='按工资形式统计' then
  begin
  label4.caption:='请选择职工工资形式';
  combobox3.visible:=true;
  end;
  if combobox2.text='按文化程度统计' then
  begin
  label4.caption:='请选择职工文化程度';
  combobox3.visible:=true;
  end;
  if combobox2.text='显示全厂职工' then
  begin
  label4.caption:='';
  combobox3.visible:=false;

  end;
end;

end.