feeform.pas

基本的物业管理系统

unit FeeForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Grids, DBGrids, OleCtnrs;

type
  TFrmFee = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Timer1: TTimer;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Memo1: TMemo;
    btOK: TButton;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Memo2: TMemo;
    btEnd: TButton;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Memo3: TMemo;
    btFee: TButton;
    Label17: TLabel;
    DBGrid2: TDBGrid;
    Edit13: TEdit;
    btSearch: TButton;
    DBGrid1: TDBGrid;
    Edit14: TEdit;
    btCalc: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure btOKClick(Sender: TObject);
    procedure btEndClick(Sender: TObject);
    procedure btFeeClick(Sender: TObject);
    procedure btSearchClick(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmFee: TFrmFee;
  FlagEnd:Boolean;
implementation
uses DataM,MainFrm;
{$R *.dfm}

procedure TFrmFee.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i:integer;
begin
  Data.ADOFee.Close;
  Data.ADOFee.SQL.Clear;
  Data.ADOFee.SQL.Add('select * from Fee');
  Data.ADOFee.Open;
  For i:=Data.ADOFee.RecordCount downto 1 do
  begin
  Data.ADOFee.Delete;
  Data.ADOFee.Next;
  end;
  Data.ADOtHJGL.Close;
  Data.ADOtHJGL.SQL.Clear;
  Data.ADOtHJGL.SQL.Add('select * from HomeMaster');
  Data.ADOtHJGL.Open;
  FrmMain.Show

end;

procedure TFrmFee.FormCreate(Sender: TObject);
begin
  Data.ADOFee.Close;
  Data.ADOFee.SQL.Clear;
  Data.ADOFee.SQL.Add('select * from Fee');
  Data.DataSFee.DataSet:=Data.ADOFee;
  Data.ADOFee.Open;
  Edit12.Text:=DateToStr(Date);
  FlagEnd:=True;
  GroupBox2.Enabled:=False;
  GroupBox1.Enabled:=True;
end;

procedure TFrmFee.Timer1Timer(Sender: TObject);
begin
  Edit12.Text:=DateToStr(Date);
end;

procedure TFrmFee.btOKClick(Sender: TObject);
begin
  if (Edit1.Text<>'') and (Edit14.Text<>'') and (Edit2.Text<>'') then
  begin
    GroupBox1.Enabled:=False;
    GroupBox2.Enabled:=True;
    FlagEnd:=False;
  end
  else MessageDlg('Not Null Allowed',mtError,[mbOK],0);
  Edit11.Text:=Edit2.Text;
end;

procedure TFrmFee.btEndClick(Sender: TObject);
var
     a:integer;
begin
     Data.ADOFee.Close;
     Data.ADOFee.SQL.Clear;
     Data.ADOFee.SQL.Add('select * from Fee');
     Data.ADOFee.Open;
     Data.ADOtHJGL.Close;
     Data.ADOtHJGl.SQL.Clear;
     Data.ADOtHJGL.SQL.Add('select * from HomeMaster');
     Data.ADOtHJGL.Open;
     if Data.ADOFee.RecordCount=Data.ADOtHJGL.RecordCount then
     begin
        FlagEnd:=True;
        a:=Data.ADOFee.RecordCount;
        Edit7.Text:=IntToStr(a);
        Edit3.Text:=Edit1.Text;
        Edit4.Text:=Edit14.Text;
        Edit5.Text:=Edit2.Text;
        Edit6.Text:=ComboBox1.Text;
        Memo2.Text:=Memo1.Text;
        GroupBox1.Enabled:=True;
        GroupBox2.Enabled:=False;
     end
     else FlagEnd:=False;
     if FlagEnd then
     begin
        Edit8.Text:='是';
        if MessageDlg('交费已完成，确定退出吗？',mtConfirmation,[mbOK,mbCancel],0)=mrOK then
          Close;
     end
     else if MessageDlg('交费还未完成，确定退出吗？',mtConfirmation,[mbYes,mbCancel],0)=mrYes then
        close;
end;

procedure TFrmFee.btFeeClick(Sender: TObject);
begin
  Data.ADOtHJGL.Close;
  Data.ADOtHJGL.SQL.Clear;
  Data.ADOtHJGL.SQL.Add('select * from HomeMaster where HomeMasterSIDCardNo="'+Edit9.Text+'"');
  Data.ADOtHJGL.Open;
if (Edit9.Text<>'') and (Edit10.Text<>'') and (Edit11.Text<>'') and (Edit12.Text<>'') then
  if (length(Edit9.Text)=15) or (length(Edit9.Text)=18) then
     if Data.ADOtHJGL.RecordCount=1 then
     begin
        Data.ADOFee.Append;
        Data.ADOFee['FeeDateBegin']:=Edit1.Text;
        Data.ADOFee['FeeDateEnd']:=Edit14.Text;
        Data.ADOFee['FeeMasterSIDCardNo']:=Edit9.Text;
        Data.ADOFee['FeeMasterName']:=Edit10.Text;
        Data.ADOFee['FeeName']:=ComboBox1.Text;
        Data.ADOFee['FeeCount']:=Edit11.Text;
        Data.ADOFee['FeeDate']:=Date;
        Data.ADOFee['Memo']:=Memo3.Text;
        Data.ADOFee.Post;
     end
     else MessageDlg('HomeMasterCardID Not Found',mtError,[mbOK],0)
  else MessageDlg('交费户主身份证号码不合法',mtError,[mbOK],0)
else MessageDlg('Not Null Allowed',mtError,[mbOK],0);
Edit9.Text:='';
Edit10.Text:='';
end;

procedure TFrmFee.btSearchClick(Sender: TObject);
begin
  if Edit13.Text='' then
    MessageDlg('户主身份证号码不能为空',mtError,[mbOK],0)
  else
  begin
  Data.ADOFee.Close;
  Data.ADOFee.SQL.Clear;
  Data.ADOFee.SQL.Add('select * from Fee where FeeMasterSIDCardNo="'+Edit13.Text+'"');
  Data.ADOFee.Open;
  end;
end;

procedure TFrmFee.PageControl1Change(Sender: TObject);
begin
  Data.ADOFee.Close;
  Data.ADOFee.SQL.Clear;
  Data.ADOFee.SQL.Add('select * from Fee');
  Data.ADOFee.Open;
end;

end.