kcyjfrm.pas

本人编写的有关军队营房工作的管理系统

unit kcyjfrm;

interface

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

type
  Tkcyj = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    Panel2: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton13: TSpeedButton;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  kcyj: Tkcyj;

implementation

uses datafrm,yjxgfrm,yjczfrm,bbdcfrm;
{$R *.dfm}

procedure Tkcyj.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tkcyj.SpeedButton2Click(Sender: TObject);
begin
if yfgldata.Qkcyj.RecordCount>0 then
  begin
    application.CreateForm(tyjxg,yjxg);
    with yjxg do
      begin
        edit1.Text:=yfgldata.Qkcyj.FieldByName('编号').AsString;
        edit2.Text:=yfgldata.Qkcyj.FieldByName('营具名称').AsString;
       try
         ShowModal;
       finally
         free;
      end;
    end;
  end
else
  messagebox(kcyj.handle,'没有营具可以修改。','营房工作管理系统',16);
end;

procedure Tkcyj.FormShow(Sender: TObject);
begin
yfgldata.Qkcyj.Active:=false;
yfgldata.Qkcyj.Active:=true;
yfgldata.Qkcyj1.Active:=false;
yfgldata.Qkcyj1.Active:=true;
end;

procedure Tkcyj.SpeedButton1Click(Sender: TObject);
var
  bh,dm:string;
begin
if messagebox(kcyj.Handle,'确认要删除本营具吗？','营房工作管理系统',33)=1 then
  begin
    bh:=yfgldata.Qkcyj.FieldByName('编号').AsString;
    dm:=yfgldata.Qkcyj.FieldByName('营具代码').AsString;
    yfgldata.yj.Locate('编号',bh,[loCaseInsensitive]);
    yfgldata.yj.Delete;
    yfgldata.yj1.Locate('代码',dm,[loCaseInsensitive]);
    yfgldata.yj1.edit;
    yfgldata.yj1.FieldByName('数量').AsInteger:=yfgldata.yj1.FieldByName('数量').AsInteger-1;
    yfgldata.yj1.FieldByName('合计金额').AsCurrency:=yfgldata.yj1.FieldByName('数量').AsInteger*yfgldata.yj1.FieldByName('单价').AsFloat;
    yfgldata.yj1.Post;
    if yfgldata.yj1.FieldByName('数量').AsInteger=0 then
      yfgldata.yj1.Delete;
    if yfgldata.kcyj.Locate('编号',bh,[loCaseInsensitive]) then
      begin
        yfgldata.kcyj.Delete;
        yfgldata.kcyj1.Locate('代码',dm,[loCaseInsensitive]);
        yfgldata.kcyj1.Edit;
        yfgldata.kcyj1.FieldByName('数量').AsInteger:=yfgldata.kcyj1.FieldByName('数量').AsInteger-1;
        yfgldata.kcyj1.FieldByName('合计金额').AsCurrency:=yfgldata.kcyj1.FieldByName('数量').AsInteger*yfgldata.kcyj1.FieldByName('单价').AsFloat;
        yfgldata.kcyj1.Post;
        if yfgldata.kcyj1.FieldByName('数量').AsInteger=0 then
          yfgldata.kcyj1.Delete;
      end;
    if yfgldata.grjyyj.Locate('编号',bh,[loCaseInsensitive]) then
      begin
        yfgldata.grjyyj1.Filter:='代码='''+dm+''' and 借用人='''+yfgldata.grjyyj.FieldByName('借用人').AsString+'''';
        yfgldata.grjyyj1.Filtered:=true;
        yfgldata.grjyyj1.Edit;
        yfgldata.grjyyj1.FieldByName('数量').AsInteger:=yfgldata.grjyyj1.FieldByName('数量').AsInteger-1;
        yfgldata.grjyyj1.FieldByName('合计金额').AsFloat:=yfgldata.grjyyj1.FieldByName('数量').AsFloat*yfgldata.grjyyj1.FieldByName('单价').AsFloat;
        yfgldata.grjyyj1.Post;
        if yfgldata.grjyyj1.FieldByName('数量').AsInteger=0 then
          yfgldata.grjyyj1.Delete;
        yfgldata.grjyyj1.Filtered:=false;
        yfgldata.grjyyj.Delete;
      end;
    yfgldata.Qkcyj.Active:=false;
    yfgldata.Qkcyj.Active:=true;
    yfgldata.Qkcyj1.Active:=false;
    yfgldata.Qkcyj1.Active:=true;
  end;
end;

procedure Tkcyj.SpeedButton4Click(Sender: TObject);
begin
application.CreateForm(tyjcz,yjcz);
yjcz.vps_name:='yfgldata.dkcyj';
try
  yjcz.ShowModal;
finally
  yjcz.Free;
end;
end;

procedure Tkcyj.SpeedButton13Click(Sender: TObject);
begin
application.CreateForm(tbbdc,bbdc);
with bbdc do
begin
  listbox1.Items.Add('代码');
  listbox1.Items.Add('营具名称');
  listbox1.Items.Add('单位');
  listbox1.Items.Add('单价');
  listbox1.Items.Add('数量');
  listbox1.Items.Add('合计金额');
  vps_filter:='';
  vps_name:='yfgl_kcyj1';
  edit1.Text:='库存营具报表';
  try
    ShowModal;
  finally
    free;
  end;
end;
end;

end.