unit gxtjfrm;

interface

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

type
  Tgxtj = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Label3: TLabel;
    dxLookupTreeView1: TdxLookupTreeView;
    Label4: TLabel;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Label1: TLabel;
    ImageList2: TImageList;
    Label2: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    Edit3: TEdit;
    Label6: TLabel;
    DBNumberEditEh1: TDBNumberEditEh;
    Label7: TLabel;
    DBNumberEditEh2: TDBNumberEditEh;
    Label8: TLabel;
    Edit4: TEdit;
    Label9: TLabel;
    DBNumberEditEh3: TDBNumberEditEh;
    Label10: TLabel;
    Edit5: TEdit;
    Label11: TLabel;
    Edit6: TEdit;
    Label12: TLabel;
    Edit7: TEdit;
    Label13: TLabel;
    Edit8: TEdit;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    procedure SpeedButton13Click(Sender: TObject);
    procedure dxLookupTreeView1CloseUp(Sender: TObject; Accept: Boolean);
    procedure SpeedButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    gxbj:boolean;
    { Public declarations }
  end;

var
  gxtj: Tgxtj;

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

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

procedure Tgxtj.dxLookupTreeView1CloseUp(Sender: TObject; Accept: Boolean);
var
  s_value1:string;
begin
if gxtj.dxLookupTreeView1.Text<>'' then
  begin
    gxtj.Edit2.Text:=yfgldata.dwqk.Lookup('單位代碼',gxtj.dxLookupTreeView1.Text,'單位名稱');
    gxtj.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 單位代碼='''+gxtj.dxLookupTreeView1.Text+''' ');
    try
      yfgldata.Query1.Active:=true;
    except
      messagebox(gxtj.handle,'字段值列舉出錯。','營房工作管理系統',16);
      exit;
    end;
    yfgldata.Query1.First;
    while not yfgldata.Query1.Eof do
    begin
      s_value1:=yfgldata.Query1.fieldbyname('坐落號').AsString;
      gxtj.ComboBox1.Items.Add(s_value1);
      yfgldata.Query1.Next;
    end;
    yfgldata.Query1.Active:=false;
  end;
end;

procedure Tgxtj.SpeedButton12Click(Sender: TObject);
begin
if gxtj.gxbj then
  begin
    if gxtj.dxLookupTreeView1.Text<>'' then
      begin
        if gxtj.ComboBox1.Text<>'' then
          begin
            if gxtj.Edit1.Text<>'' then
              begin
                yfgldata.gx.Filter:='坐落號='''+gxtj.ComboBox1.Text+'''';
                yfgldata.gx.Filtered:=true;
                if yfgldata.gx.Locate('管線編號',gxtj.Edit1.Text,[loCaseInsensitive]) then
                  messagebox(gxtj.handle,'管線編號發生重復。','營房工作管理系統',16)
                else
                  begin
                    yfgldata.gx.Filtered:=false;
                    yfgldata.gx.Append;
                    yfgldata.gx.FieldByName('序號').AsInteger:=yfgldata.gx.RecordCount+1;
                    yfgldata.gx.FieldByName('單位代碼').AsString:=gxtj.dxLookupTreeView1.Text;
                    yfgldata.gx.FieldByName('住用單位').AsString:=gxtj.Edit2.Text;
                    yfgldata.gx.FieldByName('坐落號').AsString:=gxtj.ComboBox1.Text;
                    yfgldata.gx.FieldByName('管線編號').AsString:=gxtj.Edit1.Text;
                    yfgldata.gx.FieldByName('管線類型').AsString:=gxtj.Edit3.Text;
                    yfgldata.gx.FieldByName('管線長度').AsInteger:=gxtj.DBNumberEditEh1.Value;
                    yfgldata.gx.FieldByName('管徑').AsInteger:=gxtj.DBNumberEditEh2.Value;
                    yfgldata.gx.FieldByName('材質').AsString:=gxtj.Edit4.Text;
                    yfgldata.gx.FieldByName('鋪設年份').AsInteger:=gxtj.DBNumberEditEh3.Value;
                    yfgldata.gx.FieldByName('鋪設方式').AsString:=gxtj.Edit5.Text;
                    yfgldata.gx.FieldByName('質量狀況').AsString:=gxtj.Edit6.Text;
                    yfgldata.gx.FieldByName('保護方式').AsString:=gxtj.Edit7.Text;
                    yfgldata.gx.FieldByName('變更依據').AsString:=gxtj.Edit8.Text;
                    yfgldata.gx.Post;
                    close;
                    gx.showgx;
                  end;
                yfgldata.gx.Filtered:=false;
              end
            else
              messagebox(gxtj.handle,'管線編號不能為空。','營房工作管理系統',16);
          end
        else
          messagebox(gxtj.handle,'坐落號不能為空。','營房工作管理系統',16);
      end
    else
      messagebox(gxtj.handle,'單位代碼不能為空。','營房工作管理系統',16);
  end
else
  begin
    yfgldata.gx.Edit;
    yfgldata.gx.FieldByName('管線類型').AsString:=gxtj.Edit3.Text;
    yfgldata.gx.FieldByName('管線長度').AsInteger:=gxtj.DBNumberEditEh1.Value;
    yfgldata.gx.FieldByName('管徑').AsInteger:=gxtj.DBNumberEditEh2.Value;
    yfgldata.gx.FieldByName('材質').AsString:=gxtj.Edit4.Text;
    yfgldata.gx.FieldByName('鋪設年份').AsInteger:=gxtj.DBNumberEditEh3.Value;
    yfgldata.gx.FieldByName('鋪設方式').AsString:=gxtj.Edit5.Text;
    yfgldata.gx.FieldByName('質量狀況').AsString:=gxtj.Edit6.Text;
    yfgldata.gx.FieldByName('保護方式').AsString:=gxtj.Edit7.Text;
    yfgldata.gx.FieldByName('變更依據').AsString:=gxtj.Edit8.Text;
    yfgldata.gx.Post;
    close;
  end;
end;

end.