dwqkfrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 625 行 · 第 1/2 页

unit dwqkfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, StdCtrls, Mask, DBCtrls, DBCtrlsEh, PrnDbgeh,
  Grids, DBGridEh, db,ImgList, ComCtrls, dxtree, dxdbtree;

type
  Tdwqk = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    GroupBox1: TGroupBox;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    DBNumberEditEh1: TDBNumberEditEh;
    DBNumberEditEh2: TDBNumberEditEh;
    Panel4: TPanel;
    Panel3: TPanel;
    Panel5: TPanel;
    DBGridEh1: TDBGridEh;
    PrintDBGridEh1: TPrintDBGridEh;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    Panel6: TPanel;
    Panel7: TPanel;
    Label23: TLabel;
    dxDBTreeView1: TdxDBTreeView;
    ImageList1: TImageList;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    Label24: TLabel;
    DBEdit21: TDBEdit;
    GroupBox2: TGroupBox;
    Label25: TLabel;
    DBEdit22: TDBEdit;
    Label26: TLabel;
    DBEdit23: TDBEdit;
    Label27: TLabel;
    DBEdit24: TDBEdit;
    Label28: TLabel;
    DBEdit25: TDBEdit;
    Label29: TLabel;
    DBEdit26: TDBEdit;
    Label30: TLabel;
    DBEdit27: TDBEdit;
    Label31: TLabel;
    DBEdit28: TDBEdit;
    Label32: TLabel;
    DBEdit29: TDBEdit;
    GroupBox3: 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;
    CheckBox13: TCheckBox;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox18: TCheckBox;
    SpeedButton5: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(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 CheckBox8Click(Sender: TObject);
    procedure CheckBox13Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure CheckBox14Click(Sender: TObject);
    procedure CheckBox15Click(Sender: TObject);
    procedure CheckBox18Click(Sender: TObject);
    procedure CheckBox16Click(Sender: TObject);
    procedure CheckBox17Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure dxDBTreeView1Click(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 SpeedButton14Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure showbutton;
  end;

var
  dwqk: Tdwqk;

implementation

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

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

procedure Tdwqk.SpeedButton4Click(Sender: TObject);
begin
dwqk.Panel4.Visible:=false;
dwqk.Panel5.Visible:=true;
end;

procedure Tdwqk.SpeedButton3Click(Sender: TObject);
begin
dwqk.Panel4.Visible:=true;
dwqk.Panel5.Visible:=false;
end;

procedure Tdwqk.CheckBox1Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[2].Visible:=dwqk.CheckBox1.Checked;
end;

procedure Tdwqk.CheckBox2Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[4].Visible:=dwqk.CheckBox2.Checked;
end;

procedure Tdwqk.CheckBox3Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[5].Visible:=dwqk.CheckBox3.Checked;
end;

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

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

procedure Tdwqk.CheckBox6Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[13].Visible:=dwqk.CheckBox6.Checked;
end;

procedure Tdwqk.CheckBox7Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[15].Visible:=dwqk.CheckBox7.Checked;
end;

procedure Tdwqk.CheckBox8Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[14].Visible:=dwqk.CheckBox8.Checked;
end;

procedure Tdwqk.CheckBox13Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[16].Visible:=dwqk.CheckBox13.Checked;
dwqk.DBGridEh1.Columns[17].Visible:=dwqk.CheckBox13.Checked;
end;

procedure Tdwqk.CheckBox9Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[18].Visible:=dwqk.CheckBox9.Checked;
end;

procedure Tdwqk.CheckBox10Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[19].Visible:=dwqk.CheckBox10.Checked;
dwqk.DBGridEh1.Columns[20].Visible:=dwqk.CheckBox10.Checked;
dwqk.DBGridEh1.Columns[21].Visible:=dwqk.CheckBox10.Checked;
end;

procedure Tdwqk.CheckBox11Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[22].Visible:=dwqk.CheckBox11.Checked;
end;

procedure Tdwqk.CheckBox12Click(Sender: TObject);
begin
dwqk.DBGridEh1.Columns[23].Visible:=dwqk.CheckBox12.Checked;
dwqk.DBGridEh1.Columns[24].Visible:=dwqk.CheckBox12.Checked;
dwqk.DBGridEh1.Columns[25].Visible:=dwqk.CheckBox12.Checked;
dwqk.DBGridEh1.Columns[26].Visible:=dwqk.CheckBox12.Checked;
dwqk.DBGridEh1.Columns[27].Visible:=dwqk.CheckBox12.Checked;
dwqk.DBGridEh1.Columns[28].Visible:=dwqk.CheckBox12.Checked;
dwqk.DBGridEh1.Columns[29].Visible:=dwqk.CheckBox12.Checked;
dwqk.DBGridEh1.Columns[30].Visible:=dwqk.CheckBox12.Checked;
end;

procedure tdwqk.showbutton;
begin
dwqk.Label23.Caption:='单位目录树(单位数：'+inttostr(yfgldata.dwqk.RecordCount)+'个)';
dwqk.SpeedButton6.Enabled:=(yfgldata.dwqk.RecordCount>0) and (yfgldata.dwqk.RecNo<>1);
dwqk.SpeedButton7.Enabled:=(yfgldata.dwqk.RecordCount>0) and (yfgldata.dwqk.RecNo<>1);
dwqk.SpeedButton8.Enabled:=(yfgldata.dwqk.RecordCount>0) and (yfgldata.dwqk.RecNo<>yfgldata.dwqk.RecordCount);
dwqk.SpeedButton9.Enabled:=(yfgldata.dwqk.RecordCount>0) and (yfgldata.dwqk.RecNo<>yfgldata.dwqk.RecordCount);
dwqk.SpeedButton11.Enabled:=yfgldata.dwqk.RecordCount>0;
dwqk.SpeedButton12.Enabled:=yfgldata.dwqk.RecordCount>0;
dwqk.SpeedButton14.Enabled:=yfgldata.dwqk.RecordCount>0;
dwqk.SpeedButton1.Enabled:=yfgldata.dwqk.RecordCount>0;
end;

procedure Tdwqk.FormShow(Sender: TObject);
begin
dwqk.showbutton;
end;

procedure Tdwqk.SpeedButton6Click(Sender: TObject);
begin
yfgldata.dwqk.First;
dwqk.showbutton;
end;

procedure Tdwqk.SpeedButton7Click(Sender: TObject);
begin
yfgldata.dwqk.Prior;
dwqk.showbutton;
end;

procedure Tdwqk.SpeedButton8Click(Sender: TObject);
begin
yfgldata.dwqk.Next;
dwqk.showbutton;
end;

procedure Tdwqk.SpeedButton9Click(Sender: TObject);
begin
yfgldata.dwqk.Last;
dwqk.showbutton;
end;

procedure Tdwqk.SpeedButton12Click(Sender: TObject);
begin