realtyl11b.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

unit RealtyL11B;

interface

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

type
    Tf_RealtyL11B = class(TForm)
    Button6: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button2: TButton;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
      bOK:bool;
  end;

var
  f_RealtyL11B: Tf_RealtyL11B;


implementation

uses data, main;

{$R *.dfm}

//初始化
procedure Tf_RealtyL11B.FormCreate(Sender: TObject);
begin
    if mainform.t5='修改' then
    begin
        Edit2.Text:=mainform.t2;
        Edit1.Text:=mainform.t3;
        Edit3.Text:=mainform.t4;
    end;
    bOK:=false;
end;

//Tab
procedure Tf_RealtyL11B.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then
        Begin
            key:=0;
            perform(WM_NEXTDLGCTL,0,0);
        end
    else if key=VK_ESCAPE then close;
end;


procedure Tf_RealtyL11B.Button6Click(Sender: TObject);
begin
    Close;
end;


procedure Tf_RealtyL11B.Button1Click(Sender: TObject);
begin
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
    Edit1.SetFocus;
end;

procedure Tf_RealtyL11B.Button2Click(Sender: TObject);
var
    Query:TADOQuery;
    s,s1:string;
begin
    if Edit1.Text='' then
    begin
        showmessage('请输入名称');
        Edit1.SetFocus;
        exit;
    end;
    if Edit2.Text='' then Edit2.Text:='-';
    if Edit3.Text='' then Edit3.Text:='-';
    s1:='N';
    if checkbox1.Checked=true then s1:='Y';

    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    if mainform.t5='修改' then
    begin
        DataModuleADO.ADOConnection1.BeginTrans;
        query.SQL.Clear ;
        Query.SQL.Text:='delete from 辅助资料 where 名称='''+Mainform.t2+''' and 类别='''+Mainform.t1+'''';
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;
    end;

    query.SQL.Clear ;
    Query.SQL.Add('select * from 辅助资料 where 名称='''+Edit2.Text+''' and 类别='''+Mainform.t1+'''');
    Query.Open ;
    if query.RecordCount>0 then
    begin
        showmessage('名称重复。');
        Edit2.SetFocus;
        query.Close ;
        query.Free ;
        exit;
    end;

    s := 'insert into 辅助资料(编号,名称,说明,是否预设,类别)'+' values(:s1,:s2,:s3,:s4,:s5)';
    query.SQL.Clear;
    query.sql.add(s);
    query.Parameters.ParamByName('s1').Value:=Edit1.Text;
    query.Parameters.ParamByName('s2').Value:=Edit2.Text;
    query.Parameters.ParamByName('s3').Value:=Edit3.Text;
    query.Parameters.ParamByName('s4').Value:=s1;
    query.Parameters.ParamByName('s5').Value:=Mainform.t1;
    query.execsql;
    query.Close ;
    query.Free ;

    Mainform.t1:=Edit2.Text;
    Mainform.t2:=Edit1.Text;
    Mainform.t3:=Edit3.Text;
    bOK:=true;
    close;
end;

procedure Tf_RealtyL11B.Edit1Exit(Sender: TObject);
begin
    //Edit2.Text := mainform.getpy(Edit1.text);
end;

end.