unit4.pas

本课题的开发是为物业部门提供一套高效、快捷的应用软件。适用于房产业主、大中小型物业公司、物业服务商、房地产开发商、物业中介公司等物业管理；用于管理公寓、住宅群体、智能小区、商品房、多层住宅、商业大厦、

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    ADOTable1DSDesigner: TAutoIncField;
    ADOTable1DSDesigner2: TIntegerField;
    ADOTable1DSDesigner3: TWideStringField;
    ADOTable1DSDesigner4: TWideStringField;
    ADOTable1DSDesigner5: TWideStringField;
    ADOTable1DSDesigner6: TFloatField;
    ADOTable1DSDesigner7: TFloatField;
    ADOTable1DSDesigner8: TWideStringField;
    ADOTable1DSDesigner9: TWideStringField;
    ADOTable2_1: TADOTable;
    ADOTable3_1: TADOTable;
    ADOTable2_1DSDesigner: TAutoIncField;
    ADOTable2_1DSDesigner2: TWideStringField;
    ADOTable2_1DSDesigner3: TIntegerField;
    ADOTable2_1DSDesigner4: TIntegerField;
    ADOTable2_1DSDesigner5: TWideStringField;
    ADOTable3_1DSDesigner: TAutoIncField;
    ADOTable3_1DSDesigner2: TWideStringField;
    ADOTable3_1DSDesigner3: TBCDField;
    ADOTable3_1DSDesigner4: TWideStringField;
    ADOTable3_1DSDesigner5: TWideStringField;
    ADOTable3_1DSDesigner6: TWideStringField;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit6: TDBEdit;
    DBEdit5: TDBEdit;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    Label21: TLabel;
    Label7: TLabel;
    Label11: TLabel;
    Label15: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label27: TLabel;
    DBMemo2: TDBMemo;
    DBEdit7: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit24: TDBEdit;
    DBGrid2: TDBGrid;
    TabSheet3: TTabSheet;
    Panel4: TPanel;
    Label10: TLabel;
    Label14: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label12: TLabel;
    DBEdit8: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit15: TDBEdit;
    DBMemo3: TDBMemo;
    DBLookupComboBox2: TDBLookupComboBox;
    Panel7: TPanel;
    DBGrid3: TDBGrid;
    TabSheet4: TTabSheet;
    Panel5: TPanel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    DBEdit27: TDBEdit;
    DBEdit28: TDBEdit;
    DBMemo4: TDBMemo;
    DBGrid4: TDBGrid;
    Panel1: TPanel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button1: TButton;
    ADOTable4_1: TADOTable;
    ADOTable4_1DSDesigner: TAutoIncField;
    ADOTable4_1DSDesigner2: TIntegerField;
    ADOTable4_1DSDesigner3: TWideStringField;
    ADOTable4_1DSDesigner4: TWideStringField;
    ADOTable4_1DSDesigner5: TWideStringField;
    ADOTable4_1DSDesigner6: TFloatField;
    ADOTable4_1DSDesigner7: TFloatField;
    ADOTable4_1DSDesigner8: TWideStringField;
    ADOTable4_1DSDesigner9: TWideStringField;
    Label9: TLabel;
    Label24: TLabel;
    DBEdit9: TDBEdit;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    Label25: TLabel;
    DBEdit20: TDBEdit;
    ADOQuery3: TADOQuery;
    Label26: TLabel;
    DBEdit21: TDBEdit;
    DataSource2_1: TDataSource;
    DBLookupComboBox1: TDBLookupComboBox;
    DataSource3_1: TDataSource;
    DataSource4_1: TDataSource;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit_delete;

{$R *.dfm}

procedure TForm4.Button4Click(Sender: TObject);
begin
button2.Enabled:=false;
case pagecontrol1.TabIndex of
0:
begin
adotable1.Cancel;
panel2.Enabled:=false;
end;
1:
begin
adoquery1.Cancel;
panel3.Enabled:=false;
end;
2:
begin
adoquery2.Cancel;
panel4.Enabled:=false;
end;
3:
begin
adoquery3.Cancel;
panel5.Enabled:=false;
end;

end;
end;

procedure TForm4.Button5Click(Sender: TObject);
begin
close;
end;

procedure TForm4.Button6Click(Sender: TObject);
begin
case pagecontrol1.TabIndex of
0:
begin
panel2.Enabled:=true;
adotable1.Edit;
end;
1:
begin
 with adoquery1 do
begin
sql.Clear;
close;
sql.add('select * from 住户房屋资料表 where 住户编号=:ID');
parameters[0].Value:=dbedit1.Text;
open;
end;
panel3.Enabled:=true;
adoquery1.Edit;
end;
2:
begin
 with adoquery2 do
begin
 sql.Clear;
close;
sql.add('select * from 物业缴费管理表 where 住户编号=:ID');
parameters[0].Value:=dbedit1.Text;
open;
end;
panel4.Enabled:=true;
adoquery2.Edit;
dbedit20.Text:=dbedit1.Text;

end;
3:
begin
 with adoquery3 do
begin
 sql.Clear;
close;
sql.add('select * from 住户家庭成员资料表 where 住户编号=:ID');
parameters[0].Value:=dbedit1.Text;
open;
end;
panel5.Enabled:=true;
adoquery3.Edit;
 dbedit21.Text:=dbedit1.Text;
end;

end;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
button2.Enabled:=true;
case pagecontrol1.TabIndex of
0:
begin
panel2.Enabled:=true;
adotable1.Append;
end;
1:
begin
 with adoquery1 do
begin
 sql.Clear;
close;
sql.add('select * from 住户房屋资料表 where 住户编号=:ID');
parameters[0].Value:=dbedit1.Text;
open;
end;
panel3.Enabled:=true;
adoquery1.Append;
 dbedit9.Text:=dbedit1.Text;
end;
2:
begin
 with adoquery2 do
begin
 sql.Clear;
close;
sql.add('select * from 物业缴费管理表 where 住户编号=:ID');
parameters[0].Value:=dbedit1.Text;
open;
end;
panel4.Enabled:=true;
adoquery2.Append;
dbedit20.Text:=dbedit1.Text;
end;
3:
begin
 with adoquery3 do
begin
 sql.Clear;
close;
sql.add('select * from 住户家庭成员资料表 where 住户编号=:ID');
parameters[0].Value:=dbedit1.Text;
open;
end;
panel5.Enabled:=true;
adoquery3.Append;
dbedit21.Text:=dbedit1.Text;
end;

end;

end;

procedure TForm4.Button2Click(Sender: TObject);
begin
 case pagecontrol1.TabIndex of
0:
begin
panel2.Enabled:=false;
adotable1.Post;
end;
1:
begin
panel3.Enabled:=false;
adoquery1.Post;
end;
2:
begin
panel4.Enabled:=false;
adoquery2.post;
end;
3:
begin
panel5.Enabled:=false;
adoquery3.Post;
end;

end;
 button2.Enabled:=false;
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
//form10.show;
if  Application.MessageBox('您正在删除一条记录!','删除',MB_YESNO)=6 then
begin
case form4.pagecontrol1.TabIndex of
0:
begin
form4.adotable1.Delete;
end;
1:
begin
form4.adoquery1.Delete;
end;
2:
begin
form4.adoquery2.Delete;
end;
3:
begin
form4.adoquery3.Delete;
end;

end;
end;
end;

procedure TForm4.TabSheet2Show(Sender: TObject);
begin
 with adoquery1 do
begin
 sql.Clear;
close;
sql.add('select * from 住户房屋资料表 where 住户编号=:ID');
parameters[0].Value:=dbedit1.Text;
open;
end;
end;

procedure TForm4.TabSheet3Show(Sender: TObject);
begin
  with adoquery2 do
begin
 sql.Clear;
close;
sql.add('select * from 物业缴费管理表 where 住户编号=:ID');
parameters[0].Value:=dbedit1.Text;
open;
end;
end;

procedure TForm4.TabSheet4Show(Sender: TObject);
begin
   with adoquery3 do
begin
 sql.Clear;
close;
sql.add('select * from 住户家庭成员资料表 where 住户编号=:ID');
parameters[0].Value:=dbedit1.Text;
open;
end;
end;

end.