worker_pas1.pas

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

unit worker_pas1;

interface

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

type
  Tworker = class(TForm)
    Panel1: TPanel;
    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;
    DBGrid2: TDBGrid;
    Panel5: TPanel;
    BitBtn8: TBitBtn;
    BitBtn10: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(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;
mainform.N_EDITWORKER.Enabled:=true;
mainform.ToolButton30.Enabled :=true;
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( 690 *longint(screen.width)*96 / 800/screen.pixelsperinch);
  self.Top:=mainform.Height-mainform.clientheight+mainform.ToolBar2.Height+round((mainform.ClientHeight-mainform.ToolBar2.Height-mainform.StatusBar.Height-self.Height)/2);
  self.Left:=round((mainform.Width-self.Width)/2);
  //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:=687;
  self.Top:=mainform.Height-mainform.clientheight+mainform.ToolBar2.Height+round((mainform.ClientHeight-mainform.ToolBar2.Height-mainform.StatusBar.Height-self.Height)/2);
  self.Left:=round((mainform.Width-self.Width)/2);
  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;


end.