📄 point_pas.pas

📁 delphi6.0电子寻更源程序,用来计算保安有无查抄
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
      fieldbyname('lseq').asinteger:=strtoint(edit6.text);
      post;
    except
      begin
      Application.MessageBox('数据录入有误，请重新输入','消息',MB_ICONINFORMATION);
      exit;
      end;
    end; // end try
  end;
  bitbtn1.Enabled:=true;
  bitbtn2.Enabled:=true;
 end; }
end;

procedure Tpoint.BitBtn2Click(Sender: TObject);
begin
  if Application.MessageBox('确实要删除吗?','消息', MB_ICONINFORMATION+MB_OKCANCEL) = IDOK then
  begin
  if dm_point.q_point_ls.eof then
    begin
     Application.MessageBox('已经没有可以删除的项目！','消息',MB_ICONINFORMATION);
     exit;
    end
    else
    begin
    dm_point.q_point_ls.Locate('id',(dm_point.q_point.fieldbyname('id').asinteger),[loCaseInsensitive]);
     dm_point.q_point_ls.Delete ;
    dm_point.q_point.Close;
    dm_point.q_point.open;
    end;
  end;
end;

procedure Tpoint.BitBtn6Click(Sender: TObject);
begin
with dm_point.q_point do
begin
//close;
//Open;
add_point:=tadd_point.Create(self);
add_point.edit1.Text:=fieldbyname('linename').asstring;
add_point.edit2.text:=fieldbyname('node').asstring;
add_point.edit3.text:=fieldbyname('name').asstring;
add_point.edit4.text:=fieldbyname('nodeplace').asstring;
add_point.edit5.text:=inttostr(fieldbyname('ntime').asinteger);
add_point.edit6.Text:=inttostr(fieldbyname('lseq').asinteger);
add_point.Caption:='修改巡更点信息';
add_point.ShowModal ;
add_point.free;
end;
//bitbtn1.Enabled:=true;
//bitbtn5.Enabled:=false;
//bitbtn2.Enabled:=true;
//edit1.text:='';
//edit2.text:='';
//edit3.text:='';
//edit4.text:='';
//edit5.text:='';
//edit6.text:='';

end;

procedure Tpoint.DBGrid1CellClick(Column: TColumn);
begin
with dm_point.q_point do
begin
{edit1.Text:=fieldbyname('linename').asstring;
edit2.text:=fieldbyname('node').asstring;
edit3.text:=fieldbyname('name').asstring;
edit4.text:=fieldbyname('nodeplace').asstring;
edit5.text:=inttostr(fieldbyname('ntime').asinteger);
edit6.Text:=inttostr(fieldbyname('lseq').asinteger);
//edit12.Text:=edit2.Text;
}end;
end;

procedure Tpoint.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=vk_up) or (key=vk_down) then
begin
{with dm_point.q_point do
begin
edit1.Text:=fieldbyname('linename').asstring;
edit2.text:=fieldbyname('node').asstring;
edit3.text:=fieldbyname('name').asstring;
edit4.text:=fieldbyname('nodeplace').asstring;
edit5.text:=inttostr(fieldbyname('ntime').asinteger);
edit6.Text:=inttostr(fieldbyname('lseq').asinteger);
//edit12.Text:=edit2.Text ;
end; }
end;
end;

procedure Tpoint.Edit8Change(Sender: TObject);
begin
//with dm_point.q_Point_view do
//begin
//end;
end;
procedure Tpoint.Edit9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
bitbtn4.SetFocus ;

end;

procedure Tpoint.Edit10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
bitbtn4.SetFocus ;

end;

procedure Tpoint.Edit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
bitbtn4.SetFocus ;

end;

procedure Tpoint.Edit11KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
bitbtn4.SetFocus ;

end;

procedure Tpoint.BitBtn4Click(Sender: TObject);
var
_lseq:integer;
begin
with dm_point.q_Point_view do
begin
 close;
 sql.Clear ;
 sql.Add('select * from point');
 sql.Add('where lseq>=0');
 if dblookupcombobox2.KeyValue <>null then
  begin
  sql.add('and(linename like :linename)');
  parambyname('linename').asstring:='%'+varastype(dblookupcombobox2.keyvalue,varstring)+'%';
  end;
 {if edit7.Text<>'' then
  begin
  sql.Add('and(linename=:line)');
  parambyname('line').asstring:=uppercase(edit7.Text) ;
  end;}
 if  edit9.Text<>'' then
  begin
  sql.Add('and(node like :node)');
  parambyname('node').asstring:='%'+uppercase(edit9.Text)+'%' ;
  end;
 if edit10.Text<>'' then
  begin
  try
    _lseq:=strtoint(edit10.text);
  except
     on E: EConvertError do
     begin
       Application.MessageBox('次序号只能输入数字!','消息',MB_ICONINFORMATION);
       edit10.text:='';
       edit10.SetFocus;
       exit;
     end;
  end;
  sql.Add('and(lseq=:lseq)');
  parambyname('lseq').asinteger:=_lseq;
  end;
 if edit8.Text<>'' then
  begin
  sql.Add('and(nodeplace like :nodeplace)');
  parambyname('nodeplace').asstring:='%'+uppercase(edit8.Text)+'%' ;
  end;
 if edit11.Text<>'' then
  begin
  sql.Add('and(name like :name)');
  parambyname('name').asstring:='%'+uppercase(edit11.Text)+'%' ;
  end;
  sql.Add('order by linename');
 // showmessage( sql.Text ) ;
  open;
  end;

end;
procedure Tpoint.BitBtn7Click(Sender: TObject);
begin
dblookupcombobox2.KeyValue:=null;
edit8.text:='';
edit9.text:='';
edit10.text:='';
edit11.text:='';
with dm_point.q_point_view do
 begin
 close;
 sql.Clear ;
 sql.add('select * from point');
 sql.add('order by linename,node')  ;
 open;
 end;
end;

procedure Tpoint.Edit6Exit(Sender: TObject);
var
_lseq:integer;
begin
{IF trim(EDIT5.Text)='' THEN
edit5.Text:='0';
if trim(edit6.text)<>'' then
 begin
  try
    _lseq:=strtoint(edit6.text);
    if _lseq<=0 then
     begin
       Application.MessageBox('次序号只能输入大于零的整数!','消息',MB_ICONINFORMATION);
       edit6.text:='';
       edit6.SetFocus;
       exit;
     end;
  except
     on E: EConvertError do
     begin
       Application.MessageBox('次序号只能输入整数!','消息',MB_ICONINFORMATION);
       edit6.text:='';
       edit6.SetFocus;
       exit;
     end;
  end;
 end;   }
end;

procedure Tpoint.BitBtn10Click(Sender: TObject);
begin
with dm_point do
begin
q_point.close;
q_point_view.close;
end;
close;
end;

procedure Tpoint.Edit5Exit(Sender: TObject);
var _ntime:integer;
begin
{if trim(edit5.text)<>'' then
 begin
  try
    _ntime:=strtoint(edit5.text);
    if _ntime<0 then
     begin
       Application.MessageBox('向前间隔只能输入大于或等于零的整数!','消息',MB_ICONINFORMATION);
       edit5.text:='';
       edit5.SetFocus;
       exit;
     end;
  except
     on E: EConvertError do
     begin
       Application.MessageBox('向前间隔只能输入大于或等于零的整数!','消息',MB_ICONINFORMATION);
       edit5.text:='';
       edit5.SetFocus;
       exit;
     end;
  end;
 end; }

end;

procedure Tpoint.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePage=tabsheet1 then
edit1.SetFocus ;
if pageControl1.ActivePage=tabsheet2 then
dblookupcombobox2.SetFocus ;
end;

procedure Tpoint.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm_point.Free;
dm_point:=nil;
point_print.free;
point_print:=nil;
action:=cafree;
point :=nil ;
end;

procedure Tpoint.Edit2Exit(Sender: TObject);
var ch:string;
s1,s2,s3,s4:string;
//s:string;
begin
{if edit2.text<>'' then
begin
ch:=uppercase(trim(edit2.Text)) ;
//s1:=((uppercase(trim(ch))<'0000') or (uppercase(trim(ch))>'000f'));
//s2:=((uppercase(trim(ch))<'0000') or (uppercase(trim(ch))>'00ff'));
//s3:=((uppercase(trim(ch))<'0000') or (uppercase(trim(ch))>'0fff'));
  try//try
  if (length(trim(ch)))<>4 then
   begin
   Application.MessageBox('请输入4位钮号，范围在0000-FFFF之间！','消息',MB_ICONINFORMATION);
   edit2.SetFocus ;
   edit2.Text :='';
   exit;
   end;
   s1:=uppercase(copy(ch,1,1));
   s2:=uppercase(copy(ch,2,1));
   s3:=uppercase(copy(ch,3,1));
   s4:=uppercase(copy(ch,4,1));
   if (((uppercase(s1)<'0')or(uppercase(s1)>'F'))or((uppercase(s2)<'0')or(uppercase(s2)>'F'))or((uppercase(s3)<'0')or(uppercase(S3)>'F'))or((uppercase(s4)<'0')or(uppercase(s4)>'F'))) then
   begin
   Application.MessageBox('请输入4位合法的钮号，范围在0000-FFFF之间！','消息',MB_ICONINFORMATION);
   edit2.SetFocus ;
   edit2.Text :='';
   exit;
   end;
  except
  begin
   Application.MessageBox('请输入4位合法的钮号，范围在0000-FFFF之间！','消息',MB_ICONINFORMATION);
   edit2.SetFocus ;
   edit2.Text :='';
   exit;
   end;
  end;//try

end;}
end;

procedure Tpoint.Edit12Change(Sender: TObject);
begin
 if Length	(edit12.text)>4 then
    begin
     edit12.text:=copy(edit12.text,1,4);
    end;
    with dm_point.q_point do
    begin
    close;
    open;
    if edit1.Text='' then
    begin
    Locate('node',edit12.text,[loCaseInsensitive,loPartialKey])
    end
    else
    begin
     Locate('linename;node',vararrayOf([edit1.text,edit12.text]),[loCaseInsensitive,loPartialKey]);
    end;
    end;
end;

procedure Tpoint.DBLookupComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
bitbtn4.SetFocus ;
end;

procedure Tpoint.edit1Change(Sender: TObject);
begin
with dm_point.q_point do
    begin
    close;
    open;
    if edit12.Text='' then
    begin
    Locate('linename',edit1.text,[loCaseInsensitive,loPartialKey])
    end
    else
    begin
     Locate('linename;node',vararrayOf([edit1.text,edit12.text]),[loCaseInsensitive,loPartialKey]);
    end;
    end;
end;

procedure Tpoint.BitBtn8Click(Sender: TObject);
begin
dm_point.q_point_view.DisableControls;
point_print.QRLabel11.Caption:=password.ComboBox1.Text ;
point_print.QuickRep1.Preview;
point_print.QuickRep1.qrprinter:=nil;
dm_point.q_point_view.enableControls;
end;

procedure Tpoint.FormCreate(Sender: TObject);
begin
if not assigned(point_print) then
  Application.CreateForm(Tpoint_print, point_print);

end;

procedure Tpoint.Button1Click(Sender: TObject);
begin
Application.MessageBox(Pchar('width='+inttostr(self.width)+'--'+'height='+inttostr(self.height)+'--'+'left='+inttostr(self.left)+'--top='+inttostr(self.top)),'消息',MB_ICONINFORMATION);
end;

procedure Tpoint.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) and (ord(key)<>8) then
   begin
   key:=#0;
   exit;
   end;
end;

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -