ygzbxxxr.pas

用delphi开发的 人事管理系统

unit ygzbxxxr;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, ComCtrls, Mask, ExtCtrls, Db, DBTables;

type
  Tfrm_ygzbxxsr = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Panel2: TPanel;
    Shape1: TShape;
    Shape2: TShape;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    GroupBox2: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    DateTimePicker1: TDateTimePicker;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    DateTimePicker2: TDateTimePicker;
    Bevel5: TBevel;
    Bevel6: TBevel;
    Bevel7: TBevel;
    Bevel8: TBevel;
    Bevel9: TBevel;
    Bevel10: TBevel;
    Bevel11: TBevel;
    Bevel12: TBevel;
    Bevel13: TBevel;
    Panel3: TPanel;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    DataSource1: TDataSource;
    Query1: TQuery;
    Query2: TQuery;
    DataSource2: TDataSource;
    Query3: TQuery;
    DataSource3: TDataSource;
    Query4: TQuery;
    DataSource4: TDataSource;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Bevel14: TBevel;
    Edit7: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ygzbxxsr: Tfrm_ygzbxxsr;

implementation

uses dl;

{$R *.DFM}

procedure Tfrm_ygzbxxsr.Button4Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_ygzbxxsr.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;




procedure Tfrm_ygzbxxsr.Button1Click(Sender: TObject);
begin
  Edit1.enabled:= true;
  Edit1.text:='';
  Edit1.SetFocus;
  Edit2.enabled:= true;
  Edit2.text:='';
  Edit3.enabled:= true;
  Edit3.text:='';
  Edit4.enabled:= true;
  Edit4.text:='';
  Edit5.enabled:= true;
  Edit5.text:='';
  Edit6.enabled:= true;
  Edit6.text:='';
  Edit7.enabled:= true;
  Edit7.text:='';
  ComboBox1.enabled:=true;
  ComboBox2.enabled:=true;
  ComboBox3.enabled:=true;
  DateTimePicker1.enabled:=true;
  DateTimePicker2.enabled:=true;
  DBLookupComboBox1.enabled:=true;
  DBLookupComboBox2.enabled:=true;
  DBLookupComboBox3.enabled:=true;
  button3.enabled:=true;

end;

procedure Tfrm_ygzbxxsr.Button3Click(Sender: TObject);
var Sql: String;
    qsrq,rzsj,czdate: String;
begin
qsrq:=FormatDatetime('YYYY-MM-DD',datetimepicker1.Datetime);
rzsj:=FormatDatetime('YYYY-MM-DD',datetimepicker2.Datetime);
czdate := FormatDatetime('YYYY-MM-DD HH:MM:SS',Now);
if Application.MessageBox('您确认要提交吗？','系统提示',mb_IconInformation+mb_OK+mb_OKCancel)=IDCancel then Exit;
    begin
    if (Edit1.text='') or (Edit2.text='') then
    begin
    Application.MessageBox('姓名不能为空或员工号不能为空!','系统提示',mb_IconInformation+mb_OK);
    Exit;
    end;
    if trim(DBLookupComboBox1.Text) ='' then begin showmessage('请选择部门');exit;end;
    if trim(DBLookupComboBox2.Text) ='' then begin showmessage('请选择职务');exit;end;
    if trim(DBLookupComboBox3.Text) ='' then begin showmessage('请选择职称');exit;end;
    sql:='select * from ygzlb where ygh='''+trim(edit1.text)+'''';
    query1.sql.clear;
    query1.sql.add(sql);
    if query1.Active then
    query1.close;
    query1.open;
      if not query1.isempty then
      begin
        showmessage('此员工号已存在，请重新输入员工号');
        edit1.selectall;
        edit1.setfocus;
        exit;
      end
      else
      begin
        sql:='insert into ygzlb(ygh,xm,xb,xl,qsrq,ssbm,zc,zw,rzsj,sfzh,jtzz,gdlxdh,'
        +'sjhm,email,zzmm,yxbz,czy,czrq)'
        +'values('''+Trim(Edit1.Text)+''','''+trim(Edit2.text)+''','
        +''''+combobox1.text+''','''+combobox3.text+''','''+qsrq+''','''+DBLookupComboBox1.keyvalue+''','
        +''''+DBLookupComboBox3.keyvalue+''','''+DBLookupComboBox2.keyvalue+''','''+rzsj+''','''+edit3.text+''','
        +''''+trim(edit4.text)+''','''+trim(edit7.text)+''','''+trim(edit6.text)+''','''+trim(edit5.text)+''','
        +''''+combobox2.text+''',1,'''+dluser+''','''+czDate+''')';
        query1.sql.clear;
        query1.sql.add(sql);
        query1.execsql;
        if Application.MessageBox('该记录提交成功,继续提交吗?','系统提示',mb_IconInformation+mb_OK+mb_OKCancel)=IDCancel then
          begin
          Button3.Enabled := False;
          Exit;
          end;
         button1.Click;
       end;
    end;
end;

procedure Tfrm_ygzbxxsr.Button2Click(Sender: TObject);
begin
showmessage('点击增加按钮,输入员工信息后点击击提交按钮');
end;

procedure Tfrm_ygzbxxsr.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (edit1.text<>'') AND (key=#13) then
edit2.setfocus;
end;

procedure Tfrm_ygzbxxsr.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if (edit1.text<>'') AND (key=#13) then
combobox1.setfocus;
end;

procedure Tfrm_ygzbxxsr.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit5.setfocus;
end;

procedure Tfrm_ygzbxxsr.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13then
edit6.setfocus;
end;

procedure Tfrm_ygzbxxsr.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13then
edit7.setfocus;
end;

procedure Tfrm_ygzbxxsr.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
button3.setfocus;
end;

end.