yxxx_view_pas.pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

close;
sql.Clear ;
sql.add('select * from yxxx');
sql.add('where (linename<>'''')');
  if dblookupcombobox1.KeyValue<>null then
  begin
  sql.add('and (linename=:linename)');
  parambyname('linename').asstring:=varastype(dblookupcombobox1.keyvalue,varstring);
  end;
  if dblookupcombobox3.KeyValue<>null then
  begin
  sql.add('and (workercode=:code)');
  parambyname('code').asstring:=varastype(dblookupcombobox3.keyvalue,varstring);
  end;
  if dblookupcombobox5.KeyValue<>null then
  begin
  sql.add('and (shifts=:shifts)');
  parambyname('shifts').asstring:=varastype(dblookupcombobox5.keyvalue,varstring);
  end;
  if dblookupcombobox2.KeyValue<>null then
  begin
  sql.add('and (node=:node)');
  parambyname('node').asstring:=varastype(dblookupcombobox2.keyvalue,varstring);
  end;
  if dblookupcombobox4.text<>'' then
  begin
  sql.add('and (nodename=:name)');
  parambyname('name').asstring:=dblookupcombobox4.text;
  end;
  if edit1.Text<>'' then
  begin
  sql.add('and(pencode=:pencode)') ;
  parambyname('pencode').asstring:=uppercase(edit1.text);
  end;
  if (RadioButton1.Checked) or (RadioButton2.Checked) or (RadioButton3.Checked) then//巡更状态
  begin
  sql.add('AND  ((pstatu=:pstatu))');
    if (RadioButton1.Checked) then
     parambyname('pstatu').asstring:=RadioButton1.Caption
     else
      if (RadioButton2.Checked) then
       parambyname('pstatu').asstring:=RadioButton2.Caption
       else
        if (RadioButton3.Checked)  then
         parambyname('pstatu').asstring:=RadioButton3.Caption ;
  end;
  if (dateedit1.date<>0) and (dateedit2.date<>0) then
   begin
    sql.Add('and(pdate>=:_firstdate)');
    sql.add('and(pdate<=:_lastdate)');
    parambyname('_firstdate').asdatetime:=dateedit1.Date ;
    parambyname('_lastdate').asdatetime:=dateedit2.Date;
    end;
  sql.add('order by pdate,pencode,workercode,linename,shifts,ptime,lseq');
  open;
end;
with dm_yxxx_view.q_ldxx_view do
begin
close;
sql.Clear ;
sql.add('select distinct  yxxx_fl.pdate,YXXX_FL.PENCODE,yxxx_fl.code,yxxx_fl.linename,yxxx_fl.shifts,yxxx_fl.node,yxxx_fl.xxbs,');
sql.add('yxxx_fl.case,yxxx_fl.name,yxxx_fl.nodeplace,yxxx_fl.lseq,worker.name as workername');
sql.add('from yxxx_fl,worker  ');
sql.add('where (yxxx_fl.code=worker.code) ');
sql.add('and (yxxx_fl.xxbs=''1'')');
  if dblookupcombobox1.KeyValue<>null then
  begin
  sql.add('and (yxxx_fl.linename=:linename)');
  parambyname('linename').asstring:=varastype(dblookupcombobox1.keyvalue,varstring);
  end;
  if edit1.Text<>'' then
  begin
  sql.add('and(pencode=:pencode)') ;
  parambyname('pencode').asstring:=uppercase(edit1.text);
  end;
  if dblookupcombobox3.KeyValue<>null then
  begin
  sql.add('and (yxxx_fl.code=:code)');
  parambyname('code').asstring:=varastype(dblookupcombobox3.keyvalue,varstring);
  end;
  if dblookupcombobox5.KeyValue<>null then
  begin
  sql.add('and (yxxx_fl.shifts=:shifts)');
  parambyname('shifts').asstring:=varastype(dblookupcombobox5.keyvalue,varstring);
  end;
  if dblookupcombobox2.KeyValue<>null then
  begin
  sql.add('and ((yxxx_fl.node=:node))');    //or (node is null))');
  parambyname('node').asstring:=varastype(dblookupcombobox2.keyvalue,varstring);
  end;
  if dblookupcombobox4.text<>'' then
  begin
  sql.add('and ((yxxx_fl.name=:name))');//or (yxxx_fl.name is null))');
  parambyname('name').asstring:=dblookupcombobox4.text;
  end;
  if (dateedit1.date<>0) and (dateedit2.date<>0) then
   begin
    sql.Add('and(yxxx_fl.pdate>=:_firstdate)');
    sql.add('and(yxxx_fl.pdate<=:_lastdate)');
    parambyname('_firstdate').asdatetime:=dateedit1.Date ;
    parambyname('_lastdate').asdatetime:=dateedit2.Date;
    end;
  sql.add('order by yxxx_fl.pdate,yxxx_fl.code,yxxx_fl.linename,yxxx_fl.shifts');
  open;
end;
with dm_yxxx_view.q_lxxx_view do
begin
close;
sql.Clear ;
sql.add('select yxxx_fl.xxbs,yxxx_fl.pencode,yxxx_fl.pstatu,yxxx_fl.node, yxxx_fl.code, yxxx_fl.pdate, yxxx_fl.linename, yxxx_fl.shifts,yxxx_fl.ptime,');
sql.add('worker.name as workername,point.lseq,point.name,point.nodeplace');
sql.add('from yxxx_fl,worker,point ');
sql.add('where (yxxx_fl.code=worker.code)');
sql.add('and (yxxx_fl.linename=point.linename)');
sql.add('and (yxxx_fl.node=point.node)');
sql.add('and (yxxx_fl.xxbs=''3'')');
  if dblookupcombobox1.KeyValue<>null then
  begin
  sql.add('and (yxxx_fl.linename=:linename)');
  parambyname('linename').asstring:=varastype(dblookupcombobox1.keyvalue,varstring);
  end;
  if edit1.Text<>'' then
  begin
  sql.add('and(pencode=:pencode)') ;
  parambyname('pencode').asstring:=uppercase(edit1.text);
  end;
  if dblookupcombobox3.KeyValue<>null then
  begin
  sql.add('and (yxxx_fl.code=:code)');
  parambyname('code').asstring:=varastype(dblookupcombobox3.keyvalue,varstring);
  end;
  if dblookupcombobox5.KeyValue<>null then
  begin
  sql.add('and (yxxx_fl.shifts=:shifts)');
  parambyname('shifts').asstring:=varastype(dblookupcombobox5.keyvalue,varstring);
  end;
  if dblookupcombobox2.KeyValue<>null then
  begin
  sql.add('and ((yxxx_fl.node=:node))');    //or (node is null))');
  parambyname('node').asstring:=varastype(dblookupcombobox2.keyvalue,varstring);
  end;
  if dblookupcombobox4.text<>'' then
  begin
  sql.add('and ((point.name=:name))');//or (yxxx_fl.name is null))');
  parambyname('name').asstring:=dblookupcombobox4.text;
  end;
  if edit1.Text<>'' then
  begin
  sql.add('and(yxxx_fl.pencode=:pencode)') ;
  parambyname('pencode').asstring:=uppercase(edit1.text);
 end;
 if (RadioButton1.Checked) or (RadioButton2.Checked) or (RadioButton3.Checked) then//巡更状态
  begin
  sql.add('AND  ((yxxx_fl.pstatu=:pstatu)or (pstatu is null))');
  if (RadioButton1.Checked) then
    parambyname('pstatu').asstring:=RadioButton1.Caption
    else
    if (RadioButton2.Checked) then
     parambyname('pstatu').asstring:=RadioButton2.Caption
     else
     if (RadioButton3.Checked)  then
     parambyname('pstatu').asstring:=RadioButton3.Caption ;
   end;
   if (dateedit1.date<>0) and (dateedit2.date<>0) then
   begin
    sql.Add('and(yxxx_fl.pdate>=:_firstdate)');
    sql.add('and(yxxx_fl.pdate<=:_lastdate)');
    parambyname('_firstdate').asdatetime:=dateedit1.Date ;
    parambyname('_lastdate').asdatetime:=dateedit2.Date;
    end;
  sql.add('order by yxxx_fl.pdate,yxxx_fl.pencode,yxxx_fl.code,yxxx_fl.linename,yxxx_fl.shifts,yxxx_fl.ptime,point.lseq');
  open;
end;
with dm_yxxx_view.q_sjyc do
begin
close;
sql.Clear ;
sql.add('select yxxx_fl.pdate,YXXX_FL.PENCODE,yxxx_fl.ptime,yxxx_fl.code,yxxx_fl.linename,yxxx_fl.shifts,yxxx_fl.case,yxxx_fl.xxbs,');
sql.add('yxxx_fl.conifo,worker.name');
sql.add('from yxxx_fl,worker');
sql.add('where yxxx_fl.code=worker.code');
sql.add('and yxxx_fl.xxbs=''4''');
if edit1.Text<>'' then
  begin
  sql.add('and(pencode=:pencode)') ;
  parambyname('pencode').asstring:=uppercase(edit1.text);
  end;
if dblookupcombobox1.KeyValue<>null then
  begin
  sql.add('and (yxxx_fl.linename=:linename)');
  parambyname('linename').asstring:=varastype(dblookupcombobox1.keyvalue,varstring);
  end;
  if dblookupcombobox3.KeyValue<>null then
  begin
  sql.add('and (yxxx_fl.code=:code)');
  parambyname('code').asstring:=varastype(dblookupcombobox3.keyvalue,varstring);
  end;
  if dblookupcombobox5.KeyValue<>null then
  begin
  sql.add('and (yxxx_fl.shifts=:shifts)');
  parambyname('shifts').asstring:=varastype(dblookupcombobox5.keyvalue,varstring);
  end;
  if (dateedit1.date<>0) and (dateedit2.date<>0) then
   begin
    sql.Add('and(yxxx_fl.pdate>=:_firstdate)');
    sql.add('and(yxxx_fl.pdate<=:_lastdate)');
    parambyname('_firstdate').asdatetime:=dateedit1.Date ;
    parambyname('_lastdate').asdatetime:=dateedit2.Date;
    end;
    sql.add('order by yxxx_fl.pdate,yxxx_fl.code,yxxx_fl.linename,yxxx_fl.shifts,yxxx_fl.ptime');
  open;
end;
with dm_yxxx_view.q_wzxx_view do
begin
close;
sql.Clear;
sql.add('select yxxx_fl.name,yxxx_fl.xxbs,YXXX_FL.PENCODE,yxxx_fl.linename,yxxx_fl.shifts,yxxx_fl.code,yxxx_fl.pdate,yxxx_fl.ptime,yxxx_fl.endtime');
sql.add('from yxxx_fl ');
sql.add('where (yxxx_fl.xxbs=''2'')');
if edit1.Text<>'' then
  begin
  sql.add('and(pencode=:pencode)') ;
  parambyname('pencode').asstring:=uppercase(edit1.text);
  end;
if dblookupcombobox1.KeyValue<>null then
  begin
  sql.add('and (yxxx_fl.linename=:linename)');
  parambyname('linename').asstring:=varastype(dblookupcombobox1.keyvalue,varstring);
  end;
  if dblookupcombobox3.KeyValue<>null then
  begin
  sql.add('and (yxxx_fl.code=:code)');
  parambyname('code').asstring:=varastype(dblookupcombobox3.keyvalue,varstring);
  end;
  if dblookupcombobox5.KeyValue<>null then
  begin
  sql.add('and (yxxx_fl.shifts=:shifts)');
  parambyname('shifts').asstring:=varastype(dblookupcombobox5.keyvalue,varstring);
  end;
  if (dateedit1.date<>0) and (dateedit2.date<>0) then
   begin
    sql.Add('and(yxxx_fl.pdate>=:_firstdate)');
    sql.add('and(yxxx_fl.pdate<=:_lastdate)');
    parambyname('_firstdate').asdatetime:=dateedit1.Date ;
    parambyname('_lastdate').asdatetime:=dateedit2.Date;
    end;
     sql.add('order by yxxx_fl.pdate,yxxx_fl.code,yxxx_fl.linename,yxxx_fl.shifts');
  open;
  end;
BitBtn12.Enabled:=true;
BitBtn11.Enabled:=true;
BitBtn2.Enabled:=true;
BitBtn3.Enabled:=true;
if pagecontrol1.ActivePage=tabsheet1 then
begin
 with dm_yxxx_view.q_yxxx  do
 begin
  if  recordcount=0  then
  begin
  Application.MessageBox('沒有找到符合條件的有效巡更資訊','消息',MB_ICONINFORMATION);
  exit;
  end;
 end;
end;
if pagecontrol1.ActivePage=tabsheet2 then
 begin
 with dm_yxxx_view.q_ldxx_view  do
 begin
  if  recordcount=0  then
  begin
  Application.MessageBox('沒有找到符合條件的漏檢資訊','消息',MB_ICONINFORMATION);
  exit;
  end;
 end;
 end;
if pagecontrol1.ActivePage=tabsheet3 then
 begin
 with dm_yxxx_view.q_lxxx_view  do
 begin
  if  recordcount=0  then
  begin
  Application.MessageBox('沒有找到符合條件的亂序資訊','消息',MB_ICONINFORMATION);
  exit;
  end;
 end;
 end;
if pagecontrol1.ActivePage=tabsheet4 then
 begin
 with dm_yxxx_view.q_sjyc  do
 begin
  if  recordcount=0  then
  begin
  Application.MessageBox('沒有找到符合條件的時間異常資訊','消息',MB_ICONINFORMATION);
  exit;
  end;
 end;

end;
if pagecontrol1.ActivePage=tabsheet5 then
 begin
 with dm_yxxx_view.q_wzxx_view  do
 begin
  if  recordcount=0  then
  begin
  Application.MessageBox('沒有找到符合條件的完整巡更資訊','消息',MB_ICONINFORMATION);
  exit;
  end;
 end;

end;
end;
procedure Tyxxx_view.BitBtn3Click(Sender: TObject);
begin
if pagecontrol1.ActivePage=tabsheet1 then
begin//打印有效信息
  DM_yxxx_view.q_yxxx.DisableControls;
  yxxx_report.QRLabel13.caption:=password.combobox1.text;
  yxxx_report.QuickRep1.preview;
  yxxx_report.QuickRep1.qrprinter:=nil;
  DM_yxxx_view.q_yxxx.enableControls;
end;
 if pagecontrol1.ActivePage=tabsheet2 then
begin   //打印漏点信息
  DM_yxxx_view.q_ldxx_view.DisableControls;
  ldxx_report.QRLabel13.caption:=password.ComboBox1.Text ;
  ldxx_report.QuickRep1.preview;
  ldxx_report.QuickRep1.qrprinter:=nil;
  DM_yxxx_view.q_ldxx_view.enableControls;
end;      //打印漏点信息
 if pagecontrol1.ActivePage=tabsheet3 then
 begin   //打印乱序信息
  DM_yxxx_view.q_lxxx_view.DisableControls;
  lxxx_report.QRLabel15.caption:=password.ComboBox1.text;
  lxxx_report.QuickRep1.preview;
  lxxx_report.QuickRep1.qrprinter:=nil;