yxxx_view_pas.~pas

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

 bitbtn2.Enabled:=true;
 //timer1.Enabled:=false;
 panel4.Visible:=false;
end;
procedure Tyxxx_view.FormShow(Sender: TObject);
var
  i1,i2,i3:integer;
  f1,f2:real;
   _date:tdatetime;
_c,_n:string;
hand:thandle;
begin
if (screen.Height<600) and( screen.Width<800) then
  begin
  scaled:=true;
  height:=383;//round(height*longint(screen.height)*96 / 600/screen.pixelsperinch);
  width :=627;//round( width *longint(screen.width)*96 / 800/screen.pixelsperinch);
  left:=5;//round((screen.Width-Width)/2);
  top:=73;//round((screen.height-self.height)/2);
  ScaleControls(screen.width, 800);
  ScaleControls(96,screen.pixelsperinch);
  f1:=screen.width*96/800/screen.pixelsperinch;
  f2:=screen.width/800;
  with dbgrid1  do
  begin
    i1:=columns.Count;
    i3:=round(12*f1);if i3<7  then i3:=7;
    for i2:=0 TO i1-1 DO
    begin
      columns[i2].title.font.size:=i3;
      columns[i2].width:=round(columns[i2].width*f2);
    end;
  end;
  f1:=screen.width*96/800/screen.pixelsperinch;
  f2:=screen.width/800;
  with dbgrid2  do
  begin
    i1:=columns.Count;
    i3:=round(12*f1);if i3<7  then i3:=7;
    label1.Font.Size:=i3-1;
    label2.Font.Size:=i3-1;
    label3.Font.Size:=i3-1;
    label4.Font.Size:=i3-1;
    label5.Font.Size:=i3-1;
    label6.Font.Size:=i3-1;
    label7.Font.Size:=i3-1;
    label8.Font.Size:=i3-1;
    label9.Font.Size:=i3-1;
    dblookupcombobox1.Font.Size:=i3-1;
    dblookupcombobox3.Font.Size:=i3-1;
    dblookupcombobox2.Font.Size:=i3-1;
    dblookupcombobox4.Font.Size:=i3-1;
    dblookupcombobox5.Font.Size:=i3-1;
    edit1.font.size:=i3-1;
    dateedit1.Font.Size:=i3-1;
    dateedit2.Font.Size:=i3-1;
    RadioButton1.Font.Size:=i3-1;
    RadioButton3.Font.Size:=i3-1;
    RadioButton2.Font.Size:=i3-1;
    //BitBtn1.Font.Size:=i3-1;
    BitBtn3.Font.Size:=i3-1;
    BitBtn2.Font.Size:=i3-1;
    BitBtn11.Font.Size:=i3-1;
    BitBtn12.Font.Size:=i3-1;
   // panel1.Font.Size:=20;
    groupbox1.Font.Size:=i3-1;
    groupbox2.Font.Size:=i3-1;
    groupbox3.Font.Size:=i3-1;
    PageControl1.Font.Size:=i3-1;
    for i2:=0 TO i1-1 DO
    begin
      columns[i2].title.font.size:=i3-1;
      columns[i2].width:=round(columns[i2].width*f2);
    end;
  end;
  f1:=screen.width*96/800/screen.pixelsperinch;
  f2:=screen.width/800;
  with dbgrid3  do
  begin
    i1:=columns.Count;
    i3:=round(12*f1);if i3<7  then i3:=7;
    for i2:=0 TO i1-1 DO
    begin
      columns[i2].title.font.size:=i3;
      columns[i2].width:=round(columns[i2].width*f2);
    end;
  end;
  f1:=screen.width*96/800/screen.pixelsperinch;
  f2:=screen.width/800;
  with dbgrid4  do
  begin
    i1:=columns.Count;
    i3:=round(12*f1);if i3<7  then i3:=7;
    for i2:=0 TO i1-1 DO
    begin
      columns[i2].title.font.size:=i3;
      columns[i2].width:=round(columns[i2].width*f2);
    end;
  end;
  f1:=screen.width*96/800/screen.pixelsperinch;
  f2:=screen.width/800;
  with dbgrid5  do
  begin
    i1:=columns.Count;
    i3:=round(12*f1);if i3<7  then i3:=7;
    for i2:=0 TO i1-1 DO
    begin
      columns[i2].title.font.size:=i3;
      columns[i2].width:=round(columns[i2].width*f2);
    end;
  end;
  end
  else
  begin
  self.Height:=450;
  self.Width:=772;
  end;
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
RadioButton3.Checked:=false;
PageControl1.ActivePage:=tabsheet1;
dblookupcombobox1.setfocus;
dblookupcombobox1.KeyValue:=null;
dblookupcombobox2.KeyValue:=null;
dblookupcombobox3.KeyValue:=null;
dblookupcombobox4.KeyValue:=null;
dblookupcombobox5.KeyValue:=null;
edit1.Text :='';
begindate:=strtodate(mainform.Label2.caption);
enddate:=strtodate(mainform.label3.caption);
dateedit1.Date:=begindate;
dateedit2.Date:=enddate;
//信息初始化;
hand:=self.Handle;
 with thread_yxxx.create(false,begindate,enddate) do
 BEGIN
   OnTerminate := ThreadDone;
 END;
// StatusBar1.Panels[0].Text:='数据正在查询，请等待！！！';
 BitBtn12.Enabled:=false;
 BitBtn11.Enabled:=false;
 BitBtn3.Enabled:=false;
 bitbtn2.Enabled:=false;
 panel4.Visible:=true;
 //progressbar2.Position:=0;
 //timer1.Enabled:=true;
{dm_yxxx_view.Table1.Close;
dm_yxxx_view.Table1.open;
with dm_yxxx_view do
begin
q_fpxl.close;
q_fpxl.open;
end;
while not dm_yxxx_view.Table1.Eof do
begin
dm_yxxx_view.Table1.delete;
end;
dm_yxxx_view.q_yxxx_fl.close;
dm_yxxx_view.q_yxxx_fl.open;
while not dm_yxxx_view.q_yxxx_fl.Eof do
begin
dm_yxxx_view.q_yxxx_fl.delete ;
end ;
dm_yxxx_view.q_xxwh.close;
dm_yxxx_view. q_xxwh.open;
dm_yxxx_view.T_yxxx_view.Close;
dm_yxxx_view.T_yxxx_view.open;
with dm_yxxx_view.q_xxlr do
begin
close;
open;
  while not eof   do
   begin
   _c:=fieldbyname('workercode').asstring;
   _n:=fieldbyname('node').asstring;
    if not dm_yxxx_view.q_xxwh.Locate('code;node',vararrayOf([_c,_n]),[loCaseInsensitive]) then
      begin
      Application.MessageBox('巡更員或巡更點在此前沒有完善維護，可能造成資料查詢有誤！','消息',MB_ICONINFORMATION);
      break;
      //exit;
      end;
    next;
   end;
end;
//statusbar.Panels[0].Text :='正在查询数据，请等待......';
while _date<=enddate do
 begin
  selectoneday(_date);
  _date:=_date+1;
  end;
 with dm_yxxx_view.q_yxxx do
 begin
 close;
 sql.clear;
 sql.add('select * from yxxx');
 sql.add('order by yxxx.pdate,yxxx.workercode,yxxx.linename,yxxx.shifts,yxxx.ptime,yxxx.lseq ') ;
 open;
 end;
with dm_yxxx_view 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_view.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm_yxxx_view.free;
yxxx_report.free;
ldxx_report.Free;
lxxx_report.Free;
sjyc_report.Free;
wzxx_report.Free;
dm_yxxx_view:=nil;
yxxx_report:=nil;
ldxx_report:=nil;
lxxx_report:=nil;
sjyc_report:=nil;
wzxx_report:=nil;
action:=cafree;
yxxx_view :=nil ;
end;

procedure Tyxxx_view.BitBtn12Click(Sender: TObject);
begin
dblookupcombobox1.KeyValue:=null;
dblookupcombobox2.KeyValue:=null;
dblookupcombobox3.KeyValue:=null;
dblookupcombobox4.KeyValue:=null;
dblookupcombobox5.KeyValue:=null;
edit1.Text :='';
//with dm_yxxx_view.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_view.q_yxxx  do
begin
close;
sql.Clear ;
sql.add('select * from yxxx');
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'')');
open;
end;
with dm_yxxx_view.q_wzxx_view do
begin
close;
sql.Clear;
sql.add('select * from yxxx_fl');
sql.add('where (yxxx_fl.xxbs=''2'')');
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'')');
open;
end;
with dm_yxxx_view.q_sjyc do
begin
close;
sql.clear;
sql.add('select yxxx_fl.pdate,yxxx_fl.ptime,yxxx_fl.code,yxxx_fl.pencode,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'')');
open;
end;
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
RadioButton3.Checked:=false;
dateedit1.date:=begindate;
dateedit2.date:=enddate;
{ with thread_yxxx.create(self.handle,begindate,enddate) do
  BEGIN
        OnTerminate := ThreadDone;
    END;   }
     end;
procedure Tyxxx_view.BitBtn11Click(Sender: TObject);
var
_date:tdatetime;
begin
BitBtn12.Enabled:=false;
BitBtn11.Enabled:=false;
BitBtn2.Enabled:=false;
BitBtn3.Enabled:=false;
//statusbar1.Panels[0].Text:='';
if (dateedit1.date<>0) and (dateedit2.date<>0) then
   begin
    if dateedit1.date>dateedit2.date then
      begin
      Application.MessageBox('起始日期大於終止日期,不能進行查詢','消息',MB_ICONINFORMATION);
      exit;
      end;
      end;
with dm_yxxx_view.q_yxxx do
begin