factory.pas

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

unit factory;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ImgList, Menus, StdCtrls, Mask, DBCtrls, ExtCtrls, ComCtrls, Grids,
  DBGrids, ToolWin, ExtDlgs, Placemnt, Db, ADODB, ppProd, ppClass,
  ppReport, ppComm, ppRelatv, ppCache, ppDB, ppDBPipe, ppDBBDE, ppCtrls,
  ppBands, ppPrnabl, ppViewr, ppModule, daDatMod;

type
  TFormfactory = class(TForm)
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    OpenPictureDialog1: TOpenPictureDialog;
    FontDialog1: TFontDialog;
    PopupMenu1: TPopupMenu;
    ColorDialog1: TColorDialog;
    FormStorage1: TFormStorage;
    Qryfactory: TADOQuery;
    Qryfactoryworkno: TStringField;
    Qryfactorycardno: TStringField;
    Qryfactoryname: TStringField;
    Qryfactoryindate: TDateTimeField;
    N6: TMenuItem;
    Qryfactoryphoto: TStringField;
    Qryfactoryprof: TStringField;
    Qrytemppic: TADOQuery;
    DStemppic: TDataSource;
    DBImage1: TDBImage;
    ToolBar2: TToolBar;
    tbnprint: TToolButton;
    fac_drag: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    DBNavigator1: TDBNavigator;
    Panel1: TPanel;
    Label5: TLabel;
    Edit1: TEdit;
    adoqry: TADOQuery;
    DBGrid1: TDBGrid;
    Qryfactorydept: TStringField;
    Panel2: TPanel;
    Panel8: TPanel;
    Image2: TImage;
    Shape2: TShape;
    DBText14: TDBText;
    Image5: TImage;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    DBText8: TDBText;
    Panel9: TPanel;
    DBText9: TDBText;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DSfactory: TDataSource;
    ADOQuery1: TADOQuery;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    DateTimeField1: TDateTimeField;
    StringField6: TStringField;
    ToolButton1: TToolButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Splitter2: TSplitter;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBText1DblClick(Sender: TObject);
    procedure Label2DblClick(Sender: TObject);
    procedure DBImage5DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure tbexitClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure ppReport1BeforePrint(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure DSfactoryDataChange(Sender: TObject; Field: TField);
    procedure ppReport1AfterPrint(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure tbnprintClick(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure Image1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Image2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1Exit(Sender: TObject);
    procedure Panel5DblClick(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure fac_dragClick(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure Label1DblClick(Sender: TObject);
    procedure DBEdit7DblClick(Sender: TObject);
    procedure DBText8DblClick(Sender: TObject);
    procedure DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton16Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    f:string;
  end;

var
  Formfactory: TFormfactory;
  printornot:integer;

implementation

uses datamol,main, publicfunction, factory_report, fac_color,
factory_report1;
//  factory_report2;
//  factory_report2;
//  factory_report2;
{$R *.DFM}

procedure TFormfactory.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     qryfactory.close;
     datamod.adocompany.close;
     qrytemppic.close;
     datamod.Adopublic.close;
     datamod.Adopublic.Open;
     datamod.ADOpublic.Edit;
     if datamod.adopublic.RecordCount>0 then
     begin
       datamod.adopublic.post;
     end;
     datamod.adopublic.close;
     formfactory:=nil;
     action:=cafree;
end;

procedure TFormfactory.DBText1DblClick(Sender: TObject);
begin
   //   if fontdialog1.Execute then
   //   begin
   fontdialog1.Execute;
     (Sender as TDBText).Font.Assign(fontdialog1.Font);
     (Sender as TDBText).Font.Color:=fontdialog1.Font.Color;

   //   end;
end;

procedure TFormfactory.Label2DblClick(Sender: TObject);
begin
      if fontdialog1.Execute then
      begin
           (Sender as TLabel).Font.Assign(fontdialog1.Font);
           (Sender as TLabel).Font.Color:=fontdialog1.Font.Color;
      end;
end;

procedure TFormfactory.DBImage5DblClick(Sender: TObject);
begin
     if openpicturedialog1.execute then
        (Sender as TDBImage).Picture.LoadFromFile(openpicturedialog1.FileName);
end;

procedure TFormfactory.FormCreate(Sender: TObject);
begin
  with datamod do
  begin
          qryfactory.Open;
          adocompany.close;
          adocompany.open;
          adopublic.open;
          adopublic.edit;
          if trim(adopublicbackpic.asstring)<>'' then
          begin
       //      Image1.Picture.LoadFromFile(adopublicbackpic.asstring);
             Image2.Picture.LoadFromFile(adopublicbackpic.asstring);
          end;
          qrytemppic.open;
     end;
end;

procedure TFormfactory.tbexitClick(Sender: TObject);
begin
     close;
end;

procedure TFormfactory.FormActivate(Sender: TObject);
begin
      pagecontrol1.activepageindex:=0;
      pagecontrol1.height:=233;
end;

procedure TFormfactory.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
      dbgrid_keypress(sender,key);
end;

procedure TFormfactory.FormKeyPress(Sender: TObject; var Key: Char);
begin
     if Activecontrol=Dbgrid1 then
        exit;
     if key=#13 then
     begin
          key:=#0;
          selectnext(activecontrol,true,true);
     end;
end;

procedure TFormfactory.ppReport1PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
  TppViewer(tppReport(Sender).PreviewForm.Viewer).ZoomSetting := zsWholePage;
  qryfactory.first ;
//  pplabel13.onPrint(pplabel13) ;
end;

procedure TFormfactory.ppReport1BeforePrint(Sender: TObject);
begin
{     pplabel12.left:=pplabel12.left;
     pplabel12.top:=pplabel12.top;
     pplabel1.left:=label2.left;
     pplabel1.top:=label2.top;
     pplabel2.left:=label3.left;
     pplabel2.top:=label3.top;
     pplabel3.left:=label4.left;
     pplabel3.top:=label4.top;
     pplabel4.left:=label1.left;
     pplabel4.top:=label1.top;
     pplabel17.left:=label7.left;
     pplabel17.top:=label7.top;
     pplabel16.left:=label8.left;
     pplabel16.top:=label8.top;
     ppdbtext2.left:=dbtext4.left;
     ppdbtext2.top:=dbtext4.top;
     ppdbtext3.left:=dbtext2.left;
     ppdbtext3.top:=dbtext2.top;
     ppdbtext4.left:=dbtext5.left;
     ppdbtext4.top:=dbtext5.top;
     ppdbtext5.left:=dbtext6.left;
     ppdbtext5.top:=dbtext6.top;
     ppdbtext1.left:=dbtext7.left;
     ppdbtext1.top:=dbtext7.top;
     ppdbtext6.left:=dbtext3.left;
     ppdbtext6.top:=dbtext3.top;
     pplabel12.caption:=companyname1;
     ppImage1.Picture:=Image1.Picture;
     ////cs updated
     adoqry.close;
     adoqry.Open;
     while not adoqry.eof do
     begin
       if  adoqry.fieldbyname('dept').asstring=dbbm.Field.Value then
       begin
         ppDBText3.font.color:=adoqry.fieldbyname('color').value;
         break;
       end;
       adoqry.next;
     end;
     adoqry.close;
//初始化图片库   ///cs updated
     with datamod do
     begin
          query1.close;
          query1.SQL.text:='Delete from temppic';
          query1.execsql;
          adopersonal.Close;
          adopersonal.open;
          adopersonal.first;
          qrytemppic.open;
          while not adopersonal.eof do
          begin
             qrytemppic.Insert;
             qrytemppic.fieldbyname('workno').asstring:=adopersonal.fieldbyname('workno').asstring;
             dbimage1.Picture.LoadFromFile(adopersonal.fieldbyname('photo').asstring);
             qrytemppic.Post;
             adopersonal.next;
         end;
         adopersonal.close;
         query1.close;
     end; }
end;

procedure TFormfactory.N6Click(Sender: TObject);
begin
     if OpenPictureDialog1.Execute then
     begin
          Image2.Picture.LoadFromFile(OpenPictureDialog1.FileName);
          datamod.adopublic.edit;
          datamod.adopublicbackpic.asstring:=openpicturedialog1.filename;
          datamod.adopublic.post;
     end;
end;

procedure TFormfactory.DSfactoryDataChange(Sender: TObject; Field: TField);
begin
  if Qryfactoryphoto.asstring<>'' then
    Image5.Picture.LoadFromFile(Qryfactoryphoto.asstring);
end;

procedure TFormfactory.ppReport1AfterPrint(Sender: TObject);
begin
     with datamod do
     begin
        Query1.close;
        Query1.sql.text:='Delete from temppic ';
        Query1.execsql;
        Query1.close;
     end;
end;
procedure TFormfactory.PageControl1Change(Sender: TObject);
begin