delphi pembelian rumah tunai & kredit

Created with Delphi 7 by Avid/Kira

Form ‘tunai dan kredit’ 

Data module

Database tunai

Database pembeli

Database rumah

Database kredit

Sintak:

unit Unit1;

interface

uses

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

  Dialogs, DBCtrls, ComCtrls, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    kodep: TEdit;

    nama: TEdit;

    alamat: TEdit;

    telp: TEdit;

    RadioGroup1: TRadioGroup;

    tunai: TGroupBox;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    sisa: TLabel;

    Button1: TButton;

    kodet: TEdit;

    tglt: TDateTimePicker;

    umt: TEdit;

    kredit: TGroupBox;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Label16: TLabel;

    Label17: TLabel;

    Label18: TLabel;

    cicil: TLabel;

    Button2: TButton;

    kodek: TEdit;

    tglk: TDateTimePicker;

    umk: TEdit;

    lama: TEdit;

    GroupBox2: TGroupBox;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    DBText1: TDBText;

    DBText2: TDBText;

    harga: TDBText;

    DBLookupComboBox1: TDBLookupComboBox;

    proses: TButton;

    exit: TButton;

    procedure prosesClick(Sender: TObject);

    procedure exitClick(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.prosesClick(Sender: TObject);

begin

   datamodule2.tpembeli.Append;

   DataModule2.tpembeli.FieldByName('kodep').AsString:=kodep.Text;

   DataModule2.tpembeli.FieldByName('nama').AsString:=nama.Text;

   DataModule2.tpembeli.FieldByName('alamat').AsString:=alamat.Text;

   DataModule2.tpembeli.FieldByName('telp').AsString:=telp.Text;

   if RadioGroup1.ItemIndex=0 then

   begin

      DataModule2.ttunai.FieldByName('tgl').AsDateTime:=tglt.Date;

      DataModule2.ttunai.FieldByName('kodep').AsString:=kodep.Text;

      DataModule2.ttunai.FieldByName('um').AsFloat:=strtofloat(umt.text);

   end;

   if RadioGroup1.ItemIndex=1 then

   begin

   end;

   DataModule2.tpembeli.Post;

end;

procedure TForm1.exitClick(Sender: TObject);

begin

   Application.Terminate;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

      sisa.Caption:=floattostr(strtofloat(harga.Caption)-StrToFloat(umt.Text));

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

   cicil.Caption:=floattostr((strtofloat(harga.Caption)-StrToFloat(umk.Text))

   /StrToFloat(lama.text));

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex=0 then

   begin

      tunai.Visible:=true;

      kredit.Visible:=false;

   end;

   if RadioGroup1.ItemIndex=1 then

   begin

      kredit.Visible:=true;

      tunai.Visible:=false;

   end

end;

end.