u_form_checkstandardfind.~pas

这是delphi7.0开发的人力资源培训考核软件

unit U_Form_CheckStandardFind;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EasyGrid, StdCtrls, DB, ADODB;

type
  TForm_CheckStandardFind = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    ComboBox1: TComboBox;
    ComboBox4: TComboBox;
    ComboBox3: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    GroupBox2: TGroupBox;
    Grid1: TEasyGrid;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_CheckStandardFind: TForm_CheckStandardFind;

implementation

uses U_Form_MainMenu,uAdoSet,uGlobal, U_Form_CheckStandard;

{$R *.dfm}

procedure TForm_CheckStandardFind.FormCreate(Sender: TObject);
var
    param:TStringList;
    strSql:string;
    i:integer;
begin
     combobox3.Items.Clear;
    for i:=2006 to 2040 do
    begin
        combobox3.Items.Add(trim(intToStr(i)));
    end;///
    combobox4.Items.Clear;
    for i:=1 to 12 do
    begin
        if i<10 then
        begin
           combobox4.Items.Add('0'+trim(intToStr(i)));
        end
        else
           combobox4.Items.Add(trim(intToStr(i)));
    end;///
    ////
    param:=TStringList.Create;
    param.Clear;
    setDbFlag('HRManage');
    strSql:='Select Dept_Name  From  HRDeptName';
    FillCtrlParam(AdoQuery1,strSql,param,Combobox1,'Dept_name');

end;

procedure TForm_CheckStandardFind.FormShow(Sender: TObject);
var
    i:integer;
begin
     grid1.Cells[1,1].ForeText:='序号';
     grid1.ColWidths[1]:=40;
     grid1.Cells[2,1].ForeText:='被考核部门';
     grid1.ColWidths[2]:=100;
     grid1.Cells[3,1].ForeText:='标准分值';
     grid1.ColWidths[3]:=80;

     ///////////////////////
     for i:=1 to grid1.ColCount-1 do
     begin
         grid1.Cells[i,1].Color:=rgb(0,143,247);
         grid1.Cells[i,1].FontColor:=rgb(255,255,255);
     end;////
end;

procedure TForm_CheckStandardFind.Button1Click(Sender: TObject);
var
    param:TStringList;
    strSql:string;
    i:integer;
begin
      if combobox1.text='' then
     begin
        showmessage('请选择考核部门名称...');
        exit;
     end;///
     if combobox3.text='' then
     begin
        showmessage('请选择年度...');
        exit;
     end;///
     if combobox4.text='' then
     begin
        showmessage('请选择月份...');
        exit;
     end;///
     param:=TStringList.Create;
     param.Clear;
     setDBFlag('HRManage');
     param.Add(trim(combobox1.text));
     param.Add(trim(combobox3.text));
     param.Add(trim(combobox4.text));
     strSql:='Select CHK_OrderID,CHK_ByCheckDept,CHK_Standard  From  HRCheckStandard  Where  CHK_CheckDept=:s1 and  CHK_year=:s2  and  CHK_Month=:s3';
     BindToGrid(AdoQuery1,strSql,param,grid1);
     
     ///////////////////////
     for i:=1 to grid1.ColCount-1 do
     begin
         grid1.Cells[i,1].Color:=rgb(0,143,247);
         grid1.Cells[i,1].FontColor:=rgb(255,255,255);
     end;////
     grid1.Refresh;
end;

procedure TForm_CheckStandardFind.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
     EnableWindow(Form_CheckStandard.Handle,true);
     CanClose:=true;
end;

procedure TForm_CheckStandardFind.Button2Click(Sender: TObject);
var
   param:TStringList;
   strSql:string;
   i:integer;
begin
   param:=TStringList.Create;
   setDbFlag('HRManage');
   param.Clear;
   param.Add(trim(combobox1.Text));
   param.Add(trim(combobox3.Text));
   param.Add(trim(combobox4.Text));
   strSql:='Delete  From  HRCheckStandard  Where  CHK_CheckDept=:s1  and  CHK_year=:s2  and  CHK_Month=:s3';
   DelRecord(AdoQuery1,strSql,param);

   for i:=2 to grid1.RowCount-2 do
   begin
       param.clear; 
       param.Add(trim(combobox1.Text));
       param.Add(trim(combobox3.Text));
       param.Add(trim(combobox4.Text));
       param.Add(trim(grid1.cells[1,i].foretext));
       param.Add(trim(grid1.cells[2,i].foretext));
       param.Add(trim(grid1.cells[3,i].foretext));
       param.Add('0');
       strSql:='Insert Into  HRCheckStandard(CHK_CheckDept,CHK_Year,CHK_Month,CHK_OrderID,CHK_ByCheckDept,CHK_Standard,isCancel) Values(:s1,:s2,:s3,:s4,:s5,:s6,:s7)';
       SaveRecord(AdoQuery1,strSql,param);

   end;////
   Showmessage('存盘成功...');
end;

procedure TForm_CheckStandardFind.Button3Click(Sender: TObject);
begin
   EnableWindow(Form_CheckStandard.Handle,true);
   Close;
end;

end.