mc_ssfydj.pas

这是用Delphi编写的小区物业管理系统

unit MC_SSFYDJ;

interface

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

type
  TSSFYDJ = class(TForm)
    GroupBox1: TGroupBox;
    DBLookupComboBox1: TDBLookupComboBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    DataSource2: TDataSource;
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner7: TStringField;
    Table2: TTable;
    Table2BDEDesigner: TStringField;
    Table2BDEDesigner2: TStringField;
    Table2BDEDesigner3: TStringField;
    Table2BDEDesigner4: TStringField;
    Table2BDEDesigner6: TStringField;
    Table2BDEDesigner18: TStringField;
    DataSource3: TDataSource;
    Table3: TTable;
    Table3BDEDesigner: TStringField;
    Table3BDEDesigner2: TStringField;
    Table3BDEDesigner3: TStringField;
    Table3BDEDesigner4: TFloatField;
    Table3BDEDesigner5: TDateTimeField;
    Table3BDEDesigner6: TDateTimeField;
    Table3BDEDesigner7: TIntegerField;
    Table3BDEDesigner8: TIntegerField;
    Table3BDEDesigner9: TIntegerField;
    Table3BDEDesigner10: TFloatField;
    Table3BDEDesigner11: TFloatField;
    Table3BDEDesigner12: TFloatField;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    Table4: TTable;
    Table4BDEDesigner: TStringField;
    Table4BDEDesigner2: TStringField;
    Table4BDEDesigner3: TStringField;
    Table4BDEDesigner4: TFloatField;
    Table4BDEDesigner5: TDateTimeField;
    Table4BDEDesigner6: TDateTimeField;
    Table4BDEDesigner7: TIntegerField;
    Table4BDEDesigner8: TIntegerField;
    Table4BDEDesigner9: TIntegerField;
    Table4BDEDesigner10: TFloatField;
    Table4BDEDesigner11: TFloatField;
    Table4BDEDesigner12: TFloatField;
    DataSource6: TDataSource;
    Table5: TTable;
    Table5BDEDesigner: TStringField;
    Table5BDEDesigner2: TStringField;
    Table5BDEDesigner3: TStringField;
    Table5BDEDesigner4: TFloatField;
    Table5BDEDesigner5: TDateTimeField;
    Table5BDEDesigner6: TDateTimeField;
    Table5BDEDesigner7: TIntegerField;
    Table5BDEDesigner8: TIntegerField;
    Table5BDEDesigner9: TIntegerField;
    Table5BDEDesigner10: TFloatField;
    Table5BDEDesigner11: TFloatField;
    Table5BDEDesigner12: TFloatField;
    Query2: TQuery;
    Query2BDEDesigner: TStringField;
    Query2BDEDesigner2: TStringField;
    Query2BDEDesigner3: TStringField;
    Query2BDEDesigner4: TFloatField;
    Query2BDEDesigner5: TDateTimeField;
    Query2BDEDesigner6: TDateTimeField;
    Query2BDEDesigner7: TFloatField;
    Query2BDEDesigner8: TFloatField;
    Query2BDEDesigner9: TFloatField;
    DataSource7: TDataSource;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    DBText6: TDBText;
    DBText7: TDBText;
    DBText8: TDBText;
    DBText9: TDBText;
    DBText10: TDBText;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    DBText11: TDBText;
    DBText12: TDBText;
    DBText13: TDBText;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    DBText14: TDBText;
    DBText15: TDBText;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    GroupBox5: TGroupBox;
    DBGrid3: TDBGrid;
    DBText16: TDBText;
    DBText17: TDBText;
    DBText18: TDBText;
    DBText19: TDBText;
    DBText20: TDBText;
    DBText21: TDBText;
    DBText22: TDBText;
    DBText23: TDBText;
    DBText24: TDBText;
    DBText25: TDBText;
    DBText26: TDBText;
    DBText27: TDBText;
    DBText28: TDBText;
    DBText29: TDBText;
    DBText30: TDBText;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure Table2AfterScroll(DataSet: TDataSet);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBGrid3KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBEdit11Enter(Sender: TObject);
    procedure DBEdit11Exit(Sender: TObject);
    procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Query2BeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SSFYDJ: TSSFYDJ;

implementation

{$R *.DFM}

procedure TSSFYDJ.Table2AfterScroll(DataSet: TDataSet);
begin
     if Table2.RecordCount<>0 then
        begin
             Query2.Close;
             Query2.SQL.Clear;
             Query2.SQL.Add('Select * From 常用费用');
             Query2.SQL.Add('Where 收费编号=:A');
             Query2.ParamByName('A').AsString:=Table2.FieldByName('房间编号').AsString;
             Query2.Open;
        end;
end;

procedure TSSFYDJ.BitBtn4Click(Sender: TObject);
begin
     Close;
end;

procedure TSSFYDJ.DBGrid3KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_DOWN then
        begin
             if Query2.FieldbyName('户主姓名').AsString='' then
                begin
                     Query2.Cancel;
                     Abort;
                end;
        end;
     if key=VK_Insert then Abort;
end;

procedure TSSFYDJ.BitBtn1Click(Sender: TObject);
begin
     if Table3.RecordCount<>0 then
        begin
     GroupBox4.Enabled:=True;
     GroupBox5.Enabled:=True;
     GroupBox1.Enabled:=False;
     GroupBox2.Enabled:=False;
     GroupBox3.Enabled:=False;
     BitBtn1.Enabled:=False;
     BitBtn2.Enabled:=True;
     BitBtn3.Enabled:=True;
     Table3.Edit;
     Table4.Edit;
     Table5.Edit;     
     DBEdit11.SetFocus;
        end;
end;

procedure TSSFYDJ.BitBtn2Click(Sender: TObject);
begin
     if Table3.Modified then
        begin
             Table3.FieldByName('剩余金额').AsFloat:=Table3.FieldByName('剩余金额').AsFloat
                   +(Table3.FieldByName('实收金额').AsFloat-Table3.FieldByName('应收金额').AsFloat);
             Table3.Post;
        end;
     if Table4.Modified then
        begin
             Table4.FieldByName('剩余金额').AsFloat:=Table4.FieldByName('剩余金额').AsFloat
                   +(Table4.FieldByName('实收金额').AsFloat-Table4.FieldByName('应收金额').AsFloat);
             Table4.Post;
        end;
     if Table5.Modified then
        begin
             Table5.FieldByName('剩余金额').AsFloat:=Table5.FieldByName('剩余金额').AsFloat
                   +(Table5.FieldByName('实收金额').AsFloat-Table5.FieldByName('应收金额').AsFloat);
             Table5.Post;
        end;
     if Query2.Modified then Query2.Post;
     GroupBox1.Enabled:=True;
     GroupBox2.Enabled:=True;
     GroupBox3.Enabled:=True;
     GroupBox4.Enabled:=False;
     GroupBox5.Enabled:=False;
     BitBtn1.Enabled:=True;
     BitBtn2.Enabled:=False;
     BitBtn3.Enabled:=False;
end;

procedure TSSFYDJ.BitBtn3Click(Sender: TObject);
begin
     if Table3.Modified then Table3.Cancel;
     if Table4.Modified then Table4.Cancel;
     if Table5.Modified then Table5.Cancel;
     if Query2.Modified then Query2.Cancel;
     GroupBox1.Enabled:=True;
     GroupBox2.Enabled:=True;
     GroupBox3.Enabled:=True;
     GroupBox4.Enabled:=False;
     GroupBox5.Enabled:=False;
     BitBtn1.Enabled:=True;
     BitBtn2.Enabled:=False;
     BitBtn3.Enabled:=False;
end;

procedure TSSFYDJ.DBEdit11Enter(Sender: TObject);
begin
     TDBEdit(Sender).Color:=ClAqua;
end;

procedure TSSFYDJ.DBEdit11Exit(Sender: TObject);
begin
     TDBEdit(Sender).Color:=ClWindow;
end;

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

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

procedure TSSFYDJ.Query2BeforePost(DataSet: TDataSet);
begin
     if Query2.Modified then
        begin
             Query2.FieldByName('剩余金额').AsFloat:=Query2.FieldByName('剩余金额').AsFloat
                   +(Query2.FieldByName('实收金额').AsFloat-Query2.FieldByName('应收金额').AsFloat);
        end;
end;

end.