dttjfrm.pas

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

unit dttjfrm;

interface

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

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

var
  dttj: Tdttj;

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

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

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

procedure Tdttj.ComboBox1CloseUp(Sender: TObject);
var
  s_value1:string;
begin
if dttj.ComboBox1.Text<>'' then
  begin
    dttj.ComboBox2.Items.Clear;
    yfgldata.Query1.Active:=false;
    yfgldata.Query1.SQL.Clear;
    yfgldata.Query1.SQL.Add('select distinct 栋号 ');
    yfgldata.Query1.SQL.Add(' from yfgl_yffd ');
    yfgldata.Query1.SQL.Add(' where 坐落号='''+dttj.ComboBox1.Text+''' ');
    try
      yfgldata.Query1.Active:=true;
    except
      messagebox(dttj.handle,'字段值列举出错。','营房工作管理系统',16);
      exit;
    end;
    yfgldata.Query1.First;
    while not yfgldata.Query1.Eof do
    begin
      s_value1:=yfgldata.Query1.fieldbyname('栋号').AsString;
      dttj.ComboBox2.Items.Add(s_value1);
      yfgldata.Query1.Next;
    end;
    yfgldata.Query1.Active:=false;
  end;
end;

procedure Tdttj.SpeedButton12Click(Sender: TObject);
begin
if dttj.tjdt then
  begin
    if dttj.dxLookupTreeView1.Text<>'' then
      begin
        if dttj.ComboBox1.Text<>'' then
          begin
            if dttj.ComboBox2.Text<>'' then
              begin
                if dttj.Edit3.Text<>'' then
                  begin
                    yfgldata.dt.Filter:='坐落号='''+dttj.ComboBox1.Text+'''';
                    yfgldata.dt.Filtered:=true;
                    if yfgldata.dt.Locate('电梯编号',dttj.Edit3.Text,[loCaseInsensitive]) then
                      messagebox(dttj.handle,'电梯编号发生重复。','营房工作管理系统',16)
                    else
                      begin
                        yfgldata.dt.Filtered:=false;
                        yfgldata.dt.Append;
                        yfgldata.dt.FieldByName('序号').AsInteger:=yfgldata.dt.RecordCount+1;
                        yfgldata.dt.FieldByName('单位代码').AsString:=dttj.dxLookupTreeView1.Text;
                        yfgldata.dt.FieldByName('使用单位').AsString:=dttj.Edit2.Text;
                        yfgldata.dt.FieldByName('坐落号').AsString:=dttj.ComboBox1.Text;
                        yfgldata.dt.FieldByName('栋号').AsString:=dttj.ComboBox2.Text;
                        yfgldata.dt.FieldByName('电梯编号').AsString:=dttj.Edit3.Text;
                        yfgldata.dt.FieldByName('电梯型号').AsString:=dttj.Edit7.Text;
                        yfgldata.dt.FieldByName('控制方式').AsString:=dttj.Edit9.Text;
                        yfgldata.dt.FieldByName('驱动方式').AsString:=dttj.Edit4.Text;
                        yfgldata.dt.FieldByName('电梯用途').AsString:=dttj.Edit10.Text;
                        yfgldata.dt.FieldByName('质量状况').AsString:=dttj.Edit5.Text;
                        yfgldata.dt.FieldByName('额定载荷').AsInteger:=dttj.DBNumberEditEh1.Value;
                        yfgldata.dt.FieldByName('功率').AsFloat:=dttj.DBNumberEditEh2.Value;
                        yfgldata.dt.FieldByName('站数').AsInteger:=dttj.DBNumberEditEh3.Value;
                        yfgldata.dt.FieldByName('生产厂家').AsString:=dttj.Edit11.Text;
                        yfgldata.dt.FieldByName('安装年份').AsInteger:=dttj.DBNumberEditEh4.Value;
                        yfgldata.dt.FieldByName('变更依据').AsString:=dttj.Edit8.Text;
                        yfgldata.dt.Post;
                        close;
                        dt.showdt;
                      end;
                    yfgldata.dt.Filtered:=false;
                  end
                else
                  messagebox(dttj.handle,'电梯编号不能为空。','营房工作管理系统',16);
              end
            else
              messagebox(dttj.handle,'栋号不能为空。','营房工作管理系统',16);
          end
        else
          messagebox(dttj.handle,'坐落号不能为空。','营房工作管理系统',16);
      end
    else
      messagebox(dttj.handle,'单位代码不能为空。','营房工作管理系统',16);
  end
else
  begin
    yfgldata.dt.Edit;
    yfgldata.dt.FieldByName('电梯编号').AsString:=dttj.Edit3.Text;
    yfgldata.dt.FieldByName('电梯型号').AsString:=dttj.Edit7.Text;
    yfgldata.dt.FieldByName('控制方式').AsString:=dttj.Edit9.Text;
    yfgldata.dt.FieldByName('驱动方式').AsString:=dttj.Edit4.Text;
    yfgldata.dt.FieldByName('电梯用途').AsString:=dttj.Edit10.Text;
    yfgldata.dt.FieldByName('质量状况').AsString:=dttj.Edit5.Text;
    yfgldata.dt.FieldByName('额定载荷').AsInteger:=dttj.DBNumberEditEh1.Value;
    yfgldata.dt.FieldByName('功率').AsFloat:=dttj.DBNumberEditEh2.Value;
    yfgldata.dt.FieldByName('站数').AsInteger:=dttj.DBNumberEditEh3.Value;
    yfgldata.dt.FieldByName('生产厂家').AsString:=dttj.Edit11.Text;
    yfgldata.dt.FieldByName('安装年份').AsInteger:=dttj.DBNumberEditEh4.Value;
    yfgldata.dt.FieldByName('变更依据').AsString:=dttj.Edit8.Text;
    yfgldata.dt.Post;
  end;
end;

end.