Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Unit1;
- interface
- uses
- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
- Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.StdCtrls,
- Vcl.Imaging.pngimage, Vcl.ExtCtrls, Vcl.ExtDlgs;
- type
- TForm1 = class(TForm)
- GroupBox1: TGroupBox;
- GroupBox2: TGroupBox;
- RadioButton1: TRadioButton;
- RadioButton2: TRadioButton;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- Edit1: TEdit;
- Edit2: TEdit;
- Image1: TImage;
- Button1: TButton;
- Label4: TLabel;
- Label5: TLabel;
- ComboBox1: TComboBox;
- Edit4: TEdit;
- Edit6: TEdit;
- Label6: TLabel;
- Memo1: TMemo;
- BitBtn1: TBitBtn;
- GroupBox3: TGroupBox;
- Button2: TButton;
- Label7: TLabel;
- Label8: TLabel;
- Label9: TLabel;
- Label10: TLabel;
- Label11: TLabel;
- T_Nom: TLabel;
- T_Prenom: TLabel;
- T_Adresse: TLabel;
- T_Montant: TLabel;
- T_Formation: TLabel;
- Image2: TImage;
- OpenPictureDialog1: TOpenPictureDialog;
- Memo2: TMemo;
- GroupBox4: TGroupBox;
- Button3: TButton;
- Image3: TImage;
- Label12: TLabel;
- Label13: TLabel;
- Label14: TLabel;
- Label15: TLabel;
- Label16: TLabel;
- Label17: TLabel;
- Label18: TLabel;
- Label19: TLabel;
- Label20: TLabel;
- Label21: TLabel;
- procedure Button2Click(Sender: TObject);
- procedure BitBtn1Click(Sender: TObject);
- procedure ComboBox1Change(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure RadioButton1Click(Sender: TObject);
- procedure RadioButton2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- montant:integer;
- implementation
- {$R *.dfm}
- procedure TForm1.BitBtn1Click(Sender: TObject);
- begin
- memo1.Lines.Add( combobox1.Text+' '+edit4.text);
- memo1.Lines.add(' ');
- montant:=montant+strtoint(edit4.Text);
- edit6.text:=inttostr(montant);
- end;
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- if OpenPictureDialog1.Execute then
- if FileExists(OpenPictureDialog1.FileName) then
- Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName)
- else
- raise Exception.Create('File does not exist.');
- end;
- procedure TForm1.Button2Click(Sender: TObject);
- begin
- T_Nom.Caption:=edit1.text;
- T_Prenom.Caption:=edit2.Text;
- T_adresse.Caption:=memo2.Text;
- T_Montant.Caption:=edit6.Text;
- T_Formation.Caption:=memo1.Text;
- image2.Picture:=image1.Picture;
- end;
- procedure TForm1.Button3Click(Sender: TObject);
- begin
- label12.Caption:=edit1.Text;
- label13.Caption:=edit2.Text;
- label14.Caption:=memo2.Text;
- label15.Caption:=inttostr(montant*strtoint(edit2.Text));
- label16.Caption:=memo1.Text;
- end;
- procedure TForm1.ComboBox1Change(Sender: TObject);
- begin
- if combobox1.Text=('Technicen Supérieur') then
- begin
- edit4.Text:=('210000');
- end
- else if combobox1.Text=('Technicen Supérieur + AEC') then
- begin
- edit4.Text:=('300000');
- end
- else if combobox1.Text=('Ingenieur Professionel') then
- begin
- edit4.Text:=('150000');
- end
- else if combobox1.Text=('Master') then
- begin
- edit4.Text:=('200000');
- end;
- end;
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- montant:=0;
- end;
- procedure TForm1.RadioButton1Click(Sender: TObject);
- begin
- button2.Enabled:=false;
- button3.Enabled:=true;
- label1.caption:='Nom :';
- label2.caption:='Nombre :';
- Label3.caption:='Adresse :';
- button1.Caption:='Charger un logo';
- end;
- procedure TForm1.RadioButton2Click(Sender: TObject);
- begin
- button2.Enabled:=true;
- button3.Enabled:=false;
- label1.caption:='Nom :';
- label2.caption:='Prenom :';
- Label3.caption:='Adresse :';
- button1.Caption:='Charger une photo';
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement