ufrmhomemaster.pas

本文件采用了c/s结构的分布式应用系统

unit ufrmHomeMaster;

interface

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

type
  TfrmHomeMaster = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    edtname: TEdit;
    Label2: TLabel;
    cbsex: TComboBox;
    Label3: TLabel;
    edtzoneno: TEdit;
    Label4: TLabel;
    edtbuildingno: TEdit;
    Label5: TLabel;
    edtunitno: TEdit;
    Label6: TLabel;
    edtcardid: TEdit;
    Label7: TLabel;
    dtpbirthday: TDateTimePicker;
    Label8: TLabel;
    label9: TLabel;
    edtdoorno: TEdit;
    btnpost: TButton;
    btnapply: TButton;
    Panel1: TPanel;
    Label10: TLabel;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label11: TLabel;
    edtmastercardid: TEdit;
    Label12: TLabel;
    edtmembername: TEdit;
    Label13: TLabel;
    edtrelation: TEdit;
    Label14: TLabel;
    cardid: TEdit;
    Label15: TLabel;
    cbmembersex: TComboBox;
    btnpost1: TButton;
    btnapply1: TButton;
    Panel2: TPanel;
    Label16: TLabel;
    DBGrid2: TDBGrid;
    GroupBox3: TGroupBox;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    edtcardno: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit6: TEdit;
    Panel3: TPanel;
    Label26: TLabel;
    DBGrid3: TDBGrid;
    btnfind: TButton;
    Label27: TLabel;
    Edit7: TEdit;
    GroupBox4: TGroupBox;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    ComboBox2: TComboBox;
    Panel4: TPanel;
    Label33: TLabel;
    DBGrid4: TDBGrid;
    Label34: TLabel;
    Edit12: TEdit;
    Button5: TButton;
    Edit5: TEdit;
    edtphone: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button6: TButton;
    procedure btnpostClick(Sender: TObject);
    procedure btnapplyClick(Sender: TObject);
    procedure btnpost1Click(Sender: TObject);
    procedure btnapply1Click(Sender: TObject);
    procedure btnfindClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmHomeMaster: TfrmHomeMaster;

implementation

uses udmclient;

{$R *.dfm}

//提交户主信息
procedure TfrmHomeMaster.btnpostClick(Sender: TObject);
begin
//验证输入字段信息
 if (edtcardid.Text<>'') and (length(edtcardid.Text)=15)
 or (length(edtcardid.Text)=18) and (edtname.Text<>'')
 and (cbsex.Text<>'')and (edtzoneno.Text<>'') and
 (edtbuildingno.Text<>'') and (edtunitno.Text<>'')
 and (dtpbirthday.DateTime>now) and (edtphone.Text<>'')
 and (edtdoorno.Text<>'') then
 begin
  //添加字段信息
   dmclient.cdsHomeMaster.Append;
   dmclient.cdsHomeMaster.FieldByName('homemastername').Value:=edtname.Text;
   dmclient.cdsHomeMaster.FieldByName('homemasterSIDCardno').Value:=edtcardid.Text;
   dmclient.cdsHomeMaster.FieldByName('sex').Value:=cbsex.Text;
   dmclient.cdsHomeMaster.FieldByName('masterbirthday').Value:=dtpbirthday.Date;
   dmclient.cdsHomeMaster.FieldByName('zoneno').Value:=edtzoneno.Text;
   dmclient.cdsHomeMaster.FieldByName('buildingno').Value:=edtbuildingno.Text;
   dmclient.cdsHomeMaster.FieldByName('unitno').Value:=edtunitno.Text;
   dmclient.cdsHomeMaster.FieldByName('doorno').Value:=edtdoorno.Text;
   dmclient.cdsHomeMaster.FieldByName('homephoneno').Value:=edtphone.Text;
   dmclient.cdsHomeMaster.Post;
 end
 else
 messagedlg('数据输入错误',mterror,[mbok],0);
end;

//更新数据源
procedure TfrmHomeMaster.btnapplyClick(Sender: TObject);
begin
 dmclient.cdsHomeMaster.Active:=true;
 dmclient.cdsHomeMaster.ApplyUpdates(0);
 dmclient.cdsHomeMaster.Active:=false;
 dmclient.cdsHomeMaster.CommandText:='select *from homemasters';
 dmclient.cdsHomeMaster.Open;
end;

//提交成员信息
procedure TfrmHomeMaster.btnpost1Click(Sender: TObject);
begin
 //验证是否存在该户主
 dmclient.cdsMember.Active:=false;
 dmclient.cdsMember.CommandText:='select *from homemasters where homemasterSIDcardno=:cardno';
 dmclient.cdsMember.Params.ParamByName('cardno').Value:=edtmastercardid.Text;
 dmclient.cdsMember.Open;
//存在户主则添加成员信息
 if dmclient.cdsMember.RecordCount=1 then
 begin
 dmclient.cdsMember.Active:=false;
 dmclient.cdsMember.CommandText:='select *from othermembers';
 dmclient.cdsMember.Open;
 if (edtmastercardid.Text<>'')and (length(edtmastercardid.Text)=15)
 or (length(edtmastercardid.Text)=18) and (edtmembername.Text<>'')
 and (edtrelation.Text<>'') and (cbmembersex.Text<>'') and
 (length(cardid.Text)=15) or (length(cardid.Text)=18) then
 begin
   dmclient.cdsMember.Append;
   dmclient.cdsMember.FieldByName('homemasterSIDcardno').Value:=edtmastercardid.Text;
   dmclient.cdsMember.FieldByName('name').Value:=edtmembername.Text;
   dmclient.cdsMember.FieldByName('relationtomaster').Value:=edtrelation.Text;
   dmclient.cdsMember.FieldByName('idcardno').Value:=cardid.Text;
   dmclient.cdsMember.FieldByName('sex').Value:=cbmembersex.Text;
   dmclient.cdsMember.Post;
 end
 else
 messagedlg('数据输入错误',mterror,[mbok],0);
 end
 else
 messagedlg('查无此户主',mterror,[mbok],0);
end;

procedure TfrmHomeMaster.btnapply1Click(Sender: TObject);
begin
dmclient.cdsMember.ApplyUpdates(0);
dmclient.cdsMember.Active:=false;
dmclient.cdsMember.CommandText:='select *from othermembers';
dmclient.cdsMember.Open;
end;

//查找数据
procedure TfrmHomeMaster.btnfindClick(Sender: TObject);
begin
 dmclient.cdsHomeMaster.Active:=false;
 dmclient.cdsHomeMaster.CommandText:='select *from homemasters where homemasterSIDcardno=:cardno';
 dmclient.cdsHomeMaster.Params.ParamByName('cardno').Value:=edtcardno.Text;
 dmclient.cdsHomeMaster.Open;
 if dmclient.cdsHomeMaster.RecordCount=1 then
 begin
  edit1.Text:=dmclient.cdsHomeMaster.FieldByName('homemastername').Value;
  edit7.Text:=dmclient.cdsHomeMaster.FieldByName('homemasterSIDCardno').Value;
  combobox1.Text:=dmclient.cdsHomeMaster.FieldByName('sex').Value;
  datetimepicker1.Date:=dmclient.cdsHomeMaster.FieldByName('masterbirthday').Value;
  edit2.Text:=dmclient.cdsHomeMaster.FieldByName('zoneno').Value;
  edit3.Text:=dmclient.cdsHomeMaster.FieldByName('buildingno').Value;
  edit4.Text:=dmclient.cdsHomeMaster.FieldByName('unitno').Value;
  edit6.Text:=dmclient.cdsHomeMaster.FieldByName('doorno').Value;
  edit5.Text:=dmclient.cdsHomeMaster.FieldByName('homephoneno').Value;
end
else
messagedlg('查无此人',mterror,[mbok],0);

end;

//修改户主信息
procedure TfrmHomeMaster.Button1Click(Sender: TObject);
begin
   if (edit7.Text<>'') and (length(edit7.Text)=15)
 or (length(edit7.Text)=18) and (edit1.Text<>'')
 and (combobox1.Text<>'')and (edit2.Text<>'') and
 (edit3.Text<>'') and (edit4.Text<>'') and (edit6.Text<>'')
 and (datetimepicker1.DateTime<now) and (edit5.Text<>'') then
 begin
   dmclient.cdsHomeMaster.edit;
   dmclient.cdsHomeMaster.FieldByName('homemastername').Value:=edit1.Text;
   dmclient.cdsHomeMaster.FieldByName('homemasterSIDCardno').Value:=edit7.Text;
   dmclient.cdsHomeMaster.FieldByName('sex').Value:=combobox1.Text;
   dmclient.cdsHomeMaster.FieldByName('masterbirthday').Value:=datetimepicker1.Date;
   dmclient.cdsHomeMaster.FieldByName('zoneno').Value:=edit2.Text;
   dmclient.cdsHomeMaster.FieldByName('buildingno').Value:=edit3.Text;
   dmclient.cdsHomeMaster.FieldByName('unitno').Value:=edit4.Text;
   dmclient.cdsHomeMaster.FieldByName('doorno').Value:=edit6.Text;
   dmclient.cdsHomeMaster.FieldByName('homephoneno').Value:=edit5.Text;
   dmclient.cdsHomeMaster.Post;
 end
 else
 messagedlg('数据输入错误',mterror,[mbok],0);
end;

//更新数据源
procedure TfrmHomeMaster.Button2Click(Sender: TObject);
begin
 dmclient.cdsHomeMaster.Active:=true;
 dmclient.cdsHomeMaster.ApplyUpdates(0);
 dmclient.cdsHomeMaster.Active:=false;
 dmclient.cdsHomeMaster.CommandText:='select *from homemasters';
 dmclient.cdsHomeMaster.Open;
end;

//查找成员信息
procedure TfrmHomeMaster.Button5Click(Sender: TObject);
begin
 dmclient.cdsMember.Active:=false;
 dmclient.cdsMember.CommandText:='select *from othermembers where idcardno=:cardno';
 dmclient.cdsMember.Params.ParamByName('cardno').Value:=edit12.Text;
 dmclient.cdsMember.Open;
 if dmclient.cdsMember.RecordCount=1 then
 begin
   edit8.Text:=dmclient.cdsMember.FieldByName('homemasterSIDcardno').Value;
   edit9.Text:=dmclient.cdsMember.FieldByName('name').Value;
   edit10.Text:=dmclient.cdsMember.FieldByName('relationtomaster').Value;
   edit11.Text:=dmclient.cdsMember.FieldByName('idcardno').Value;
  combobox2.Text:=dmclient.cdsMember.FieldByName('sex').Value;
end
else
messagedlg('查无此人',mterror,[mbok],0);
end;

//提交修改
procedure TfrmHomeMaster.Button3Click(Sender: TObject);
begin
if (edit8.Text<>'')and (length(edit8.Text)=15)
 or (length(edit8.Text)=18) and (edit9.Text<>'')
 and (edit10.Text<>'') and (combobox2.Text<>'') and
 (length(edit11.Text)=15) or (length(edit11.Text)=18) then
 begin
   dmclient.cdsMember.Edit;
   dmclient.cdsMember.FieldByName('homemasterSIDcardno').Value:=edit8.Text;
   dmclient.cdsMember.FieldByName('name').Value:=edit9.Text;
   dmclient.cdsMember.FieldByName('relationtomaster').Value:=edit10.Text;
   dmclient.cdsMember.FieldByName('idcardno').Value:=edit11.Text;
   dmclient.cdsMember.FieldByName('sex').Value:=combobox2.Text;
   dmclient.cdsMember.Post;
 end
 else
 messagedlg('数据输入错误',mterror,[mbok],0);
end;

//“全部应用"提交数据源
procedure TfrmHomeMaster.Button4Click(Sender: TObject);
begin
 dmclient.cdsMember.ApplyUpdates(0);
 dmclient.cdsMember.Active:=false;
 dmclient.cdsMember.CommandText:='select *from othermembers';
 dmclient.cdsMember.Open;
end;

//删除户主
procedure TfrmHomeMaster.Button6Click(Sender: TObject);
var
  i:integer;
begin
  if messagedlg('确定需要删除吗？',mtconfirmation,[mbYes, mbNo], 0)=mryes then
  begin
  // dmclient.cdsHomeMaster.Active:=true;
   dmclient.cdsHomeMaster.Delete;
   dmclient.cdsMember.Active:=false;
   dmclient.cdsMember.CommandText:='select *from othermembers where homemasterSIDcardno=:cardno';
   dmclient.cdsMember.Params.ParamByName('cardno').Value:=edtcardno.Text;
   dmclient.cdsMember.Open;
   //删除所有成员
   if dmclient.cdsMember.RecordCount>=1 then
   begin
   for i:=0 to dmclient.cdsMember.RecordCount-1 do
   begin
    dmclient.cdsMember.First;
    dmclient.cdsMember.Delete;
   end;
   end
   else
   showmessage('没有其他成员');
  end;
end;

end.