yfwzfrm.pas

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

unit yfwzfrm;

interface

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

type
  Tyfwz = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    DBGridEh1: TDBGridEh;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    Panel2: TPanel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    CheckBox7: TCheckBox;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure DBGridEh1CellClick(Column: TColumnEh);
    procedure DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure DBGridEh1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure showwz;
    { Public declarations }
  end;

var
  yfwz: Tyfwz;

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

procedure tyfwz.showwz;
begin
yfwz.SpeedButton6.Enabled:=(yfgldata.yfwz.RecordCount>0) and (yfgldata.yfwz.RecNo<>1);
yfwz.SpeedButton7.Enabled:=(yfgldata.yfwz.RecordCount>0) and (yfgldata.yfwz.RecNo<>1);
yfwz.SpeedButton8.Enabled:=(yfgldata.yfwz.RecordCount>0) and (yfgldata.yfwz.RecNo<>yfgldata.yfwz.RecordCount);
yfwz.SpeedButton9.Enabled:=(yfgldata.yfwz.RecordCount>0) and (yfgldata.yfwz.RecNo<>yfgldata.yfwz.RecordCount);
yfwz.SpeedButton11.Enabled:=yfgldata.yfwz.RecordCount>0;
yfwz.SpeedButton12.Enabled:=yfgldata.yfwz.RecordCount>0;
yfwz.SpeedButton14.Enabled:=yfgldata.yfwz.RecordCount>0;
yfwz.SpeedButton1.Enabled:=yfgldata.yfwz.RecordCount>0;
end;

procedure Tyfwz.FormShow(Sender: TObject);
begin
yfwz.showwz;
end;

procedure Tyfwz.SpeedButton2Click(Sender: TObject);
begin
yfgldata.yfwz.Filtered:=false;
close;
end;

procedure Tyfwz.CheckBox1Click(Sender: TObject);
begin
yfwz.DBGridEh1.Columns[0].Visible:=yfwz.CheckBox1.Checked;
end;

procedure Tyfwz.CheckBox2Click(Sender: TObject);
begin
yfwz.DBGridEh1.Columns[1].Visible:=yfwz.CheckBox2.Checked;
end;

procedure Tyfwz.CheckBox3Click(Sender: TObject);
begin
yfwz.DBGridEh1.Columns[2].Visible:=yfwz.CheckBox3.Checked;
end;

procedure Tyfwz.CheckBox4Click(Sender: TObject);
begin
yfwz.DBGridEh1.Columns[4].Visible:=yfwz.CheckBox4.Checked;
end;

procedure Tyfwz.CheckBox5Click(Sender: TObject);
begin
yfwz.DBGridEh1.Columns[5].Visible:=yfwz.CheckBox5.Checked;
end;

procedure Tyfwz.CheckBox6Click(Sender: TObject);
begin
yfwz.DBGridEh1.Columns[6].Visible:=yfwz.CheckBox6.Checked;
yfwz.DBGridEh1.Columns[7].Visible:=yfwz.CheckBox6.Checked;
yfwz.DBGridEh1.Columns[8].Visible:=yfwz.CheckBox6.Checked;
yfwz.DBGridEh1.Columns[9].Visible:=yfwz.CheckBox6.Checked;
yfwz.DBGridEh1.Columns[10].Visible:=yfwz.CheckBox6.Checked;
end;

procedure Tyfwz.CheckBox7Click(Sender: TObject);
begin
yfwz.DBGridEh1.Columns[11].Visible:=yfwz.CheckBox7.Checked;
end;

procedure Tyfwz.DBGridEh1CellClick(Column: TColumnEh);
begin
yfwz.showwz;
end;

procedure Tyfwz.DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
yfwz.showwz;
end;

procedure Tyfwz.DBGridEh1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
yfwz.showwz;
end;

procedure Tyfwz.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
yfwz.showwz;
end;

procedure Tyfwz.SpeedButton6Click(Sender: TObject);
begin
yfgldata.yfwz.First;
yfwz.showwz;
end;

procedure Tyfwz.SpeedButton7Click(Sender: TObject);
begin
yfgldata.yfwz.Prior;
yfwz.showwz;
end;

procedure Tyfwz.SpeedButton8Click(Sender: TObject);
begin
yfgldata.yfwz.Next;
yfwz.showwz;
end;

procedure Tyfwz.SpeedButton9Click(Sender: TObject);
begin
yfgldata.yfwz.Last;
yfwz.showwz;
end;

procedure Tyfwz.SpeedButton1Click(Sender: TObject);
begin
yfwz.PrintDBGridEh1.PageHeader.CenterText.Clear;
yfwz.PrintDBGridEh1.PageHeader.CenterText.Add('营房战备物资器材统计表');
yfwz.PrintDBGridEh1.Preview;
end;

procedure Tyfwz.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(tf_query,f_query);
f_query.tablename:='yfgl_yfwz';
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.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('勘用');
f_query.fieldsalias.Add('待修');
f_query.fieldsalias.Add('报废');
f_query.fieldsalias.Add('备注');
try
  f_query.ShowModal;
  if f_query.conf then
    begin
    yfgldata.yfwz.Filter:=f_query.filtervalue;
    yfgldata.yfwz.Filtered:=true;
    yfwz.showwz;
    end
  else
    begin
    yfgldata.yfwz.Filtered:=false;
    yfwz.showwz;
    end;
finally
  f_query.Free;
end;
end;

procedure Tyfwz.SpeedButton14Click(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('小计');
  listbox1.Items.Add('新品');
  listbox1.Items.Add('勘用');
  listbox1.Items.Add('待修');
  listbox1.Items.Add('报废');
  listbox1.Items.Add('备注');
  vps_filter:=yfgldata.yfwz.Filter;
  vps_name:='yfgl_yfwz';
  edit1.Text:='营房战备物资器材统计表';
  try
    ShowModal;
  finally
    free;
  end;
end;
end;

procedure Tyfwz.SpeedButton10Click(Sender: TObject);
begin
application.CreateForm(tyfwztj,yfwztj);
yfwztj.Caption:='添加战备物资器材';
yfwztj.tjwz:=true;
try
  yfwztj.ShowModal;
finally
  yfwztj.Free;
end;
end;

procedure Tyfwz.SpeedButton11Click(Sender: TObject);
var
  i:integer;
begin
if messagebox(yfwz.handle,'请确认要删除战备物资器材记录吗？','营房工作管理系统',33)=1 then
  begin
    yfgldata.yfwz.Delete;
    yfgldata.yfwz.First;
    for i:=1 to yfgldata.yfwz.RecordCount do
      begin
        yfgldata.yfwz.Edit;
        yfgldata.yfwz.FieldByName('序号').AsInteger:=i;
        yfgldata.yfwz.Post;
        yfgldata.yfwz.Next;
      end;
    yfgldata.yfwz.First;
    yfwz.showwz;
  end;
end;

procedure Tyfwz.SpeedButton12Click(Sender: TObject);
begin
application.CreateForm(tyfwztj,yfwztj);
yfwztj.Caption:='修改战备物资器材';
yfwztj.tjwz:=false;
yfwztj.dxLookupTreeView1.Text:=yfgldata.yfwz.FieldByName('单位代码').AsString;
yfwztj.dxLookupTreeView1.Enabled:=false;
yfwztj.Edit2.Text:=yfgldata.yfwz.FieldByName('住用单位').AsString;
yfwztj.ComboBox1.Text:=yfgldata.yfwz.FieldByName('单位').AsString;
yfwztj.Edit1.Text:=yfgldata.yfwz.FieldByName('品名').AsString;
yfwztj.Edit1.ReadOnly:=true;
yfwztj.Edit3.Text:=yfgldata.yfwz.FieldByName('规格').AsString;
yfwztj.DBNumberEditEh1.Value:=yfgldata.yfwz.FieldByName('小计').AsInteger;
yfwztj.DBNumberEditEh2.Value:=yfgldata.yfwz.FieldByName('新品').AsInteger;
yfwztj.DBNumberEditEh3.Value:=yfgldata.yfwz.FieldByName('勘用').AsInteger;
yfwztj.DBNumberEditEh4.Value:=yfgldata.yfwz.FieldByName('待修').AsInteger;
yfwztj.DBNumberEditEh5.Value:=yfgldata.yfwz.FieldByName('报废').AsInteger;
yfwztj.Edit4.Text:=yfgldata.yfwz.FieldByName('备注').AsString;
try
  yfwztj.ShowModal;
finally
  yfwztj.Free;
end;
end;

end.