fmodifyform.pas

简单的小区物业管理系统,户籍管理,出入管理,系统管理,收费管理,

unit fmodifyform;

interface

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

type
  Tfmodify = class(TForm)
    btsearch: TButton;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    Edit1: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btsearchClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmodify: Tfmodify;

implementation

uses mainform, DataM;

{$R *.dfm}

procedure Tfmodify.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmmain.show;
end;

procedure Tfmodify.btsearchClick(Sender: TObject);
begin
  if ComboBox1.ItemIndex=0 then
    begin
      Data.ADOFix.Close;
      Data.ADOFix.SQL.Clear;
      Data.ADOFix.SQL.Add('select* from fix where homemastername="'+edit1.text+'"') ;
      Data.ADOFix.Open;
     end
  else if combobox1.ItemIndex=1  then
        begin
         Data.ADOFix.Close;
         Data.ADOFix.SQL.Clear;
         Data.ADOFix.SQL.Add('select * from fix where fixkind="'+Edit1.Text+'"');
         Data.ADOFix.Open;
        end
  else if combobox1.ItemIndex=2 then
        begin
         Data.ADOFix.Close;
         Data.ADOFix.SQL.Clear;
         Data.ADOFix.SQL.Add('select * from fix where fixtername="'+Edit1.Text+'"');
         Data.ADOFix.Open;
        end;
end;

procedure Tfmodify.ComboBox1Change(Sender: TObject);
begin
  label3.Enabled:=true;
  btsearch.Enabled:=false;
  if ComboBox1.ItemIndex=0 then
    label3.Caption:='请输入姓名';
  if ComboBox1.ItemIndex=1 then
     label3.Caption:='请输入电器名';
   if ComboBox1.ItemIndex=2 then
     label3.Caption:='请输入姓名';

end;

procedure Tfmodify.FormCreate(Sender: TObject);
begin
  label3.Enabled:=false;
end;

procedure Tfmodify.Edit1Change(Sender: TObject);
begin
btsearch.Enabled:=true;
end;

end.