yjczfrm.pas

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

PAS
321 行
字号 
unit yjczfrm;

interface

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

type
  Tyjcz = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBGridEh1: TDBGridEh;
    Label3: TLabel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label10: TLabel;
    SpeedButton4: TSpeedButton;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    vps_name: string;
  end;

var
  yjcz: Tyjcz;

implementation

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

procedure Tyjcz.SpeedButton3Click(Sender: TObject);
begin
yfgldata.yj.Filtered:=false;
yfgldata.kcyj.Filtered:=false;
yfgldata.dwyj.Filtered:=false;
yfgldata.grjyyj.Filtered:=false;
close;
end;

procedure Tyjcz.SpeedButton2Click(Sender: TObject);
begin
yfgldata.yj.Filtered:=false;
yfgldata.kcyj.Filtered:=false;
yfgldata.dwyj.Filtered:=false;
yfgldata.grjyyj.Filtered:=false;
yjcz.DBGridEh1.DataSource:=nil;
yjcz.DBGridEh1.Columns.Clear;
yjcz.Label10.Caption:='共有0条符合条件的记录。';
end;

procedure Tyjcz.SpeedButton4Click(Sender: TObject);
begin
  if yjcz.vps_name='yfgldata.dyj' then
    begin
      application.CreateForm(tf_query,f_query);
      f_query.tablename:='yfgl_yj';
      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.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('使用单位');
      try
        f_query.ShowModal;
        if f_query.conf then
          begin
            yfgldata.yj.Filter:=f_query.filtervalue;
            yfgldata.yj.Filtered:=true;
            yjcz.Label10.Caption:='共有'+inttostr(yfgldata.yj.RecordCount)+'条符合条件的记录。';
            yjcz.DBGridEh1.Columns.Clear;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[0].FieldName:='编号';
            yjcz.DBGridEh1.Columns.Items[0].DropDownWidth:=yfgldata.yj.Fields.Fields[0].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[0].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[0].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[1].FieldName:='营具名称';
            yjcz.DBGridEh1.Columns.Items[1].DropDownWidth:=yfgldata.yj.Fields.Fields[1].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[1].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[1].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[2].FieldName:='单位';
            yjcz.DBGridEh1.Columns.Items[2].DropDownWidth:=yfgldata.yj.Fields.Fields[2].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[2].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[2].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[3].FieldName:='单价';
            yjcz.DBGridEh1.Columns.Items[3].DropDownWidth:=yfgldata.yj.Fields.Fields[3].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[3].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[4].FieldName:='使用单位';
            yjcz.DBGridEh1.Columns.Items[4].DropDownWidth:=yfgldata.yj.Fields.Fields[5].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[4].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[4].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[5].FieldName:='使用状况';
            yjcz.DBGridEh1.Columns.Items[5].DropDownWidth:=yfgldata.yj.Fields.Fields[4].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[5].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[5].alignment:=tacenter;
            yjcz.DBGridEh1.DataSource:=yfgldata.dyj2;
          end
        else
          yfgldata.yj.Filtered:=false;
      finally
        f_query.Free;
      end;
    end;
  if yjcz.vps_name='yfgldata.ddwyj' then
    begin
      application.CreateForm(tf_query,f_query);
      f_query.tablename:='yfgl_dwyj';
      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.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('单价');
      try
        f_query.ShowModal;
        if f_query.conf then
          begin
            yfgldata.dwyj.Filter:=f_query.filtervalue;
            yfgldata.dwyj.Filtered:=true;
            yjcz.Label10.Caption:='共有'+inttostr(yfgldata.dwyj.RecordCount)+'条符合条件的记录。';
            yjcz.DBGridEh1.Columns.Clear;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[0].FieldName:='编号';
            yjcz.DBGridEh1.Columns.Items[0].DropDownWidth:=yfgldata.dwyj.Fields.Fields[0].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[0].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[0].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[1].FieldName:='营具名称';
            yjcz.DBGridEh1.Columns.Items[1].DropDownWidth:=yfgldata.dwyj.Fields.Fields[1].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[1].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[1].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[2].FieldName:='单位';
            yjcz.DBGridEh1.Columns.Items[2].DropDownWidth:=yfgldata.dwyj.Fields.Fields[2].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[2].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[2].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[3].FieldName:='单价';
            yjcz.DBGridEh1.Columns.Items[3].DropDownWidth:=yfgldata.dwyj.Fields.Fields[7].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[3].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[4].FieldName:='使用单位';
            yjcz.DBGridEh1.Columns.Items[4].DropDownWidth:=yfgldata.dwyj.Fields.Fields[3].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[4].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[4].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[5].FieldName:='使用状况';
            yjcz.DBGridEh1.Columns.Items[5].DropDownWidth:=yfgldata.dwyj.Fields.Fields[4].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[5].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[5].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[6].FieldName:='责任人';
            yjcz.DBGridEh1.Columns.Items[6].DropDownWidth:=yfgldata.dwyj.Fields.Fields[5].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[6].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[6].alignment:=tacenter;
            yjcz.DBGridEh1.DataSource:=yfgldata.ddwyj;
          end
        else
          yfgldata.dwyj.Filtered:=false;
      finally
        f_query.Free;
      end;
    end;
  if yjcz.vps_name='yfgldata.dkcyj' then
    begin
      application.CreateForm(tf_query,f_query);
      f_query.tablename:='yfgl_kcyj';
      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.fieldsalias.Clear;
      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.kcyj.Filter:=f_query.filtervalue;
            yfgldata.kcyj.Filtered:=true;
            yjcz.Label10.Caption:='共有'+inttostr(yfgldata.kcyj.RecordCount)+'条符合条件的记录。';
            yjcz.DBGridEh1.Columns.Clear;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[0].FieldName:='编号';
            yjcz.DBGridEh1.Columns.Items[0].DropDownWidth:=yfgldata.kcyj.Fields.Fields[0].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[0].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[0].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[1].FieldName:='营具名称';
            yjcz.DBGridEh1.Columns.Items[1].DropDownWidth:=yfgldata.kcyj.Fields.Fields[1].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[1].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[1].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[2].FieldName:='单位';
            yjcz.DBGridEh1.Columns.Items[2].DropDownWidth:=yfgldata.kcyj.Fields.Fields[2].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[2].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[2].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[3].FieldName:='单价';
            yjcz.DBGridEh1.Columns.Items[3].DropDownWidth:=yfgldata.kcyj.Fields.Fields[3].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[3].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[4].FieldName:='使用状况';
            yjcz.DBGridEh1.Columns.Items[4].DropDownWidth:=yfgldata.kcyj.Fields.Fields[4].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[4].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[4].alignment:=tacenter;
            yjcz.DBGridEh1.DataSource:=yfgldata.dkcyj;
          end
        else
          yfgldata.kcyj.Filtered:=false;
      finally
        f_query.Free;
      end;
    end;
  if yjcz.vps_name='yfgldata.dgrjyyj2' then
    begin
      application.CreateForm(tf_query,f_query);
      f_query.tablename:='yfgl_grjyyj';
      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.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('借用人');
      try
        f_query.ShowModal;
        if f_query.conf then
          begin
            yfgldata.grjyyj.Filter:=f_query.filtervalue;
            yfgldata.grjyyj.Filtered:=true;
            yjcz.Label10.Caption:='共有'+inttostr(yfgldata.grjyyj.RecordCount)+'条符合条件的记录。';
            yjcz.DBGridEh1.Columns.Clear;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[0].FieldName:='编号';
            yjcz.DBGridEh1.Columns.Items[0].DropDownWidth:=yfgldata.grjyyj.Fields.Fields[0].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[0].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[0].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[1].FieldName:='营具名称';
            yjcz.DBGridEh1.Columns.Items[1].DropDownWidth:=yfgldata.grjyyj.Fields.Fields[1].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[1].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[1].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[2].FieldName:='单位';
            yjcz.DBGridEh1.Columns.Items[2].DropDownWidth:=yfgldata.grjyyj.Fields.Fields[2].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[2].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[2].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[3].FieldName:='单价';
            yjcz.DBGridEh1.Columns.Items[3].DropDownWidth:=yfgldata.grjyyj.Fields.Fields[3].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[3].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[4].FieldName:='使用状况';
            yjcz.DBGridEh1.Columns.Items[4].DropDownWidth:=yfgldata.grjyyj.Fields.Fields[4].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[4].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[4].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[5].FieldName:='借用日期';
            yjcz.DBGridEh1.Columns.Items[5].DropDownWidth:=yfgldata.grjyyj.Fields.Fields[5].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[5].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[5].alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Add;
            yjcz.DBGridEh1.Columns.Items[6].FieldName:='借用人';
            yjcz.DBGridEh1.Columns.Items[6].DropDownWidth:=yfgldata.grjyyj.Fields.Fields[6].DisplayWidth;
            yjcz.DBGridEh1.Columns.Items[6].Title.alignment:=tacenter;
            yjcz.DBGridEh1.Columns.Items[6].alignment:=tacenter;
            yjcz.DBGridEh1.DataSource:=yfgldata.dgrjyyj2;
          end
        else
          yfgldata.grjyyj.Filtered:=false;
      finally
        f_query.Free;
    end;
  end;
end;

end.

yjczfrm.pas - 源码说明

本页面展示了「本人编写的有关军队营房工作的管理系统」中的 yjczfrm.pas 源码文件，采用 PAS 编程语言编写，共 321 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与编写相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?