u_form_checksetup.pas

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

unit U_Form_CheckSetup;

interface

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

type
  TForm_CheckSetup = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    NewAdd: TButtonExCtl;
    CmdSave: TButtonExCtl;
    CmdDel: TButtonExCtl;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    ComboBox2: TComboBox;
    Label4: TLabel;
    Edit2: TEdit;
    ADOQuery1: TADOQuery;
    Label5: TLabel;
    ComboBox3: TComboBox;
    Label6: TLabel;
    ComboBox4: TComboBox;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure NewAddClick(Sender: TObject);
    procedure CmdSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_CheckSetup: TForm_CheckSetup;

implementation

uses U_Form_MainMenu, U_Form_CheckStandard,uAdoSet,uGlobal;

{$R *.dfm}

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

procedure TForm_CheckSetup.FormCreate(Sender: TObject);
var
    i:integer;
    param:TStringList;
    strSql:string;
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');
    FillCtrlParam(AdoQuery1,strSql,param,Combobox2,'Dept_name');
    ////////////////
end;

procedure TForm_CheckSetup.FormShow(Sender: TObject);
var
    param:TStringList;
    strsql:string;
begin
      param:=TStringList.Create;

     if isCHKAdd=1 then
     begin
        /////自动计算序号////////////////
        ////showmessage(var_form_CHKID);
         setDBFlag('HRManage');
         param.Clear;
         param.Add(trim(var_Form_CHKID));
         strSql:='Select * From HRCheckStandard  where  CHK_CheckDept=:s1';
         edit1.Text:=intToStr(getRecordCount(AdoQuery1,strSql,param)+1);
         /////////////////////////////////
         combobox1.Text:='';
         combobox2.Text:='';
         combobox3.Text:='';
         combobox4.Text:='';
         edit2.Text:='';
     end;///
     if isCHKAdd=2 then
     begin
        edit1.Text:=trim(var_Form_CHK[3]);
        combobox1.Text:=trim(var_Form_CHK[4]);
        combobox2.Text:=trim(var_Form_CHK[5]);
        combobox3.Text:=trim(var_Form_CHK[1]);
        combobox4.Text:=trim(var_Form_CHK[2]);
        edit2.Text:=trim(var_Form_CHK[6]);
     end;///
end;

procedure TForm_CheckSetup.NewAddClick(Sender: TObject);
var
    param:TStringList;
    strSql:string;
begin
     /////自动计算序号////////////////
        /////自动计算序号////////////////
         param:=TStringList.Create;
        ////showmessage(var_form_CHKID);
         setDBFlag('HRManage');
         param.Clear;
         param.Add(trim(var_Form_CHKID));
         strSql:='Select * From HRCheckStandard  where  CHK_CheckDept=:s1';
         edit1.Text:=intToStr(getRecordCount(AdoQuery1,strSql,param)+1);
         /////////////////////////////////
         combobox1.Text:='';
         combobox2.Text:='';
         combobox3.Text:='';
         combobox4.Text:='';
         edit2.Text:='';
end;

procedure TForm_CheckSetup.CmdSaveClick(Sender: TObject);
var
   param:TStringList;
   strSql:string;
begin
   param:=TStringList.Create;
   if isCHKAdd=1 then
   begin
      if Application.MessageBox('确定是否存盘？','系统提示',MB_yesNO+MB_IconInformation)=id_yes then
      begin
         param.Clear;
         param.Add(trim(combobox3.text));
         param.Add(trim(combobox4.text));
         param.Add(trim(edit1.text));
         param.Add(trim(combobox1.text));
         param.Add(trim(combobox2.text));

         param.Add(trim(edit2.text));
         param.Add('0');
         strSql:='Insert into  HRCheckStandard(CHK_Year,CHK_Month,CHK_OrderID,CHK_CheckDept,CHK_ByCheckDept,CHK_Standard,isCanCel)  Values(:s1,:s2,:s3,:s4,:s5,:s6,:s7)';
         SaveRecord(AdoQuery1,strSql,param);
         showmessage('存盘成功...');
         //////////////////////////////////////
         ////showmessage(var_form_CHKID);
         setDBFlag('HRManage');
         param.Clear;
         param.Add(trim(var_Form_CHKID));
         strSql:='Select * From HRCheckStandard  where  CHK_CheckDept=:s1';
         edit1.Text:=intToStr(getRecordCount(AdoQuery1,strSql,param)+1);
         /////////////////////////////////
         combobox1.Text:='';
         combobox2.Text:='';
         combobox3.Text:='';
         combobox4.Text:='';
         edit2.Text:='';
      end;/////App
   end;////=1
   if isCHKAdd=2 then
   begin
      if Application.MessageBox('确定是否修改当前记录？','系统提示',MB_yesNO+MB_IconInformation)=id_yes then
      begin
         param.Clear;
         param.Add(trim(combobox3.text));
         param.Add(trim(combobox4.text));
         param.Add(trim(edit1.text));
         param.Add(trim(combobox1.text));
         param.Add(trim(combobox2.text));
         param.Add(trim(edit2.text));
         param.Add(trim(var_Form_CHKID));
         strSql:='Update HRCheckStandard Set CHK_Year=:s1,CHK_Month=:s2,CHK_OrderID=:s3,CHK_CheckDept=:s4,CHK_ByCheckDept=:s5,CHK_Standard=:s6  Where  sID=:s7';
         UpdateRecord(AdoQuery1,strSql,param);
         showmessage('修改成功...');
         //////////////////////////////////////
         ////showmessage(var_form_CHKID);
         setDBFlag('HRManage');
         param.Clear;
         param.Add(trim(var_Form_CHKID));
         strSql:='Select * From HRCheckStandard  where  CHK_CheckDept=:s1';
         edit1.Text:=intToStr(getRecordCount(AdoQuery1,strSql,param)+1);
         /////////////////////////////////
         combobox1.Text:='';
         combobox2.Text:='';
         combobox3.Text:='';
         combobox4.Text:='';
         edit2.Text:='';
      end;///=App
   end;////=2
end;

end.