unit1.pas

自己写了个小程序

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label12: TLabel;
    Edit11: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Edit12: TEdit;
    Edit13: TEdit;
    Label15: TLabel;
    Edit14: TEdit;
    Label16: TLabel;
    Label17: TLabel;
    Edit15: TEdit;
    Label18: TLabel;
    Edit16: TEdit;
    Label19: TLabel;
    Edit17: TEdit;
    Label20: TLabel;
    Edit18: TEdit;
    XPMenu1: TXPMenu;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    GroupBox4: TGroupBox;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;




var
  Form1: TForm1;
  M,q,I:Double;
  k,c,n:integer;
  p,a:double;



implementation

uses ABOUTU;

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
  z,d,s,y,h,l,li,yn:double;
  d2:longint;
begin
if Edit1.text='' then
begin
messagedlg('没有输入单价',mtconfirmation,[mbok],0);
exit;
end;

if Edit2.text='' then
begin
messagedlg('没有输入面积',mtconfirmation,[mbok],0);
exit;
end;

if Edit3.text='' then
begin
messagedlg('没有输入按揭成数',mtconfirmation,[mbok],0);
exit;
end;

if StrToInt(Edit3.text)>9 then
begin
messagedlg('按揭成数>9,你搞错了吧?',mtconfirmation,[mbok],0);
exit;
end;

if Edit4.text='' then
begin
messagedlg('没有输入按揭期数',mtconfirmation,[mbok],0);
exit;
end;

  li:=0.0042;
  p:=strTofloat(Edit1.text);
  a:=strTofloat(Edit2.text);
  c:=strToint(Edit3.text);
  n:=strToint(Edit4.text);
  z:=p*a;
  d:=(c*z)/10;
  d2:=Trunc(d)-(Trunc(d) mod 1000);
  Edit5.text:=(formatfloat('0.00',z));
  Edit6.text:=(formatfloat('0.00',d2));
  Edit7.Text:=(formatfloat('0.00',z-d2));
  yn:=1;
  for n:=1 to  n do
  begin
    yn:=yn*(1+li);
  end;
  y:=d2*li*(yn/(yn-1));
  Edit8.Text:=(formatfloat('0.00',y));
  h:=y*n+(z-d2);
  Edit10.Text:=(formatfloat('0.00',h));
  l:=h-d2-(z-d2);
  Edit9.Text:=(formatfloat('0.00',l));


end;

procedure TForm1.Button2Click(Sender: TObject);
var
  z,d,s,y,h,l,li,dy,dh,j:double;
  d2:longint;
  sum,i:integer;
begin
if Edit1.text='' then
begin
messagedlg('没有输入单价',mtconfirmation,[mbok],0);
exit;
end;

if Edit2.text='' then
begin
messagedlg('没有输入面积',mtconfirmation,[mbok],0);
exit;
end;

if StrToInt(Edit3.text)>9 then
begin
messagedlg('按揭成数>9,你搞错了吧?',mtconfirmation,[mbok],0);
exit;
end;

if Edit3.text='' then
begin
messagedlg('没有输入按揭成数',mtconfirmation,[mbok],0);
exit;
end;

if Edit4.text='' then
begin
messagedlg('没有输入按揭期数',mtconfirmation,[mbok],0);
exit;
end;
  li:=0.0042;
  p:=strTofloat(Edit1.text);
  a:=strTofloat(Edit2.text);
  c:=strToint(Edit3.text);
  n:=strToint(Edit4.text);
  z:=p*a;
  d:=(c*z)/10;
  d2:=Trunc(d)-(Trunc(d) mod 1000);
  Edit11.text:=(formatfloat('0.00',z));
  Edit12.text:=(formatfloat('0.00',d2));
  Edit13.Text:=(formatfloat('0.00',z-d2));
  dy:=d2/n+d2*li;
  dh:=d2/n;
  Edit16.Text:=(formatfloat('0.00',dy));
  Edit17.Text:=(formatfloat('0.00',dh));
  j:=(dy-dh)/n;
  Edit18.text:=(formatfloat('0.00',j));
  h:=0;
  sum:=0;
  for i:=1 to n do
   begin
   sum:=sum+i;
   end;
  l:=sum*j;
  Edit14.text:=(formatfloat('0.00',l));
  h:=l+d2+(z-d2);
  Edit15.text:=(formatfloat('0.00',h));


end;

procedure TForm1.N2Click(Sender: TObject);
begin
 aboutF.showmodal;
end;

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

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

end;

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

end;

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

end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin

if not (key in ['0'..'9',#8]) then
begin
 key:=#0;
 messageBeep(1);
end;
end;

end.