chwxx1.~pas

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

unit chwxx1;

interface

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

type
  Tchwxx = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    BitBtn3: TBitBtn;
    Label6: TLabel;
    Edit4: TEdit;
    BitBtn4: TBitBtn;
    Edit5: TEdit;
    Edit6: TEdit;
    DataSource1: TDataSource;
    Label7: TLabel;
    Edit7: TEdit;
    BitBtn5: TBitBtn;
    ADOQuery2: TADOQuery;
    BitBtn6: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
  //procure   WMSYSCOMMAND(VAR   Message:   TMessage);message   WM_SYSCOMMAND;
    { Private declarations }

  public
    { Public declarations }
  end;

var
  chwxx: Tchwxx;
  //realClose: boolean;
implementation

{$R *.dfm}
//ocedure   Tchwxx.WMSYSCOMMAND(VAR   Message:   TMessage);
//begin
 // if essage.WParam   =   SC_CLOSE   then
   //pplication.Minimize //拦截后什么也不做！
//se
   //nherited;
//end;

procedure Tchwxx.BitBtn1Click(Sender: TObject);
begin
  if edit1.Text='' then
   begin
      showmessage('车位号不能为空');
      exit;
      end;
  adoquery2.Close;
  adoquery2.SQL.Clear;
  adoquery2.SQL.Add('select * from chw where cheweinumber='''+edit1.text+'''');
  adoquery2.Open;
    if adoquery2.Recordset.RecordCount <> 0 then
       begin
          showmessage('该车位已经被用');

        end
          else
           begin
            adoquery2.Close;
       adoquery2.SQL.Clear;
       adoquery2.SQL.Add('insert into chw values('''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit5.Text+''','''+edit6.Text+''')');
        adoquery2.ExecSQL;
      messagedlg('添加定单成功!',mtinformation,[mbok],0);
       edit1.SetFocus;
    end;
end;

procedure Tchwxx.BitBtn3Click(Sender: TObject);
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.sql.Text:='select * from chw';
//adoquery2.ExecSQL;
adoquery2.Open;
dbgrid1.Columns[0].FieldName:='cheweinumber';
dbgrid1.Columns[1].FieldName:='user';
dbgrid1.Columns[2].FieldName:='carnumber';
dbgrid1.Columns[3].FieldName:='contractstartime';
dbgrid1.Columns[4].FieldName:='contractendtime';
dbgrid1.Columns[2].Width:=80;
dbgrid1.Columns[3].Width:=100;
dbgrid1.Columns[4].Width:=100;

end;

procedure Tchwxx.BitBtn2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
end;

procedure Tchwxx.BitBtn4Click(Sender: TObject);
var chm:integer;
begin
   chm:=strtoint(edit4.Text);
   adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.sql.Text:='select * from chw where cheweinumber='+inttostr(chm);
//adoquery2.ExecSQL;
adoquery2.Open;
dbgrid1.Columns[2].Width:=80;
dbgrid1.Columns[3].Width:=100;;
dbgrid1.Columns[4].Width:=100;
end;

procedure Tchwxx.BitBtn5Click(Sender: TObject);
begin
  adoquery2.SQL.Clear;
  adoquery2.SQL.Add('select * from chw where cheweinumber='''+edit7.text+'''');
  adoquery2.Open;
    if adoquery2.Recordset.RecordCount = 0 then
    begin
     showmessage('该用户不存在');
     end
     else begin
     adoquery2.Close;
     adoquery2.SQL.Clear;
     adoquery2.SQL.Add('delete from  chw where cheweinumber='''+edit7.text+'''');
     adoquery2.ExecSQL;
     showmessage('合同解除成功');
     edit7.Text:='';
     end;

end;

procedure Tchwxx.BitBtn6Click(Sender: TObject);
begin
//realClose := true;
close;
end;

procedure Tchwxx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//   if realClose then
   // begin
     // Action:=caFree;
      //chwxx:=Nil;
    //end
    //else Action:=caNone;
end;

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

end.