📄 u_yp.pas

📁 人力资源管理系统自动计算员工工资。自动生成员工工资报表。实现员工岗位调动操作。实现员工离职、复职操作。支持数据的模糊查询机制。运行环境操作系统：Windows 2000/NT/XP/ME 开发工
💻 PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit U_yp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Mask;

type
  Tfrm_yp = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    MaskEdit1: TMaskEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure editclear;
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure Edit9Change(Sender: TObject);
    procedure Edit10Change(Sender: TObject);
    procedure Edit11Change(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure Edit12Change(Sender: TObject);
    procedure Edit13Change(Sender: TObject);
    procedure editvalue;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit11KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit12KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  
var
  frm_yp: Tfrm_yp;

implementation

uses U_data, U_xygdj, U_ypll, U_main;

{$R *.dfm}

procedure Tfrm_yp.editvalue;
begin
Edit1.Text:=data1.yp.FieldByName('编号').Value;
Edit2.Text:=data1.yp.FieldByName('姓名').Value;
combobox2.Text:=data1.yp.FieldByName('性别').Value;
combobox1.Text:=data1.yp.FieldByName('民族').Value;
MaskEdit1.Text:=data1.yp.FieldByName('出生日期').Value;
Edit6.Text:=data1.yp.FieldByName('联系电话').Value;
Edit7.Text:=data1.yp.FieldByName('电子信箱').Value;
Edit8.Text:=data1.yp.FieldByName('特长').Value;
Edit9.Text:=data1.yp.FieldByName('兴趣爱好').Value;
Edit10.Text:=data1.yp.FieldByName('通信地址').Value;
Edit11.Text:=data1.yp.FieldByName('毕业院校').Value;
Edit12.Text:=data1.yp.FieldByName('专业').Value;
combobox3.Text:=data1.yp.FieldByName('文化程度').Value;
memo1.Text:=data1.yp.FieldByName('专业技能').Value;
memo2.Text:=data1.yp.FieldByName('工作经历').Value;
end;

procedure Tfrm_yp.BitBtn1Click(Sender: TObject);
var
s,m:string;
n:integer;
begin
s:='yp';
With data1.ADOpublic do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select max(编号) as ss From 应聘信息表 ');
    Open;
  end;
If data1.ADOpublic.FieldByName('ss').Value = null then
    s :=s+'001'
  else
  begin
    m:= Trim(data1.ADOpublic.FieldByName('ss').Value) ;
    n:= StrToInt(copy(m,4,5)) ;
    if n<9 then
      s:= s+'00'+ InttoStr(n +1)
    else if n<99 then
      s:=s+'0'+ InttoStr(n +1)
    else
      s:= s+InttoStr(n +1);
  end;
  edit1.Text:=s;
end;

procedure Tfrm_yp.editclear;
begin
edit1.Clear;
edit2.Clear;
combobox2.Text:='';
combobox1.Text:='';
maskedit1.Text:='1975-01-01';
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
edit10.Clear;
edit11.Clear;
edit12.Clear;
combobox2.Clear;
memo1.Clear;
memo2.Clear;
end;

procedure Tfrm_yp.BitBtn2Click(Sender: TObject);
begin
try
with data1.ADOQuery1 do
   begin
      close;
      sql.Clear;
      sql.Add('insert 应聘信息表 values(:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o)');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      parameters.ParamByName('b').Value:=trim(edit2.Text);
      parameters.ParamByName('c').Value:=trim(combobox2.Text);
      parameters.ParamByName('d').Value:=trim(maskedit1.Text);
      parameters.ParamByName('e').Value:=trim(combobox1.Text);
      parameters.ParamByName('f').Value:=trim(edit6.Text);
      parameters.ParamByName('g').Value:=trim(edit7.Text);
      parameters.ParamByName('h').Value:=trim(edit10.Text);
      parameters.ParamByName('i').Value:=trim(edit11.Text);
      parameters.ParamByName('j').Value:=trim(edit12.Text);
      parameters.ParamByName('k').Value:=trim(combobox3.Text);
      parameters.ParamByName('l').Value:=trim(edit8.Text);
      parameters.ParamByName('m').Value:=trim(edit9.Text);
      parameters.ParamByName('n').Value:=trim(memo1.Text);
      parameters.ParamByName('o').Value:=trim(memo2.Text);
      execsql;
   end;
   //self.OnShow(sender);
   application.MessageBox('保存成功','提示',64);
   editclear;
   close;
except
   application.MessageBox('保存失败','提示',64);
end;
end;

procedure Tfrm_yp.BitBtn3Click(Sender: TObject);
begin
try
with data1.yp do
   begin
      edit;
      fieldbyname('编号').Value:=trim(edit1.Text);
      fieldbyname('姓名').Value:=trim(edit2.Text);
      fieldbyname('性别').Value:=trim(combobox2.Text);
      fieldbyname('民族').Value:=trim(combobox1.Text);
      fieldbyname('出生日期').Value:=trim(maskedit1.Text);
      fieldbyname('联系电话').Value:=trim(edit6.Text);
      fieldbyname('电子信箱').Value:=trim(edit7.Text);
      fieldbyname('特长').Value:=trim(edit8.Text);
      fieldbyname('兴趣爱好').Value:=trim(edit9.Text);
      fieldbyname('通信地址').Value:=trim(edit10.Text);
      fieldbyname('毕业院校').Value:=trim(edit11.Text);
      fieldbyname('专业').Value:=trim(edit12.Text);
      fieldbyname('文化程度').Value:=trim(combobox3.Text);
      fieldbyname('专业技能').Value:=trim(memo1.Text);
      fieldbyname('工作经历').Value:=trim(memo2.Text);
      post;
   end;
   application.MessageBox('修改成功','提示',64);
   editclear;
   frm_ypll.OnShow(sender);
   close;
except
   application.MessageBox('修改成功','提示',64);
end;
end;

procedure Tfrm_yp.BitBtn4Click(Sender: TObject);
begin
editclear;
end;

procedure Tfrm_yp.BitBtn6Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要删除吗？','提示',mb_yesno+mb_iconquestion)=idyes then
   data1.ADOQuery1.Delete;
end;

procedure Tfrm_yp.BitBtn5Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_yp.FormShow(Sender: TObject);
begin
maskedit1.Text:=formatdatetime('yyyy-mm-dd',now);
with data1.ADOQuery1 do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 应聘信息表');
      open;
   end;
data1.ADOQuery1.Active:=true;
with data1.ADOQYmzxx do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 民族表');
      open;
   end;
while not data1.ADOQYmzxx.Eof do
   begin
      combobox1.Items.Add(data1.ADOQYmzxx.FieldByName('民族').Value);
      data1.ADOQYmzxx.Next;
   end;
with data1.ADOQYwhcd do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 文化程度表');
      open;
   end;
while not data1.ADOQYwhcd.Eof do
   begin
      combobox3.Items.Add(data1.ADOQYwhcd.FieldByName('文化程度').Value);
      data1.ADOQYwhcd.Next;
   end;
end;

procedure Tfrm_yp.BitBtn7Click(Sender: TObject);
begin
frm_main.log:=2;
application.CreateForm(Tfrm_xygdj,frm_xygdj);
frm_xygdj.ShowModal;
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -