cjdglfrm.pas

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

unit cjdglfrm;

interface

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

type
  Tcjdgl = class(TForm)
    Panel1: TPanel;
    Shape1: TShape;
    Label1: TLabel;
    Label2: TLabel;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape8: TShape;
    DBText1: TDBText;
    Label3: TLabel;
    Shape9: TShape;
    Shape10: TShape;
    Label5: TLabel;
    Label7: TLabel;
    DBText2: TDBText;
    DBText4: TDBText;
    DBText6: TDBText;
    Shape11: TShape;
    Label10: TLabel;
    Shape13: TShape;
    Shape14: TShape;
    Label9: TLabel;
    DBGridEh1: TDBGridEh;
    Panel2: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cjdgl: Tcjdgl;

implementation

uses datafrm,cjddyfrm;
{$R *.dfm}

procedure Tcjdgl.FormShow(Sender: TObject);
begin
if yfgldata.Qcjd.Active then
  yfgldata.Qcjd.Active:=false;
yfgldata.Qcjd.Active:=true;
if yfgldata.Qcjd1.Active then
  yfgldata.Qcjd1.Active:=false;
yfgldata.Qcjd1.Active:=true;
end;

procedure Tcjdgl.SpeedButton4Click(Sender: TObject);
begin
yfgldata.qcjd.FindFirst;
end;

procedure Tcjdgl.SpeedButton5Click(Sender: TObject);
begin
yfgldata.qcjd.FindPrior;
end;

procedure Tcjdgl.SpeedButton6Click(Sender: TObject);
begin
yfgldata.qcjd.FindNext;
end;

procedure Tcjdgl.SpeedButton7Click(Sender: TObject);
begin
yfgldata.qcjd.FindLast;
end;

procedure Tcjdgl.SpeedButton1Click(Sender: TObject);
var
  bh:string;
  i:integer;
begin
if messagebox(cjdgl.Handle,'确认要删除当前借用单吗？','营房工作管理系统',33)=1 then
  begin
    bh:=yfgldata.qcjd.FieldByName('编号').AsString;
    for i:=1 to yfgldata.cjd1.RecordCount do
      begin
        if yfgldata.cjd1.FieldByName('出借单编号').AsString=bh then
          yfgldata.cjd1.Delete
        else
          yfgldata.cjd1.Next;
      end;
    yfgldata.cjd.Locate('编号',bh,[loCaseInsensitive]);
    yfgldata.cjd.Delete;
    yfgldata.qcjd.Active:=false;
    yfgldata.Qcjd.Active:=true;
    yfgldata.Qcjd1.Active:=false;
    yfgldata.Qcjd1.Active:=true;
  end;
end;

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

procedure Tcjdgl.SpeedButton2Click(Sender: TObject);
begin
yfgldata.cjd.Filter:='编号='''+yfgldata.Qcjd.FieldByName('编号').AsString+'''';
yfgldata.cjd.Filtered:=true;
yfgldata.cjd1.Filter:='出借单编号='''+yfgldata.Qcjd.FieldByName('编号').AsString+'''';
yfgldata.cjd1.Filtered:=true;
cjddy.QuickRep1.Preview;
yfgldata.cjd.Filtered:=false;
yfgldata.cjd1.Filtered:=false;
end;

end.