realtyh22b.pas

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

unit RealtyH22B;

interface

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

type
    Tf_RealtyH22B = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    edit1: TEdit;
    edit3: TMemo;
    Label9: TLabel;
    edit11: TMemo;
    Label3: TLabel;
    Label4: TLabel;
    edit4: TEdit;
    Label5: TLabel;
    edit2: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edit6: TEdit;
    edit7: TDateTimePicker;
    Label10: TLabel;
    Label11: TLabel;
    edit9: TMemo;
    Label12: TLabel;
    edit10: TMemo;
    edit8: TComboBox;
    Button1: TButton;
    Edit5: TEdit;
    Button7: TButton;
    Button5: TButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);

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

var
  f_RealtyH22B: Tf_RealtyH22B;
  sNum:string;

implementation

uses data, main,Car4s931,RealtyH22,RealtyL23;

{$R *.dfm}

procedure Tf_RealtyH22B.FormCreate(Sender: TObject);
var
    i:integer;
    query:TADOQuery;
    s:string;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;

    query.SQL.Add('select * from 辅助资料 where 类别='''+'检查结果'+'''');
    query.Open;
    while not query.Eof do
    begin
        edit8.Items.Add(query.fieldbyname('名称').Value);
        query.Next;
    end;

    query.SQL.Clear;
    query.SQL.Add('select * from 清洁绿化处理 where 单号='''+f_RealtyH22.listview1.selected.Caption+'''');
    query.Open;
    if query.RecordCount>0 then
    begin
        edit1.Text:=query.fieldbyname('单号').Value;
        edit2.Text:=query.fieldbyname('绿化项目').Value;
        edit3.text:=query.fieldbyname('任务内容').Value;
        edit4.TEXT:=query.fieldbyname('处理人').Value;
        edit5.TEXT:=query.fieldbyname('处理完成时间').Value;
        edit7.Date:=date;
    end;
    query.close;
    query.free;

end;

//Tab
procedure Tf_RealtyH22B.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_RealtyH22B.Button2Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyH22B.ToolButton10Click(Sender: TObject);
begin
    close;
end;


procedure Tf_RealtyH22B.Button1Click(Sender: TObject);
begin
    f_RealtyL23:=Tf_RealtyL23.Create(self);
    f_RealtyL23.Button2.Visible:=true;
    f_RealtyL23.ShowModal;

    if  f_RealtyL23.bOk=true then
    begin
       edit6.Text:=f_RealtyL23.sName;
    end;
end;

procedure Tf_RealtyH22B.Button7Click(Sender: TObject);
VAR
    query:TADOQuery;
    s:string;
begin
     if Edit6.Text='' then
     begin
         showmessage('检查人不能为空。');
         Edit6.SetFocus;
         exit;
     end;

     if edit8.text='' then edit8.Text:='-';
     if edit9.text='' then edit9.Text:='-';
     if edit10.text='' then edit10.Text:='-';
     if edit11.text='' then edit11.Text:='-';

     Query:=TADOQuery.Create(nil);
     Query.Connection:=DataModuleADO.ADOConnection1;

     s := 'insert into 清洁绿化检查(单号,检查人,检查日期,检查结果,检查说明,跟踪结果,备注) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7)';

     query.sql.Clear ;
     query.sql.add(s);
     query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
     query.Parameters.ParamByName('s2').Value:=Edit6.text;
     query.Parameters.ParamByName('s3').Value:=datetostr(Edit7.date);
     query.Parameters.ParamByName('s4').Value:=trim(Edit8.text);
     query.Parameters.ParamByName('s5').Value:=trim(Edit9.text);
     query.Parameters.ParamByName('s6').Value:=trim(Edit10.text);
     query.Parameters.ParamByName('s7').Value:=trim(Edit11.text);

     DataModuleADO.ADOConnection1.BeginTrans;
     query.execsql;
     DataModuleADO.ADOConnection1.CommitTrans;

     showmessage('保存成功。');   

     query.SQL.Clear;
     query.SQL.Add('select * from 清洁绿化检查 where 单号='''+edit1.Text+'''');
     query.Open;
     if query.RecordCount>0 then
     begin
        with f_RealtyH22.ListView1.Selected do
        begin
            subitems[6]:=query.fieldbyname('检查人').Value;
            subitems[7]:=query.fieldbyname('检查日期').Value;
            subitems[8]:=query.fieldbyname('检查结果').Value;
            subitems[9]:=query.fieldbyname('检查说明').Value;
            subitems[10]:=query.fieldbyname('跟踪结果').Value;
            subitems[11]:=query.fieldbyname('备注').Value;

        end;
     end;
     query.Close;
     query.Free;
     close;

end;

procedure Tf_RealtyH22B.Button5Click(Sender: TObject);
begin
    close;
end;

end.