tjwxwz.pas

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

unit tjwxwz;

interface

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

type
  Twxwz = class(TForm)
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DBNumberEditEh1: TDBNumberEditEh;
    ComboBox1: TComboBox;
    DBNumberEditEh2: TDBNumberEditEh;
    DBNumberEditEh3: TDBNumberEditEh;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBNumberEditEh1Change(Sender: TObject);
    procedure DBNumberEditEh2Change(Sender: TObject);
  private
    { Private declarations }
  public
    wztj:boolean;
    { Public declarations }
  end;

var
  wxwz: Twxwz;

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

procedure Twxwz.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure Twxwz.SpeedButton1Click(Sender: TObject);
begin
if wxwz.wztj then
  begin
    if wxwz.Edit1.Text<>'' then
      begin
        if yfgldata.wxwz1.Locate('名称',wxwz.Edit1.Text,[loCaseInsensitive]) then
          messagebox(wxwz.handle,'名称发生重复。','营房工作管理系统',16)
        else
          begin
            if wxwz.ComboBox1.Text<>'' then
              begin
                yfgldata.wxwz1.Append;
                yfgldata.wxwz1.FieldByName('名称').AsString:=wxwz.Edit1.Text;
                yfgldata.wxwz1.FieldByName('单位').AsString:=wxwz.ComboBox1.Text;
                yfgldata.wxwz1.FieldByName('规格').AsString:=wxwz.Edit2.Text;
                yfgldata.wxwz1.FieldByName('数量').AsInteger:=wxwz.DBNumberEditEh1.Value;
                yfgldata.wxwz1.FieldByName('单价').AsFloat:=wxwz.DBNumberEditEh2.Value;
                yfgldata.wxwz1.FieldByName('金额').AsInteger:=wxwz.DBNumberEditEh3.Value;
                yfgldata.wxwz1.Post;
                yfwx.DBNumberEditEh1.Value:=yfwx.DBNumberEditEh1.Value+wxwz.DBNumberEditEh3.Value;
                close;
                yfwx.showwz;
              end
            else
              messagebox(wxwz.handle,'单位不能为空。','营房工作管理系统',16);
          end;
      end
    else
      messagebox(wxwz.handle,'名称不能为空。','营房工作管理系统',16);
  end
else
  begin
    yfwx.DBNumberEditEh1.Value:=yfwx.DBNumberEditEh1.Value+wxwz.DBNumberEditEh3.Value-yfgldata.wxwz1.FieldByName('金额').AsInteger;
    yfgldata.wxwz1.Edit;
    yfgldata.wxwz1.FieldByName('单位').AsString:=wxwz.ComboBox1.Text;
    yfgldata.wxwz1.FieldByName('规格').AsString:=wxwz.Edit2.Text;
    yfgldata.wxwz1.FieldByName('数量').AsInteger:=wxwz.DBNumberEditEh1.Value;
    yfgldata.wxwz1.FieldByName('单价').AsFloat:=wxwz.DBNumberEditEh2.Value;
    yfgldata.wxwz1.FieldByName('金额').AsInteger:=wxwz.DBNumberEditEh3.Value;
    yfgldata.wxwz1.Post;    
    close;
  end;
end;

procedure Twxwz.DBNumberEditEh1Change(Sender: TObject);
begin
wxwz.DBNumberEditEh3.Value:=wxwz.DBNumberEditEh1.Value*wxwz.DBNumberEditEh2.Value;
end;

procedure Twxwz.DBNumberEditEh2Change(Sender: TObject);
begin
wxwz.DBNumberEditEh3.Value:=wxwz.DBNumberEditEh1.Value*wxwz.DBNumberEditEh2.Value;
end;

end.