yfwztjfrm.pas

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

unit yfwztjfrm;

interface

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

type
  Tyfwztj = class(TForm)
    Panel1: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    dxLookupTreeView1: TdxLookupTreeView;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit3: TEdit;
    DBNumberEditEh1: TDBNumberEditEh;
    DBNumberEditEh2: TDBNumberEditEh;
    Edit4: TEdit;
    Panel2: TPanel;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    ImageList2: TImageList;
    GroupBox1: TGroupBox;
    Label9: TLabel;
    DBNumberEditEh3: TDBNumberEditEh;
    Label10: TLabel;
    DBNumberEditEh4: TDBNumberEditEh;
    Label11: TLabel;
    DBNumberEditEh5: TDBNumberEditEh;
    procedure SpeedButton13Click(Sender: TObject);
    procedure dxLookupTreeView1CloseUp(Sender: TObject; Accept: Boolean);
    procedure SpeedButton12Click(Sender: TObject);
    procedure DBNumberEditEh2Change(Sender: TObject);
    procedure DBNumberEditEh3Change(Sender: TObject);
    procedure DBNumberEditEh4Change(Sender: TObject);
    procedure DBNumberEditEh5Change(Sender: TObject);
  private
    { Private declarations }
  public
    tjwz:boolean;
    { Public declarations }
  end;

var
  yfwztj: Tyfwztj;

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

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

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

procedure Tyfwztj.SpeedButton12Click(Sender: TObject);
begin
if yfwztj.tjwz then
  begin
    if yfwztj.dxLookupTreeView1.Text<>'' then
      begin
        if yfwztj.Edit1.Text<>'' then
          begin
            yfgldata.yfwz.Filter:='单位代码='''+yfwztj.dxLookupTreeView1.Text+'''';
            yfgldata.yfwz.Filtered:=true;
            if yfgldata.yfwz.Locate('品名',yfwztj.Edit1.Text,[loCaseInsensitive]) then
              messagebox(yfwztj.handle,'品名发生重复。','营房工作管理系统',16)
            else
              begin
                yfgldata.yfwz.Filtered:=false;
                yfgldata.yfwz.Append;
                yfgldata.yfwz.FieldByName('序号').AsInteger:=yfgldata.yfwz.RecordCount+1;
                yfgldata.yfwz.FieldByName('单位代码').AsString:=yfwztj.dxLookupTreeView1.Text;
                yfgldata.yfwz.FieldByName('住用单位').AsString:=yfwztj.Edit2.Text;
                yfgldata.yfwz.FieldByName('品名').AsString:=yfwztj.Edit1.Text;
                yfgldata.yfwz.FieldByName('规格').AsString:=yfwztj.Edit3.Text;
                yfgldata.yfwz.FieldByName('单位').AsString:=yfwztj.ComboBox1.Text;
                yfgldata.yfwz.FieldByName('小计').AsInteger:=yfwztj.DBNumberEditEh1.Value;
                yfgldata.yfwz.FieldByName('新品').AsInteger:=yfwztj.DBNumberEditEh2.Value;
                yfgldata.yfwz.FieldByName('勘用').AsInteger:=yfwztj.DBNumberEditEh3.Value;
                yfgldata.yfwz.FieldByName('待修').AsInteger:=yfwztj.DBNumberEditEh4.Value;
                yfgldata.yfwz.FieldByName('报废').AsInteger:=yfwztj.DBNumberEditEh5.Value;
                yfgldata.yfwz.FieldByName('备注').AsString:=yfwztj.Edit4.Text;
                yfgldata.yfwz.Post;
                close;
                yfwz.showwz;
              end;
            yfgldata.yfwz.Filtered:=false;
          end
        else
          messagebox(yfwztj.handle,'品名不能为空。','营房工作管理系统',16);
      end
    else
      messagebox(yfwztj.handle,'单位代码不能为空。','营房工作管理系统',16);
  end
else
  begin
    yfgldata.yfwz.Edit;
    yfgldata.yfwz.FieldByName('规格').AsString:=yfwztj.Edit3.Text;
    yfgldata.yfwz.FieldByName('单位').AsString:=yfwztj.ComboBox1.Text;
    yfgldata.yfwz.FieldByName('小计').AsInteger:=yfwztj.DBNumberEditEh1.Value;
    yfgldata.yfwz.FieldByName('新品').AsInteger:=yfwztj.DBNumberEditEh2.Value;
    yfgldata.yfwz.FieldByName('勘用').AsInteger:=yfwztj.DBNumberEditEh3.Value;
    yfgldata.yfwz.FieldByName('待修').AsInteger:=yfwztj.DBNumberEditEh4.Value;
    yfgldata.yfwz.FieldByName('报废').AsInteger:=yfwztj.DBNumberEditEh5.Value;
    yfgldata.yfwz.FieldByName('备注').AsString:=yfwztj.Edit4.Text;
    yfgldata.yfwz.Post;
    close;
  end;
end;

procedure Tyfwztj.DBNumberEditEh2Change(Sender: TObject);
begin
yfwztj.DBNumberEditEh1.Value:=yfwztj.DBNumberEditEh2.Value+yfwztj.DBNumberEditEh3.Value+yfwztj.DBNumberEditEh4.Value+yfwztj.DBNumberEditEh5.Value;
end;

procedure Tyfwztj.DBNumberEditEh3Change(Sender: TObject);
begin
yfwztj.DBNumberEditEh1.Value:=yfwztj.DBNumberEditEh2.Value+yfwztj.DBNumberEditEh3.Value+yfwztj.DBNumberEditEh4.Value+yfwztj.DBNumberEditEh5.Value;
end;

procedure Tyfwztj.DBNumberEditEh4Change(Sender: TObject);
begin
yfwztj.DBNumberEditEh1.Value:=yfwztj.DBNumberEditEh2.Value+yfwztj.DBNumberEditEh3.Value+yfwztj.DBNumberEditEh4.Value+yfwztj.DBNumberEditEh5.Value;
end;

procedure Tyfwztj.DBNumberEditEh5Change(Sender: TObject);
begin
yfwztj.DBNumberEditEh1.Value:=yfwztj.DBNumberEditEh2.Value+yfwztj.DBNumberEditEh3.Value+yfwztj.DBNumberEditEh4.Value+yfwztj.DBNumberEditEh5.Value;
end;

end.