yxxx_pas.pas

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

dblookupcombobox1.setfocus;
dm_yxxx_form.Table1.Close;  //yxxx.db
dm_yxxx_form.Table1.open;
with dm_yxxx_form do
begin
q_fpxl.close;    //fpxl.db
q_fpxl.open;
end;
while not dm_yxxx_form.Table1.Eof do
begin
dm_yxxx_form.Table1.delete;  //yxxx.db
end;
dm_yxxx_form.q_yxxx_fl.close;
dm_yxxx_form.q_yxxx_fl.open;
dm_yxxx_form.q_xxwh.close;
dm_yxxx_form. q_xxwh.open;
dm_yxxx_form.T_yxxx_view.Close; //temp.db
dm_yxxx_form.T_yxxx_view.open;
with dm_yxxx_form.q_xxlr do
begin
close;
open;
while not eof   do
  begin
   _c:=fieldbyname('workercode').asstring;
   _n:=fieldbyname('node').asstring;
    if not dm_yxxx_form.q_xxwh.Locate('code;node',vararrayOf([_c,_n]),[loCaseInsensitive]) then
      begin
      Application.MessageBox('巡更員或巡更點在此前沒有完善維護，可能造成資料查詢有誤！','消息',MB_ICONINFORMATION);
      break;
      //exit;
      end;
    next;
   end;
end;
//数据重新更新
_date:=begindate;
//statusbar.Panels[0].Text :='正在查询数据，请等待......';
while _date<=enddate do
 begin
  selectoneday(_date);
  _date:=_date+1;
  end;
dblookupcombobox1.KeyValue:=null;
dblookupcombobox2.KeyValue:=null;
dblookupcombobox3.KeyValue:=null;
dblookupcombobox4.KeyValue:=null;
dblookupcombobox5.KeyValue:=null;
edit1.Text :='';
 with dm_yxxx_form.q_yxxx do
 begin
 close;
 sql.clear;
 sql.add('select * from yxxx');
 //sql.add('select yxxx.linename,yxxx.pencode,yxxx.node,yxxx.workercode,yxxx.workername,yxxx.nodeplace,yxxx.shifts,yxxx.pstatu, ');
 //sql.add('yxxx.pdate,yxxx.ptime,yxxx.firstp,yxxx.lastp,yxxx.lseq,yxxx.chkcycl,yxxx.dgpcxx,yxxx.dgpcsx,yxxx.ntime,yxxx.nodename') ;
 //sql.Add ('from yxxx ');
 sql.add('order by yxxx.pdate,yxxx.workercode,yxxx.linename,yxxx.shifts,yxxx.ptime,yxxx.lseq ') ;
 open;
 end;
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
RadioButton3.Checked:=false;
with dm_yxxx_form do
begin
//q_ldxx_view.close;
//q_wzxx_view.close;
//q_lxxx_view.close;
//q_sjyc.close;
q_line.close;
q_point.close;
q_shifts.close;
q_worker.close;
q_yxxx.close;
//q_ldxx_view.open;
//q_wzxx_view.open;
//q_lxxx_view.open;
//q_sjyc.open;
q_line.open;
q_point.open;
q_shifts.open;
q_worker.open;
q_yxxx.open;

end;

end;

procedure Tyxxx_form.BitBtn2Click(Sender: TObject);
begin
//close;
with dm_yxxx_form do
begin
q_point.close;
q_line.close;
q_worker.Close;
q_point.close;
q_shifts.close;
end;
close;
end;
procedure Tyxxx_form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm_yxxx_form.free;
yxxx_report.free;
//ldxx_report.Free;
//lxxx_report.Free;
//sjyc_report.Free;
//wzxx_report.Free;
dm_yxxx_form:=nil;
yxxx_report:=nil;
//ldxx_report:=nil;
//lxxx_report:=nil;
//sjyc_report:=nil;
//wzxx_report:=nil;
//mainform.n17.Enabled:=true;
//mainform.ToolButton11.Enabled:=true;
action:=cafree;
end;

procedure Tyxxx_form.BitBtn12Click(Sender: TObject);
begin
dblookupcombobox1.KeyValue:=null;
dblookupcombobox2.KeyValue:=null;
dblookupcombobox3.KeyValue:=null;
dblookupcombobox4.KeyValue:=null;
dblookupcombobox5.KeyValue:=null;
edit1.Text :='';
//with dm_yxxx_form.q_yxxx do
//begin
//Close;
//sql.clear;
//sql.add('select * from yxxx ') ;
//sql.add('order by pdate,workercode,linename,shifts,ptime');
//open;
//end;
with dm_yxxx_form do
begin
q_yxxx.close;
//q_ldxx_view.close;
//q_wzxx_view.close;
//q_lxxx_view.close;
//q_sjyc.close;
q_yxxx.open;
//q_ldxx_view.open;
//q_wzxx_view.open;
//q_lxxx_view.open;
//q_sjyc.open;

end;
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
RadioButton3.Checked:=false;
dateedit1.date:=now;
dateedit2.date:=now;
end;

procedure Tyxxx_form.BitBtn11Click(Sender: TObject);
var
//s_linename,s_workercode,s_shifts,s_pencode,s_node,s_name,s_pstatu,s2:string;
_date:tdatetime;
begin
BitBtn12.Enabled:=false;
BitBtn11.Enabled:=false;
BitBtn2.Enabled:=false;
BitBtn3.Enabled:=false;
//statusbar.Panels[0].Text :='正在查询数据，请等待......';
dm_yxxx_form.Table1.Close;
dm_yxxx_form.Table1.open;  //清空有效信息表
while not dm_yxxx_form.Table1.Eof do
begin
dm_yxxx_form.Table1.delete;
end;
//dm_yxxx_form.Table1.TableName:='yxxx.db' ;
//dm_yxxx_form.Table1.Databasename:='gyxgdb';
//dm_yxxx_form.Table1.EmptyTable ;
//dm_yxxx_form.q_yxxx_fl.close;
//dm_yxxx_form.q_yxxx_fl.open;
//while not dm_yxxx_form.q_yxxx_fl.Eof do
//begin
//dm_yxxx_form.q_yxxx_fl.Delete;
//end;
//dm_yxxx_form.q_yxxx_fl.TableName:='yxxx_fl.db'; //清空分类表
//dm_yxxx_form.q_yxxx_fl.Databasename:='GYXGdb';
//dm_yxxx_form.q_yxxx_fl.EmptyTable;
_date:=dateedit1.date;
//statusbar.Panels[0].Text :='正在查询数据，请等待......';
while _date<=dateedit2.date do
 begin
  selectoneday(_date);
  _date:=_date+1;
  end;
 {s_linename:='linename='+''''+dblookupcombobox1.Text+'''' ;
 s_workercode:='workercode='+''''+dblookupcombobox3.Text+'''' ;
 s_shifts:='shifts='+''''+dblookupcombobox5.Text+'''' ;
 s_pencode:='pencode='+''''+edit1.Text+'''' ; ;
 s_node:='node='+''''+dblookupcombobox2.Text+'''' ;
 s_name:='nodename='+''''+dblookupcombobox4.Text+'''' ;
  if (RadioButton1.Checked) then
     s_pstatu:='pstatu='+''''+ RadioButton1.Caption+''''
     else
      if (RadioButton2.Checked) then
       s_pstatu:='pstatu='+''''+ RadioButton2.Caption+''''
       else
        if (RadioButton3.Checked)  then
         s_pstatu:='pstatu='+''''+ RadioButton3.Caption+''''   ;
 //if dblookupcombobox1.KeyValue<>null then
    with dm_yxxx_form.q_yxxx do
    begin
    Close;
    sql.clear;
    sql.add('select * from yxxx ');
    open;
    // filtered:=true;
   // filter:='workercode='+''''+'ffffq'+'''';

    if dblookupcombobox1.KeyValue<>null then
    filter:=s_linename;
     if dblookupcombobox3.KeyValue<>null   then
    filter:=filter+' and '+s_workercode;
   if  dblookupcombobox5.KeyValue<>null   then
   filter:=filter+' and '+s_shifts;
    if  edit1.text<>''       then
    filter:=filter+' and '+s_pencode;
   if dblookupcombobox2.KeyValue<>null then
    filter:=filter+' and '+s_node;
   if dblookupcombobox4.text<>'' then
    filter:=filter+' and '+s_name;
    end; }    //使用过滤
//if PageControl1.ActivePage=tabsheet1 then
//begin
with dm_yxxx_form.q_yxxx do
begin
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)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;
  sql.add('order by pdate,workercode,linename,shifts,ptime,lseq');
  open;
end;
BitBtn12.Enabled:=true;
BitBtn11.Enabled:=true;
BitBtn2.Enabled:=true;
BitBtn3.Enabled:=true;
 with dm_yxxx_form.q_yxxx  do
 begin
  if  recordcount=0  then
  begin
  Application.MessageBox('沒有找到符合條件的有效巡更資訊','消息',MB_ICONINFORMATION);
  exit;
  end;
end;
end;
procedure Tyxxx_form.BitBtn3Click(Sender: TObject);
begin
dm_yxxx_form.q_yxxx.DisableControls;
  if Application.MessageBox('您想預覽嗎?','消息', MB_ICONINFORMATION+MB_OKCANCEL) = IDOK then
  begin
    try
      yxxx_report.QuickRep1.preview;
    finally
    end;
  end
  else
  begin
   yxxx_report.QuickRep1.prepare;
    try
     yxxx_report.QuickRep1.qrprinter.print;
    finally
      yxxx_report.QuickRep1.qrprinter.free;
    end;
  end;
  yxxx_report.QuickRep1.qrprinter:=nil;
  dm_yxxx_form.q_yxxx.enableControls;
end;

procedure Tyxxx_form.PageControl1Change(Sender: TObject);
{var i:integer;
ldbs:boolean; //漏点标示
j,lost_lseq:integer;          //漏点记录
lost_node,lost_nodeplace,lost_name:string;//漏点记录
number,count:array[1..100] of integer;  //漏点信息
l_cf_curs,l_cf_firsttrec,l_cf_endrec,l_cf_lseq:integer;//乱序信息
l_cf_date,l_cf_da,l_cf_time,l_cf_ti,l_cf_endt,l_cf_brkbt,l_cf_brket:tdatetime;
l_cf_ifcon:boolean;
_pencode,_pstatu:string;
bookmark1,bookmark2,bookmark3:tbookmark;//乱序信息
lxbs:boolean;
l_ci_lseq:integer; //时间异常
L_ci_t1,l_ci_d1 ,l_ci_t2,l_ci_d2:tdatetime;
l_ci_time:real;    //时间异常 }
begin
{if pagecontrol1.ActivePage=tabsheet1 then
with dm_yxxx_form.q_yxxx do
begin
Close;
sql.clear;
sql.add('select * from yxxx ') ;
sql.add('order by pdate,workercode,linename,shifts,ptime');
open;
end;
if pagecontrol1.ActivePage<>tabsheet1 then
begin
  if not flag then
  begin//查找漏检、乱序、时间异常、完整记录
  flag:=true;
  dm_yxxx_form.q_yxxx_fl.close;