yfdafrm.pas

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

unit yfdafrm;

interface

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

type
  Tyfda = 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;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure SpeedButton2Click(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 CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    procedure showda;
    { Public declarations }
  end;

var
  yfda: Tyfda;

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

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

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

procedure Tyfda.DBGridEh1CellClick(Column: TColumnEh);
begin
yfda.showda;
end;

procedure Tyfda.DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
yfda.showda;
end;

procedure Tyfda.DBGridEh1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
yfda.showda;
end;

procedure Tyfda.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
yfda.showda;
end;

procedure Tyfda.SpeedButton6Click(Sender: TObject);
begin
yfgldata.yfda.First;
yfda.showda;
end;

procedure Tyfda.SpeedButton7Click(Sender: TObject);
begin
yfgldata.yfda.Prior;
yfda.showda;
end;

procedure Tyfda.SpeedButton8Click(Sender: TObject);
begin
yfgldata.yfda.Next;
yfda.showda;
end;

procedure Tyfda.SpeedButton9Click(Sender: TObject);
begin
yfgldata.yfda.Last;
yfda.showda;
end;

procedure Tyfda.SpeedButton1Click(Sender: TObject);
begin
yfda.PrintDBGridEh1.PageHeader.CenterText.Clear;
yfda.PrintDBGridEh1.PageHeader.CenterText.Add('新建营房分栋登记表');
yfda.PrintDBGridEh1.Preview;
end;

procedure Tyfda.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(tf_query,f_query);
f_query.tablename:='yfgl_yfda';
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.yfda.Filter:=f_query.filtervalue;
    yfgldata.yfda.Filtered:=true;
    yfda.showda;
    end
  else
    begin
    yfgldata.yfda.Filtered:=false;
    yfda.showda;
    end;
finally
  f_query.Free;
end;
end;

procedure Tyfda.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('备注');
  vps_filter:=yfgldata.yfda.Filter;
  vps_name:='yfgl_yfda';
  edit1.Text:='营产档案资料登记表';
  try
    ShowModal;
  finally
    free;
  end;
end;
end;

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

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

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

procedure Tyfda.CheckBox4Click(Sender: TObject);
begin
yfda.DBGridEh1.Columns[6].Visible:=yfda.CheckBox4.Checked;
end;

procedure Tyfda.CheckBox5Click(Sender: TObject);
begin
yfda.DBGridEh1.Columns[7].Visible:=yfda.CheckBox5.Checked;
end;

procedure Tyfda.CheckBox6Click(Sender: TObject);
begin
yfda.DBGridEh1.Columns[8].Visible:=yfda.CheckBox6.Checked;
end;

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

procedure Tyfda.SpeedButton10Click(Sender: TObject);
begin
application.CreateForm(tyfdatj,yfdatj);
yfdatj.Caption:='添加档案资料';
yfdatj.da:=true;
try
  yfdatj.ShowModal;
finally
  yfdatj.Free;
end;
end;

procedure Tyfda.SpeedButton12Click(Sender: TObject);
begin
application.CreateForm(tyfdatj,yfdatj);
yfdatj.Caption:='修改档案资料';
yfdatj.da:=false;
yfdatj.dxLookupTreeView1.Text:=yfgldata.yfda.FieldByName('单位代码').AsString;
yfdatj.dxLookupTreeView1.Enabled:=false;
yfdatj.Edit2.Text:=yfgldata.yfda.FieldByName('住用单位').AsString;
yfdatj.ComboBox1.Items.Clear;
yfdatj.ComboBox1.Items.Add(yfgldata.yfda.FieldByName('坐落号').AsString);
yfdatj.ComboBox1.ItemIndex:=0;
yfdatj.ComboBox1.Enabled:=false;
yfdatj.Edit1.Text:=yfgldata.yfda.FieldByName('坐落地址').AsString;
yfdatj.Edit3.Text:=yfgldata.yfda.FieldByName('档案资料名称').AsString;
yfdatj.DBNumberEditEh1.Value:=yfgldata.yfda.FieldByName('份数').AsInteger;
yfdatj.DBNumberEditEh2.Value:=yfgldata.yfda.FieldByName('页数').AsInteger;
yfdatj.Edit4.Text:=yfgldata.yfda.FieldByName('备注').AsString;
try
  yfdatj.ShowModal;
finally
  yfdatj.Free;
end;
end;

procedure Tyfda.FormShow(Sender: TObject);
begin
yfda.showda;
end;

end.