reschildfrm.pas

制造技术资源管理的一个模块

  end
    //********新建操作指导书**************
  else
  if UpperCase(s)=UpperCase('DepartMentCriterion')  then
  begin
    if (MainForm.UserRightType='A') or(MainForm.UserRightType='C')then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
    //********新建通用工装**************
  else
  if (UpperCase(s)=UpperCase('GenEquipInfo')) then
  begin
    if (MainForm.UserRightType='A') or(MainForm.UserRightType='C')then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
    //********新建通用工装复制信息**************
  else
  if (UpperCase(s)=UpperCase('GenEquipInfoCOPY'))  then
  begin
    if (MainForm.UserRightType='A') or(MainForm.UserRightType='C')or(MainForm.UserRightType='E')then
    begin
      CheckBox1.Caption:='含新订货';
      CheckBox2.Visible:=True;
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      CheckBox2.Visible:=False;
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
    //********新建标准工具**************
  else
  if UpperCase(s)=UpperCase('StaEquipInfo')  then
  begin
    if (MainForm.UserRightType='A') or(MainForm.UserRightType='C')then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
    //********新建工艺标准件**************
  else
  if UpperCase(s)=UpperCase('Sta2EquipInfo')  then
  begin
    if (MainForm.UserRightType='A') or(MainForm.UserRightType='C')then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
    //********新建材料**************
  else
  if UpperCase(s)=UpperCase('MetalMaterialSpecs')  then
  begin
    if (MainForm.UserRightType='A') or(MainForm.UserRightType='C')then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
    //********新建基础标准**************
  else
  if UpperCase(s)=UpperCase('BasicCriterion')  then
  begin
    if (MainForm.UserRightType='A') or(MainForm.UserRightType='C')then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
    //********新建部门常用术语**************
  else
  if UpperCase(s)=UpperCase('TechTerm')  then
  begin
    if (MainForm.UserRightType='A') or(MainForm.UserRightType='C')then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
    //********新建工艺标准术语**************
  else
  if UpperCase(s)=UpperCase('Term')  then
  begin
    if (MainForm.UserRightType='A') or(MainForm.UserRightType='C')then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
    //********新建资料归档**************
  else
  if UpperCase(s)=UpperCase('drawingpigeonhole')  then
  begin
    if (MainForm.UserRightType='A') or(MainForm.UserRightType='D')then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
    //********新建资料借阅**************
  else
  if UpperCase(s)=UpperCase('drawingborrowing')  then
  begin
    if (MainForm.UserRightType='A') or(MainForm.UserRightType='D')then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
      //********新建机床**************
  else
  if UpperCase(s)=UpperCase('CG_Machine')  then
  begin
    if (MainForm.UserRightType='A') or(MainForm.UserRightType='C')then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
      //********新建工艺方法**************
  else
  if UpperCase(s)=UpperCase('ROUTMODE')  then
  begin
    if (MainForm.UserRightType='A') then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
      //********新建工艺编号规则**************
  else
  if UpperCase(s)=UpperCase('gybianhao')  then
  begin
    if (MainForm.UserRightType='A')then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
      //********新建责任单位**************
  else
  if UpperCase(s)=UpperCase('WORKSTRU')  then
  begin
    if (MainForm.UserRightType='A') or(MainForm.UserRightType='C')then
    begin
      btnAppEquipHlp.Visible:=false;
      btnAppEquipCode.Visible:=True;
    end
    else
    begin
      btnAppEquipCode.Visible:=False;
      btnAppEquipHlp.Visible:=False;
    end;
  end
  else
  begin
    btnAppEquipCode.Visible:=False;
    btnAppEquipHlp.Visible:=False;
  end;
  with dmRes.cdsResType do
  begin
    FullSQL:= Trim(FieldByName('fstrFullSQL').AsString);
    TableName:= FieldByName('fstrtablename').AsString;
  end;
  if FullSQL='' then
    dsResQuery.DataSet.Close else
  with cdsResQuery do
  begin
    if Active then
      EmptyDataSet;
    Close;
    CommandText:= FullSQL;
    Open;
  end;

end;
procedure TResChild.cdsResQueryAfterOpen(DataSet: TDataSet);
begin
  TranslateDispLabel(TableName, DataSet);
end;

procedure TResChild.wwDBGrid1CellChanged(Sender: TObject);
begin
  if cdsResQuery.ChangeCount>0 then  begin
    MainForm.acSave.Enabled:=True;
    MainForm.acNo.Enabled:=True;
  end
  else
  begin
    MainForm.acSave.Enabled:=False;
    MainForm.acNo.Enabled:=False;
  end;
end;

procedure TResChild.FormCreate(Sender: TObject);
begin
  blnShowCanSearched:=False;
  blnFileField:=False;
  cdsResQuery.Active:=True;
  cdsFields.Active:=True;
  sHistoryCondition:= '';
end;

function TResChild.RunQuery(SQL: String; OnlyCondition: Boolean=True): Boolean;
var
  OldSQL: String;
begin
  Result:= True;
  try
    with cdsResQuery do
    begin
      OldSQL:= CommandText;
      Close;
      if OnlyCondition then
      begin
        if ckFindInHistory.Checked then
        begin
          if (SQL<>'') and (sHistoryCondition<>'') then
            sHistoryCondition:= Format('(%s) and (%s)', [sHistoryCondition, SQL])
          else
            sHistoryCondition:= sHistoryCondition + SQL;
        end else
          sHistoryCondition:= SQL;

        if sHistoryCondition<>'' then
        begin
          Label1.Visible:=true;
          Label2.Visible:=true;
          Edit1.Visible:=true;
          cdsResQuery.PacketRecords:=-1;
          CommandText:= 'Select * From ' + TableName + ' Where ' + sHistoryCondition;
        end
        else
        begin
          Label1.Visible:=false;
          Label2.Visible:=false;
          Edit1.Visible:=false;
          CommandText:= FullSQL;//'Select top 300 * From ' + TableName;
        end;
        Open;
        btnFiltered.Down:= sHistoryCondition<>'';
      end else
      begin
        Label1.Visible:=true;
        Label2.Visible:=true;
        Edit1.Visible:=true;
        cdsResQuery.PacketRecords:=-1;
        CommandText:= SQL;
        btnFiltered.Down:= True;
        Open;
      end;
      Edit1.text:=inttostr(recordcount);
      cdsResQuery.PacketRecords:=30;
    end;
  except
    Label1.Visible:=false;
    Label2.Visible:=false;
    Edit1.Visible:=false;
    Messagebox(Application.Handle,
               '查询语句错误！'+#13#13+'请重新输入。',
               PChar(Caption),
               MB_OK+MB_ICONWARNING);
    RunQuery(OldSQL, False);
    Result:= False;
  end;
end;

procedure TResChild.Button1Click(Sender: TObject);
var
  s,s1,sRemote,sLocal:String;
  i,j:integer;
begin
  s:=cdsResQuery.fieldbyname(sFileField).AsString;
  s1:=s;
  while Pos('.', S1) > 0 do
  begin
    i:=Pos('.', S1);
    j:=Length(s1);
    s1:= Copy(s1, i+1, j-i);
  end;
  if trim(s1)='' then
  begin
    showmessage('对不起，该文档类型无法确定！');
    exit;
  end;
  sRemote:='\\'+MainForm.fuwuqi+'\E$\PDMServer\res';
  if not DirectoryExists(sRemote) then
  begin
    ShowMessage('对不起，文件浏览失败，请检查是否与文件服务器建立了连接，文件服务器机器名是否正确，网络是否正常！');
    Exit;
  end;
  sRemote:=sRemote+'\'+s;
  if not fileExists(sRemote) then
  begin
    ShowMessage('对不起，文件浏览失败，请检查是否与文件服务器建立了连接，文件服务器机器名是否正确，网络是否正常，否则，文件服务器上该文件已经不存在！');
    Exit;
  end;
  sLocal:='D:\PDMServer\res';
  if not DirectoryExists(sLocal) then
  begin
    if (MessageDlg('对不起，本机未建系统所使用文件夹（D:\PDMServer\res），是否自动创建?',mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
    begin
      if not CreateDir('D:\PDMServer\res') then
        raise Exception.Create('Cannot create D:\PDMServer\res');
    end
    else Exit;
  end;

  sLocal:=sLocal+'\'+s;
  try
    CopyFile(pchar(sRemote),pchar(sLocal),False);