hjglfrm.pas

基本的物业管理系统

unit HJGLfrm;

interface

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

type
    TFrmHJGL = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    tsNew: TTabSheet;
    tsEdit: TTabSheet;
    tsMove: TTabSheet;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    btAdd: TButton;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Edit3: TEdit;
    Edit10: TEdit;
    ComboBox2: TComboBox;
    Edit11: TEdit;
    ComboBox3: TComboBox;
    btAddR: TButton;
    GroupBox3: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    ComboBox4: TComboBox;
    Label24: TLabel;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit21: TEdit;
    Edit15: TEdit;
    btFind: TButton;
    btChange: TButton;
    GroupBox4: TGroupBox;
    Label25: TLabel;
    ComboBox5: TComboBox;
    Edit20: TEdit;
    Label26: TLabel;
    Edit22: TEdit;
    Label27: TLabel;
    Edit23: TEdit;
    Label28: TLabel;
    Label29: TLabel;
    ComboBox6: TComboBox;
    Edit24: TEdit;
    Label30: TLabel;
    btFindR: TButton;
    btChangeR: TButton;
    GroupBox5: TGroupBox;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    Label31: TLabel;
    Edit25: TEdit;
    btDel: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure btAddClick(Sender: TObject);
    procedure btAddRClick(Sender: TObject);
    procedure btFindClick(Sender: TObject);
    procedure btChangeClick(Sender: TObject);
    procedure btFindRClick(Sender: TObject);
    procedure btChangeRClick(Sender: TObject);
    procedure btDelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmHJGL: TFrmHJGL;

implementation
uses DataM,MainFrm;
{$R *.dfm}

procedure TFrmHJGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FrmMain.Show;
end;

procedure TFrmHJGL.FormCreate(Sender: TObject);
begin
  Data.ADOtHJGL.Close;
  Data.ADOtHJGL.SQL.Clear;
  Data.ADOtHJGL.SQL.Add('select * from HomeMaster');
  Data.DatasHJGL.DataSet:=Data.ADOtHJGL;
  Data.ADOtHJGL.Open;
  Data.ADOtMember.Close;
  Data.ADOtMember.SQL.Clear;
  Data.ADOtMember.SQL.Add('select * from OtherMembers');
  Data.DatasMemeber.DataSet:=Data.ADOtMember;
  Data.ADOtMember.Open;
end;

procedure TFrmHJGL.btAddClick(Sender: TObject);
begin
if (length(Edit2.Text)=15) or (length(Edit2.Text)=18) then
  if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit5.Text<>'') and (Edit6.Text<>'') and (Edit7.Text<>'') and (Edit8.Text<>'') then
  begin
    Data.ADOtHJGL.Append;
    Data.ADOtHJGL['HomeMasterName']:=Edit1.Text;
    Data.ADOtHJGL['HomeMasterSIDCardNo']:=Edit2.Text;
    Data.ADOtHJGL['Sex']:=ComboBox1.Text;
    Data.ADOtHJGL['MasterBirthday']:=Edit4.Text;
    Data.ADOtHJGL['ZoneNo']:=Edit5.Text;
    Data.ADOtHJGL['BuildingNo']:=Edit6.Text;
    Data.ADOtHJGL['UnitNO']:=Edit7.Text;
    Data.ADOtHJGL['DoorNo']:=Edit8.Text;
    Data.ADOtHJGL['HomePhoneNo']:=Edit9.Text;
    Data.ADOtHJGL.Post;
  end
  else
    MessageDlg('Error! Not Nil Allowed',mtError,[mbOK],0)
else
  MessageDlg('Error! IDCard No. is invaluable',mtError,[mbOK],0);
end;

procedure TFrmHJGL.btAddRClick(Sender: TObject);
begin
Data.ADOtHJGL.Close;
Data.ADOtHJGL.SQL.Clear;
Data.ADOtHJGL.SQL.Add('select * from HomeMaster where HomeMasterSIDCardNo="'+Edit3.Text+'"');
Data.ADOtHJGL.Open;
if Data.ADOtHJGL.RecordCount=1 then
if ((Length(Edit3.Text)=15) or (Length(Edit3.Text)=18)) and ((Length(Edit11.Text)=15) or (Length(Edit11.Text)=18)) then
  if (Edit3.Text<>'') and (Edit10.Text<>'') and (Edit11.Text<>'') then
    begin
    Data.ADOtMember.Append;
    Data.ADOtMember['HomeMasterSIDCardNo']:=Edit3.Text;
    Data.ADOtMember['Name']:=Edit10.Text;
    Data.ADOtMember['RelationToMaster']:=ComboBox2.Text;
    Data.ADOtMember['IDCardNo']:=Edit11.Text;
    Data.ADOtMember['Sex']:=ComboBox3.Text;
    Data.ADOtMember.Post;
    end
  else
    MessageDlg('Not Null Allowed',mtError,[mbOK],0)
else
  MessageDlg('ID Now valuable',mtError,[mbOK],0)
else
  MessageDlg('No Master ID Found',mtError,[mbOK],0);
  Data.ADOtHJGL.Close;
  Data.ADOtHJGL.SQL.Clear;
  Data.ADOtHJGL.SQL.Add('select * from HomeMaster');
  Data.ADOtHJGL.Open;
end;

procedure TFrmHJGL.btFindClick(Sender: TObject);
begin
  if (Edit12.Text<>'') and ((Length(Edit12.Text)=15) or (Length(Edit12.Text)=18)) then
  Begin
  Data.ADOtHJGL.Close;
  Data.ADOtHJGL.SQL.Clear;
  Data.ADOtHJGL.SQL.Add('select * from HomeMaster where HomeMasterSIDCardNo="'+Edit12.Text+'"');
  Data.ADOtHJGL.Open;
  if Data.ADOtHJGL.RecordCount=1 then
  begin
    Edit13.Text:=Data.ADOtHJGL['HomeMasterName'];
    Edit14.Text:=Data.ADOtHJGL['HomeMasterSIDCardNo'];
    Edit15.Text:=Data.ADOtHJGL['ZoneNo'];
    Edit16.Text:=Data.ADOtHJGL['BuildingNo'];
    Edit17.Text:=Data.ADOtHJGL['UnitNo'];
    Edit18.Text:=Data.ADOtHJGL['HomePhoneNo'];
    if Data.ADOtHJGL.FieldByName('MasterBirthday').AsString<>'' then
      Edit19.Text:=Data.ADOtHJGL['MasterBirthday'];
    Edit21.Text:=Data.ADOtHJGL['DoorNo'];
    ComboBox4.Text:=Data.ADOtHJGL['Sex'];
    btChange.Enabled:=True;
    Edit12.Enabled:=False;
  end
  else
    MessageDlg('Error! No Record Found!',mtError,[mbOK],0);
  end
  else
    MessageDlg('Error! Card Number Invaluable.',mtError,[mbOK],0);
  Data.ADOtHJGL.Close;
  Data.ADOtHJGL.SQL.Clear;
  Data.ADOtHJGL.SQL.Add('select * from HomeMaster');
  Data.ADOtHJGL.Open;
end;

procedure TFrmHJGL.btChangeClick(Sender: TObject);
begin
  if (Edit13.Text<>'') and (Edit14.Text<>'') and (Edit15.Text<>'') and (Edit16.Text<>'') and (Edit17.Text<>'') and (Edit21.Text<>'') then
  begin
  Data.ADOtHJGL.Close;
  Data.ADOtHJGL.SQL.Clear;
  Data.ADOtHJGL.SQL.Add('select * from HomeMaster where HomeMasterSIDCardNo="'+Edit12.Text+'"');
  Data.ADOtHJGL.Open;
  if Data.ADOtHJGL.RecordCount=1 then
  begin
    Data.ADOtHJGL.Edit;
    Data.ADOtHJGL['HomeMasterName']:=Edit13.Text;
    Data.ADOtHJGL['HomeMasterSIDCardNo']:=Edit14.Text;
    Data.ADOtHJGL['ZoneNo']:=Edit15.Text;
    Data.ADOtHJGL['BuildingNo']:=Edit16.Text;
    Data.ADOtHJGL['UnitNo']:=Edit17.Text;
    Data.ADOtHJGL['HomePhoneNo']:=Edit18.Text;
    Data.ADOtHJGL['MasterBirthday']:=Edit19.Text;
    Data.ADOtHJGL['DoorNo']:=Edit21.Text;
    Data.ADOtHJGL['Sex']:=ComboBox4.Text;
    Data.ADOtHJGL.Post;
    Edit13.Text:='';
    Edit14.Text:='';
    Edit15.Text:='';
    Edit16.Text:='';
    Edit17.Text:='';
    Edit18.Text:='';
    Edit19.Text:='';
    Edit21.Text:='';
    ComboBox4.Text:='';
    btChange.Enabled:=False;
    Edit12.Enabled:=True;
  end
  else
    MessageDlg('No Record Found',mtError,[mbOK],0);
  end
  else
    MessageDlg('Not Null Allowed',mtError,[mbOK],0);
  Data.ADOtHJGL.Close;
  Data.ADOtHJGL.SQL.Clear;
  Data.ADOtHJGL.SQL.Add('select * from HomeMaster');
  Data.ADOtHJGL.Open;
end;

procedure TFrmHJGL.btFindRClick(Sender: TObject);
begin
  if (Edit20.Text<>'') then
  Begin
  Data.ADOtMember.Close;
  Data.ADOtMember.SQL.Clear;
  Data.ADOtMember.SQL.Add('select * From OtherMembers where ID='+Edit20.Text);
  Data.ADOtMember.Open;
  if Data.ADOtMember.RecordCount=1 then
  begin
    Edit22.Text:=Data.ADOtMember['Name'];
    Edit23.Text:=Data.ADOtMember['HomeMasterSIDCardNo'];
    Edit24.Text:=Data.ADOtMember['IDCardNo'];
    ComboBox5.Text:=Data.ADOtMember['RelationToMaster'];
    ComboBox6.Text:=Data.ADOtMember['Sex'];
    btChangeR.Enabled:=True;
    Edit20.Enabled:=False;
  end
  else
    MessageDlg('Error! No Record Found!',mtError,[mbOK],0);
  end
  else
    MessageDlg('Error! Card Number Invaluable.',mtError,[mbOK],0);
  Data.ADOtMember.Close;
  Data.ADOtMember.SQL.Clear;
  Data.ADOtMember.SQL.Add('select * from OtherMembers');
  Data.ADOtMember.Open;
end;

procedure TFrmHJGL.btChangeRClick(Sender: TObject);
begin
  if (Edit22.Text<>'') and (Edit23.Text<>'') then
  begin
  Data.ADOtMember.Close;
  Data.ADOtMember.SQL.Clear;
  Data.ADOtMember.SQL.Add('select * From OtherMembers where ID='+Edit20.Text);
  Data.ADOtMember.Open;
  if Data.ADOtMember.RecordCount=1 then
  begin
    Data.ADOtMember.Edit;
    Data.ADOtMember['Name']:=Edit22.Text;
    Data.ADOtMember['HomeMasterSIDCardNo']:=Edit23.Text;
    Data.ADOtMember['IDCardNo']:=Edit24.Text;
    Data.ADOtMember['Sex']:=ComboBox6.Text;
    Data.ADOtMember['RelationToMaster']:=ComboBox5.Text;
    Data.ADOtMember.Post;
    Edit22.Text:='';
    Edit23.Text:='';
    Edit24.Text:='';
    ComboBox5.Text:='';
    ComboBox6.Text:='';
    btChangeR.Enabled:=False;
    Edit20.Enabled:=True;
  end
  else
    MessageDlg('No Record Found',mtError,[mbOK],0);
  end
  else
    MessageDlg('Not Null Allowed',mtError,[mbOK],0);
  Data.ADOtMember.Close;
  Data.ADOtMember.SQL.Clear;
  Data.ADOtMember.SQL.Add('select * from OtherMembers');
  Data.ADOtMember.Open;
end;

procedure TFrmHJGL.btDelClick(Sender: TObject);
var
  i:integer;
begin
  if (Edit25.Text<>'') and ((Length(Edit25.Text)=15) or (length(Edit25.Text)=18)) then
  begin
    Data.ADOtHJGL.Close;
    Data.ADOtHJGL.SQL.Clear;
    Data.ADOtHJGL.SQL.Add('select * from HomeMaster where HomeMasterSIDCardNo="'+Edit25.Text+'"');
    Data.ADOtHJGL.Open;
    if Data.ADOtHJGL.RecordCount=1 then
    begin
      Data.ADOtHJGL.Delete;
    end
    else
      MessageDlg('No HomeMaster Found',mtError,[mbOK],0);
    Data.ADOtMember.Close;
    Data.ADOtMember.SQL.Clear;
    Data.ADOtMember.SQL.Add('select * from OtherMembers where HomeMasterSIDCardNo="'+Edit25.Text+'"');
    Data.ADOtMember.Open;
    if Data.ADOtMember.RecordCount>=1 then
      for i:=0 to Data.ADOtMember.RecordCount-1 do
      begin
      Data.ADOtMember.First;
      Data.ADOtMember.Delete;
      end
  end
  else
    MessageDlg('HomeMaster IDCardNumber Error',mtError,[mbOK],0);
  Data.ADOtHJGL.Close;
  Data.ADOtHJGL.SQL.Clear;
  Data.ADOtHJGL.SQL.Add('select * from HomeMaster');
  Data.ADOtHJGL.Open;
  Data.ADOtMember.Close;
  Data.ADOtMember.SQL.Clear;
  Data.ADOtMember.SQL.Add('select * from OtherMembers');
  Data.ADOtMember.Open;
end;

end.