realtyc631.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

unit RealtyC631;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
  StrUtils, ExtDlgs, ComCtrls, math, ToolWin, ImgList, Menus;

type
    Tf_RealtyC631 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Label2: TLabel;
    Edit4: TEdit;
    Button5: TButton;
    Button7: TButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
     bMod:bool;
     sTable:string;
     cols:integer;
  end;

var
  f_RealtyC631: Tf_RealtyC631;
implementation
uses data, main,RealtyC63;
{$R *.dfm}

//Initial******************************
procedure Tf_RealtyC631.FormCreate(Sender: TObject);
begin
    if f_RealtyC63.bMod then
    begin
        with f_RealtyC63.ListView1.Selected do
        begin
            edit1.Text:=Caption;
            edit2.Text:=subitems[0];
            edit3.Text:=subitems[1];
            edit4.Text:=subitems[2];
        end;
    end;
end;



//Tab****************************************
procedure Tf_RealtyC631.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then
        Begin
            key:=0;
            perform(WM_NEXTDLGCTL,0,0);
        end
    else if key=VK_ESCAPE then close;
end;

//FreeForm**********************************
procedure Tf_RealtyC631.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;

//Close*************************************
procedure Tf_RealtyC631.ToolButton10Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyC631.Button7Click(Sender: TObject);
begin
    if edit1.Text='' then
    begin
        showmessage('保证金项目不能为空!');
        edit1.SetFocus;
        exit;
    end;
    if edit2.Text='' then
    begin
        showmessage('金额不能为空!');
        edit2.SetFocus;
        exit;
    end;
    if f_RealtyC63.bMod then
    begin
       f_RealtyC63.Edit3.Text:=mainform.StdDou2(edit4.text);
        with f_RealtyC63.ListView1.selected do
        begin
            Caption:=edit1.Text;
            SubItems[0]:=mainform.StdDou2(edit2.text);
            SubItems[1]:=mainform.StdDou2(edit3.text);
            SubItems[2]:=mainform.StdDou2(edit4.text);
        end;
        close;
    end 
end;

procedure Tf_RealtyC631.Button5Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyC631.Edit4Exit(Sender: TObject);
begin
    edit4.Text:=mainform.StdDou2(edit4.text);
    if strtofloat(edit4.Text)>strtofloat(edit2.Text)-strtofloat(edit3.Text) then
    begin
        showmessage('退款金额不能大于剩余金额');
        edit4.SetFocus;
    end;
end;

end.