grjyyjfrm.pas

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

unit grjyyjfrm;

interface

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

type
  Tgrjyyj = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    Panel2: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Label3: TLabel;
    Edit2: TEdit;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Label2: TLabel;
    Edit1: TEdit;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  grjyyj: Tgrjyyj;

implementation

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

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

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

procedure Tgrjyyj.SpeedButton1Click(Sender: TObject);
var
  bh,dm:string;
begin
if messagebox(grjyyj.Handle,'确认要删除本营具吗？','营房工作管理系统',33)=1 then
  begin
    bh:=yfgldata.Qgrjyyj.FieldByName('编号').AsString;
    dm:=yfgldata.Qgrjyyj.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.Qgrjyyj.Active:=false;
    yfgldata.Qgrjyyj.Active:=true;
    yfgldata.Qgrjyyj1.Active:=false;
    yfgldata.Qgrjyyj1.Active:=true;
  end;
end;

procedure Tgrjyyj.FormShow(Sender: TObject);
begin
yfgldata.Qgrjyyj.Active:=false;
yfgldata.Qgrjyyj.Active:=true;
yfgldata.Qgrjyyj1.Active:=false;
yfgldata.Qgrjyyj1.Active:=true;
end;

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

procedure Tgrjyyj.SpeedButton6Click(Sender: TObject);
begin
yfgldata.Qgrjyyj1.Filter:='';
if grjyyj.Edit1.Text<>'' then
  yfgldata.Qgrjyyj1.Filter:=yfgldata.Qgrjyyj1.Filter+'借用人='''+grjyyj.Edit1.Text+'''';
if grjyyj.Edit2.Text<>'' then
  if yfgldata.Qgrjyyj1.Filter<>'' then
    yfgldata.Qgrjyyj1.Filter:=yfgldata.Qgrjyyj1.Filter+' and 营具名称='''+grjyyj.Edit2.Text+''''
  else
    yfgldata.Qgrjyyj1.Filter:=yfgldata.Qgrjyyj1.Filter+'营具名称='''+grjyyj.Edit2.Text+'''';
yfgldata.Qgrjyyj1.Filtered:=true;
end;

procedure Tgrjyyj.SpeedButton7Click(Sender: TObject);
begin
grjyyj.Edit1.Text:='';
grjyyj.Edit2.Text:='';
yfgldata.Qgrjyyj1.Filtered:=false;
end;

procedure Tgrjyyj.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('合计金额');
  listbox1.Items.Add('借用人');
  vps_filter:='';
  if grjyyj.Edit1.Text<>'' then
    vps_filter:=vps_filter+'借用人='''+grjyyj.Edit1.Text+'''';
  if grjyyj.Edit2.Text<>'' then
    if vps_filter<>'' then
      vps_filter:=vps_filter+' and 营具名称='''+grjyyj.Edit2.Text+''''
    else
      vps_filter:=vps_filter+'营具名称='''+grjyyj.Edit2.Text+'''';
  vps_name:='yfgl_grjyyj1';
  if grjyyj.Edit1.Text<>'' then
    edit1.Text:=grjyyj.Edit1.Text+'借用营具报表'
  else
    edit1.text:='所有借用营具报表';
  try
    ShowModal;
  finally
    free;
  end;
end;
end;

end.