uitem.pas

进销存以及BOM管理,SQl Server数据库程序

unit uitem;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ubaseinfo, DB, ADODB, ImgList, ActnList, Grids, DBGridEh,
  Buttons, ExtCtrls, ComCtrls, StdCtrls, ToolWin, Menus, FR_Desgn, FR_DSet,
  FR_DBSet, FR_Class, MSNPopUp, Word2000, OleServer;

const
  WM_USER_SHOWIMAGE=1024;

type
  Tfrmitem = class(TfrmBaseinfo)
    carework: TAction;
    N25: TMenuItem;
    WordDocument1: TWordDocument;
    WordApplication1: TWordApplication;
    procedure FormCreate(Sender: TObject);
    procedure QBaseInfoAfterScroll(DataSet: TDataSet);
    procedure careworkExecute(Sender: TObject);
    procedure WordDocument1Close(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure showimage(var msg:Tmessage);Message WM_USER_SHOWIMAGE;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmitem: Tfrmitem;

implementation

uses uitem_e, uitemimage, Global;

{$R *.dfm}

procedure Tfrmitem.FormCreate(Sender: TObject);
begin
  inherited;
  UnitTitle:='货品资料';
  MainTable:='Titem';
  ModifyForm:=Tfrmitem_e;
  ReportName:=Extractfilepath(application.ExeName)+'prints\fritem.frf';
end;

procedure Tfrmitem.QBaseInfoAfterScroll(DataSet: TDataSet);
begin
  inherited;
  try
    if Qbaseinfo.FieldByName('fpicture').AsString<>'' then
      frmitemimage.imageitem.Picture.LoadFromFile(Qbaseinfo.FieldByName('fpicture').AsString)
  except
     frmitemimage.imageitem.Picture.Graphic:=nil;
  end;
end;

procedure Tfrmitem.careworkExecute(Sender: TObject);
var
    a:OleVariant;
begin
  inherited;
  if Qbaseinfo.FieldByName('fcarework').AsString = '' then
    begin
      messagedlg('该产品还没有设置工艺文件路径 , 请单击修改后添加该工艺文件 ! ',mtwarning,[mbok],0);
      exit;
    end
    else
    begin
    a:=Qbaseinfo.FieldByName('fcarework').AsString;
    WordApplication1.Connect;
    WordApplication1.Visible:=true;
    WordDocument1.Connectto(WordApplication1.Documents.Open(a,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam));
    end;
end;

procedure Tfrmitem.WordDocument1Close(Sender: TObject);
begin
  inherited;
  WordDocument1.Disconnect;
  wordapplication1.Quit;
  WordApplication1.Disconnect;
end;


procedure Tfrmitem.showimage(var msg: Tmessage);
begin
  if not assigned(frmitemimage) then
    frmitemimage:=Tfrmitemimage.Create(application);
    frmitemimage.show;
end;

procedure Tfrmitem.FormShow(Sender: TObject);
begin
  inherited;
  postmessage(handle,WM_USER_SHOWIMAGE,0,0);
  application.ProcessMessages;
end;

procedure Tfrmitem.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i:integer;
  Child:Tform;
begin
  inherited;
  for i:=0 to Screen.FormCount - 1 do
  begin
    if Screen.Forms[i].ClassName='Tfrmitemimage' then
      begin
        Child:=Screen.Forms[i];
        Child.Close;
        Break;   
      end;
  end;
  frmitem:=nil;
end;

end.