louyuxinxi1.pas

湖滨小区物业管理系统主要是针对湖滨小区的物业管理公司作为使用对象而开发的

unit louyuxinxi1;

interface

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

type
  Tyuzhuxinxi = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Label9: TLabel;
    Edit9: TEdit;
    Label10: TLabel;
    Edit10: TEdit;
    Label11: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    memo1: TMemo;
    ComboBox1: TComboBox;
    BitBtn3: TBitBtn;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label12: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit2: TEdit;
    BitBtn4: TBitBtn;
    Edit11: TEdit;
    TabSheet3: TTabSheet;
    DBGrid2: TDBGrid;
    BitBtn5: TBitBtn;
    GroupBox1: TGroupBox;
    BitBtn6: TBitBtn;
    Edit12: TEdit;
    BitBtn7: TBitBtn;
    Label13: TLabel;
    BitBtn8: TBitBtn;
    Label14: TLabel;
    Edit13: TEdit;
    BitBtn9: TBitBtn;
    Panel2: TPanel;
    Panel3: TPanel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
   //procedure  WMSYSCOMMAND(VAR   Message:   TMessage);message   WM_SYSCOMMAND;

  public
    { Public declarations }
  end;

var
  yuzhuxinxi: Tyuzhuxinxi;

implementation

{$R *.dfm}
//procedure Tyuzhuxinxi.WMSYSCOMMAND(VAR   Message:   TMessage);
//begin
   //if  Message.WParam   =   SC_CLOSE   then
    //Application.Minimize //拦截后什么也不做！
//else
    //herited;
//end;

procedure Tyuzhuxinxi.BitBtn1Click(Sender: TObject);
begin
if edit1.Text='' then
   begin
     showmessage('用户号不能为空');
      exit;
      end;
      begin
 adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from yzhxx where id='''+edit1.text+'''');
//adoquery1.SQL.Add (' where id='''+edit1.text+'''and lounumberid='''+combobox1.Text+'''' );
adoquery1.Open;
  end;
if adoquery1.Recordset.RecordCount <> 0 then
begin
showmessage('该用户号已经存在了');
 end
 else
 begin
   adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into lph values('''+trim(combobox1.Text)+''','''+combobox1.Text+''','''+edit3.Text+''')');
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into yzhxx values('''+trim(edit1.Text)+''','''
     +combobox1.Text+''','''+edit3.Text+''','''+edit4.Text+''','''
     +edit5.Text+''','''+edit9.Text+''','''+edit10.Text+''','''
      +edit6.Text+''','''+edit7.Text+''','''+edit8.Text+''','''+memo1.Text+''')');

adoquery1.ExecSQL;

showmessage('添加业主信息成功!');
edit1.SetFocus;
end;


 end;
procedure Tyuzhuxinxi.BitBtn3Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from yzhxx';
adoquery1.Open;
dbgrid1.Columns[0].FieldName:='id';
dbgrid1.Columns[1].FieldName:='lounumberid';
dbgrid1.Columns[2].FieldName:='unitnumberid';
dbgrid1.Columns[3].FieldName:='doornumber';
dbgrid1.Columns[4].FieldName:='name';
dbgrid1.Columns[5].FieldName:='workadress';
dbgrid1.Columns[6].FieldName:='mianji';
dbgrid1.Columns[7].FieldName:='huxing';
dbgrid1.Columns[8].FieldName:='gudingnumber';
dbgrid1.Columns[9].FieldName:='telphone';
dbgrid1.Columns[10].FieldName:='beizhu';
end;

procedure Tyuzhuxinxi.BitBtn4Click(Sender: TObject);
begin
  if (trim(edit1.Text)='')and (trim(edit2.Text)='') then
   begin
   messagedlg('请输入查询条件!',mtwarning,[mbok],0);
    exit;
    end;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select * from yzhxx'+'');
    if radiobutton1.Checked then
      begin
      adoquery1.SQL.Add('where('+radiobutton1.Caption+' like ''%'+trim(edit2.Text)+'%'')');
       edit2.SetFocus;
       edit11.Clear;
       end
      else
        begin
         adoquery1.SQL.Add('where('+radiobutton2.caption+' like ''%'+edit11.Text+'%'')');
         edit11.SetFocus;
         edit2.Clear;
         end;
          adoquery1.Open;

end;

procedure Tyuzhuxinxi.BitBtn5Click(Sender: TObject);
begin
   adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from yzhxx';
adoquery1.Open;
dbgrid2.Columns[0].FieldName:='id';
dbgrid2.Columns[1].FieldName:='lounumberid';
dbgrid2.Columns[2].FieldName:='unitnumberid';
dbgrid2.Columns[3].FieldName:='doornumber';
dbgrid2.Columns[4].FieldName:='name';
dbgrid2.Columns[5].FieldName:='workadress';
dbgrid2.Columns[6].FieldName:='mianji';
dbgrid2.Columns[7].FieldName:='huxing';
dbgrid2.Columns[8].FieldName:='gudingnumber';
dbgrid2.Columns[9].FieldName:='telphone';
dbgrid2.Columns[10].FieldName:='beizhu';
end;

procedure Tyuzhuxinxi.BitBtn6Click(Sender: TObject);
var scon,con:string;

begin
     scon:=trim(edit12.Text);
      con:=trim(edit13.Text);
     if (scon='')or (con='') then
     begin
     messagedlg('请选择条件',mtwarning,[mbok],0);
     exit;
     end;
       adoquery1.Close;
       adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select * from yzhxx where lounumberid='''+scon+'''and name='''+con+'''');
      adoquery1.Open;
    if adoquery1.Recordset.RecordCount = 0 then
    begin
     showmessage('该用户不存在');
     end
     else begin
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('delete from yzhxx where lounumberid='''+scon+'''and name='''+con+'''');
     adoquery1.ExecSQL;
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('delete from lph where id ='''+scon+'''');
      adoquery1.ExecSQL;
     showmessage('业主退房成功');
     edit12.Text:='';
     adoquery1.Close;
     end;

     showmessage('数据表已清空,无法删除');

     

     end;




procedure Tyuzhuxinxi.BitBtn7Click(Sender: TObject);
begin
  if adoquery1.FieldByName('id').AsString='' then
     showmessage('数据表表与空,无法删除')
     else
      begin
        adoquery1.Delete;
        showmessage('删除成功');
     
        
        end;

end;

procedure Tyuzhuxinxi.BitBtn8Click(Sender: TObject);
begin

close;
end;

procedure Tyuzhuxinxi.BitBtn2Click(Sender: TObject);
begin
edit1.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
combobox1.Text:='';
memo1.Text:='';

end;

procedure Tyuzhuxinxi.BitBtn9Click(Sender: TObject);
begin
   edit1.Text:='';
   edit3.Text:='';
   edit4.Text:='';
   edit5.Text:='';
   edit6.Text:='';
   edit7.Text:='';
   edit7.Text:='';
   edit8.Text:='';
   edit9.text:='';
   edit10.Text:='';
   combobox1.Text:='';
   memo1.Text:='';


end;

procedure Tyuzhuxinxi.FormShow(Sender: TObject);
begin
   edit1.Text:='';
   edit3.Text:='';
   edit4.Text:='';
   edit5.Text:='';
   edit6.Text:='';
   edit7.Text:='';
   edit7.Text:='';
   edit8.Text:='';
   edit9.text:='';
   edit10.Text:='';
   combobox1.Text:='';
   memo1.Text:='';
end;

end.