mc_fzfygl.pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

unit MC_FZFYGL;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, Mask, DBCtrls;

type
  TFZFYGL = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TDateTimeField;
    Table1BDEDesigner7: TDateTimeField;
    Table1BDEDesigner8: TFloatField;
    Table1BDEDesigner9: TFloatField;
    Table1BDEDesigner10: TFloatField;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label5: TLabel;
    Edit1: TEdit;
    BitBtn5: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
    procedure DBEdit4Enter(Sender: TObject);
    procedure DBEdit4Exit(Sender: TObject);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FZFYGL: TFZFYGL;

implementation

{$R *.DFM}

procedure TFZFYGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     FZFYGL.Release;
     FZFYGL:=Nil;
end;

procedure TFZFYGL.BitBtn1Click(Sender: TObject);
begin
     Close;
end;

procedure TFZFYGL.BitBtn2Click(Sender: TObject);
begin
     if Table1.RecordCount<>0 then
        begin
             groupBox2.Visible:=True;
             Table1.Edit;
             Dbedit4.SetFocus;
        end;
end;

procedure TFZFYGL.BitBtn3Click(Sender: TObject);
begin
     GroupBox2.visible:=False;
     Table1.Post;
end;

procedure TFZFYGL.BitBtn4Click(Sender: TObject);
begin
     GroupBox2.visible:=False;
     Table1.Cancel;
end;

procedure TFZFYGL.DBEdit2Exit(Sender: TObject);
begin
     TDBEdit(Sender).Color:=ClWindow;
     Table1.FieldByName('余款金额').AsFloat:=Table1.FieldByName('实收租金')
           .AsFloat-Table1.FieldByName('应收租金').AsFloat
           +Table1.FieldByName('余款金额').AsFloat;
end;

procedure TFZFYGL.DBEdit4Enter(Sender: TObject);
begin
     TDBEdit(Sender).Color:=ClAqua;
end;

procedure TFZFYGL.DBEdit4Exit(Sender: TObject);
begin
     TDBEdit(Sender).Color:=ClWindow;
end;

procedure TFZFYGL.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
     if Key=#13 then PerForm(WM_NEXTDLGCTL,0,0);
end;

procedure TFZFYGL.BitBtn5Click(Sender: TObject);
begin
     if Table1.Locate('姓名',Edit1.Text,[loCaseInsensitive])=False
        then ShowMessage('没找到['+Edit1.Text+']');
end;

end.