unit5.pas

飞思科技的书不错

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('序号').AsString:=IntToStr(count_exp2+1);
    end;
    
    Table_exp2.FieldByName('职工号').AsString:=Table_basic.FieldValues['职工号'];
    Table_exp2.FieldByName('起始时间').AsDateTime:=MC_Start.Date;
    Table_exp2.FieldByName('终止时间').AsDateTime:=MC_end.Date;
    Table_exp2.FieldByName('所在单位').AsString:=Edit_co.Text;
    Table_exp2.FieldByName('所在部门').AsString:=Edit_dept.Text;
    Table_exp2.FieldByName('职务').AsString:=Edit_res.Text;
    Table_exp2.FieldByName('行政级别').AsString:=Edit_lev.Text;
    Table_exp2.FieldByName('岗位').AsString:=Edit_work.Text;
    Table_exp2.FieldByName('工种').AsString:=Edit_job.Text;
    Table_exp2.Post;
    Table_exp2.Refresh;
    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.