unit8.pas

飞思科技的书不错

unit Unit8;

interface

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

type
  TForm_Salary = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit_basic: TEdit;
    Edit_med: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit_spec: TEdit;
    Edit_aw: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Salary: TForm_Salary;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm_Salary.Button1Click(Sender: TObject);
begin
    try
        begin
            with DM do
            begin
                Table_salary2.Active:=True;
 
                if Form1.Modify_salary then
                    begin
                    Form1.Modify_salary:=False;
                    end
                else
                    begin
                    Table_salary2.Append;
                    Table_salary2.FieldByName('职工号').AsString:=Table_basic.FieldValues['职工号'];
                    end;


            Table_salary2.FieldByName('基本工资').AsInteger:=StrToInt(Edit_basic.Text);
            Table_salary2.FieldByName('药费').AsInteger:=StrToInt(Edit_med.Text);
            Table_salary2.FieldByName('特殊津贴').AsInteger:=StrToInt(Edit_spec.Text);
            Table_salary2.FieldByName('奖金').AsInteger:=StrToInt(Edit_aw.Text);

            Table_salary2.Post;
            Table_salary2.Refresh;
            Table_salary2.Active:=False;

            Table_salary.Close;
            Table_salary3.Close;
            Form_Salary.Hide;
            Table_salary.Open;
            Table_salary3.Open;

            end;
            Form1.DBGrid4.Repaint;
        end;
    except
        begin
        DM.Table_salary2.Cancel;
        if DM.Table_salary2.Active then DM.Table_salary2.Active:=False;
        ShowMessage('输入非法');
        Form_Salary.Hide;
        exit;
        end;
     end;


end;

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

end.