ufmjiaofei.~pas

物业管理系统

unit Ufmjiaofei;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls,
  ComCtrls, Mask,DateUtils;

type
  TFmjiaofei = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    Table2: TTable;
    Table3: TTable;
    Table4: TTable;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit7: TEdit;
    DateTimePicker1: TDateTimePicker;
    Label9: TLabel;
    Edit5: TEdit;
    DateTimePicker2: TDateTimePicker;
    Label11: TLabel;
    Edit6: TEdit;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Button1: TButton;
    Label10: TLabel;
    CheckBox6: TCheckBox;
    Table1Wyno: TStringField;
    Table1Xingm: TStringField;
    Table1Dianh: TStringField;
    Table1Zhuzh: TStringField;
    Table1Fangx: TStringField;
    Table1Ddate: TDateField;
    Table1Jiezh: TDateField;
    Table1Wyf: TFloatField;
    Table1Sfj: TBooleanField;
    Table1Beizh: TStringField;
    Table1Jianzmj: TFloatField;
    Label12: TLabel;
    Edit8: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Edit9: TEdit;
    Label15: TLabel;
    Table4Feil: TStringField;
    Table4Feij: TFloatField;
    Table4Biaoji: TBooleanField;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit9Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fmjiaofei: TFmjiaofei;

implementation

uses wuyeform;

{$R *.dfm}

procedure TFmjiaofei.BitBtn1Click(Sender: TObject);
begin
table1.Active:=true;
table1.Edit;
if not table1.Eof then
table1.Delete else showmessage('没有可删除的记录!');

end;

procedure TFmjiaofei.BitBtn2Click(Sender: TObject);
begin

if  table1.Locate('wyno',edit1.Text,[]) then
if MessageDlg('上次截止日期为: '+datetostr(table1.FieldByName('jiezh').Value)+chr(13)+'是否更新记录？',mtConfirmation, [mbYes,mbNo],0)=mryes
then begin
table1.Active:=true;
table1.edit;
table1.FieldByName('wyno').Value:=edit1.Text;
table1.FieldByName('xingm').Value:=edit2.Text;;
table1.FieldByName('dianh').Value:=edit4.Text;
table1.FieldByName('fangx').Value:=edit3.Text;
table1.FieldByName('jianzmj').Value:=edit5.Text;
table1.FieldByName('zhuzh').Value:=edit8.Text;
table1.FieldByName('ddate').Value:=datetimepicker1.Date;
table1.FieldByName('jiezh').Value:=datetimepicker2.Date;
table1.FieldByName('beizh').Value:=edit6.Text;
table1.FieldByName('wyf').Value:=strtofloat(edit7.Text);
table1.FieldByName('sfj').Value:=checkbox6.Checked;
table1.Post;
fmjiaofei.OnCreate(sender);
end;



end;

procedure TFmjiaofei.BitBtn3Click(Sender: TObject);
begin
table1.Active:=true;
table1.Edit;
table1.Post;
fmjiaofei.Close;
end;

procedure TFmjiaofei.FormCreate(Sender: TObject);
begin
application.OnMessage:=wuye.doenterastab;
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='0';
edit8.Text:='';
edit9.Text:='0';
checkbox6.OnClick(sender);

end;

procedure TFmjiaofei.Button1Click(Sender: TObject);
begin
if table1.Locate('wyno',trim(edit1.Text),[])  then
begin
edit2.Text:=table1.FieldValues['xingm'];
edit4.Text:=table1.FieldValues['dianh'];
edit8.Text:=table1.FieldValues['zhuzh'];
edit3.Text:=table1.FieldValues['fangx'];
edit5.Text:=floattostr(table1.FieldValues['jianzmj']);
end
else
begin
showmessage('你输入的物业编号不存在，请核查!!');
fmjiaofei.OnCreate(sender);
edit1.SelectAll;
edit1.SetFocus;
end;
end;

procedure TFmjiaofei.CheckBox6Click(Sender: TObject);
begin
if checkbox6.Checked=true then checkbox6.Caption:='已交费' else checkbox6.Caption:='未交费'; 
end;

procedure TFmjiaofei.FormActivate(Sender: TObject);
begin
fmjiaofei.DateTimePicker1.Date:=date();
fmjiaofei.DateTimePicker2.Date:=date();
edit1.SetFocus;
end;

procedure TFmjiaofei.Edit9Exit(Sender: TObject);
var i:integer;
begin
datetimepicker2.Date:=datetimepicker1.Date+strtoint(edit9.Text)*30;
i:=dayof(datetimepicker2.Date)-dayof(datetimepicker1.Date);
if i>0  then
datetimepicker2.Date:=datetimepicker2.Date+i;
if i<0  then
datetimepicker2.Date:=datetimepicker2.Date-i;

if table4.Locate('biaoji',True,[]) then
edit7.Text:=floattostr(table4.FieldByName('feij').Value*table3.FieldValues['jianzmj']*strtoint(edit9.Text));
EDIT7.SetFocus;
end;

end.