yfzltj.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 519 行 · 第 1/3 页

unit yfzltj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, StdCtrls, Mask, DBCtrlsEh, ComCtrls,db,
  dxdbtrel, ImgList;

type
  Tyfzlbj = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Edit5: TEdit;
    Label7: TLabel;
    Edit6: TEdit;
    Label8: TLabel;
    Edit7: TEdit;
    Label9: TLabel;
    Edit8: TEdit;
    Label10: TLabel;
    Edit9: TEdit;
    Label11: TLabel;
    Edit10: TEdit;
    Label12: TLabel;
    Edit11: TEdit;
    Label13: TLabel;
    DateTimePicker1: TDateTimePicker;
    GroupBox1: TGroupBox;
    Label14: TLabel;
    DBNumberEditEh1: TDBNumberEditEh;
    Label15: TLabel;
    DBNumberEditEh2: TDBNumberEditEh;
    DBNumberEditEh3: TDBNumberEditEh;
    Label16: TLabel;
    Label17: TLabel;
    Edit12: TEdit;
    Label18: TLabel;
    Edit13: TEdit;
    Label19: TLabel;
    Edit14: TEdit;
    Label20: TLabel;
    Edit15: TEdit;
    dxLookupTreeView1: TdxLookupTreeView;
    ImageList2: TImageList;
    Label21: TLabel;
    Edit16: TEdit;
    Label22: TLabel;
    DBNumberEditEh4: TDBNumberEditEh;
    GroupBox2: TGroupBox;
    Label23: TLabel;
    DBNumberEditEh5: TDBNumberEditEh;
    Label24: TLabel;
    DBNumberEditEh6: TDBNumberEditEh;
    DBNumberEditEh7: TDBNumberEditEh;
    Label25: TLabel;
    DBNumberEditEh8: TDBNumberEditEh;
    Label26: TLabel;
    procedure SpeedButton13Click(Sender: TObject);
    procedure dxLookupTreeView1CloseUp(Sender: TObject; Accept: Boolean);
    procedure SpeedButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    zlbj:boolean;
    zl,dw:string;
    jd:longint;
    { Public declarations }
  end;

var
  yfzlbj: Tyfzlbj;

implementation
uses datafrm,yfzlfrm;
{$R *.dfm}

procedure Tyfzlbj.SpeedButton13Click(Sender: TObject);
begin
close;
end;

procedure Tyfzlbj.dxLookupTreeView1CloseUp(Sender: TObject;
  Accept: Boolean);
begin
if yfzlbj.dxLookupTreeView1.Text<>'' then
  begin
    yfzlbj.Edit3.Text:=yfgldata.dwqk.Lookup('单位代码',yfzlbj.dxLookupTreeView1.Text,'单位名称');
  end;
end;

procedure Tyfzlbj.SpeedButton12Click(Sender: TObject);
var
  i:integer;
begin
yfgldata.yfzl.Filtered:=false;
if not yfzlbj.zlbj then
  begin
    if (yfzlbj.Edit1.Text='') or (yfzlbj.Edit2.Text='') then
      messagebox(yfzlbj.handle,'坐落号和坐落地址不能为空。','营房工作管理系统',16)
    else
      if yfzlbj.dxLookupTreeView1.Text='' then
        messagebox(yfzlbj.handle,'单位代码不能为空。','营房工作管理系统',16)
      else
        if (yfzlbj.DBNumberEditEh5.Value+yfzlbj.DBNumberEditEh6.Value+yfzlbj.DBNumberEditEh7.Value+yfzlbj.DBNumberEditEh8.Value)>yfzlbj.DBNumberEditEh4.Value then
          messagebox(yfzlbj.handle,'土地划区面积不能大于基地面积。','营房工作管理系统',16)
        else
        if yfzlbj.DBNumberEditEh2.Value>yfzlbj.DBNumberEditEh1.Value then
          messagebox(yfzlbj.handle,'基地面积不能小于建筑面积。','营房工作管理系统',16)
        else
          if yfzlbj.DBNumberEditEh3.Value>yfzlbj.DBNumberEditEh2.Value then
            messagebox(yfzlbj.handle,'建筑面积不能小于使用面积。','营房工作管理系统',16)
          else
            if yfgldata.yfzl.Locate('坐落号',yfzlbj.Edit1.Text,[loCaseInsensitive]) then
              begin
                messagebox(yfzlbj.handle,'坐落号重复。','营房工作管理系统',16);
                yfzlbj.Edit1.SetFocus;
              end
            else
              begin
                yfgldata.yfzl.Append;
                yfgldata.yfzl.FieldByName('序号').AsInteger:=yfgldata.yfzl.RecordCount+1;
                yfgldata.yfzl.FieldByName('坐落号').AsString:=yfzlbj.Edit1.Text;
                yfgldata.yfzl.FieldByName('坐落地址').AsString:=yfzlbj.Edit2.Text;
                yfgldata.yfzl.FieldByName('单位代码').AsString:=yfzlbj.dxLookupTreeView1.Text;
                yfgldata.yfzl.FieldByName('住用单位').AsString:=yfzlbj.Edit3.Text;
                yfgldata.yfzl.FieldByName('详细单位').AsString:=yfzlbj.Edit4.Text;
                yfgldata.yfzl.FieldByName('地域').AsString:=yfzlbj.Edit5.Text;
                yfgldata.yfzl.FieldByName('地势').AsString:=yfzlbj.Edit6.Text;
                yfgldata.yfzl.FieldByName('营区分类').AsString:=yfzlbj.Edit7.Text;
                yfgldata.yfzl.FieldByName('用地分类').AsString:=yfzlbj.Edit8.Text;
                yfgldata.yfzl.FieldByName('城乡区位').AsString:=yfzlbj.Edit9.Text;
                yfgldata.yfzl.FieldByName('土地证号').AsString:=yfzlbj.Edit10.Text;
                yfgldata.yfzl.FieldByName('房产证号').AsString:=yfzlbj.Edit11.Text;
                yfgldata.yfzl.FieldByName('进驻日期').AsDateTime:=yfzlbj.DateTimePicker1.Date;
                yfgldata.yfzl.FieldByName('军事行政区').AsInteger:=yfzlbj.DBNumberEditEh5.Value;
                yfgldata.yfzl.FieldByName('公寓区').AsInteger:=yfzlbj.DBNumberEditEh6.Value;
                yfgldata.yfzl.FieldByName('库区').AsInteger:=yfzlbj.DBNumberEditEh7.Value;
                yfgldata.yfzl.FieldByName('其它').AsInteger:=yfzlbj.DBNumberEditEh8.Value;
                yfgldata.yfzl.FieldByName('基地面积').AsInteger:=yfzlbj.DBNumberEditEh1.Value;
                yfgldata.yfzl.FieldByName('建筑面积').AsInteger:=yfzlbj.DBNumberEditEh2.Value;
                yfgldata.yfzl.FieldByName('使用面积').AsInteger:=yfzlbj.DBNumberEditEh3.Value;
                yfgldata.yfzl.FieldByName('基地面积1').AsInteger:=yfzlbj.DBNumberEditEh4.Value;
                yfgldata.yfzl.FieldByName('供水方式').AsString:=yfzlbj.Edit12.Text;
                yfgldata.yfzl.FieldByName('供电方式').AsString:=yfzlbj.Edit13.Text;
                yfgldata.yfzl.FieldByName('供气方式').AsString:=yfzlbj.Edit14.Text;
                yfgldata.yfzl.FieldByName('供暖方式').AsString:=yfzlbj.Edit15.Text;
                yfgldata.yfzl.FieldByName('变更原因').AsString:=yfzlbj.Edit16.Text;
                yfgldata.yfzl.Post;
                yfgldata.yfzl.First;
                for i:=1 to yfgldata.yfzl.RecordCount do
                  begin
                    yfgldata.yfzl.Edit;
                    yfgldata.yfzl.FieldByName('序号').AsInteger:=i;
                    yfgldata.yfzl.Post;
                    yfgldata.yfzl.Next;
                  end;
                yfgldata.yfzl.First;
                if yfgldata.dwqk.Locate('单位代码',yfzlbj.dxLookupTreeView1.Text,[loCaseInsensitive]) then
                  begin
                    yfgldata.dwqk.Edit;