⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit10.pas

📁 本系统是一个房屋出租方面的管理系统
💻 PAS
字号:
🔍 
unit Unit10;

interface

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

type
  TFormZHDJZ = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Panel3: TPanel;
    Label8: TLabel;
    ComboBox1: TComboBox;
    Label9: TLabel;
    Edit7: TEdit;
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    Edit5: TEdit;
    Label5: TLabel;
    Label4: TLabel;
    Edit6: TEdit;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    ComboBox2: TComboBox;
    Label10: TLabel;
    Label11: TLabel;
    BitBtn10: TBitBtn;
    procedure FormShow(Sender: TObject);

    
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);








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

var
  FormZHDJZ: TFormZHDJZ;

implementation
uses unit3,unit14,unit15;
{$R *.dfm}



procedure TFormZHDJZ.FormShow(Sender: TObject);
begin
   database.ADO_ZHDJZ.Connection:=database.ADOConnection1;
   database.ADO_ZHDJZ.Close;
   database.ADO_ZHDJZ.SQL.Clear;
   database.ADO_ZHDJZ.SQL.Add('select * from 住户登记表');
   database.ADO_ZHDJZ.Open;

   label10.Caption:=database.ADO_ZHDJZ.Fields[0].Value;
   label11.Caption:=trim(database.ADO_ZHDJZ.Fields[1].Value);
   if database.ADO_ZHDJZ.Fields[2].Value = '男' then
      combobox2.ItemIndex:=0
   else
      combobox2.ItemIndex:=1;
   edit4.Text:=inttostr(database.ADO_ZHDJZ.Fields[3].Value);
   edit5.Text:=database.ADO_ZHDJZ.Fields[4].Value;
   edit6.Text:=database.ADO_ZHDJZ.Fields[5].Value;

   bitbtn1.Enabled:=false;
   bitbtn3.Enabled:=false;
   bitbtn10.Enabled:=false;

   edit7.Clear;
   combobox1.ItemIndex:=0;
end;







procedure TFormZHDJZ.BitBtn2Click(Sender: TObject);
begin
   bitbtn1.Enabled:=true;
   bitbtn3.Enabled:=true;
   if database.ADO_ZHDJZ.Eof then
   begin
      application.MessageBox('已到最后一条记录!','提示',64);
      bitbtn2.Enabled:=false;
      bitbtn4.Enabled:=false;
      bitbtn3.Enabled:=true;
      bitbtn1.Enabled:=true;
   end
   else
   begin
      database.ADO_ZHDJZ.Next;
      label10.Caption:=database.ADO_ZHDJZ.Fields[0].Value;
      label11.Caption:=trim(database.ADO_ZHDJZ.Fields[1].Value);
      if database.ADO_ZHDJZ.Fields[2].Value = '男' then
         combobox2.ItemIndex:=0
      else
         combobox2.ItemIndex:=1;
      edit4.Text:=database.ADO_ZHDJZ.Fields[3].Value;
      edit5.Text:=database.ADO_ZHDJZ.Fields[4].Value;
      edit6.Text:=database.ADO_ZHDJZ.Fields[5].Value;
   end;
end;

procedure TFormZHDJZ.BitBtn3Click(Sender: TObject);
begin
   bitbtn2.Enabled:=true;
   bitbtn4.Enabled:=true;
   if database.ADO_ZHDJZ.Bof then
   begin
      application.MessageBox('已到第一条记录!','提示',64);
      bitbtn1.Enabled:=false;
      bitbtn3.Enabled:=false;
      bitbtn2.Enabled:=true;
      bitbtn4.Enabled:=true;
   end
   else
   begin
      database.ADO_ZHDJZ.Prior;
      label10.Caption:=database.ADO_ZHDJZ.Fields[0].Value;
      label11.Caption:=trim(database.ADO_ZHDJZ.Fields[1].Value);
      if database.ADO_ZHDJZ.Fields[2].Value = '男' then
         combobox2.ItemIndex:=0
      else
         combobox2.ItemIndex:=1;
      edit4.Text:=database.ADO_ZHDJZ.Fields[3].Value;
      edit5.Text:=database.ADO_ZHDJZ.Fields[4].Value;
      edit6.Text:=database.ADO_ZHDJZ.Fields[5].Value;
   end;
end;




procedure TFormZHDJZ.BitBtn1Click(Sender: TObject);
begin
   database.ADO_ZHDJZ.First;
   bitbtn1.Enabled:=false;
   bitbtn3.Enabled:=false;
   bitbtn2.Enabled:=true;
   bitbtn4.Enabled:=true;
end;

procedure TFormZHDJZ.BitBtn4Click(Sender: TObject);
begin
   database.ADO_ZHDJZ.Last;
   bitbtn1.Enabled:=true;
   bitbtn3.Enabled:=true;
   bitbtn2.Enabled:=false;
   bitbtn4.Enabled:=false;
end;



procedure TFormZHDJZ.BitBtn6Click(Sender: TObject);
begin
   FormZHDJTJ.Show;
end;

procedure TFormZHDJZ.BitBtn7Click(Sender: TObject);
begin
   FormZHDJSC.Show;
end;

procedure TFormZHDJZ.BitBtn9Click(Sender: TObject);
begin
   FormZHDJZ.Close;
end;



procedure TFormZHDJZ.BitBtn8Click(Sender: TObject);
begin
   if edit4.Text ='' then
      application.MessageBox('年龄不能为空!','提示',64)
   else if  edit5.Text = '' then
           application.MessageBox('身份证号不能为空!','提示',64)
   else if edit6.Text ='' then
           application.MessageBox('联系电话不能为空!','提示',64)
   else
      try
         database.ADO_ZHDJZ.Edit;
         database.ADO_ZHDJZ.FieldByName('性别').Value:=trim(combobox2.Text);
         database.ADO_ZHDJZ.FieldByName('年龄').Value:=trim(edit4.Text);
         database.ADO_ZHDJZ.FieldByName('身份证号').Value:=trim(edit5.Text);
         database.ADO_ZHDJZ.FieldByName('联系电话').Value:=trim(edit6.Text);
         database.ADO_ZHDJZ.Post;
         application.MessageBox('修改成功','提示',64);

         bitbtn10.Enabled:=true;
         
         database.ADO_ZHDJZ.Close;
         database.ADO_ZHDJZ.SQL.Clear;
         database.ADO_ZHDJZ.SQL.Add('select * from 住户登记表');
         database.ADO_ZHDJZ.Open;
         label10.Caption:=database.ADO_ZHDJZ.Fields[0].Value;
         label11.Caption:=trim(database.ADO_ZHDJZ.Fields[1].Value);
         if database.ADO_ZHDJZ.Fields[2].Value = '男' then
            combobox2.ItemIndex:=0
         else
            combobox2.ItemIndex:=1;
         edit4.Text:=inttostr(database.ADO_ZHDJZ.Fields[3].Value);
         edit5.Text:=database.ADO_ZHDJZ.Fields[4].Value;
         edit6.Text:=database.ADO_ZHDJZ.Fields[5].Value;
      except
         application.MessageBox('系统出错','提示',64);
         database.ADO_ZHDJZ.Close;
         database.ADO_ZHDJZ.SQL.Clear;
         database.ADO_ZHDJZ.SQL.Add('select * from 住户登记表');
         database.ADO_ZHDJZ.Open;
         label10.Caption:=database.ADO_ZHDJZ.Fields[0].Value;
         label11.Caption:=trim(database.ADO_ZHDJZ.Fields[1].Value);
         if database.ADO_ZHDJZ.Fields[2].Value = '男' then
            combobox2.ItemIndex:=0
         else
            combobox2.ItemIndex:=1;
         edit4.Text:=inttostr(database.ADO_ZHDJZ.Fields[3].Value);
         edit5.Text:=database.ADO_ZHDJZ.Fields[4].Value;
         edit6.Text:=database.ADO_ZHDJZ.Fields[5].Value;
         end;
end;

procedure TFormZHDJZ.BitBtn5Click(Sender: TObject);
begin
   try
      database.ADO_ZHDJZ.Close;
      database.ADO_ZHDJZ.SQL.Clear;
      database.ADO_ZHDJZ.SQL.Add('select * from 住户登记表 where');
      database.ADO_ZHDJZ.SQL.Add(combobox1.Text);
      database.ADO_ZHDJZ.SQL.Add('=');
      database.ADO_ZHDJZ.SQL.Add(':a');
      database.ADO_ZHDJZ.Parameters.ParamByName('a').Value:=trim(edit7.Text);
      database.ADO_ZHDJZ.Open;
      label10.Caption:=database.ADO_ZHDJZ.Fields[0].Value;
      label11.Caption:=trim(database.ADO_ZHDJZ.Fields[1].Value);
      if database.ADO_ZHDJZ.Fields[2].Value = '男' then
         combobox2.ItemIndex:=0
      else
         combobox2.ItemIndex:=1;
         edit4.Text:=inttostr(database.ADO_ZHDJZ.Fields[3].Value);
         edit5.Text:=database.ADO_ZHDJZ.Fields[4].Value;
         edit6.Text:=database.ADO_ZHDJZ.Fields[5].Value;
         application.MessageBox('查询成功!','提示',64);

         bitbtn10.Enabled:=true;
   except
      application.MessageBox('系统出错','提示',64);
      database.ADO_ZHDJZ.Close;
      database.ADO_ZHDJZ.SQL.Clear;
      database.ADO_ZHDJZ.SQL.Add('select * from 住户登记表');
      database.ADO_ZHDJZ.Open;

      label10.Caption:=database.ADO_ZHDJZ.Fields[0].Value;
      label11.Caption:=trim(database.ADO_ZHDJZ.Fields[1].Value);
      if database.ADO_ZHDJZ.Fields[2].Value = '男' then
         combobox2.ItemIndex:=0
      else
         combobox2.ItemIndex:=1;
      edit4.Text:=inttostr(database.ADO_ZHDJZ.Fields[3].Value);
      edit5.Text:=database.ADO_ZHDJZ.Fields[4].Value;
      edit6.Text:=database.ADO_ZHDJZ.Fields[5].Value;

      bitbtn1.Enabled:=false;
      bitbtn3.Enabled:=false;

      bitbtn10.Enabled:=true;
   end;
end;

procedure TFormZHDJZ.BitBtn10Click(Sender: TObject);
begin
   database.ADO_ZHDJZ.Close;
   database.ADO_ZHDJZ.SQL.Clear;
   database.ADO_ZHDJZ.SQL.Add('select * from 住户登记表');
   database.ADO_ZHDJZ.Open;

   label10.Caption:=database.ADO_ZHDJZ.Fields[0].Value;
   label11.Caption:=trim(database.ADO_ZHDJZ.Fields[1].Value);
   if database.ADO_ZHDJZ.Fields[2].Value = '男' then
      combobox2.ItemIndex:=0
   else
      combobox2.ItemIndex:=1;
   edit4.Text:=inttostr(database.ADO_ZHDJZ.Fields[3].Value);
   edit5.Text:=database.ADO_ZHDJZ.Fields[4].Value;
   edit6.Text:=database.ADO_ZHDJZ.Fields[5].Value;

   bitbtn1.Enabled:=false;
   bitbtn3.Enabled:=false;

   edit7.Clear;
   combobox1.ItemIndex:=0;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -