hnewmasterform.pas

简单的小区物业管理系统,户籍管理,出入管理,系统管理,收费管理,

unit hnewmasterform;

interface

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

type
  Thnewmaster = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    btadd: TButton;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    btaddr: TButton;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    edit2: TEdit;
    edit6: TEdit;
    edit8: TEdit;
    edit9: TEdit;
    edit7: TEdit;
    edit5: TEdit;
    edit3: TEdit;
    edit10: TEdit;
    edit11: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure btaddClick(Sender: TObject);
    procedure btaddrClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hnewmaster: Thnewmaster;

implementation

uses mainform, DataM;

{$R *.dfm}

procedure Thnewmaster.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmmain.show;
end;

procedure Thnewmaster.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 Thnewmaster.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('错误! 输入值不能为空',mtError,[mbOK],0)
else
  MessageDlg('错误! 身份证号输入不合法',mtError,[mbOK],0);

end;

procedure Thnewmaster.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('输入值不能为空',mtError,[mbOK],0)
else
  MessageDlg('身份证号输入不合法',mtError,[mbOK],0)
else
  MessageDlg('没有找到户主',mtError,[mbOK],0);
  Data.ADOtHJGL.Close;
  Data.ADOtHJGL.SQL.Clear;
  Data.ADOtHJGL.SQL.Add('select * from HomeMaster');
  Data.ADOtHJGL.Open;

end;

end.