add_office.pas

delpi数据可例子生产企业人力资源管理系统.rar 生产企业人力资源管理系统.rar

unit add_office;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtDlgs, SUIButton, DBCtrlsEh, DBCtrls, SUIDBCtrls, StdCtrls,
  Mask, SUIImagePanel, SUIGroupBox, ExtCtrls, SUIForm;

type
  Tadd_office_form = class(TForm)
    add_office_form: TsuiForm;
    suiGroupBox1: TsuiGroupBox;
    Label1: TLabel;
    suiDBEdit1: TsuiDBEdit;
    Label2: TLabel;
    suiDBEdit2: TsuiDBEdit;
    Label3: TLabel;
    suiDBComboBox1: TsuiDBComboBox;
    suiDBImage1: TsuiDBImage;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    suiGroupBox2: TsuiGroupBox;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    Label11: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    suiDBMemo1: TsuiDBMemo;
    Label20: TLabel;
    Label21: TLabel;
    suiGroupBox3: TsuiGroupBox;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label26: TLabel;
    Label25: TLabel;
    suiDBEdit3: TsuiDBEdit;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    suiDBComboBox2: TsuiDBComboBox;
    suiDBComboBox3: TsuiDBComboBox;
    suiDBEdit4: TsuiDBEdit;
    suiDBComboBox4: TsuiDBComboBox;
    suiDBEdit5: TsuiDBEdit;
    suiDBEdit6: TsuiDBEdit;
    Label12: TLabel;
    DBDateTimeEditEh2: TDBDateTimeEditEh;
    DBDateTimeEditEh3: TDBDateTimeEditEh;
    suiDBComboBox5: TsuiDBComboBox;
    suiDBComboBox6: TsuiDBComboBox;
    suiDBEdit7: TsuiDBEdit;
    Label27: TLabel;
    suiDBEdit8: TsuiDBEdit;
    suiDBEdit9: TsuiDBEdit;
    suiDBEdit10: TsuiDBEdit;
    suiDBEdit11: TsuiDBEdit;
    Label28: TLabel;
    suiDBMemo2: TsuiDBMemo;
    Label29: TLabel;
    suiDBEdit12: TsuiDBEdit;
    Label30: TLabel;
    suiDBEdit13: TsuiDBEdit;
    Label31: TLabel;
    suiDBEdit14: TsuiDBEdit;
    Label32: TLabel;
    suiDBEdit15: TsuiDBEdit;
    Label33: TLabel;
    suiDBComboBox7: TsuiDBComboBox;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Label34: TLabel;
    suiDBEdit16: TsuiDBEdit;
    Label35: TLabel;
    suiDBEdit17: TsuiDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  add_office_form: Tadd_office_form;

  

implementation

{$R *.dfm}

uses datamod;

procedure Tadd_office_form.FormCreate(Sender: TObject);
begin
  add_office_form.Caption:='某公司-添加办公人员';
  suidbcombobox5.Items.LoadFromFile('BM_bgs.ubt');
end;

procedure Tadd_office_form.suiButton1Click(Sender: TObject);
begin
  if openpicturedialog1.Execute then
    begin
    suidbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
    suidbimage1.CopyToClipboard;
    suidbimage1.PasteFromClipboard;
    end;
end;

procedure Tadd_office_form.suiButton2Click(Sender: TObject);
begin
  suidbimage1.Picture.Graphic:=nil;
end;

procedure Tadd_office_form.suiButton4Click(Sender: TObject);
begin
  if trim(suidbedit1.Text)='' then
  begin
    suidbedit1.SetFocus;
    showmessage('员工编号不能为空值，请输入员工编号！');
    Exit;
  end;

  if trim(suidbedit2.Text)='' then
  begin
    suidbedit2.SetFocus;
    showmessage('员工姓名不能为空值，请输入员工姓名！');
    Exit;
  end;

  if suidbcombobox1.Text='' then
  begin
    suidbcombobox1.SetFocus;
    showmessage('员工性别不能为空值，请选择员工性别！');
    Exit;
  end;

  if trim(suidbedit5.Text)='' then
  begin
    suidbedit5.SetFocus;
    showmessage('员工身份证号不能为空值，请输入员工身份证号！');
    Exit;
  end;

  if trim(suidbcombobox4.Text)='' then
  begin
    suidbcombobox4.SetFocus;
    showmessage('员工文化程度不能为空值，请选择员工文化程度！');
    Exit;
  end;
  datamodule1.ADOQ_office.Post;
  showmessage('已成功增加办公人员');
  close;
end;

procedure Tadd_office_form.suiButton3Click(Sender: TObject);
begin
  datamodule1.ADOQ_office.Cancel;
  close;
end;
procedure Tadd_office_form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  datamodule1.ADOQ_office.Cancel;
  close;
end;

end.