kqtj.~pas

人事管理

unit kqtj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, Grids, DBGrids, DB, ADODB;

type
  Tfrmkqtj = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    rdpreview: TRadioButton;
    rdprint: TRadioButton;
    rdfind: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edname: TEdit;
    cmbm: TComboBox;
    btnfind: TBitBtn;
    btnpreview: TBitBtn;
    btnprint: TBitBtn;
    GroupBox3: TGroupBox;
    checkmonth: TCheckBox;
    Checkname: TCheckBox;
    Checkbm: TCheckBox;
    cmbmonth: TComboBox;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    adkqtjqry: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure rdfindClick(Sender: TObject);
    procedure rdpreviewClick(Sender: TObject);
    procedure rdprintClick(Sender: TObject);
    
    procedure btnfindClick(Sender: TObject);
    procedure btnpreviewClick(Sender: TObject);
    procedure btnprintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmkqtj: Tfrmkqtj;

implementation

uses datarsgl, prtkqtj;

{$R *.dfm}

procedure Tfrmkqtj.FormCreate(Sender: TObject);
var month:integer;
var strmonth:string;
begin
btnfind.Enabled:=false;
btnpreview.Enabled:=false;
btnprint.Enabled:=false;
for month:=1 to 12 do       //添加每个月值
begin
strmonth:=inttostr(month);
cmbmonth.Items.Add(strmonth);
end;
with dmrsgl.ygbmqry do
begin
close;
sql.Clear;
sql.Add('select * from ygbmtb');
open;
first;
cmbm.Items.Add(fieldbyname('ygbm1').AsString);
cmbm.Items.Add(fieldbyname('ygbm2').AsString);
cmbm.Items.Add(fieldbyname('ygbm3').AsString);
cmbm.Items.Add(fieldbyname('ygbm4').AsString);
cmbm.Items.Add(fieldbyname('ygbm5').AsString);
cmbm.Items.Add(fieldbyname('ygbm6').AsString);
cmbm.Items.Add(fieldbyname('ygbm7').AsString);
cmbm.Items.Add(fieldbyname('ygbm8').AsString);
cmbm.Items.Add(fieldbyname('ygbm9').AsString);
cmbm.Items.Add(fieldbyname('ygbm10').AsString);
end;
end;

procedure Tfrmkqtj.rdfindClick(Sender: TObject);
begin
btnfind.Enabled:=true;
btnpreview.Enabled:=false;
btnprint.Enabled:=false;
end;

procedure Tfrmkqtj.rdpreviewClick(Sender: TObject);
begin
btnfind.Enabled:=false;
btnpreview.Enabled:=true;
btnprint.Enabled:=false;
end;

procedure Tfrmkqtj.rdprintClick(Sender: TObject);
begin
btnfind.Enabled:=false;
btnpreview.Enabled :=false;
btnprint.Enabled:=true;
end;


procedure Tfrmkqtj.btnfindClick(Sender: TObject);
var check:integer;
//定义查询方式的条件
begin
 //检查查询方式的条件
 check:=0;
if checkmonth.Checked=true then
begin
check:=1;
end;
if (checkmonth.Checked=true) and (checkname.Checked=true) then
begin
check:=2;
end;
if (checkmonth.Checked=true) and (checkbm.Checked=true) then
begin
check:=3;
end;
   {else
   messagedlg('选择的查询方式的条件不符合系统要求,请重新选择.',mtwarning,[mbyes],0);
   checkmonth.Checked:=false;
   checkname.Checked:=false;
   checkbm.Checked:=false;
   end
  end;}

with dmrsgl.ygkqtbqry do     //按条件查询获得数据
begin
case check of //判断查询条件方式
1:
  if cmbmonth.Text='1' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,onemonth from ygsbtb');
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='一月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('onemonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='2' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,twomonth from ygsbtb');
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='二月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('twomonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='3' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,threemonth from ygsbtb');
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='三月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('threemonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='4' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,fourmonth from ygsbtb');
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='四月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('fourmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='5' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,fivemonth from ygsbtb');
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='五月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('fivemonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='6' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,sixmonth from ygsbtb');
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='六月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('sixmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='7' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,sevenmonth from ygsbtb');
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='七月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('sevenmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
  end
  else
  messagedlg('数据库中不存在这些记录,请查询其它的月份.',mtwarning,[mbyes],0);
  end
  else if cmbmonth.Text='8' then
  begin   //判断月份选择
  close;
  sql.clear;
  sql.add('select number,name,sex,ygbm,eightmonth from ygsbtb');
  open; //打开数据库
  datasource1.dataset:=dmrsgl.ygkqtbqry;
  if recordcount<>0 then
  begin
  dbgrid1.Columns[4].FieldName:='八月份';
  dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
  dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
  dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
  dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
  dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
  dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
  dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
  dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
  dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('eightmonth');
  dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;