add_chejian.pas

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

unit add_chejian;

interface

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

type
  Tadd_chejian_form = class(TForm)
    add_chejian_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;
    OpenPictureDialog1: TOpenPictureDialog;
    Label11: TLabel;
    Label13: TLabel;
    suiGroupBox3: TsuiGroupBox;
    Label22: TLabel;
    Label23: TLabel;
    Label25: TLabel;
    suiDBEdit3: TsuiDBEdit;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    suiDBComboBox2: TsuiDBComboBox;
    suiDBComboBox3: TsuiDBComboBox;
    suiDBEdit4: TsuiDBEdit;
    suiDBComboBox4: TsuiDBComboBox;
    suiDBEdit5: TsuiDBEdit;
    DBDateTimeEditEh3: TDBDateTimeEditEh;
    suiDBComboBox5: TsuiDBComboBox;
    suiDBComboBox6: TsuiDBComboBox;
    Label27: TLabel;
    suiDBEdit8: TsuiDBEdit;
    suiDBEdit9: TsuiDBEdit;
    suiDBEdit10: TsuiDBEdit;
    Label28: TLabel;
    suiDBMemo2: TsuiDBMemo;
    Label31: TLabel;
    suiDBEdit14: TsuiDBEdit;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
    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);
    procedure suiDBComboBox6Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  add_chejian_form: Tadd_chejian_form;

implementation

uses datamod;

{$R *.dfm}

procedure Tadd_chejian_form.FormCreate(Sender: TObject);
begin
  add_chejian_form.Caption:='某公司-添加车间人员';
  suidbcombobox5.Items.LoadFromFile('BM_cj.ubt');
end;

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

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

procedure Tadd_chejian_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_chejian.Post;
  showmessage('已成功增加车间员工');
  close;
end;

procedure Tadd_chejian_form.suiButton3Click(Sender: TObject);
begin
  datamodule1.ADOQ_chejian.Cancel;
  close;
end;

procedure Tadd_chejian_form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  datamodule1.ADOQ_chejian.Cancel;
  close;
end;

procedure Tadd_chejian_form.suiDBComboBox6Change(Sender: TObject);
begin
  if suidbcombobox6.ItemIndex=1 then
  begin
    suidbedit8.Enabled:=true;
    suidbedit8.Color:=clwindow;
  end
  else
  begin
    suidbedit8.Enabled:=false;
    suidbedit8.Color:=cl3DLight;
  end;
end;

end.