Delphi de Maaş hesap programı...

[ReKoBaa_61]

[Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...]      [Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...]





unit maashsb;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Edit5: TEdit;

Button1: TButton;

Edit6: TEdit;

ComboBox1: TComboBox;

Edit8: TEdit;

Edit7: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if combobox1.Text='İşçi' then

begin

Edit8.Text:=inttostr(600+strtoint(edit1.Text)*strt oint(edit7.text));

edit1.Color:=clgray;

edit2.Color:=clsilver;

edit3.Color:=clsilver;

edit4.Color:=clsilver;

end;

if combobox1.Text='Teknisyen' then

begin

Edit8.Text:=inttostr(600+strtoint(edit2.Text)*strt oint(edit7.text));

edit2.Color:=clgray;

edit1.Color:=clsilver;

edit3.Color:=clsilver;

edit4.Color:=clsilver;

end;

if combobox1.Text='Mühendis' then

begin

Edit8.Text:=inttostr(600+strtoint(edit3.Text)*strt oint(edit7.text));

edit3.Color:=clgray;

edit2.Color:=clsilver;

edit1.Color:=clsilver;

edit4.Color:=clsilver;

end;

if combobox1.Text='Stajyer' then

begin

Edit8.Text:=inttostr(600+strtoint(edit4.Text)*strt oint(edit7.text));

edit4.Color:=clgray;

edit2.Color:=clsilver;

edit3.Color:=clsilver;

edit1.Color:=clsilver;

end;

end;

end.