xjyftjfrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 208 行

unit xjyftjfrm;

interface

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

type
  Txjyftj = class(TForm)
    Panel1: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label24: TLabel;
    dxLookupTreeView1: TdxLookupTreeView;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit3: TEdit;
    DBNumberEditEh1: TDBNumberEditEh;
    DBNumberEditEh2: TDBNumberEditEh;
    DBNumberEditEh4: TDBNumberEditEh;
    Edit12: TEdit;
    Panel2: TPanel;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    ImageList2: TImageList;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit4: TEdit;
    DBNumberEditEh3: TDBNumberEditEh;
    Edit5: TEdit;
    GroupBox3: TGroupBox;
    Label12: TLabel;
    DBNumberEditEh5: TDBNumberEditEh;
    Label13: TLabel;
    DBNumberEditEh6: TDBNumberEditEh;
    Label14: TLabel;
    DBNumberEditEh7: TDBNumberEditEh;
    Label15: TLabel;
    DBNumberEditEh8: TDBNumberEditEh;
    GroupBox4: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Label16: TLabel;
    DBNumberEditEh9: TDBNumberEditEh;
    procedure SpeedButton13Click(Sender: TObject);
    procedure dxLookupTreeView1CloseUp(Sender: TObject; Accept: Boolean);
    procedure DBNumberEditEh2Change(Sender: TObject);
    procedure DBNumberEditEh4Change(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    xj:boolean;
    { Public declarations }
  end;

var
  xjyftj: Txjyftj;

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

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

procedure Txjyftj.dxLookupTreeView1CloseUp(Sender: TObject; Accept: Boolean);
var
  s_value1:string;
begin
if xjyftj.dxLookupTreeView1.Text<>'' then
  begin
    xjyftj.Edit2.Text:=yfgldata.dwqk.Lookup('单位代码',xjyftj.dxLookupTreeView1.Text,'单位名称');
    xjyftj.ComboBox1.Items.Clear;
    yfgldata.Query1.Active:=false;
    yfgldata.Query1.SQL.Clear;
    yfgldata.Query1.SQL.Add('select distinct 坐落号 ');
    yfgldata.Query1.SQL.Add(' from yfgl_yfzl ');
    yfgldata.Query1.SQL.Add(' where 单位代码='''+xjyftj.dxLookupTreeView1.Text+''' ');
    try
      yfgldata.Query1.Active:=true;
    except
      messagebox(xjyftj.handle,'字段值列举出错。','营房工作管理系统',16);
      exit;
    end;
    yfgldata.Query1.First;
    while not yfgldata.Query1.Eof do
    begin
      s_value1:=yfgldata.Query1.fieldbyname('坐落号').AsString;
      xjyftj.ComboBox1.Items.Add(s_value1);
      yfgldata.Query1.Next;
    end;
    yfgldata.Query1.Active:=false;
  end;
end;

procedure Txjyftj.DBNumberEditEh2Change(Sender: TObject);
begin
xjyftj.DBNumberEditEh1.Value:=xjyftj.DBNumberEditEh2.Value+xjyftj.DBNumberEditEh4.Value;
end;

procedure Txjyftj.DBNumberEditEh4Change(Sender: TObject);
begin
xjyftj.DBNumberEditEh1.Value:=xjyftj.DBNumberEditEh2.Value+xjyftj.DBNumberEditEh4.Value;
end;

procedure Txjyftj.SpeedButton12Click(Sender: TObject);
begin
if xjyftj.xj then
  begin
    if xjyftj.dxLookupTreeView1.Text<>'' then
      begin
        if xjyftj.ComboBox1.Text<>'' then
          begin
            if xjyftj.Edit1.Text<>'' then
              begin
                yfgldata.xjyf.Filter:='坐落号='''+xjyftj.ComboBox1.Text+'''';
                yfgldata.xjyf.Filtered:=true;
                if yfgldata.xjyf.Locate('栋号',xjyftj.Edit1.Text,[loCaseInsensitive]) then
                  messagebox(xjyftj.handle,'栋号发生重复。','营房工作管理系统',16)
                else
                  begin
                    yfgldata.xjyf.Filtered:=false;
                    yfgldata.xjyf.Append;
                    yfgldata.xjyf.FieldByName('序号').AsInteger:=yfgldata.xjyf.RecordCount+1;
                    yfgldata.xjyf.FieldByName('单位代码').AsString:=xjyftj.dxLookupTreeView1.Text;
                    yfgldata.xjyf.FieldByName('住用单位').AsString:=xjyftj.Edit2.Text;
                    yfgldata.xjyf.FieldByName('坐落号').AsString:=xjyftj.ComboBox1.Text;
                    yfgldata.xjyf.FieldByName('栋号').AsString:=xjyftj.Edit1.Text;
                    yfgldata.xjyf.FieldByName('房屋用途').AsString:=xjyftj.Edit3.Text;
                    yfgldata.xjyf.FieldByName('合计').AsInteger:=xjyftj.DBNumberEditEh1.Value;
                    yfgldata.xjyf.FieldByName('新建').AsInteger:=xjyftj.DBNumberEditEh2.Value;
                    yfgldata.xjyf.FieldByName('翻建').AsInteger:=xjyftj.DBNumberEditEh4.Value;
                    yfgldata.xjyf.FieldByName('下达任务单位').AsString:=xjyftj.Edit4.Text;
                    yfgldata.xjyf.FieldByName('下达任务年度').AsInteger:=xjyftj.DBNumberEditEh3.Value;
                    yfgldata.xjyf.FieldByName('下达任务文件号').AsString:=xjyftj.Edit5.Text;
                    yfgldata.xjyf.FieldByName('拨款').AsCurrency:=xjyftj.DBNumberEditEh5.Value;
                    yfgldata.xjyf.FieldByName('集资').AsCurrency:=xjyftj.DBNumberEditEh6.Value;
                    yfgldata.xjyf.FieldByName('换建').AsCurrency:=xjyftj.DBNumberEditEh7.Value;
                    yfgldata.xjyf.FieldByName('自筹').AsCurrency:=xjyftj.DBNumberEditEh8.Value;
                    yfgldata.xjyf.FieldByName('贷款').AsCurrency:=xjyftj.DBNumberEditEh9.Value;
                    if xjyftj.CheckBox1.Checked then
                      yfgldata.xjyf.FieldByName('部队住用').AsString:='是'
                    else
                      yfgldata.xjyf.FieldByName('部队住用').AsString:='否';
                    if xjyftj.CheckBox2.Checked then
                      yfgldata.xjyf.FieldByName('开发利用').AsString:='是'
                    else
                      yfgldata.xjyf.FieldByName('开发利用').AsString:='否';
                    yfgldata.xjyf.FieldByName('备注').AsString:=xjyftj.Edit12.Text;
                    yfgldata.xjyf.Post;
                    close;
                    xjyf.showyf;
                  end;
              end
            else
              messagebox(xjyftj.handle,'栋号不能为空。','营房工作管理系统',16);
          end
        else
          messagebox(xjyftj.handle,'坐落号不能为空。','营房工作管理系统',16);
      end
    else
      messagebox(xjyftj.handle,'单位代码不能为空。','营房工作管理系统',16);
  end
else
  begin
    yfgldata.xjyf.Edit;
    yfgldata.xjyf.FieldByName('房屋用途').AsString:=xjyftj.Edit3.Text;
    yfgldata.xjyf.FieldByName('合计').AsInteger:=xjyftj.DBNumberEditEh1.Value;
    yfgldata.xjyf.FieldByName('新建').AsInteger:=xjyftj.DBNumberEditEh2.Value;
    yfgldata.xjyf.FieldByName('翻建').AsInteger:=xjyftj.DBNumberEditEh4.Value;
    yfgldata.xjyf.FieldByName('下达任务单位').AsString:=xjyftj.Edit4.Text;
    yfgldata.xjyf.FieldByName('下达任务年度').AsInteger:=xjyftj.DBNumberEditEh3.Value;
    yfgldata.xjyf.FieldByName('下达任务文件号').AsString:=xjyftj.Edit5.Text;
    yfgldata.xjyf.FieldByName('拨款').AsCurrency:=xjyftj.DBNumberEditEh5.Value;
    yfgldata.xjyf.FieldByName('集资').AsCurrency:=xjyftj.DBNumberEditEh6.Value;
    yfgldata.xjyf.FieldByName('换建').AsCurrency:=xjyftj.DBNumberEditEh7.Value;
    yfgldata.xjyf.FieldByName('自筹').AsCurrency:=xjyftj.DBNumberEditEh8.Value;
    yfgldata.xjyf.FieldByName('贷款').AsCurrency:=xjyftj.DBNumberEditEh9.Value;
    if xjyftj.CheckBox1.Checked then
      yfgldata.xjyf.FieldByName('部队住用').AsString:='是'
    else
      yfgldata.xjyf.FieldByName('部队住用').AsString:='否';
    if xjyftj.CheckBox2.Checked then
      yfgldata.xjyf.FieldByName('开发利用').AsString:='是'
    else
      yfgldata.xjyf.FieldByName('开发利用').AsString:='否';
    yfgldata.xjyf.FieldByName('备注').AsString:=xjyftj.Edit12.Text;
    yfgldata.xjyf.Post;
    close;
  end;
end;

end.