guzhang1.~pas

湖滨小区物业管理系统主要是针对湖滨小区的物业管理公司作为使用对象而开发的

unit guzhang1;

interface

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

type
  Tguzhang = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
 //procedure   WMSYSCOMMAND(VAR   Message:   TMessage);message   WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  guzhang: Tguzhang;
  //realClose: boolean;

implementation
 //procedure   Tguzhang.WMSYSCOMMAND(VAR   Message:   TMessage);
//begin
   // if   Message.WParam   =   SC_CLOSE   then
    //Application.Minimize //拦截后什么也不做！
//else
    //inherited;
//end;

{$R *.dfm}

procedure Tguzhang.BitBtn3Click(Sender: TObject);
begin
   if  (trim(edit2.Text)='') then
   begin
   messagedlg('故障名不能为空!',mtwarning,[mbok],0);
    exit;
    end;
 begin
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Add('insert into guzhang values('''+edit2.text+''','''
    +edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+edit6.Text+''')');
   adoquery1.ExecSQL;
end;
end;

procedure Tguzhang.BitBtn4Click(Sender: TObject);
begin

edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';

end;

procedure Tguzhang.BitBtn1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from guzhang';
adoquery1.Open;
dbgrid1.Columns[0].FieldName:='id';
dbgrid1.Columns[1].FieldName:='guzhangming';
dbgrid1.Columns[2].FieldName:='tousisupeople';
dbgrid1.Columns[3].FieldName:='unit';
dbgrid1.Columns[4].FieldName:='time';
dbgrid1.Columns[5].FieldName:='beizhu';
end;

procedure Tguzhang.BitBtn2Click(Sender: TObject);
begin

 
 close;
end;



procedure Tguzhang.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    //adoquery1.Close;
 //guzhang.Release;
 //guzhang:=nil;
end;

procedure Tguzhang.FormShow(Sender: TObject);
begin
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
    edit5.Text:='';
    edit6.Text:='';
end;

end.