worker_pas2.~pas

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

end;

procedure Tworker.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
{if (key=vk_up) or (key=vk_down) then
begin
with dm_worker.q_worker do
begin
//open;
edit1.Text:=fieldbyname('number').asstring;
edit2.Text:=fieldbyname('code').asstring;
edit3.Text:=fieldbyname('name').asstring;
dateedit1.Text:=datetostr(fieldbyname('birthday').asdatetime);
combobox1.Text:=fieldbyname('sex').asstring;
edit4.Text:=fieldbyname('address').asstring;
edit5.Text:=fieldbyname('phone').asstring;
edit6.Text:=fieldbyname('pager').asstring;
end;
end;}
end;

procedure Tworker.BitBtn3Click(Sender: TObject);
begin
dm_worker.q_worker_view.close;
dm_worker.q_worker.close;
close;
end;

procedure Tworker.BitBtn5Click(Sender: TObject);
var
bookmark1:tbookmark ;
recno1,recno2:integer;
begin
{dm_worker.Q_FIND.Close;
dm_worker.q_find.open;
with dm_worker.q_worker  do
begin
//close;
open;
//last;
bookmark1:=getbookmark;
recno1:=RecNo;
//label1.Caption:=inttostr(recno1);
  if recno1<0 then
   begin  //增加信息
//edit;
    try
      if edit2.Text='' then
      begin
      showmessage('请输入巡检员钮号！');
      edit2.Text:='';
      edit2.SetFocus ;
      exit;
      end;
      if edit3.Text='' then
      begin
      showmessage('请巡检员姓名！') ;
     //gotobookmark(bookmark1);
     //freebookmark(bookmark1);
      edit3.SetFocus ;
      exit;
      end;
      dm_worker.q_find.First;
      if dm_worker.q_find.Locate('code',edit2.text,[loCaseInsensitive]) then
      begin
      showmessage('该人员钮号已经存在，请重新选择！');
      edit2.SetFocus ;
      edit2.Text:='';
      exit;
      end;
      if edit1.Text<>'' then
      begin
      dm_worker.q_find.First;
     if dm_worker.Q_FIND.Locate('number',edit1.text,[loCaseInsensitive]) then
      begin
      showmessage('人员编号不能重复，请重新输入！');
      edit1.SetFocus ;
      edit1.Text:='';
      exit;
      end;
      end;
      //open;
      append;
      //gotobookmark(bookmark1);
      //freebookmark(bookmark1);
      edit;
      fieldbyname('number').asstring:=uppercase(edit1.Text) ;
      fieldbyname('code').asstring:=uppercase(edit2.Text);
      fieldbyname('name').asstring:=uppercase(edit3.Text);
      fieldbyname('address').asstring:=uppercase(edit4.Text);
      fieldbyname('phone').asstring:=uppercase(edit5.text);
      fieldbyname('pager').asstring:=uppercase(edit6.text);
      fieldbyname('sex').asstring:=uppercase(combobox1.text);
      fieldbyname('birthday').asdatetime:=dateedit1.Date;
      post;
    except
      begin
      showmessage('信息录入有误，请重新输入');
      exit;
      end;
    end;
  end  //增加
else //修改
  begin
    try
      if edit2.Text='' then
      begin
      showmessage('请输入巡检员钮号！');
      edit2.SetFocus ;
      edit2.Text:='';
      exit;
      end;
      if edit3.Text='' then
      begin
      showmessage('请巡检员姓名！') ;
      edit3.SetFocus ;
     //gotobookmark(bookmark1);
     //freebookmark(bookmark1);
      exit;
      end;
      if Locate('code',edit2.text,[loCaseInsensitive]) then
      begin
         recno2:=RecNo;
         if recno1<>recno2 then
         begin
         showmessage('该人员钮号已经存在，请重新选择！');
         edit2.setfocus;
         gotobookmark(bookmark1);
         exit;
         end;
      end;
       if edit1.Text<>'' then
      begin
     if Locate('number',edit1.text,[loCaseInsensitive]) then
      begin
      recno2:=RecNo;
      if recno1<>recno2 then
      begin
      showmessage('人员编号不能重复，请重新输入！');
      edit1.SetFocus ;
      edit1.Text:='';
      gotobookmark(bookmark1);
      exit;
      end;
      end;
      end;
      //open;
      edit;
      fieldbyname('number').asstring:=uppercase(edit1.Text) ;
      fieldbyname('code').asstring:=uppercase(edit2.Text);
      fieldbyname('name').asstring:=uppercase(edit3.Text);
      fieldbyname('address').asstring:=uppercase(edit4.Text);
      fieldbyname('phone').asstring:=uppercase(edit5.text);
      fieldbyname('pager').asstring:=uppercase(edit6.text);
      fieldbyname('birthday').asdatetime:=dateedit1.Date;
      fieldbyname('sex').asstring:=uppercase(combobox1.Text);
      post;
    except
      begin
      showmessage('数据录入有误，请重新输入');
      exit;
      end;
    end; // end try
  end;
  bitbtn1.Enabled:=true;
  bitbtn2.Enabled:=true;
 end;}
end;

procedure Tworker.BitBtn7Click(Sender: TObject);
begin
edit7.text:='';
edit8.text:='';
edit9.text:='';
edit10.text:='';
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
//edit11.text:='';
//edit12.Text:='';
dateedit2.Text:='    -  -  ';
//combobox2.Text:='';
with dm_worker.q_worker_view do
begin
close;
sql.Clear;
sql.add('select * from worker');
sql.add('order by NUMBER');
open;
end;
edit7.SetFocus ;
end;

procedure Tworker.BitBtn4Click(Sender: TObject);
begin
 with dm_worker.q_worker_view do
  begin
  close;
  sql.clear;
  sql.add('select * from worker');
  sql.add('where (code<>'''')') ;
  if edit7.Text<>'' then            //number
    begin
    sql.Add('and(number like :number)');
    parambyname('number').asstring:='%'+uppercase(edit7.Text)+'%';
    end;
  if edit8.Text<>'' then
    begin
    sql.Add('and(code like :code)');
    parambyname('code').asstring:='%'+uppercase(edit8.Text)+'%';
    end;
  if edit9.Text<>'' then
    begin
    sql.Add('and(name like :name)');
    parambyname('name').asstring:='%'+uppercase(edit9.Text)+'%';
    end;
  if dateedit2.Text<>'    -  -  ' then
    begin
    sql.Add('and(birthday=:birthday)');
    parambyname('birthday').asdatetime:=dateedit2.date;
    end;
  if edit10.Text<>'' then
    begin
    sql.Add('and(address like :address)');
    parambyname('address').asstring:='%'+uppercase(edit10.Text)+'%';
    end;
  if RadioButton1.Checked then
   begin
   sql.add('and(sex=:sex)') ;
   parambyname('sex').asstring:=RadioButton1.Caption ;
   end;
   if RadioButton2.Checked then
   begin
   sql.add('and(sex=:sex)') ;
   parambyname('sex').asstring:=RadioButton2.Caption ;
   end;
   sql.add('order by number' );
   open;
  end;
end;

procedure Tworker.FormCreate(Sender: TObject);
begin
if not assigned(DM_worker) then
  Application.CreateForm(TDM_worker, dm_worker);
  if not assigned(worker_print) then
  Application.CreateForm(Tworker_print, worker_print);
  end;

procedure Tworker.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm_worker.Free;
dm_worker:=nil;
worker_print.Free;
worker_print:=nil;
//action:=cafree;
mainform.N_EDITWORKER.Enabled:=true;
mainform.ToolButton30.Enabled :=true;
end;

procedure Tworker.Edit13Change(Sender: TObject);
begin
if Length	(edit13.text)>2 then
    begin
    	edit13.text:=copy(edit13.text,1,2);
    end;
    with dm_worker.q_worker do
    begin
    close;
    open;
     Locate('code',edit13.text,[loCaseInsensitive,loPartialKey])

    end;

end;

procedure Tworker.BitBtn9Click(Sender: TObject);
begin
add_worker:=tadd_worker.Create(self);
add_worker.Caption:='修改巡检员信息';
with dm_worker.q_worker do
begin
//open;
add_worker.edit1.Text:=fieldbyname('number').asstring;
add_worker.edit2.Text:=fieldbyname('code').asstring;
add_worker.edit3.Text:=fieldbyname('name').asstring;
add_worker.dateedit1.Text:=datetostr(fieldbyname('birthday').asdatetime);
add_worker.combobox1.Text:=fieldbyname('sex').asstring;
add_worker.edit4.Text:=fieldbyname('address').asstring;
add_worker.edit5.Text:=fieldbyname('phone').asstring;
add_worker.edit6.Text:=fieldbyname('pager').asstring;
end;
add_worker.ShowModal ;
add_worker.Free;
end;

procedure Tworker.BitBtn8Click(Sender: TObject);
begin
dm_worker.q_worker_view.DisableControls;
worker_print.QRLabel11.Caption:=password.ComboBox1.Text  ;
worker_print.QuickRep1.Preview;
worker_print.QuickRep1.qrprinter:=nil;
dm_worker.q_worker_view.enableControls;
end;

procedure Tworker.Button1Click(Sender: TObject);
begin
showmessage('width='+inttostr(self.width)+'--'+'height='+inttostr(self.height)+'--'+'left='+inttostr(self.left)+'--top='+inttostr(self.top));

end;

procedure Tworker.BitBtn10Click(Sender: TObject);
begin
close;
end;

end.