weixiu1.pas

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

unit weixiu1;

interface

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

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

var
  weixiu: Tweixiu;

implementation

{$R *.dfm}
//procedure   Tweixiu.WMSYSCOMMAND(VAR   Message:   TMessage);
//begin
  //  if   Message.WParam   =   SC_CLOSE   then
   // Application.Minimize //拦截后什么也不做！
//else
  //  inherited;
//end;



procedure Tweixiu.BitBtn1Click(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 weixiu values('''+edit2.text+''','''
    +edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+edit6.Text+''','''+edit7.Text+''','''+edit8.Text+''')');
   adoquery1.ExecSQL;
end;
end;

procedure Tweixiu.BitBtn2Click(Sender: TObject);
begin

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

end;

procedure Tweixiu.BitBtn3Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from weixiu';
adoquery1.Open;
dbgrid1.Columns[0].FieldName:='id';
dbgrid1.Columns[1].FieldName:='makepeople';
dbgrid1.Columns[2].FieldName:='makeprice';
dbgrid1.Columns[3].FieldName:='customername';
dbgrid1.Columns[4].FieldName:='customermessage';
dbgrid1.Columns[5].FieldName:='maketime';
dbgrid1.Columns[6].FieldName:='loupainumber';
dbgrid1.Columns[7].FieldName:='guzhangming' ;
end;

procedure Tweixiu.BitBtn4Click(Sender: TObject);
begin

close;
end;

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

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

end.