worker_pas.pas

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

unit worker_pas;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, Mask, ToolEdit, Buttons, Grids, DBGrids,db;

type
  Tworker = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel3: TPanel;
    Edit13: TEdit;
    Label6: TLabel;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn9: TBitBtn;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label4: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    DateEdit2: TDateEdit;
    BitBtn7: TBitBtn;
    BitBtn4: TBitBtn;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Panel5: TPanel;
    BitBtn8: TBitBtn;
    BitBtn10: TBitBtn;
    DBGrid2: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit13Change(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  worker: Tworker;

implementation
uses menu,dm_worker_pas,add_worker_pas,worker_print_pas,password_unit;
{$R *.DFM}

procedure Tworker.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm_worker.Free;
dm_worker:=nil;
worker_print.Free;
worker_print:=nil;
action:=cafree;
worker :=nil ;
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.FormShow(Sender: TObject);
var
  i1,i2,i3:integer;
  f1,f2:real;
begin
if (screen.Height<600) and( screen.Width<800) then
  begin
  scaled:=true;
  self.height:=round(430*longint(screen.height)*96 / 600/screen.pixelsperinch);
  self.width :=round( 730 *longint(screen.width)*96 / 800/screen.pixelsperinch);
  //height:=383;//round(height*longint(screen.height)*96 / 600/screen.pixelsperinch);
  //width :=640;//round( width *longint(screen.width)*96 / 800/screen.pixelsperinch);
  //left:=0;//round((screen.Width-Width)/2);
  //top:=70;//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;
    font.Size:=i3-1;
    Label1.font.size:=i3-1;
    //Label2.font.size:=i3-1;
    label3.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;
    PageControl1.font.size:=i3-1;
    BitBtn1.font.size:=i3-1;
    BitBtn2.font.size:=i3-1;
    BitBtn9.font.size:=i3-1;
    BitBtn3.font.size:=i3-1;
    BitBtn4.font.size:=i3-1;
    BitBtn7.font.size:=i3-1;
    BitBtn10.font.size:=i3-1;
    BitBtn8.font.size:=i3-1;
    //panel1.font.size:=20;
    //DBLookupComboBox2.font.size:=i3-1;
    edit13.font.size:=i3-1;
    edit9.font.size:=i3-1;
    edit7.font.size:=i3-1;
    edit10.font.size:=i3-1;
    edit8.font.size:=i3-1;
    dateedit2.Font.size:=i3-1;
    groupbox2.Font.Size:=i3-1;
    RadioButton1.Font.Size:=i3-1;
    RadioButton2.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;
  with dbgrid2  do
  begin
    i1:=columns.Count;
    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;

  end
  else
  begin
  self.Height:=430;
  self.Width:=730;
  end;
  with dm_worker do
  begin
  q_worker.close;
  q_worker.open;
  q_worker_view.Close;
  q_worker_view.Open;
  q_worker_ls.close;
  q_worker_ls.open;
  end;
edit13.Text:='';
edit7.text:='';
edit8.text:='';
edit9.text:='';
edit10.text:='';
//edit11.text:='';
//edit12.Text:='';
dateedit2.Text:='    -  -  ';
//combobox2.Text:='';
PageControl1.ActivePage:=TabSheet1;
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.BitBtn4Click(Sender: TObject);
begin
 with dm_worker.q_worker_view do
  begin
  close;
  sql.clear;
  sql.add('select * from worker ');
  sql.add(' where 1=1 ') ;
  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.date<>0 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' );
   //showmessage(sql.text);
   open;
  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.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.BitBtn10Click(Sender: TObject);
begin
close;
end;

procedure Tworker.BitBtn1Click(Sender: TObject);
begin
add_worker:=tadd_worker.Create(self);
with dm_worker.q_worker do
   begin
   if not eof then 
      begin
      add_worker.Edit7.Text:=fieldbyname('pencode').asstring;
      end;
   end;
add_worker.Caption:='增加巡更员信息';
add_worker.dateedit1.DateTime:=now-7200;
add_worker.ShowModal ;
add_worker.Free;

end;

procedure Tworker.BitBtn2Click(Sender: TObject);
var d_code:string;
begin
dm_worker.q_worker_ls.Close;
dm_worker.q_worker_ls.open;
dm_worker.q_worker_ls.first;
  if Application.MessageBox('确实要删吗?','消息', MB_ICONINFORMATION+MB_OKCANCEL) = IDOK then
  begin
  if dm_worker.q_worker_ls.eof then
    begin
     Application.MessageBox('已经没有可以删除的项目！','消息',MB_ICONINFORMATION);
     exit;
    end
    else
    begin
    d_code:=dm_worker.q_worker.fieldbyname('code').asstring;
    with dm_worker.q_edit do
       begin
       close;
       sql.Clear ;
       sql.Add('delete from fpxl where code='''+uppercase(d_code)+''' ');
       execsql;
       end;
    dm_worker.q_worker_ls.Locate('id',(dm_worker.q_worker.fieldbyname('id').asinteger),[loCaseInsensitive]);
    dm_worker.q_worker_ls.Delete ;
    dm_worker.q_worker.Close;
    dm_worker.q_worker.open;
    end;
  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.DateTime:=(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;
add_worker.edit7.Text:=fieldbyname('pencode').asstring;
add_worker.e_code:=add_worker.Edit2.text;
end;
add_worker.ShowModal ;
add_worker.Free;

end;

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

end.