⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ygzbxxxr.pas

📁 工资管理系统+论文.DOC
💻 PAS
字号:
🔍 
unit ygzbxxxr;

interface

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

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;
    qsrq: TDateTimePicker;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    rzsj: 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;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Edit3: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Bevel14: TBevel;
    Edit7: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    Edit4: TEdit;
    Bevel15: TBevel;
    Bevel16: TBevel;
    Image1: TImage;
    PopupMenu1: TPopupMenu;
    Label18: TLabel;
    Label19: TLabel;
    N1: TMenuItem;
    N2: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    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);
    procedure N1Click(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ygzbxxsr: Tfrm_ygzbxxsr;

implementation

uses dl,dm;

{$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;
  qsrq.enabled:=true;
  rzsj.enabled:=true;
  DBLookupComboBox1.enabled:=true;
  DBLookupComboBox2.enabled:=true;
  DBLookupComboBox3.enabled:=true;
  button3.enabled:=true;
  adoquery2.Open;
  adoquery3.Open;
  adoquery4.Open;

end;

procedure Tfrm_ygzbxxsr.Button3Click(Sender: TObject);
var   sql,ext:string;
begin
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)+'''';
    if ADOQuery1.Active then
    ADOQuery1.close;
    ADOQuery1.sql.clear;
    ADOQuery1.sql.add(sql);
    ADOQuery1.open;
      if not ADOQuery1.isempty then
      begin
        showmessage('此员工号已存在，请重新输入员工号');
        edit1.selectall;
        edit1.setfocus;
        exit;
      end
      else
      with adoquery1 do begin
        try
           dmain.ADOConnection1.BeginTrans  ;
           insert;
           if image1.Picture.Graphic <>nil then
           begin
             FieldByName('photo').Assign(image1.Picture.Graphic);
              //以下记录保存到数据库的图像格式
              ext:=extractfileext(openpicturedialog1.FileName);
              if uppercase(ext) = '.BMP' THEN
                 FieldByName('bmp').Value :=1
                 ELSE IF (UPPERCASE(EXT) = '.JPEG') OR (UPPERCASE(EXT) = '.JPG') THEN
                   FieldByName('bmp').Value :=2;
           end;
           FieldByName('ygh').Value:=Edit1.Text;
           FieldByName('xm').Value:=Edit2.Text;
           FieldByName('xb').Value:=combobox1.text;
           FieldByName('xl').Value:=combobox3.text;
           FieldByName('qsrq').Value:=qsrq.date;
           FieldByName('ssbm').Value:=DBLookupComboBox1.keyvalue;
           FieldByName('rzsj').Value:=rzsj.Date;
           FieldByName('sfzh').Value:=edit3.text;
           FieldByName('zw').Value:=DBLookupComboBox2.keyvalue;
           FieldByName('zc').Value:=DBLookupComboBox3.keyvalue;
           FieldByName('jtzz').Value:=edit4.text;
           FieldByName('gdlxdh').Value:=edit7.text;
           FieldByName('sjhm').Value:=edit6.text;
           FieldByName('email').Value:=edit5.text;
           FieldByName('zzmm').Value:=combobox2.text;
           FieldByName('yxbz').Value:=1;
           FieldByName('czy').Value:=dluser;
           FieldByName('czrq').Value:=date;
           Post ;
           dmain.ADOConnection1.CommitTrans;
        except
              dmain.ADOConnection1.RollbackTrans ;
              showmessage('保存失败！');
              Abort;
        end;//try
        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;

procedure Tfrm_ygzbxxsr.N1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
   Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

end.

⌨️ 快捷键说明

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