person_info.pas

需要使用Delphi 7.0及以上版本才能将它们打开

unit Person_info;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, DB, ADODB, Mask, DBCtrls, Grids,
  DBGrids, ImgList;

type
  TPerson_infoFrm = class(TForm)
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBImage1: TDBImage;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit4: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit7: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBComboBox1: TDBComboBox;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    TabSheet2: TTabSheet;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBComboBox3: TDBComboBox;
    TabSheet3: TTabSheet;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    OpenDialog1: TOpenDialog;
    DBComboBox2: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label22: TLabel;
    Label23: TLabel;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    Label24: TLabel;
    DBComboBox5: TDBComboBox;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    procedure DBImage1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Person_infoFrm: TPerson_infoFrm;

implementation
     uses PersonnelDataDM,Main,PersonnelSQL, PersonnelManage, PersonMain,Enter;
{$R *.dfm}


 //新增相片字段数据
procedure TPerson_infoFrm.DBImage1Click(Sender: TObject);
begin
 //打开【增加相片字段】的文件选取对话窗口
   if OpenDialog1.Execute then
   begin
   //进入记录编辑模式
    PersonnelData.Personnel_infoADOTable.Edit;
    //将指定的图片文件加载对应相片字段的Tfield组件内
    PersonnelData.Personnel_infoADOTablePicture.LoadFromFile(OpenDialog1.FileName);
   end;
end;


//修改按钮
procedure TPerson_infoFrm.Button1Click(Sender: TObject);
var userid:string;
begin
  userid:=DBEdit1.Text;
   //进行修改定位
 // PersonnelData.Personnel_infoADOTable.Locate('EmployeeID',DLFrm.UserID,[]);
   if Application.MessageBox('确定修改这笔数据？','注意',MB_YESNO+MB_ICONQUESTION)=IDYES then
   begin
    //对表preson_info进行添加
    PersonnelData.Personnel_infoADOTable.Edit;
    PersonnelData.Personnel_infoADOTable.Post;

    //对表depart_info进行添加
 //   PersonnelData.Depart_infoADOTable.Locate('EmployeeID',userid,[]);
    PersonnelData.Depart_infoADOTable.Edit;
    PersonnelData.Depart_infoADOTable['Name']:=DBEdit2.Text;
    PersonnelData.Depart_infoADOTable['Duty']:=DBComboBox4.Text;
    PersonnelData.Depart_infoADOTable['DepartName']:=DBComboBox5.Text;
      if DBComboBox4.Text='管理人员' then
      PersonnelData.Depart_infoADOTable['EmployeeClass']:='A'
      else
      PersonnelData.Depart_infoADOTable['EmployeeClass']:='B';
      PersonnelData.Depart_infoADOTable.post;

    //对表wage_manage进行添加
  //  PersonnelData.Wage_manageADOTable.Locate('EmployeeID',userid,[]);
    PersonnelData.Wage_manageADOTable.Edit;
    PersonnelData.Wage_manageADOTable['Name']:=DBEdit2.Text;
    PersonnelData.Wage_manageADOTable['DepartName']:=DBComboBox5.Text;
    if DBComboBox4.Text='管理人员' then
     PersonnelData.Wage_manageADOTable['EmployeeClass']:='A'
    else
     PersonnelData.Wage_manageADOTable['EmployeeClass']:='B';
    PersonnelData.Wage_manageADOTable.Post;

     //对表attend_info进行添加
   //   PersonnelData.Attend_infoADOTable.Locate('EmployeeID',userid,[]);
      PersonnelData.Attend_infoADOTable.Edit;
      PersonnelData.Attend_infoADOTable['Name']:=DBEdit2.Text;
      PersonnelData.Attend_infoADOTable.Post;
      showmessage('修改成功！');
     end;
end;

//返回按钮
procedure TPerson_infoFrm.Button2Click(Sender: TObject);
begin
     Person_infoFrm.Close;
     PersonMainFrm.Show;
end;

end.