📄 worker_pas2.~pas

📁 delphi6.0电子寻更源程序,用来计算保安有无查抄
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit worker_pas;

interface

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

type
  Tworker = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    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;
    Panel3: TPanel;
    Label6: TLabel;
    Edit13: TEdit;
    procedure FormShow(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit13Change(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn10Click(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.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;

procedure Tworker.PageControl1Change(Sender: TObject);
begin
if pageControl1.ActivePage=tabsheet2 then
edit7.SetFocus ;

end;

procedure Tworker.Edit2Exit(Sender: TObject);
begin
{if edit2.Text='' then
begin
showmessage('巡检员钮号不能为空！');
edit2.SetFocus ;
edit2.Text:='' ;
exit;
end
else
begin
ch:=uppercase(trim(edit2.Text));
  try
   if (length(trim(ch)))<>2 then
   begin
   showmessage('请输入2位人员钮号，范围在00-FF之间！');
   edit2.SetFocus ;
   edit2.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
   showmessage('请输入2位合法的人员钮号，范围在00-FF之间！');
   edit2.SetFocus ;
   edit2.Text :='';
   exit;
   end;
  except
  begin
   showmessage('请输入2位合法的人员钮号，范围在00-FF之间！');
   edit2.SetFocus ;
   edit2.Text :='';
   exit;
   end;

  end;

end;}
end;
procedure Tworker.Edit3Exit(Sender: TObject);
begin
{if edit3.Text='' then
begin
showmessage('巡检员姓名不能为空！');
edit3.SetFocus ;
edit3.Text:='' ;
exit;
end;}

end;

procedure Tworker.BitBtn1Click(Sender: TObject);
begin
add_worker:=tadd_worker.Create(self);
add_worker.Caption:='增加巡检员信息';
add_worker.ShowModal ;
add_worker.Free;
{with dm_worker.q_worker do
begin
close;
open;
append;
end;
bitbtn1.Enabled:=false;
bitbtn2.Enabled:=false;
edit1.SetFocus ;
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
combobox1.Text:='';
dateedit1.Text:='    -  -  '; }
end;

procedure Tworker.BitBtn6Click(Sender: TObject);
begin
{with dm_worker.q_worker do
begin
close;
open;
end;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=true;
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
combobox1.Text:='';
dateedit1.Text:='    -  -  '; }
end;

procedure Tworker.BitBtn2Click(Sender: TObject);
begin
dm_worker.q_worker_ls.Close;
dm_worker.q_worker_ls.open;
dm_worker.q_worker_ls.first;
if MessageDlg('确实要删吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
  if dm_worker.q_worker_ls.eof then
    begin
     showmessage('已经没有可以删除的项目！');
     exit;
    end
    else
    begin
    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.DBGrid1CellClick(Column: TColumn);
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; }
12 下一页
⌨️ 快捷键说明

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