unit1.pas

简单工资程序

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GBox1: TGroupBox;
    Lab1: TLabel;
    Lab2: TLabel;
    Lab3: TLabel;
    Lab4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    GBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Lab5: TLabel;
    Lab6: TLabel;
    Lab7: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    BBtn1: TBitBtn;
    BBtn2: TBitBtn;
    BBtn3: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure BBtn1Click(Sender: TObject);
    procedure BBtn2Click(Sender: TObject);
    procedure BBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  GBox1.Caption:='应发工资项';
  GBox2.Caption:='个人开支';
  lab1.Caption:='基本工资';
  lab2.Caption:='加班工资';
  lab3.Caption:='奖  金:';
  lab4.Caption:='补  助:';
  lab5.Caption:='应发:';
  lab6.Caption:='开支:';
  lab7.Caption:='实发:';
  label1.Caption:='电  费:';
  label2.Caption:='水  费:';
  label3.Caption:='电话费:';
  label4.Caption:='其  它:';
  edit1.Text:='0';
  edit2.Text:='0';
  edit3.Text:='0';
  edit4.Text:='0';
  edit5.Text:='0';
  edit6.Text:='0';
  edit7.Text:='0';
  edit8.Text:='0';
  edit9.Text:='0';
  edit9.Enabled:=false;
  edit10.Text:='0';
  edit10.Enabled:=false;
  edit11.Text:='0';
  edit11.Enabled:=false;
  BBtn1.Kind:=bkOK;
  bbtn1.Caption:='计算';
  bbtn2.Kind:=bkretry;
  bbtn2.Caption:='清零';
  bbtn3.Kind:=bkclose;
  bbtn3.Caption:='退出';
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key in ['0'..'9',#8] then
  else
    key:=#0;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key in ['0'..'9',#8] then
  else
    key:=#0;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key in ['0'..'9',#8] then
  else
    key:=#0;
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key in ['0'..'9',#8] then
  else
    key:=#0;
end;

procedure TForm1.BBtn1Click(Sender: TObject);
var
  s1,s2:single;
begin
  s1:=strtofloat(edit1.Text)+strtofloat(edit2.Text)+strtofloat(edit3.Text)+strtofloat(edit4.Text);
  s2:=strtofloat(edit5.Text)+strtofloat(edit6.Text)+strtofloat(edit7.Text)+strtofloat(edit8.Text);
  edit9.Text:=floattostr(s1);
  edit10.Text:=floattostr(s2);
  edit11.Text:=floattostr(s1-s2);
end;

procedure TForm1.BBtn2Click(Sender: TObject);
begin
  edit1.Text:='0';
  edit2.Text:='0';
  edit3.Text:='0';
  edit4.Text:='0';
  edit5.Text:='0';
  edit6.Text:='0';
  edit7.Text:='0';
  edit8.Text:='0';
end;

procedure TForm1.BBtn3Click(Sender: TObject);
begin
  close;
end;

end.