unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm_exp = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    MC_Start: TMonthCalendar;
    MC_end: TMonthCalendar;
    Button_exp_add: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit_co: TEdit;
    Edit_dept: TEdit;
    Edit_res: TEdit;
    Edit_lev: TEdit;
    Edit_work: TEdit;
    Edit_job: TEdit;
    procedure Button_exp_addClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_exp: TForm_exp;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm_exp.Button_exp_addClick(Sender: TObject);
var
count_exp2: integer;
begin
    with DM do
    begin
    Table_exp2.Active:=True;
    count_exp2:=Table_exp2.RecordCount;

    if Form1.Modify_exp then
    begin
    Form1.Modify_exp:=False;
    end
    else
    begin
       Table_exp2.Append;
       Table_exp2.FieldByName('序號(hào)').AsString:=IntToStr(count_exp2+1);
    end;
    
    Table_exp2.FieldByName('職工號(hào)').AsString:=Table_basic.FieldValues['職工號(hào)'];
    Table_exp2.FieldByName('起始時(shí)間').AsDateTime:=MC_Start.Date;
    Table_exp2.FieldByName('終止時(shí)間').AsDateTime:=MC_end.Date;
    Table_exp2.FieldByName('所在單位').AsString:=Edit_co.Text;
    Table_exp2.FieldByName('所在部門').AsString:=Edit_dept.Text;
    Table_exp2.FieldByName('職務(wù)').AsString:=Edit_res.Text;
    Table_exp2.FieldByName('行政級(jí)別').AsString:=Edit_lev.Text;
    Table_exp2.FieldByName('崗位').AsString:=Edit_work.Text;
    Table_exp2.FieldByName('工種').AsString:=Edit_job.Text;
    Table_exp2.Post;
    Table_exp2.Active:=False;
    Table_exp.Refresh;
    end;

    Form_exp.Hide;

end;

procedure TForm_exp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    with DM do
    begin
    Table_exp.Cancel;
    Table_exp.Refresh;
    end;
end;

end.