unit9.pas

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

unit Unit9;

interface

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

type
  TFormCZXXZ = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    GroupBox1: TGroupBox;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn20: TBitBtn;
    GroupBox3: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit7: TEdit;
    GroupBox4: TGroupBox;
    BitBtn21: TBitBtn;
    BitBtn22: TBitBtn;
    BitBtn23: TBitBtn;
    BitBtn24: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(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 BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn18Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn20Click(Sender: TObject);
    procedure BitBtn21Click(Sender: TObject);
    procedure BitBtn22Click(Sender: TObject);
    procedure BitBtn23Click(Sender: TObject);
    procedure BitBtn24Click(Sender: TObject);


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

var
  FormCZXXZ: TFormCZXXZ;
  n :integer;
  temp1 :string;
  temp2 :real;
implementation
uses unit3,unit11,unit12,unit13;
{$R *.dfm}


procedure TFormCZXXZ.FormShow(Sender: TObject);
begin
   database.ADO_CZXX.Connection:=database.ADOConnection1;
   database.ADO_CZXX.Close;
   database.ADO_CZXX.SQL.Clear;
   database.ADO_CZXX.SQL.Add('select distinct * from 出租信息表');
   database.ADO_CZXX.Open;

   edit1.Text:=database.ADO_CZXX.Fields[0].value;
   edit2.Text:=database.ADO_CZXX.Fields[1].value;
   edit3.Text:=database.ADO_CZXX.Fields[2].value;
   edit4.Text:=inttostr(database.ADO_CZXX.Fields[3].value);
   edit5.Text:=datetimetostr(database.ADO_CZXX.Fields[4].value);
   edit6.Text:=database.ADO_CZXX.Fields[5].value;

   bitbtn22.Enabled:=false;
   bitbtn24.Enabled:=false;
end;

procedure TFormCZXXZ.BitBtn1Click(Sender: TObject);
begin
   formczxxtj.Show;
end;

procedure TFormCZXXZ.BitBtn2Click(Sender: TObject);
begin
   formczxxcx.Show;
end;

procedure TFormCZXXZ.BitBtn3Click(Sender: TObject);
begin
   formczxxjs.Show;
end;

procedure TFormCZXXZ.BitBtn4Click(Sender: TObject);
begin
   formczxxz.Close;
end;

procedure TFormCZXXZ.BitBtn5Click(Sender: TObject);
begin
   edit7.Text:=edit7.Text+'1';
end;

procedure TFormCZXXZ.BitBtn6Click(Sender: TObject);
begin
   edit7.Text:=edit7.Text+'2';
end;

procedure TFormCZXXZ.BitBtn7Click(Sender: TObject);
begin
   edit7.Text:=edit7.Text+'3';
end;

procedure TFormCZXXZ.BitBtn8Click(Sender: TObject);
begin
   edit7.Text:=edit7.Text+'4';
end;

procedure TFormCZXXZ.BitBtn9Click(Sender: TObject);
begin
   edit7.Text:=edit7.Text+'5';
end;

procedure TFormCZXXZ.BitBtn10Click(Sender: TObject);
begin
   edit7.Text:=edit7.Text+'6';
end;

procedure TFormCZXXZ.BitBtn11Click(Sender: TObject);
begin
   edit7.Text:=edit7.Text+'7';
end;

procedure TFormCZXXZ.BitBtn12Click(Sender: TObject);
begin
   edit7.Text:=edit7.Text+'8';
end;

procedure TFormCZXXZ.BitBtn13Click(Sender: TObject);
begin
   edit7.Text:=edit7.Text+'9';
end;

procedure TFormCZXXZ.BitBtn18Click(Sender: TObject);
begin
   edit7.Text:=edit7.Text+'0';
end;

procedure TFormCZXXZ.BitBtn19Click(Sender: TObject);
begin
   edit7.Clear;
end;

procedure TFormCZXXZ.BitBtn14Click(Sender: TObject);
begin
   n:=1;
   temp1:=edit7.text;
   edit7.Clear;
end;

procedure TFormCZXXZ.BitBtn15Click(Sender: TObject);
begin
   n:=2;
   temp1:=edit7.Text;
   edit7.Clear;
end;

procedure TFormCZXXZ.BitBtn16Click(Sender: TObject);
begin
   n:=3;
   temp1:=edit7.Text;
   edit7.Clear;
end;

procedure TFormCZXXZ.BitBtn17Click(Sender: TObject);
begin
   n:=4;
   temp1:=edit7.Text;
   edit7.Clear;
end;

procedure TFormCZXXZ.BitBtn20Click(Sender: TObject);
begin
   case n of
      1:temp2:=strtofloat(temp1)+strtofloat(edit7.Text);
      2:temp2:=strtofloat(temp1)-strtofloat(edit7.Text);
      3:temp2:=strtofloat(temp1)*strtofloat(edit7.Text);
      4:if StrToFloat(edit7.Text) = 0 then
        begin
           showmessage('除数不能为0!');
           edit7.Clear;
           exit;
        end
        else
           temp2:=strtofloat(temp1)/strtofloat(edit7.Text);
   end;
   edit7.Text:=floattostr(temp2);
end;

procedure TFormCZXXZ.BitBtn21Click(Sender: TObject);
begin
   if database.ADO_CZXX.Eof then
   begin
      application.MessageBox('已到最后一条记录!','提示',64);
      bitbtn21.Enabled:=false;
      bitbtn23.Enabled:=false;
      bitbtn22.Enabled:=true;
      bitbtn24.Enabled:=true;
   end
   else
   begin
      database.ADO_CZXX.Next;

      bitbtn22.Enabled:=true;
      bitbtn24.Enabled:=true;

      edit1.Text:=database.ADO_CZXX.Fields[0].value;
      edit2.Text:=database.ADO_CZXX.Fields[1].value;
      edit3.Text:=database.ADO_CZXX.Fields[2].value;
      edit4.Text:=inttostr(database.ADO_CZXX.Fields[3].value);
      edit5.Text:=datetimetostr(database.ADO_CZXX.Fields[4].value);
      edit6.Text:=database.ADO_CZXX.Fields[5].value;
   end;
end;

procedure TFormCZXXZ.BitBtn22Click(Sender: TObject);
begin
   if database.ADO_CZXX.Bof then
   begin
      application.MessageBox('已到第一条记录!','提示',64);
      bitbtn21.Enabled:=true;
      bitbtn23.Enabled:=true;
      bitbtn22.Enabled:=false;
      bitbtn24.Enabled:=false;
   end
   else
   begin
      database.ADO_CZXX.Prior;

      bitbtn21.Enabled:=true;
      bitbtn23.Enabled:=true;

      edit1.Text:=database.ADO_CZXX.Fields[0].value;
      edit2.Text:=database.ADO_CZXX.Fields[1].value;
      edit3.Text:=database.ADO_CZXX.Fields[2].value;
      edit4.Text:=inttostr(database.ADO_CZXX.Fields[3].value);
      edit5.Text:=datetimetostr(database.ADO_CZXX.Fields[4].value);
      edit6.Text:=database.ADO_CZXX.Fields[5].value;
   end;
end;

procedure TFormCZXXZ.BitBtn23Click(Sender: TObject);
begin
   database.ADO_CZXX.Last;
   bitbtn22.Enabled:=true;
   bitbtn24.Enabled:=true;
   bitbtn21.Enabled:=false;
   bitbtn23.Enabled:=false;
end;

procedure TFormCZXXZ.BitBtn24Click(Sender: TObject);
begin
   database.ADO_CZXX.First;
   bitbtn21.Enabled:=true;
   bitbtn23.Enabled:=true;
   bitbtn22.Enabled:=false;
   bitbtn24.Enabled:=false;
end;

end.