realtyg15.pas

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

unit RealtyG15;

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_RealtyG15 = class(TForm)
    L1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    edit3: TEdit;
    Label1: TLabel;
    ListView1: TListView;
    Button3: TButton;
    Label19: TLabel;
    Label7: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Label14: TLabel;
    Edit6: TEdit;
    Label15: TLabel;
    Button7: TButton;
    Button5: TButton;
    PopupMenu1: TPopupMenu;
    N4: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure VVVClick(Sender: TObject);
    procedure getId;
    procedure FormCreate(Sender: TObject);
    procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button3Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);


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

var
  f_RealtyG15: Tf_RealtyG15;
  sNum:string;

implementation

uses data, main,RealtyG15A,RealtyL23;

{$R *.dfm}

//初始化 一
procedure Tf_RealtyG15.FormCreate(Sender: TObject);
var
    i:integer;
    s:string;
    query:TADOQuery;
begin
    getId;
    edit4.text:=czy; 
end;

//Tab
procedure Tf_RealtyG15.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_RealtyG15.getid;
var
    i:integer;
    query:TADOQuery;
    s:string;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;

    s := 'select top 1 * from 器材配备 ORDER BY 单号 DESC';
    Query.SQL.Add(s);
    Query.Open ;
    if query.recordcount > 0 then
    begin
        s:= Query.Fieldbyname('单号').AsString;
        s:= Copy(S, 1, 7);
        i:= strtoint(s)+1;
        if i<10 then edit1.text := '000000'+inttostr(i)
        else if (i > 9) and (i<100) then edit1.text := '00000'+inttostr(i)
        else if (i > 99) and (i<1000) then edit1.text := '0000'+inttostr(i)
        else if (i > 999) and (i<10000) then edit1.text := '000'+inttostr(i)
        else if (i > 9999) and (i<100000) then edit1.text := '00'+inttostr(i)
        else if (i > 99999) and (i<1000000) then edit1.text := '0'+inttostr(i)
        else if i>999999 then edit1.text := inttostr(i);
    end
    else  edit1.text := '0000001';
    query.Close;
    query.free;
end;


//取设备责任人---------------
procedure Tf_RealtyG15.VVVClick(Sender: TObject);
begin
{    f_RealtyG15A:=Tf_RealtyG15A.Create(self);
    f_RealtyG15A.ShowModal;

    if  f_RealtyG15A.bOk=true then
    begin
        edit19.Text:=f_RealtyG15A.ListView1.Selected.SubItems[0];
    end;  }
end;


procedure Tf_RealtyG15.ListView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    if button=mbright then
    popupmenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;

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

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

procedure Tf_RealtyG15.Button7Click(Sender: TObject);
var
  i,j:integer;
  s,ss,rr:string;
  Query:TADOQuery;
  d,d1,d2:double;
begin
    // 1 关键字段不能为空
    if Edit1.Text='' then
    begin
        showmessage('请输入单号。');
        Edit1.SetFocus;
        exit;
    end;

    if Edit2.Text='' then
    begin
        showmessage('请选择责任人。');
        Edit2.SetFocus;
        exit;
    end;

    //  2 检查所有字段的数据完整性
    if edit3.text='' then edit3.text:='-';

    //  3 定义数据集
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;


    query.SQL.Clear;
    query.SQL.Add('select * from 器材配备 where 单号='''+edit1.Text+'''');
    query.Open;
    if query.RecordCount>0 then
    begin
        showmessage('单号重复');
        edit1.SetFocus;
        query.Close; //******************************必须
        query.Free;  //******************************必须
        exit;
    end;

    //   二新增记录

    //保存主表
    s := 'insert into 器材配备(单号,责任人,备注,操作员,修订,核销) values(:s1,:s2,:s3,:s4,:s5,:s6)';

    query.sql.Clear ;
    query.sql.add(s);
    query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
    query.Parameters.ParamByName('s2').Value:=trim(Edit2.Text);
    query.Parameters.ParamByName('s3').Value:=trim(Edit3.Text);
    query.Parameters.ParamByName('s4').Value:=trim(Edit4.text);
    query.Parameters.ParamByName('s5').Value:=trim(Edit5.Text);
    query.Parameters.ParamByName('s6').Value:=trim(Edit6.text);

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


    //保存从表
    for i:=0 to listview1.Items.Count-1 do
    begin
        if listview1.Items.Item[i].Caption='' then listview1.Items.Item[i].Caption:='-';
        if listview1.Items.Item[i].SubItems[0]='' then listview1.Items.Item[i].SubItems[0]:='-';
        if listview1.Items.Item[i].SubItems[2]='' then listview1.Items.Item[i].SubItems[2]:='-';
        if listview1.Items.Item[i].SubItems[4]='' then listview1.Items.Item[i].SubItems[4]:='-';
        listview1.Items.Item[i].SubItems[1]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[1]);
        listview1.Items.Item[i].SubItems[3]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[3]);


        s:='insert into 器材配备明细(器材,领取日期,领取数量,归还日期,归还数量,备注,单号) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7)';
        query.SQL.Clear;
        query.SQL.Add(s);
        query.Parameters.ParamByName('s1').Value:=trim(listview1.Items.Item[i].Caption);
        query.Parameters.ParamByName('s2').Value:=trim(listview1.Items.Item[i].SubItems[0]);
        query.Parameters.ParamByName('s3').Value:=strtofloat(listview1.Items.Item[i].SubItems[1]);
        query.Parameters.ParamByName('s4').Value:=trim(listview1.Items.Item[i].SubItems[2]);
        query.Parameters.ParamByName('s5').Value:=strtofloat(listview1.Items.Item[i].SubItems[3]);
        query.Parameters.ParamByName('s6').Value:=trim(listview1.Items.Item[i].SubItems[4]);
        query.Parameters.ParamByName('s7').Value:=trim(edit1.Text);

        DataModuleADO.ADOConnection1.BeginTrans;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;
    end;
    query.close;
    query.free;
    showmessage('保存成功-');



    getId;
    edit2.Text:='';
    edit3.Text:='';
    Edit1.SetFocus;
    listview1.items.clear;


end;

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

procedure Tf_RealtyG15.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

end.