unit8.pas

来自「本系统是一个房屋出租方面的管理系统」· PAS 代码 · 共 200 行

unit Unit8;

interface

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

type
  TFormXYFWZ = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    ToolBar1: TToolBar;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Panel3: TPanel;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Panel5: TPanel;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox1: TComboBox;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn6: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormXYFWZ: TFormXYFWZ;

implementation
uses unit3;
{$R *.dfm}

procedure TFormXYFWZ.FormShow(Sender: TObject);
begin
  database.ADO_XYFW.Connection:=database.ADOConnection1;
  database.ADO_XYFW.Close;
  database.ADO_XYFW.SQL.Clear;
  database.ADO_XYFW.SQL.Add('select * from 现有房屋表');
  database.ADO_XYFW.Open;
  database.DataSource2.DataSet:=database.ADO_XYFW;
  edit1.Text:=database.ADO_XYFW.Fields[0].Value;
  edit2.Text:=database.ADO_XYFW.Fields[1].Value;
  edit3.Text:=database.ADO_XYFW.Fields[2].Value;
  edit5.Text:=database.ADO_XYFW.Fields[3].Value;

  combobox1.ItemIndex:=0;
  bitbtn3.Enabled:=false;
  bitbtn4.Enabled:=false;
end;

procedure TFormXYFWZ.BitBtn2Click(Sender: TObject);
begin
  if (database.ADO_XYFW.Eof<>true) then
  begin
  database.ADO_XYFW.Next;
  edit1.Text:=database.ADO_XYFW.Fields[0].Value;
  edit2.Text:=database.ADO_XYFW.Fields[1].Value;
  edit3.Text:=database.ADO_XYFW.Fields[2].Value;
  edit5.Text:=database.ADO_XYFW.Fields[3].Value;
  bitbtn3.Enabled:=true;
  bitbtn4.Enabled:=true;
  end
  else
  begin
    bitbtn2.Enabled:=false;
    bitbtn5.Enabled:=false;
    application.MessageBox('已到最后记录!','提示',64);
  end;
end;

procedure TFormXYFWZ.BitBtn3Click(Sender: TObject);
begin
  if (database.ADO_XYFW.Bof<>true) then
  begin
  database.ADO_XYFW.Prior;
  edit1.Text:=database.ADO_XYFW.Fields[0].Value;
  edit2.Text:=database.ADO_XYFW.Fields[1].Value;
  edit3.Text:=database.ADO_XYFW.Fields[2].Value;
  edit5.Text:=database.ADO_XYFW.Fields[3].Value;
  bitbtn2.Enabled:=true;
  bitbtn5.Enabled:=true;
  end
  else
  begin
    bitbtn3.Enabled:=false;
    bitbtn4.Enabled:=false;
    application.MessageBox('已到第一条记录!','提示',64);
  end;
end;

procedure TFormXYFWZ.BitBtn4Click(Sender: TObject);
begin
  database.ADO_XYFW.First;
  edit1.Text:=database.ADO_XYFW.Fields[0].Value;
  edit2.Text:=database.ADO_XYFW.Fields[1].Value;
  edit3.Text:=database.ADO_XYFW.Fields[2].Value;
  edit5.Text:=database.ADO_XYFW.Fields[3].Value;
  bitbtn4.Enabled:=false;
  bitbtn3.Enabled:=false;
  bitbtn2.Enabled:=true;
  bitbtn5.Enabled:=true;
end;

procedure TFormXYFWZ.BitBtn5Click(Sender: TObject);
begin
  database.ADO_XYFW.Last;
  edit1.Text:=database.ADO_XYFW.Fields[0].Value;
  edit2.Text:=database.ADO_XYFW.Fields[1].Value;
  edit3.Text:=database.ADO_XYFW.Fields[2].Value;
  edit5.Text:=database.ADO_XYFW.Fields[3].Value;
  bitbtn5.Enabled:=false;
  bitbtn2.Enabled:=false;
  bitbtn3.Enabled:=true;
  bitbtn4.Enabled:=true;
end;

procedure TFormXYFWZ.BitBtn1Click(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  edit5.Clear;
  if edit4.Text <> '' then
   begin
      database.ADO_XYFW.Close;
      database.ADO_XYFW.SQL.Clear;
      database.ADO_XYFW.SQL.Add('select * from 现有房屋表');
      database.ADO_XYFW.SQL.Add('where');
      database.ADO_XYFW.SQL.Add(combobox1.Text);
      database.ADO_XYFW.SQL.Add('=');
      database.ADO_XYFW.SQL.Add(':a');
      database.ADO_XYFW.Parameters.ParamByName('a').Value:=trim(edit4.Text);
      database.ADO_XYFW.Open;

      edit1.Text:=database.ADO_XYFW.Fields[0].Value;
      edit2.Text:=database.ADO_XYFW.Fields[1].Value;
      edit3.Text:=database.ADO_XYFW.Fields[2].Value;
      edit5.Text:=database.ADO_XYFW.Fields[3].Value;

      application.MessageBox('查询成功','提示',64);
   end
   else
      messageDlg('查询条件不能为空!请输入查询条件',mtWarning,[MbYes],0);
end;

procedure TFormXYFWZ.BitBtn6Click(Sender: TObject);
begin
   with database.ADO_XYFW do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 现有房屋表');
      open;
   end;

  edit1.Text:=database.ADO_XYFW.Fields[0].Value;
  edit2.Text:=database.ADO_XYFW.Fields[1].Value;
  edit3.Text:=database.ADO_XYFW.Fields[2].Value;
  edit5.Text:=database.ADO_XYFW.Fields[3].Value;

   combobox1.ItemIndex:=0;
   edit4.Clear;

end;

procedure TFormXYFWZ.BitBtn7Click(Sender: TObject);
begin
   FormXYFWZ.Close;
end;

end.