wxglfrm.pas

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

unit wxglfrm;

interface

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

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

var
  wxgl: Twxgl;

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

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

procedure twxgl.showwxd;
begin
  wxgl.SpeedButton1.Enabled:=yfgldata.Qwx.RecordCount>0;
  yfgldata.Qwx.Active:=false;
  yfgldata.Qwx.Active:=true;
  yfgldata.Qwxwz.Active:=false;
  yfgldata.Qwxwz.Active:=true;
end;

procedure Twxgl.FormShow(Sender: TObject);
begin
wxgl.showwxd;
end;

procedure Twxgl.SpeedButton1Click(Sender: TObject);
var
  bh:string;
  i:integer;
begin
bh:=yfgldata.Qwx.fieldbyname('编号').AsString;
if messagebox(wxgl.handle,'请确认要删除本记录吗？','营房工作管理系统',33)=1 then
  begin
    yfgldata.wx.Locate('编号',bh,[loCaseInsensitive]);
    yfgldata.wx.Delete;
    yfgldata.Qwx.Active:=false;
    yfgldata.Qwx.Active:=true;
    yfgldata.wxwz.First;
    for i:=1 to yfgldata.wxwz.RecordCount do
      begin
        if yfgldata.wxwz.FieldByName('编号').AsString=bh then
          begin
            yfgldata.wxwz.Delete;
          end
        else
          yfgldata.wxwz.Next;
      end;
    yfgldata.wxwz.First;
    yfgldata.Qwxwz.Active:=false;
    yfgldata.Qwxwz.Active:=true;
    wxgl.showwxd;
  end;
end;

procedure Twxgl.SpeedButton4Click(Sender: TObject);
begin
application.CreateForm(tf_query,f_query);
f_query.tablename:='yfgl_wx';
f_query.fields.Clear;
f_query.fields.Add('编号');
f_query.fields.Add('维修项目');
f_query.fields.Add('单位');
f_query.fields.Add('维修人员');
f_query.fields.Add('日期');
f_query.fields.Add('责任人');
f_query.fields.Add('合计');
f_query.fields.Add('备注');
f_query.fieldsalias.Clear;
f_query.fieldsalias.Add('编号');
f_query.fieldsalias.Add('维修项目');
f_query.fieldsalias.Add('单位');
f_query.fieldsalias.Add('维修人员');
f_query.fieldsalias.Add('日期');
f_query.fieldsalias.Add('责任人');
f_query.fieldsalias.Add('合计');
f_query.fieldsalias.Add('备注');
try
  f_query.ShowModal;
  if f_query.conf then
    begin
    yfgldata.Qwx.Active:=false;
    yfgldata.Qwx.Active:=true;
    yfgldata.qwx.Filter:=f_query.filtervalue;
    yfgldata.qwx.Filtered:=true;
    yfgldata.Qwxwz.Active:=false;
    yfgldata.Qwxwz.Active:=true;
    wxgl.showwxd;
    end
  else
    begin
    yfgldata.Qwx.Active:=false;
    yfgldata.Qwx.Active:=true;
    yfgldata.qwx.Filtered:=false;
    yfgldata.Qwxwz.Active:=false;
    yfgldata.Qwxwz.Active:=true;
    wxgl.showwxd;
    end;
finally
  f_query.Free;
end;
end;

end.