information.~pas

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

  begin
    T_PDATE.dataset:=datamodule1.T_PATROLREC;
    T_LINENAME.dataset:=datamodule1.T_PATROLREC;
  	T_PTIME.dataset:=datamodule1.T_PATROLREC;
    T_WORKERNAME.dataset:=datamodule1.T_PATROLREC;
    T_NODENAME.dataset:=datamodule1.T_PATROLREC;
    T_NODEPLACE.dataset:=datamodule1.T_PATROLREC;
    T_LSEQ.dataset:=datamodule1.T_PATROLREC;
    T_PDATE.datafield:='pdate';
    T_PTIME.datafield:='ptime';
    T_LINENAME.datafield:='LINENAME';
		T_WORKERNAME.datafield:='workERname';
    T_NODENAME.datafield:='nodeNAME';
    T_NODEPLACE.datafield:='nodePLACe';
    T_LSEQ.datafield:='LSEQ';
  end;
  lsreportform.quickrep1.Preview;
  lsreportform.quickrep1.free; }

end;

procedure TinformationForm.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TinformationForm.FormShow(Sender: TObject);
var
//sql1,sql2:string;
   i1,i2,i3:integer;
  f1,f2:real;
begin
if (screen.Height<600) and( screen.Width<800) then
  begin
  scaled:=true;
  self.height:=round(height*longint(screen.height)*96 / 600/screen.pixelsperinch);
  self.width :=round( width *longint(screen.width)*96 / 800/screen.pixelsperinch);
  self.left:=round((screen.Width-Width)/2);
  self.top:=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;
    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;
    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;
    BitBtn2.Font.Size:=i3-1;
    btn_print.Font.Size:=i3-1;
    BitBtn11.Font.Size:=i3-1;
    BitBtn12.Font.Size:=i3-1;
    groupbox1.Font.Size:=i3-1;
    groupbox2.Font.Size:=i3-1;
    groupbox3.Font.Size:=i3-1;
    panel1.Font.Size:=20;
    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.Width :=780;
  self.Height:= 450;
 end;
sql1:='dataseq>='+(receform.Label1.Caption);
sql2:='dataseq<='+(receform.Label2.Caption);
with DataModule1 do
begin
q_node.close;
q_worker.close;
q_line.close;
q_name.close;
q_place.Close;
q_node.Open;
q_worker.open;
q_line.open;
q_name.Open;
q_place.Open;
q_view.Close;
q_view.sql.clear;
q_view.sql.add('select * from patrolrec');
q_view.SQL.Add('where'+'('+sql1+')');
q_view.SQL.Add('and'+'('+sql2+')');
//showmessage(q_view.sql.text);
q_view.open;
q_view.Filter:='';
q_view.Filtered:=false;
end;
dateedit1.Date :=now;
dateedit2.Date:=now;
edit1.Text :='';
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
RadioButton3.Checked:=false;
end;

procedure TinformationForm.BitBtn11Click(Sender: TObject);
var ch:string;
s1,s2:string;
begin
if (dateedit2.Text<>'    -  -  ') and(dateedit1.Text<>'    -  -  ')  then
 begin
   if dateedit2.Date<dateedit1.Date then
   begin
   Application.MessageBox('起始日不能大於截至日期,請重新輸入','消息',MB_ICONINFORMATION);
   exit;
   end;
 end;
{if edit1.Text<>'' then
begin
ch:=uppercase(trim(edit1.Text));
  try
   if (length(trim(ch)))<>2 then
   begin
   Application.MessageBox('請輸入2位筆號，範圍在00-FF之間！','消息',MB_ICONINFORMATION);
   edit1.SetFocus ;
   edit1.Text :='';
   exit;
   end;
   s1:=uppercase(copy(ch,1,1));
   s2:=uppercase(copy(ch,2,1));
   if (((uppercase(s1)<'0')or(uppercase(s1)>'F'))or((uppercase(s2)<'0')or(uppercase(s2)>'F'))) then
   begin
   Application.MessageBox('請輸入2位合法的筆號，範圍在00-FF之間！','消息',MB_ICONINFORMATION);
   edit1.SetFocus ;
   edit1.Text :='';
   exit;
   end;
  except
  begin
   Application.MessageBox('請輸入2位合法的筆號，範圍在00-FF之間！','消息',MB_ICONINFORMATION);
   edit1.SetFocus ;
   edit1.Text :='';
   exit;
   end;
   end;
 end;}
 with DataModule1.q_view do
 begin  //查询
 close;
 sql.Clear ;
 sql.add('select * from patrolrec');
 SQL.Add('where'+'('+sql1+')');
 SQL.Add('and'+'('+sql2+')');
 //sql.add('where pencode<>''''');
 if edit1.Text<>'' then
  begin
 sql.add('and(pencode=:pencode)') ;
 parambyname('pencode').asstring:=uppercase(trim(edit1.Text));
  end;
  if dblookupcombobox1.Text<>'' then //线路
   begin
   sql.add('and (linename=:linename)');
   parambyname('linename').asstring:=varastype(dblookupcombobox1.keyvalue,varstring);
   end;
 if dblookupcombobox3.Text<>'' then  //巡更员
   begin
   sql.add('and(workercode=:workercode)');
   parambyname('workercode').asstring:=varastype(dblookupcombobox3.keyvalue,varstring);
   end;
 if dblookupcombobox2.Text<>'' 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 dblookupcombobox5.Text<>'' then
   begin
   sql.add('and(nodeplace=:nodeplace)');
   parambyname('nodeplace').asstring:=dblookupcombobox5.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;
  sql.add('order by pdate,workercode,linename,ptime,lseq') ;
 // showmessage(sql.text);
  filtered:=false;
  if  dateedit1.text<>'    -  -  ' then
    s1:='pdate>='+''''+datetostr(dateedit1.date)+'''';
  if dateedit2.text<>'    -  -  ' then
    s2:='pdate<='+''''+datetostr(dateedit2.date)+'''';
 if (dateedit1.text<>'    -  -  ') and (dateedit2.text<>'    -  -  ')  then
  begin
    filter:='';
    filtered:=true;
    filter:=s1+' and '+s2;
    //filtered:=true;
  end
  else
   if  dateedit1.text<>'    -  -  ' then
      begin
      filter:='';
      filtered:=true;
      filter:=s1;
      //filtered:=true;
      end
      else
        if dateedit2.text<>'    -  -  ' then
         begin
         filter:='';
         filtered:=true;
         filter:=s2;
         //filtered:=true;
         end;
open;
//showmessage(inttostr(recordcount));
 end;//查询
end;

procedure TinformationForm.BitBtn12Click(Sender: TObject);
begin
dblookupcombobox1.KeyValue:=null;
dblookupcombobox2.KeyValue:=null;
dblookupcombobox3.KeyValue:=null;
dblookupcombobox4.KeyValue:=null;
dblookupcombobox5.KeyValue:=null;
edit1.Text :='';
dateedit1.text:='    -  -  ';
dateedit2.text:='    -  -  ';
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
RadioButton3.Checked:=false;
with DataModule1.q_view do
begin
close;
sql.clear;
sql.Add('select * from patrolrec ');
SQL.Add('where'+'('+sql1+')');
SQL.Add('and'+'('+sql2+')');
//showmessage(sql.text);
sql.add('order by pdate,workercode,linename,ptime,lseq') ;
open;
filtered:=false;
//showmessage(inttostr(recordcount));
end;
end;

procedure TinformationForm.DateEdit2Exit(Sender: TObject);
var ss:tdate;
begin
if dateedit2.Text<>'    -  -  '  then
begin
try
ss:=strtodate(dateedit2.text) ;
except
Application.MessageBox('輸入的日期有誤！','消息',MB_ICONINFORMATION);
dateedit2.Text:='    -  -  ';
dateedit2.SetFocus ;
exit;
end;
end;
 if dateedit2.Text='    -  -  '  then
dateedit2.Date :=dateedit1.Date;
if dateedit2.Date<dateedit1.Date  then
begin
Application.MessageBox('終止日期不能小於起始日期！','消息',MB_ICONINFORMATION);
dateedit2.SetFocus ;
dateedit2.Text:='    -  -  ';
end;

end;

procedure TinformationForm.DateEdit1Exit(Sender: TObject);
var ss:tdate;
begin
if dateedit1.Text<>'    -  -  '  then
begin
try
ss:=strtodate(dateedit1.text) ;
except
Application.MessageBox('輸入的日期有誤！','消息',MB_ICONINFORMATION);
dateedit1.Text:='    -  -  ';
dateedit1.SetFocus ;
end;
end;
end;

end.