xuanzefrm.pas

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

unit xuanzefrm;

interface

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

type
  Txuanze = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    dy:boolean;
  end;

var
  xuanze: Txuanze;

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

procedure Txuanze.SpeedButton13Click(Sender: TObject);
begin
close;
end;

procedure Txuanze.SpeedButton12Click(Sender: TObject);
begin
if not xuanze.dy then
  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('基地面积');
        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_name:='yfgl_dwqk';
        if xuanze.RadioButton1.Checked then
          begin
            vps_filter:='';
            edit1.Text:='所有单位情况';
          end;
        if xuanze.RadioButton2.Checked then
          begin
            vps_filter:='单位代码='''+yfgldata.dwqk.fieldbyname('单位代码').AsString+'''';
            edit1.Text:=yfgldata.dwqk.fieldbyname('单位名称').AsString+'单位情况';
          end;
        if xuanze.RadioButton3.Checked then
          begin
            vps_filter:='单位代码='''+yfgldata.dwqk.fieldbyname('单位代码').AsString+''' or 上级单位代码='''+yfgldata.dwqk.fieldbyname('单位代码').AsString+'''';
            edit1.Text:=yfgldata.dwqk.fieldbyname('单位名称').AsString+'及下一级单位单位情况';
          end;
        try
          ShowModal;
          xuanze.Close;
        finally
          free;
          xuanze.Close;
        end;
      end;
  end
else
  begin
    if xuanze.RadioButton1.Checked then
      begin
        close;
        yfgldata.dwqk.Filtered:=false;
        dwqk.PrintDBGridEh1.PageHeader.CenterText.Clear;
        dwqk.PrintDBGridEh1.PageHeader.CenterText.Add('所有单位情况');
        dwqk.PrintDBGridEh1.Preview;
      end;
    if xuanze.RadioButton2.Checked then
      begin
        close;
        yfgldata.dwqk.Filter:='单位代码='''+yfgldata.dwqk.fieldbyname('单位代码').AsString+'''';
        yfgldata.dwqk.Filtered:=true;
        dwqk.PrintDBGridEh1.PageHeader.CenterText.Clear;
        dwqk.PrintDBGridEh1.PageHeader.CenterText.Add(yfgldata.dwqk.fieldbyname('单位名称').AsString+'单位情况');
        dwqk.PrintDBGridEh1.Preview;
        yfgldata.dwqk.Filtered:=false;
      end;
    if xuanze.RadioButton3.Checked then
      begin
        close;
        yfgldata.dwqk.Filter:='单位代码='''+yfgldata.dwqk.fieldbyname('单位代码').AsString+''' or 上级单位代码='''+yfgldata.dwqk.fieldbyname('单位代码').AsString+'''';
        yfgldata.dwqk.Filtered:=true;
        dwqk.PrintDBGridEh1.PageHeader.CenterText.Clear;
        dwqk.PrintDBGridEh1.PageHeader.CenterText.Add(yfgldata.dwqk.fieldbyname('单位名称').AsString+'及下一级单位单位情况');
        dwqk.PrintDBGridEh1.Preview;
        yfgldata.dwqk.Filtered:=false;
      end;
  end;
end;

end.