unit4.~pas

本系统是一个房屋出租方面的管理系统

unit Unit4;

interface

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

type
  TFormFWXXZ = class(TForm)
    Panel2: TPanel;
    Panel5: TPanel;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    Label8: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Edit7: TEdit;
    Edit6: TEdit;
    Edit5: TEdit;
    Edit4: TEdit;
    Edit3: TEdit;
    Edit2: TEdit;
    Edit1: TEdit;
    Panel1: TPanel;
    Panel4: TPanel;
    ToolBar1: TToolBar;
    BitBtn10: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure Formshow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormFWXXZ: TFormFWXXZ;

implementation
uses unit3,unit5,unit6,unit7,unit16;
{$R *.dfm}







procedure TFormFWXXZ.Formshow(Sender: TObject);
begin
  bitbtn5.Enabled:=false;
  bitbtn7.Enabled:=false;
  database.ADO_FWXX.Connection:=database.ADOConnection1;
  with database.ADO_FWXX do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 房屋信息表');
    open;
  end;
    edit1.Text:=database.ADO_FWXX.Fields[0].Value;
    edit2.Text:=database.ADO_FWXX.Fields[1].Value;
    edit3.Text:=database.ADO_FWXX.Fields[2].Value;
    edit4.Text:=database.ADO_FWXX.Fields[3].Value;
    edit5.Text:=database.ADO_FWXX.Fields[4].Value;
    edit6.Text:=database.ADO_FWXX.Fields[5].Value;
    edit7.Text:=database.ADO_FWXX.Fields[6].Value;
    memo1.Text:=database.ADO_FWXX.Fields[7].Value;
end;

procedure TFormFWXXZ.BitBtn1Click(Sender: TObject);
begin
  FormfwxxXG.ShowModal;
end;

procedure TFormFWXXZ.BitBtn2Click(Sender: TObject);
begin
  FormfwxxTJ.Show;
  formfwxxtj.edit1.Clear;
  formfwxxtj.combobox1.ItemIndex:=0;
  formfwxxtj.edit2.Clear;
  formfwxxtj.combobox2.ItemIndex:=0;
  formfwxxtj.edit3.Clear;
  formfwxxtj.edit4.Clear;
  formfwxxtj.edit5.Clear;
  formfwxxtj.memo1.Clear;
  formfwxxtj.edit1.SetFocus;
end;

procedure TFormFWXXZ.BitBtn3Click(Sender: TObject);
begin
  formfwxxsc.Show;
end;

procedure TFormFWXXZ.BitBtn4Click(Sender: TObject);
begin
  formfwxxz.Close;
end;

procedure TFormFWXXZ.BitBtn6Click(Sender: TObject);
begin
  if (database.ADO_FWXX.Eof<>true) then
  begin
    database.ADO_FWXX.Next;
    edit1.Text:=database.ADO_FWXX.Fields[0].Value;
    edit6.Text:=database.ADO_FWXX.Fields[1].Value;
    edit2.Text:=database.ADO_FWXX.Fields[2].Value;
    edit7.Text:=database.ADO_FWXX.Fields[3].Value;
    edit3.Text:=database.ADO_FWXX.Fields[4].Value;
    edit4.Text:=database.ADO_FWXX.Fields[6].Value;
    edit5.Text:=database.ADO_FWXX.Fields[7].Value;
    memo1.Text:=database.ADO_FWXX.Fields[5].Value;
    bitbtn5.Enabled:=true;
    bitbtn7.Enabled:=true;
  end
  else
  begin
    application.MessageBox('已到最后一条记录!','提示',64);
    bitbtn6.Enabled:=false;
    bitbtn8.Enabled:=false;
    bitbtn5.Enabled:=true;
    bitbtn7.Enabled:=true;
  end;
end;

procedure TFormFWXXZ.BitBtn5Click(Sender: TObject);
begin
  if (database.ADO_FWXX.Bof<>true) then
  begin
    database.ADO_FWXX.Prior;
    edit1.Text:=database.ADO_FWXX.Fields[0].Value;
    edit6.Text:=database.ADO_FWXX.Fields[1].Value;
    edit2.Text:=database.ADO_FWXX.Fields[2].Value;
    edit7.Text:=database.ADO_FWXX.Fields[3].Value;
    edit3.Text:=database.ADO_FWXX.Fields[4].Value;
    edit4.Text:=database.ADO_FWXX.Fields[6].Value;
    edit5.Text:=database.ADO_FWXX.Fields[7].Value;
    memo1.Text:=database.ADO_FWXX.Fields[5].Value;
    bitbtn6.Enabled:=true;
    bitbtn8.Enabled:=true;
  end
  else
  begin
    application.MessageBox('已到第一条记录!','提示',64);
    bitbtn5.Enabled:=false;
    bitbtn7.Enabled:=false;
    bitbtn6.Enabled:=true;
    bitbtn8.Enabled:=true;
  end;
end;


procedure TFormFWXXZ.BitBtn7Click(Sender: TObject);
begin
  if (database.ADO_FWXX.Bof<>true) then
  begin
    database.ADO_FWXX.First;
    edit1.Text:=database.ADO_FWXX.Fields[0].Value;
    edit6.Text:=database.ADO_FWXX.Fields[1].Value;
    edit2.Text:=database.ADO_FWXX.Fields[2].Value;
    edit7.Text:=database.ADO_FWXX.Fields[3].Value;
    edit3.Text:=database.ADO_FWXX.Fields[4].Value;
    edit4.Text:=database.ADO_FWXX.Fields[6].Value;
    edit5.Text:=database.ADO_FWXX.Fields[7].Value;
    memo1.Text:=database.ADO_FWXX.Fields[5].Value;
    bitbtn5.Enabled:=false;
    bitbtn7.Enabled:=false;
    bitbtn6.Enabled:=true;
    bitbtn8.Enabled:=true;
  end
  else
  begin
    application.MessageBox('已到第一条记录!','提示',64);
    bitbtn5.Enabled:=false;
    bitbtn7.Enabled:=false;
    bitbtn6.Enabled:=true;
    bitbtn6.Enabled:=true;
  end;
end;

procedure TFormFWXXZ.BitBtn8Click(Sender: TObject);
begin
  if (database.ADO_FWXX.Eof<>true) then
  begin
    database.ADO_FWXX.Last;
    edit1.Text:=database.ADO_FWXX.Fields[0].Value;
    edit6.Text:=database.ADO_FWXX.Fields[1].Value;
    edit2.Text:=database.ADO_FWXX.Fields[2].Value;
    edit7.Text:=database.ADO_FWXX.Fields[3].Value;
    edit3.Text:=database.ADO_FWXX.Fields[4].Value;
    edit4.Text:=database.ADO_FWXX.Fields[6].Value;
    edit5.Text:=database.ADO_FWXX.Fields[7].Value;
    memo1.Text:=database.ADO_FWXX.Fields[5].Value;
    bitbtn6.Enabled:=false;
    bitbtn8.Enabled:=false;
    bitbtn5.Enabled:=true;
    bitbtn7.Enabled:=true;
  end
  else
  begin
    application.MessageBox('已到最后一条记录!','提示',64);
    bitbtn6.Enabled:=false;
    bitbtn8.Enabled:=false;
    bitbtn5.Enabled:=true;
    bitbtn7.Enabled:=true;
  end;
end;


procedure TFormFWXXZ.BitBtn9Click(Sender: TObject);
begin
   FormFWXXCX.Show;
end;

procedure TFormFWXXZ.BitBtn10Click(Sender: TObject);
begin
  with database.ADO_FWXX do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 房屋信息表');
    open;
  end;
  edit1.Text:=database.ADO_FWXX.Fields[0].Value;
  edit2.Text:=database.ADO_FWXX.Fields[1].Value;
  edit3.Text:=database.ADO_FWXX.Fields[2].Value;
  edit4.Text:=database.ADO_FWXX.Fields[3].Value;
  edit5.Text:=database.ADO_FWXX.Fields[4].Value;
  edit6.Text:=database.ADO_FWXX.Fields[5].Value;
  edit7.Text:=database.ADO_FWXX.Fields[6].Value;
  memo1.Text:=database.ADO_FWXX.Fields[7].Value;
  bitbtn5.Enabled:=false;
  bitbtn7.Enabled:=false;
  bitbtn6.Enabled:=true;
  bitbtn8.Enabled:=true;      
end;

end.