formpersonal1.pas

pasa人力资源考勤管理系统

unit formpersonal1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ExtCtrls, Mask, DBCtrls, Buttons, Db, ADODB, Grids,
  DBGrids, ToolWin, RxLookup, ExtDlgs,jpeg, ToolEdit, CurrEdit, wwdblook,
  DBActns, ActnList;

type
  Tformpersonal = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Qryotmoney: TADOQuery;
    Dsotmoney: TDataSource;
    OP1: TOpenPictureDialog;
    DataSource2: TDataSource;
    Panel3: TPanel;
    Label39: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    btnexit: TSpeedButton;
    DBEdit3: TDBEdit;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Edit2: TEdit;
    DBNavigator3: TDBNavigator;
    Label4: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    Shape1: TShape;
    Label10: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Image1: TImage;
    Label40: TLabel;
    SpeedButton7: TSpeedButton;
    Label3: TLabel;
    DBRadioGroup1: TDBRadioGroup;
    DBEdit9: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit24: TDBEdit;
    DBCheckBox2: TDBCheckBox;
    DBEdit25: TDBEdit;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DateTimePicker1: TDateTimePicker;
    DBComboBox5: TDBComboBox;
    Edit1: TEdit;
    DateTimePicker2: TDateTimePicker;
    DBEdit6: TDBEdit;
    DBCheckBox6: TDBCheckBox;
    DBComboBox18: TDBComboBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Panel5: TPanel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Panel6: TPanel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label60: TLabel;
    DBMemo1: TDBMemo;
    DBEdit30: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit59: TDBEdit;
    DBComboBox7: TDBComboBox;
    DBComboBox9: TDBComboBox;
    DBComboBox10: TDBComboBox;
    DBComboBox12: TDBComboBox;
    DBComboBox13: TDBComboBox;
    DBComboBox14: TDBComboBox;
    DBComboBox15: TDBComboBox;
    DBEdit31: TDBEdit;
    DBEdit33: TDBEdit;
    Label18: TLabel;
    Label19: TLabel;
    DBEdit16: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit17: TDBEdit;
    Label20: TLabel;
    Label21: TLabel;
    DBEdit18: TDBEdit;
    Label22: TLabel;
    DBEdit19: TDBEdit;
    Panel4: TPanel;
    SpeedButton6: TSpeedButton;
    DBGrid3: TDBGrid;
    DBNavigator2: TDBNavigator;
    Button1: TButton;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    CoolBar1: TCoolBar;
    SpeedButton4: TSpeedButton;
    Label17: TLabel;
    DBEdit14: TDBEdit;
    wwDBLookupCombo1: TwwDBLookupCombo;
    DBText1: TDBText;
    SpeedButton1: TSpeedButton;
    Button2: TButton;
    wwDBLookupCombo3: TwwDBLookupCombo;
    wwDBLookupCombo4: TwwDBLookupCombo;
    wwDBLookupCombo5: TwwDBLookupCombo;
    wwDBLookupCombo6: TwwDBLookupCombo;
    wwDBLookupCombo7: TwwDBLookupCombo;
    Label23: TLabel;
    DBComboBox6: TDBComboBox;
    DBCheckBox1: TDBCheckBox;
    procedure btnexitClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure btncancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBEdit9Exit(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure SpeedButton4Click(Sender: TObject);
    procedure DBComboBox5DblClick(Sender: TObject);
    procedure DBComboBox6DblClick(Sender: TObject);
    procedure DBComboBox7DblClick(Sender: TObject);
    procedure DBComboBox9DblClick(Sender: TObject);
    procedure DBComboBox10DblClick(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Panel4DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure TabSheet1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox16DblClick(Sender: TObject);
    procedure DBComboBox5Exit(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox6Exit(Sender: TObject);
    procedure DBComboBox7Exit(Sender: TObject);
    procedure DBComboBox9Exit(Sender: TObject);
    procedure DBComboBox10Exit(Sender: TObject);
    procedure DBComboBox12Exit(Sender: TObject);
    procedure DBComboBox13Exit(Sender: TObject);
    procedure DBComboBox14Exit(Sender: TObject);
    procedure DBComboBox15Exit(Sender: TObject);
    procedure DateTimePicker1CloseUp(Sender: TObject);
    procedure DBNavigator1BeforeAction(Sender: TObject;
      Button: TNavigateBtn);
    procedure DateTimePicker2CloseUp(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit24Exit(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure wwDBLookupCombo1Exit(Sender: TObject);
    procedure wwDBLookupCombo1DblClick(Sender: TObject);
    procedure wwDBLookupCombo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure wwDBLookupCombo3DblClick(Sender: TObject);
    procedure wwDBLookupCombo3Exit(Sender: TObject);
    procedure wwDBLookupCombo4DblClick(Sender: TObject);
    procedure wwDBLookupCombo5DblClick(Sender: TObject);
    procedure wwDBLookupCombo6DblClick(Sender: TObject);
    procedure wwDBLookupCombo7DblClick(Sender: TObject);
    procedure DBEdit6Exit(Sender: TObject);
    procedure DBMemo1Exit(Sender: TObject);
    procedure DBNavigator3Click(Sender: TObject; Button: TNavigateBtn);
    procedure DBComboBox18Change(Sender: TObject);
  private
    { Private declarations }
  public
    copynumber:integer;
    procedure showdbgrid(number:integer);
    { Public declarations }
  end;

var
  formpersonal: Tformpersonal;
  check:string='';//用来记录那些项目被选中
  che:array [1..18] of integer;//用来记录操作过程中那些项目被选中
  qry:tadoquery;
implementation

uses datamol, schebrow, formcomrec,otmoney,publicfunction,insrecord,formperson,main,
  turnrule;

{$R *.DFM}



procedure Tformpersonal.btnexitClick(Sender: TObject);
begin
  if datamod.ADOpersonal.State =dsinsert then
    if messagedlg('当前记录要存盘吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
      datamod.adopersonal.post
    else
      datamod.ADOpersonal.Cancel
  else if datamod.ADOpersonal.Modified then
    datamod.ADOpersonal.Post;
  close;
end;

procedure Tformpersonal.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if activecontrol=dbgrid1 then
    exit;
  if (activecontrol=dbedit3) and (key=#13) then
  begin
    wwDBLookupCombo1.setfocus;
    key:=#0;
  end;
  if key=#13 then   //窗体内的回车键的控制
    begin
      key:=#0;
      perform(cm_dialogkey,vk_tab,0);
    end;
  end;

procedure Tformpersonal.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then  //当在窗体上方，输入姓名时，光标移到部门编号处
    begin
      key:=#0;
      wwDBLookupCombo1.SetFocus ;
    end;
end;

procedure Tformpersonal.btncancelClick(Sender: TObject);
begin
   datamod.ADOpersonal.Cancel;  //取消前一次操作
  if datamod.ADOpersonal.State =dsinsert then
    close;
end;

//***********************************************************//
//在窗体建立时，向部门编号，职称，学历dbcombobox等中增加项目，以便选取//
//pub05010部门代码，per01010职称
procedure Tformpersonal.FormCreate(Sender: TObject);
begin
//  formmain.outlook1.visible:=false;
  with datamod.ADOQuery1 do
  begin
     close;
     sql.clear;
     sql.Add('select peoplename from per08010'); //民族
     open;
     while not eof do
      begin
        dbcombobox5.Items.Add(fieldbyname('peoplename').asstring);
        next;
      end;
     close;
     sql.Clear;
     sql.Add('select degreename from per04010');    //学历
     open;
     while not eof do
      begin
        dbcombobox6.Items.Add(fieldbyname('degreename').asstring);
        next;
      end;
     close;
     sql.Clear;
     sql.Add ('select coursename from per05010');   //科系
     open;
     while not eof do
      begin
        dbcombobox7.Items.Add(fieldbyname('coursename').asstring);
        next;
      end;
     close;
     sql.clear;
     sql.Add('select visaname from per07010');   //证件
     open;
     while not eof do
       begin
         dbcombobox9.Items.Add(fieldbyname('visaname').asstring);
         next;
       end;
     close;
     sql.clear;
     sql.Add('select foreignname from per09010');   //外语
     open;
     while not eof do
       begin
         dbcombobox10.Items.Add(fieldbyname('foreignname').asstring);
         next;
       end;
     close;
     sql.clear;
     sql.Add('select specname from per06010');
     open;
     while not eof do
       begin
         dbcombobox12.Items.Add(fieldbyname('specname').asstring);
         dbcombobox13.Items.Add(fieldbyname('specname').asstring);
         dbcombobox14.Items.Add(fieldbyname('specname').asstring);
         dbcombobox15.items.Add(fieldbyname('specname').asstring);
         next;
       end;
     close;
  end;
  if length(trim(dbedit1.text))>0 then
    datamod.adopersonal.edit;
  dbedit1.hint:=dbedit1.text;
  dbedit2.hint:=dbedit2.text;
  qryotmoney.open;
  datamod.adodept.open;
  datamod.adograde.open;
  datamod.adobc.open;
  datamod.adoprof.open;
  datamod.adom.open;
  datamod.adoprov.open;
  datamod.adoturnrule.open;
end;

procedure Tformpersonal.DBEdit9Exit(Sender: TObject);
begin
  if length(trim(datamod.adopersonal.fieldbyname('birthday').asstring))>0 then
   begin
    if not isdate(datamod.adopersonal.fieldbyname('birthday').asstring) then
     begin
      Application.Messagebox('您输入的日期有误','Warning',mb_ok+mb_iconerror);
      exit;
     end;
    edit1.text:=inttostr(strtoint(copy(datetostr(now),1,4))-strtoint(copy(datamod.adopersonal.fieldbyname('birthday').asstring,1,4))) ;
    try
      if strtoint(edit1.text)<16 then
       Application.Messagebox('年龄不能小于16岁!!!','Warning',mb_ok+mb_iconerror);
    except
      Application.Messagebox('年龄有误!!!','Warning',mb_ok+mb_iconerror);
    end;
  end;
end;

procedure Tformpersonal.SpeedButton1Click(Sender: TObject);
begin
  if not assigned(forminsrecord) then
    forminsrecord:=Tforminsrecord.create(application);
    forminsrecord.Adoinsrecord.close;
    forminsrecord.Adoinsrecord.commandText:='Select * from ins02010 where workno='''+datamod.ADOpersonalworkno.asstring+''' ';
    forminsrecord.Adoinsrecord.open;
    forminsrecord.show;
end;

procedure Tformpersonal.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  datamod.adoprov.close;
  datamod.adoturnrule.close;
  datamod.adom.close;
  datamod.adoprof.close;
  datamod.adobc.close;
  datamod.adodept.close;
  datamod.adograde.close;
  qryotmoney.close;
  datamod.qryexchange.close;
  action:=cafree;
  formpersonal:=nil;
end;

procedure Tformpersonal.SpeedButton2Click(Sender: TObject);
begin
  if not assigned(formschebrow) then
    formschebrow:=tformschebrow.create(application);
    formschebrow.show;
//    datamod.ADObc.Close;
//    datamod.ADObc.Open;
end;