dbdfrm.pas

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

unit dbdfrm;

interface

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

type
  Tdbdgl = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton3: TSpeedButton;
    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;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    Shape11: TShape;
    Shape12: TShape;
    Label10: TLabel;
    DBGridEh1: TDBGridEh;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Shape13: TShape;
    Shape14: TShape;
    Label9: TLabel;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dbdgl: Tdbdgl;

implementation

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

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

procedure Tdbdgl.SpeedButton4Click(Sender: TObject);
begin
yfgldata.qdbd.FindFirst;
end;

procedure Tdbdgl.SpeedButton5Click(Sender: TObject);
begin
yfgldata.qdbd.FindPrior;
end;

procedure Tdbdgl.SpeedButton6Click(Sender: TObject);
begin
yfgldata.qdbd.FindNext;
end;

procedure Tdbdgl.SpeedButton7Click(Sender: TObject);
begin
yfgldata.qdbd.FindLast;
end;

procedure Tdbdgl.SpeedButton1Click(Sender: TObject);
var
  bh:string;
  i:integer;
begin
if messagebox(dbdgl.Handle,'确认要删除当前调拨单吗？','营房工作管理系统',33)=1 then
  begin
    bh:=yfgldata.qdbd.FieldByName('调拨单编号').AsString;
    for i:=1 to yfgldata.dbd1.RecordCount do
      begin
        if yfgldata.dbd1.FieldByName('调拨单编号').AsString=bh then
          yfgldata.dbd1.Delete
        else
          yfgldata.dbd1.Next;
      end;
    yfgldata.dbd.Locate('调拨单编号',bh,[loCaseInsensitive]);
    yfgldata.dbd.Delete;
    yfgldata.qdbd.Active:=false;
    yfgldata.Qdbd.Active:=true;
    yfgldata.Qdbd1.Active:=false;
    yfgldata.Qdbd1.Active:=true;
  end;
end;

procedure Tdbdgl.SpeedButton2Click(Sender: TObject);
begin
yfgldata.dbd.Filter:='调拨单编号='''+yfgldata.Qdbd.FieldByName('调拨单编号').AsString+'''';
yfgldata.dbd.Filtered:=true;
yfgldata.dbd1.Filter:='调拨单编号='''+yfgldata.Qdbd.FieldByName('调拨单编号').AsString+'''';
yfgldata.dbd1.Filtered:=true;
dbddy.QuickRep1.Preview;
yfgldata.dbd.Filtered:=false;
yfgldata.dbd1.Filtered:=false;
end;

procedure Tdbdgl.FormShow(Sender: TObject);
begin
if yfgldata.Qdbd.Active then
  yfgldata.Qdbd.Active:=false;
yfgldata.Qdbd.Active:=true;
if yfgldata.Qdbd1.Active then
  yfgldata.Qdbd1.Active:=false;
yfgldata.Qdbd1.Active:=true;
end;

end.