factory.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 670 行 · 第 1/2 页

PAS
670 行
字号
12
  (sender as Tpagecontrol).activepage.highlighted:=true;
  case pagecontrol1.activepageindex of
    0: pagecontrol1.height:=233;
    1: pagecontrol1.height:=369;
  end;
end;

procedure TFormfactory.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  (sender as Tpagecontrol).activepage.highlighted:=false;
end;
procedure TFormfactory.tbnprintClick(Sender: TObject);
//var qsql:string;
begin
  formfactory_report:=TFormfactory_report.create(self);
  formfactory_report.ShowModal;
  formfactory_report.free;
end;
procedure TFormfactory.ToolButton17Click(Sender: TObject);
begin
  close;
end;

{procedure TFormfactory.ToolButton16Click(Sender: TObject);
//var qsql:string;
begin
{  printornot:=1;//initial printornot
  qsql:='';
  formfactory_report:=TFormfactory_report.create(self);
  formfactory_report.showmodal;
  formfactory_report.free;
  if printornot=0 then
    abort;
  qryfactory.disablecontrols;
  if sql<>'' then
  begin
    qsql:=qryfactory.SQL.text;
    qryfactory.close;
    qryfactory.sql.clear;
    qryfactory.sql.text:='select workno,cardno,name,dept,prof,photo,indate from per24010 where leave=0 and '+
                         ''+sql+' order by workno ';
    qryfactory.open;
    case pagecontrol1.ActivePageIndex of
      0:
      begin
       ppreport2.Print;
      end;
{      1:
      begin
       ppreport2.devicetype:='Screen';
       ppreport2.Print;
      end;
    end;
  end;
  if sql='' then
  begin
    qryfactory.Close;
    qryfactory.sql.text:='select workno,cardno,name,dept,prof,photo,indate,photo from per24010 where leave=0 order by workno ';
    qryfactory.open;
    case pagecontrol1.activepageindex of
      0:begin
       ppreport2.print;
      end;
{      1:begin
        ppreport2.DeviceType:='Screen';
        ppreport2.print;
      end;
    end;
  end;
  qryfactory.enablecontrols;
end;      }

procedure TFormfactory.Image1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
          accept:=true;
          TLabel(source).Left:=x;
          TLabel(source).Top:=y;
          TDBText(source).Left:=x;
          TDBText(source).Top:=y;
          TDBImage(source).Left:=x;
          TDBImage(source).Top:=y;
          if (Source is TImage) then
          begin
               TImage(source).Left:=x;
               TImage(source).Top:=y;
               TShape(Findcomponent('Shape'+inttostr(strtoint(copy((Source as TImage).Name,6,1))-3))).Left:=x-1;
               TShape(Findcomponent('Shape'+inttostr(strtoint(copy((Source as TImage).Name,6,1))-3))).top:=y-1;
          end;
end;

procedure TFormfactory.Image2DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
          accept:=true;
          TLabel(source).Left:=x;
          TLabel(source).Top:=y;
          TDBText(source).Left:=x;
          TDBText(source).Top:=y;
          TDBImage(source).Left:=x;
          TDBImage(source).Top:=y;
          if (Source is TImage) then
          begin
               TImage(source).Left:=x;
               TImage(source).Top:=y;
               Tshape(source).left:=x;
               Tshape(source).top:=y;
//               TShape(Findcomponent('Shape'+inttostr(strtoint(copy((Source as TImage).Name,6,1))-3))).Left:=x-1;
  //             TShape(Findcomponent('Shape'+inttostr(strtoint(copy((Source as TImage).Name,6,1))-3))).top:=y-1;
          end;
end;

procedure TFormfactory.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0040');
    end;
end;



procedure TFormfactory.Edit1Exit(Sender: TObject);
begin
  if trim(EDit1.Text)='' then
      exit
  else
  begin
    qryfactory.Close;
    qryfactory.SQL.Text:='select workno,cardno,name,dept,prof,photo,indate '+
      'from per24010 where leave=0 and((cardno='''+edit1.Text+''') or (workno='''+edit1.text+''') or (name='''+edit1.text+''') or (dept='''+edit1.text+'''))  order by workno';
    qryfactory.Open;
//    if not qryfactory.Eof then
//       Application.messagebox('没有该员工','Warning',mb_ok+mb_iconwarning);
{  end;

    if qryfactory.Locate('cardno',edit1.text,[]) then
       begin
         Edit2.text:=qryfactory.fieldbyname('name').asstring;
         qryfactory.Close;
         qryfactory.SQL.Text:='select workno,cardno,name,dept,prof,photo,indate '+
                           'from per24010 where leave=0 and cardno='''+edit1.Text+''' order by workno';
         qryfactory.Open;
       end               }
end;
end;

{procedure TFormfactory.Edit2Exit(Sender: TObject);
begin
   if trim(EDit2.Text)='' then
      exit;
    if qryfactory.Locate('name',edit2.text,[]) then
       begin
         Edit1.text:=qryfactory.fieldbyname('cardno').asstring;
         qryfactory.Close;
         qryfactory.SQL.Text:='select workno,cardno,name,dept,prof,photo,indate '+
                           'from per24010 where leave=0 and name='''+edit2.Text+''' order by workno';
         qryfactory.Open;
       end
    else
      Application.messagebox('没有该员工','Warning',mb_ok+mb_iconwarning);
end;  }

procedure TFormfactory.Panel5DblClick(Sender: TObject);
begin
   if colordialog1.execute then
   begin
      (Sender as TPanel).Color:=colordialog1.Color;
   end;
end;

procedure TFormfactory.DBGrid1TitleClick(Column: TColumn);
begin
   if f='DESC' then
     f:='ASC'
   else
     f:='DESC';
   qryfactory.Sort :=column.FieldName+' '+f;
end;

procedure TFormfactory.fac_dragClick(Sender: TObject);
var i:integer;
begin
  if fac_drag.down then
  begin
    for i:=0 to self.componentcount do
    begin
      fac_drag.caption:='拖放';
      if (components[i].ClassType=TLabel) then
          TLabel(components[i]).dragmode:=dmAutomatic
       else
       if (components[i].classtype=TDBText) then
          TDBText(components[i]).dragmode:=dmAutomatic
       else
       if (components[i].ClassType=TDBEdit) then
          TDBEdit(components[i]).dragmode:=dmAutomatic
       else
       if (components[i].ClassType=TShape) then
          TShape(components[i]).dragmode:=dmAutomatic
           else
       if (components[i].classtype=TImage) then
       //   TImage(components[i]).dragmode:=dmAutomatic
        image5.dragmode:=dmAutomatic
     end;
   end
else
begin
  fac_drag.caption:='设定字体';
  for i:=0 to self.componentcount do
  begin
    if (components[i].ClassType=TLabel) then
       TLabel(components[i]).dragmode:=dmManual
    else
    if (components[i].classtype=TDBText) then
       TDBText(components[i]).dragmode:=dmManual
    else
    if (components[i].ClassType=TDBEdit) then
       TDBEdit(components[i]).dragmode:=dmManual
    else
    if (components[i].classtype=TImage) then
       TImage(components[i]).dragmode:=dmManual
    else
    if (components[i].ClassType=TShape) then
       TShape(components[i]).dragmode:=dmManual;
  end;
 end;
end;
procedure TFormfactory.ToolButton15Click(Sender: TObject);
begin
  formfac_color:=tformfac_color.create(self);
  formfac_color.showmodal;
  formfac_color.free;
end;

{procedure TFormfactory.ppDBText3GetText(Sender: TObject; var Text: String);
begin
  if not assigned(formfactory) then
    formfactory:=tformfactory.create(self);
  formfactory.adoqry.close;
  formfactory.adoqry.Open;
  showmessage(text);
     while not formfactory.adoqry.eof do
     begin
       showmessage(formfactory.adoqry.fieldbyname('dept').asstring);
       if  formfactory.adoqry.fieldbyname('dept').asstring=text then
       begin
         pplabel12.font.color:=formfactory.adoqry.fieldbyname('color').value;
         pplabel1.font.color:=formfactory.adoqry.fieldbyname('color').value;
         pplabel2.font.color:=formfactory.adoqry.fieldbyname('color').value;
         pplabel3.font.color:=formfactory.adoqry.fieldbyname('color').value;
         pplabel4.font.color:=formfactory.adoqry.fieldbyname('color').value;
         pplabel16.font.color:=formfactory.adoqry.fieldbyname('color').value;
         pplabel17.font.color:=formfactory.adoqry.fieldbyname('color').value;
         ppdbtext1.font.color:=formfactory.adoqry.fieldbyname('color').value;
         ppdbtext2.font.color:=formfactory.adoqry.fieldbyname('color').value;
         ppdbtext3.font.color:=formfactory.adoqry.fieldbyname('color').value;
         ppdbtext4.font.color:=formfactory.adoqry.fieldbyname('color').value;
         ppdbtext5.font.color:=formfactory.adoqry.fieldbyname('color').value;
         ppdbtext6.font.color:=formfactory.adoqry.fieldbyname('color').value;
         break;
       end;
       adoqry.next;
     end;
     adoqry.close;                    }

procedure TFormfactory.Label1DblClick(Sender: TObject);
begin
  fontdialog1.Execute;
  (sender as tlabel).font.Assign(fontdialog1.Font);
  (sender as tlabel).font.color:=fontdialog1.font.Color;
end;

procedure TFormfactory.DBEdit7DblClick(Sender: TObject);
begin
  fontdialog1.execute;
  (sender as tdbedit).font.Assign(fontdialog1.font);
  (sender as tdbedit).font.color:=fontdialog1.font.color;
end;

procedure TFormfactory.DBText8DblClick(Sender: TObject);
begin
  fontdialog1.execute;
  (sender as tdbtext).font.Size
end;

{procedure TFormfactory.ppDBText17GetText(Sender: TObject;
  var Text: String);
begin
  adoqry.close;
  adoqry.Open;
  if adoqry.Locate('dept',text,[]) then
    begin
  //    pplabel13.font.color:=adoqry.fieldbyname('color').asinteger;
      pplabel6.font.color:=adoqry.fieldbyname('color').asinteger;
      pplabel7.font.color:=adoqry.fieldbyname('color').asinteger;
      pplabel8.font.color:=adoqry.fieldbyname('color').asinteger;
      pplabel9.font.color:=adoqry.fieldbyname('color').asinteger;
      pplabel11.font.color:=adoqry.fieldbyname('color').asinteger;
      pplabel17.font.color:=adoqry.fieldbyname('color').asinteger;
      ppdbtext13.font.color:=adoqry.fieldbyname('color').asinteger;
      ppdbtext14.font.color:=adoqry.fieldbyname('color').asinteger;
      ppdbtext16.font.color:=adoqry.fieldbyname('color').asinteger;
      ppdbtext17.font.color:=adoqry.fieldbyname('color').asinteger;
      ppdbtext18.font.color:=adoqry.fieldbyname('color').asinteger;
    end;
  adoqry.close;
end;     }

procedure TFormfactory.DBGrid1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
// dbgridcount((sender as Tdbgrid),button) ;
end;

procedure TFormfactory.ToolButton1Click(Sender: TObject);
begin
  Qryfactory.Close;
  Qryfactory.SQL.Text:='select workno,cardno,name,dept,prof,photo,indate,photo '+
   'from per24010 where leave=0 order by workno ';
  Qryfactory.Open;
end;
procedure TFormfactory.ToolButton16Click(Sender: TObject);
begin
  formfactory_report1:=Tformfactory_report1.create(self);
  formfactory_report1.showmodal;
  formfactory_report1.free;
end;

end.
12

factory.pas - 源码说明

本页面展示了「pasa人力资源考勤管理系统」中的 factory.pas 源码文件，采用 PAS 编程语言编写，共 670 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与pasa相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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