dtfrm.pas

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

unit dtfrm;

interface

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

type
  Tdt = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    DBGridEh1: TDBGridEh;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: 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;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    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 CheckBox8Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox14Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure CheckBox13Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure FormShow(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 SpeedButton10Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure showdt;
    { Public declarations }
  end;

var
  dt: Tdt;

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

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

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

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

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

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

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

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

procedure Tdt.CheckBox7Click(Sender: TObject);
begin
dt.DBGridEh1.Columns[9].Visible:=dt.CheckBox7.Checked;
end;

procedure Tdt.CheckBox8Click(Sender: TObject);
begin
dt.DBGridEh1.Columns[10].Visible:=dt.CheckBox8.Checked;
end;

procedure Tdt.CheckBox9Click(Sender: TObject);
begin
dt.DBGridEh1.Columns[11].Visible:=dt.CheckBox9.Checked;
end;

procedure Tdt.CheckBox10Click(Sender: TObject);
begin
dt.DBGridEh1.Columns[12].Visible:=dt.CheckBox10.Checked;
end;

procedure Tdt.CheckBox11Click(Sender: TObject);
begin
dt.DBGridEh1.Columns[13].Visible:=dt.CheckBox11.Checked;
end;

procedure Tdt.CheckBox14Click(Sender: TObject);
begin
dt.DBGridEh1.Columns[16].Visible:=dt.CheckBox14.Checked;
end;

procedure Tdt.CheckBox12Click(Sender: TObject);
begin
dt.DBGridEh1.Columns[14].Visible:=dt.CheckBox12.Checked;
end;

procedure Tdt.CheckBox13Click(Sender: TObject);
begin
dt.DBGridEh1.Columns[15].Visible:=dt.CheckBox13.Checked;
end;

procedure Tdt.SpeedButton6Click(Sender: TObject);
begin
yfgldata.dt.First;
dt.showdt;
end;

procedure Tdt.SpeedButton7Click(Sender: TObject);
begin
yfgldata.dt.Prior;
dt.showdt;
end;

procedure Tdt.SpeedButton8Click(Sender: TObject);
begin
yfgldata.dt.Next;
dt.showdt;
end;

procedure Tdt.SpeedButton9Click(Sender: TObject);
begin
yfgldata.dt.Last;
dt.showdt;
end;

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

procedure Tdt.SpeedButton1Click(Sender: TObject);
begin
dt.PrintDBGridEh1.PageHeader.CenterText.Clear;
dt.PrintDBGridEh1.PageHeader.CenterText.Add('电梯分布登记（变更）表');
dt.PrintDBGridEh1.Preview;
end;

procedure Tdt.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(tf_query,f_query);
f_query.tablename:='yfgl_dt';
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.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('额定载荷');
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.dt.Filter:=f_query.filtervalue;
    yfgldata.dt.Filtered:=true;
    dt.showdt;
    end
  else
    begin
    yfgldata.dt.Filtered:=false;
    dt.showdt;
    end;
finally
  f_query.Free;
end;
end;

procedure Tdt.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('额定载荷');
  listbox1.Items.Add('功率');
  listbox1.Items.Add('站数');
  listbox1.Items.Add('生产厂家');
  listbox1.Items.Add('安装年份');
  listbox1.Items.Add('变更依据');
  vps_filter:=yfgldata.dt.Filter;
  vps_name:='yfgl_dt';
  edit1.Text:='电梯分部登记（变更）表';
  try
    ShowModal;
  finally
    free;
  end;
end;
end;

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

procedure Tdt.FormShow(Sender: TObject);
begin
dt.showdt;
end;

procedure Tdt.DBGridEh1CellClick(Column: TColumnEh);
begin
dt.showdt;
end;

procedure Tdt.DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
dt.showdt;
end;

procedure Tdt.DBGridEh1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
dt.showdt;
end;

procedure Tdt.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
dt.showdt;
end;

procedure Tdt.SpeedButton10Click(Sender: TObject);
begin
application.CreateForm(tdttj,dttj);
dttj.Caption:='添加新记录';
dttj.tjdt:=true;
try
  dttj.ShowModal;
finally
  dttj.Free;
end;
end;

procedure Tdt.SpeedButton12Click(Sender: TObject);
begin
application.CreateForm(tdttj,dttj);
dttj.Caption:='修改记录';
dttj.tjdt:=false;
dttj.dxLookupTreeView1.Text:=yfgldata.dt.FieldByName('单位代码').AsString;
dttj.dxLookupTreeView1.Enabled:=false;
dttj.Edit2.Text:=yfgldata.dt.FieldByName('使用单位').AsString;
dttj.ComboBox1.Items.Clear;
dttj.ComboBox1.Items.Add(yfgldata.dt.FieldByName('坐落号').AsString);
dttj.ComboBox1.ItemIndex:=0;
dttj.ComboBox1.Enabled:=false;
dttj.ComboBox2.Items.Clear;
dttj.ComboBox2.Items.Add(yfgldata.dt.FieldByName('栋号').AsString);
dttj.ComboBox2.ItemIndex:=0;
dttj.ComboBox2.Enabled:=false;
dttj.Edit3.Text:=yfgldata.dt.FieldByName('电梯编号').AsString;
dttj.Edit3.ReadOnly:=true;
dttj.Edit7.Text:=yfgldata.dt.FieldByName('电梯型号').AsString;
dttj.Edit9.Text:=yfgldata.dt.FieldByName('控制方式').AsString;
dttj.Edit4.Text:=yfgldata.dt.FieldByName('驱动方式').AsString;
dttj.Edit10.Text:=yfgldata.dt.FieldByName('电梯用途').AsString;
dttj.Edit7.Text:=yfgldata.dt.FieldByName('质量状况').AsString;
dttj.DBNumberEditEh1.Value:=yfgldata.dt.FieldByName('额定载荷').AsInteger;
dttj.DBNumberEditEh2.Value:=yfgldata.dt.FieldByName('功率').AsFloat;
dttj.DBNumberEditEh3.Value:=yfgldata.dt.FieldByName('站数').AsInteger;
dttj.Edit11.Text:=yfgldata.dt.FieldByName('生产厂家').AsString;
dttj.DBNumberEditEh4.Value:=yfgldata.dt.FieldByName('安装年份').AsInteger;
dttj.Edit8.Text:=yfgldata.dt.FieldByName('变更依据').AsString;
try
  dttj.ShowModal;
finally
  dttj.Free;
end;
end;

end.