feiyongshezhi1.~pas

来自「湖滨小区物业管理系统主要是针对湖滨小区的物业管理公司作为使用对象而开发的」· ~PAS 代码 · 共 164 行

unit feiyongshezhi1;

interface

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

type
  Tfeiyongshezhi = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
   //rocedure WMSYSCOMMAND(VAR  Message:   TMessage);message  WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  feiyongshezhi: Tfeiyongshezhi;

implementation
//ocedure   Tfeiyongshezhi.WMSYSCOMMAND(VAR   Message:   TMessage);
//begin
//  if   Message.WParam   =   SC_CLOSE   then
   //aplication.Minimize //拦截后什么也不做！
//else
   //iherited;
//end;

{$R *.dfm}

procedure Tfeiyongshezhi.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure Tfeiyongshezhi.BitBtn1Click(Sender: TObject);
  var a,b,c:string;
begin
     a:=trim(edit1.Text);
     b:=trim(edit2.Text);

     if (a='') and (b='') then
     begin
     messagedlg('请输入相应的条件!',mtwarning,[mbok],0);
    exit;
    end;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select * from jg where xiangmu='''+a+'''');
    adoquery1.Open;
 if adoquery1.Recordset.RecordCount <> 0 then
    begin
   showmessage('该项目已经存在');
   end
 else
     begin
         if radiobutton1.Checked then
      begin
      c:=trim(radiobutton1.Caption);
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.sql.Add('insert into jg (xiangmu,sprice1,spriceway)values('''+a+''','''+b+''','''+c+''')');
      adoquery1.ExecSQL;
      showmessage('添加项目成功');
      end;
      if radiobutton2.Checked then
        begin
            c:=trim(radiobutton2.Caption);
             adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.sql.Add('insert into jg (xiangmu,sprice1,spriceway) values('''+a+''','''+b+''','''+c+''')');
      adoquery1.ExecSQL;
      showmessage('增加收费项目成功');
      
      end;
      end;

end;

procedure Tfeiyongshezhi.BitBtn2Click(Sender: TObject);

begin
if
   edit1.Text='' then
   begin
   showmessage('请输入项目名');
   end;
  adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from jg where xiangmu='''+edit1.text+'''');
adoquery1.Open;
if adoquery1.Recordset.RecordCount = 0 then
begin
showmessage('该项目不存在');
 end
 else
 begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update jg set sprice1='''+trim(edit2.Text)+'''where xiangmu='''+trim(edit1.Text)+'''');
adoquery1.ExecSQL;
showmessage('修改成功');
end;
end;

procedure Tfeiyongshezhi.BitBtn3Click(Sender: TObject);
begin
    if  adoquery1.FieldByName('id').AsString='' then
         showmessage('数据表已经清空,无法删除')
         else
           begin
           adoquery1.Delete;
           showmessage('删除成功');
           end;
end;

procedure Tfeiyongshezhi.Button1Click(Sender: TObject);
begin
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Add('select * from jg');
   adoquery1.Open;
   dbgrid1.Columns[0].FieldName:='id';
dbgrid1.Columns[1].FieldName:='xiangmu';
dbgrid1.Columns[2].FieldName:='sprice1';
dbgrid1.Columns[3].FieldName:='spriceway';

end;



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

end.