unit9.pas

进行图纸的资料归档及管理

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin, Mask, RzEdit, RzBtnEdt, Grids,
  DBGridEh, Buttons, Db, PrnDbgeh, RzButton, Menus;

type
  Tsearch = class(TForm)
    Panel1: TPanel;
    Panel3: TPanel;
    RadioGroup1: TRadioGroup;
    RzButtonEdit1: TRzButtonEdit;
    Panel4: TPanel;
    ToolBar1: TToolBar;
    Panel5: TPanel;
    DBGridEh1: TDBGridEh;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    DataSource1: TDataSource;
    RzMenuButton1: TRzMenuButton;
    RzMenuButton2: TRzMenuButton;
    RzButton1: TRzButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    PopupMenu2: TPopupMenu;
    PrintDBGridEh1: TPrintDBGridEh;
    N1231: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    procedure RzButtonEdit1ButtonClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzButton1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N1231Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  search: Tsearch;

implementation
uses Unit10,unit7,data;
{$R *.DFM}

procedure Tsearch.RzButtonEdit1ButtonClick(Sender: TObject);
var tempforms:Twzmcdialog;
begin
case radiogroup1.ItemIndex of
     1:begin
        tempforms:=Twzmcdialog.create(self);
        tempforms.Sourcelist.Items.loadfromfile('wz_name.txt');
        if tempforms.execute then
        RzButtonEdit1.text:=tempforms.text;
       end;
     3:begin
        tempforms:=Twzmcdialog.create(self);
        tempforms.Sourcelist.Items.loadfromfile('cj_name.txt');
        if tempforms.execute then
        RzButtonEdit1.text:=tempforms.text;
       end;
     4:begin
          MessageDlg('图纸单位请直接输入！', mtWarning,[mbYes], 0 );
       end;
     0:begin
         MessageDlg('图号请直接输入(可以只输入部分)！', mtWarning,[mbYes], 0 );
       end;
     2:begin
        tempforms:=Twzmcdialog.create(self);
        tempforms.Sourcelist.Items.loadfromfile('ry_name.txt');
        if tempforms.execute then
        RzButtonEdit1.text:=tempforms.text;
       end;
end;
end;
procedure Tsearch.BitBtn1Click(Sender: TObject);
var s,s1:string;
begin
s:=RzButtonEdit1.text;
if length(s)=0 then
   begin
   MessageDlg('请输入对应内容，不能为空！', mtWarning,[mbYes], 0 );
   abort;
   end;
maindata.tzQuery.close;
maindata.tzQuery.sql.clear;
case radiogroup1.ItemIndex of
0:maindata.tzQuery.sql.add('select a.序号,a.袋号,a.图号,a.图纸名称,a.图纸类型,a.页数,a.所属单位,a.领用时间,a.整机代号,a.备注 as 说明,b.借阅类型,b.借阅人,b.借阅人单位,b.数量,b.份数,b.借阅时间,b.备注,b.更改记录 from 借阅 b,图纸 a where (b.图号 like :p_name) and (a.图号=b.图号)');
1:maindata.tzQuery.sql.add('select a.序号,a.袋号,a.图号,a.图纸名称,a.图纸类型,a.页数,a.所属单位,a.领用时间,a.整机代号,a.备注 as 说明,b.借阅类型,b.借阅人,b.借阅人单位,b.数量,b.份数,b.借阅时间,b.备注,b.更改记录 from 借阅 b,图纸 a where (a.图纸名称=:p_name) and (b.图号=a.图号)');
2:maindata.tzQuery.sql.add('select a.序号,a.袋号,a.图号,a.图纸名称,a.图纸类型,a.页数,a.所属单位,a.领用时间,a.整机代号,a.备注 as 说明,b.借阅类型,b.借阅人,b.借阅人单位,b.数量,b.份数,b.借阅时间,b.备注,b.更改记录 from 借阅 b,图纸 a where (b.借阅人=:p_name) and (a.图号=b.图号)');
3:maindata.tzQuery.sql.add('select a.序号,a.袋号,a.图号,a.图纸名称,a.图纸类型,a.页数,a.所属单位,a.领用时间,a.整机代号,a.备注 as 说明,b.借阅类型,b.借阅人,b.借阅人单位,b.数量,b.份数,b.借阅时间,b.备注,b.更改记录 from 借阅 b,图纸 a where (b.借阅人单位=:p_name) and (a.图号=b.图号)');
4:maindata.tzQuery.sql.add('select a.序号,a.袋号,a.图号,a.图纸名称,a.图纸类型,a.页数,a.所属单位,a.领用时间,a.整机代号,a.备注 as 说明,b.借阅类型,b.借阅人,b.借阅人单位,b.数量,b.份数,b.借阅时间,b.备注,b.更改记录 from 借阅 b,图纸 a where (a.所属单位=:p_name) and (a.图号=b.图号)');
end;
//maindata.tzQuery.sql.add('select b.借阅类型,b.借阅人,b.借阅人单位,b.数量,b.份数,b.借阅时间 from 借阅 b where (b.图号=:p_name)');
if radiogroup1.ItemIndex<>0 then maindata.tzQuery.parameters.parambyname('p_name').value:=s
else
maindata.tzQuery.parameters.parambyname('p_name').value:='%'+s+'%';
maindata.tzQuery.open;
datasource1.dataset:=maindata.tzQuery;
end;

procedure Tsearch.RadioGroup1Click(Sender: TObject);
begin
RzButtonEdit1.text:='';
end;

procedure Tsearch.FormClose(Sender: TObject; var Action: TCloseAction);
begin
maindata.tzQuery.close;
action:=cafree;
end;

procedure Tsearch.RzButton1Click(Sender: TObject);
begin
  PrintDBGridEh1.DBGridEh := DBGridEh1;
//  PrintDBGridEh1.SetSubstitutes(['%[Today]',DateToStr(Now)]);
  PrintDBGridEh1.Preview;
end;

procedure Tsearch.N1Click(Sender: TObject);
var tempform:Tshowmeno;
begin
   tempform:=Tshowmeno.create(self);
   tempform.DBMemo1.datafield:='说明';
   tempform.showmodal;
end;

procedure Tsearch.N3Click(Sender: TObject);
var tempform:Tshowmeno;
begin
   tempform:=Tshowmeno.create(self);
   tempform.DBMemo1.datafield:='备注';
   tempform.showmodal;

end;

procedure Tsearch.N4Click(Sender: TObject);
var tempform:Tshowmeno;
begin
   tempform:=Tshowmeno.create(self);
   tempform.DBMemo1.datafield:='更改记录';
   tempform.showmodal;
end;

procedure Tsearch.N1231Click(Sender: TObject);
var i:integer;
begin
N1231.checked:=not N1231.checked;
i:=N1231.tag;
DBGridEh1.columns[i].visible:=N1231.checked;
end;

procedure Tsearch.N5Click(Sender: TObject);
var i:integer;
begin
N5.checked:=not N5.checked;
i:=N5.tag;
DBGridEh1.columns[i].visible:=N5.checked;
end;

procedure Tsearch.N6Click(Sender: TObject);
var i:integer;
begin
N6.checked:=not N6.checked;
i:=N6.tag;
DBGridEh1.columns[i].visible:=N6.checked;
end;

procedure Tsearch.N7Click(Sender: TObject);
begin
N7.checked:=not N7.checked;
DBGridEh1.columns[n7.tag].visible:=N7.checked;

end;

procedure Tsearch.N8Click(Sender: TObject);
begin
N8.checked:=not N8.checked;
DBGridEh1.columns[n8.tag].visible:=N8.checked;

end;

procedure Tsearch.N9Click(Sender: TObject);
begin
N9.checked:=not N9.checked;
DBGridEh1.columns[n9.tag].visible:=N9.checked;

end;

procedure Tsearch.N10Click(Sender: TObject);
begin
N10.checked:=not N10.checked;
DBGridEh1.columns[n10.tag].visible:=N10.checked;

end;

procedure Tsearch.N11Click(Sender: TObject);
begin
N11.checked:=not N11.checked;
DBGridEh1.columns[n11.tag].visible:=N11.checked;

end;

procedure Tsearch.N12Click(Sender: TObject);
begin
N12.checked:=not N12.checked;
DBGridEh1.columns[n12.tag].visible:=N12.checked;

end;

procedure Tsearch.N13Click(Sender: TObject);
begin
N13.checked:=not N13.checked;
DBGridEh1.columns[n13.tag].visible:=N13.checked;

end;

procedure Tsearch.N14Click(Sender: TObject);
begin
N14.checked:=not N14.checked;
DBGridEh1.columns[n14.tag].visible:=N14.checked;

end;

procedure Tsearch.N15Click(Sender: TObject);
begin
N15.checked:=not N15.checked;
DBGridEh1.columns[n15.tag].visible:=N15.checked;

end;

procedure Tsearch.N16Click(Sender: TObject);
begin
N16.checked:=not N16.checked;
DBGridEh1.columns[n16.tag].visible:=N16.checked;

end;

procedure Tsearch.N17Click(Sender: TObject);
begin
N17.checked:=not N17.checked;
DBGridEh1.columns[n17.tag].visible:=N17.checked;

end;

procedure Tsearch.N18Click(Sender: TObject);
begin
N18.checked:=not N18.checked;
DBGridEh1.columns[n18.tag].visible:=N18.checked;

end;

end.